Draw a sphere: Difference between revisions
m
→{{header|FreeBASIC}}: small change in code
Simple9371 (talk | contribs) (Removed a curly bracket to make it 'balanced') |
m (→{{header|FreeBASIC}}: small change in code) |
||
Line 273:
' Sphere using XPL0 code from rosetacode sphere page
' Altered freebasic version to compile in default mode
' version 17-06-2015
' compile with: fbc -s console or fbc -s gui
#Define W 640
#Define H 480
Line 307 ⟶ 308:
Locate 50,2
Color(RGB(255,255,255),RGB(0,0,0)) ' foreground color is changed
' empty keyboard buffer
Print "Enter any key to exit "▼
While InKey <> "" : Var _key_ = InKey : Wend
Sleep
End</lang>
|