| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2007.05.02/ |
Upload File : |
' graphics 1
nomainwin
WindowWidth = 500
WindowHeight = 500
open "graphics 1" for graphics as #gw
print #gw,"backcolor black"
print #gw,"horizscrollbar off"
print #gw,"vertscrollbar off"
print #gw,"fill black"
print #gw,"flush"
print #gw,"up; home; north;"
print #gw,"turn 90; go 150; down"
print #gw,"color red"
print #gw,"backcolor red"
print #gw,"circlefilled 50"
print #gw,"flush"
print #gw,"up; home; north;"
print #gw,"turn 90; go 150; down"
print #gw,"color blue"
print #gw,"backcolor blue"
'print #gw,"boxfilled 446 283"
call drawboxfilled 50
print #gw,"flush"
print #gw,"up; goto 25 25"
print #gw,"color blue"
print #gw,"backcolor blue"
call drawboxfilled 50
print #gw,"flush"
wait
sub drawboxfilled size
print #gw,"posxy x y"
print #gw,"up; goto ";x-size;" ";y-size
print #gw,"down; boxfilled ";x+size;" ";y+size
print #gw,"up; goto ";x;" ";y
end sub
[quit]
close #gw
end