Draw a sphere: Difference between revisions
→BASIC: changed qb to subsection; added darkbasic
m (→{{header|Pascal}}: add link to Delphi, mentioning the modifications.) |
(→BASIC: changed qb to subsection; added darkbasic) |
||
Line 5:
=={{header|BASIC}}==
<lang QBASIC>SCREEN 13 ' enter high-color graphic mode
' sets palette colors B/N
Line 26 ⟶ 25:
' wait until keypress
DO: LOOP WHILE INKEY$ = ""
END</lang>
===[[DarkBASIC]]===
Some simple 3D objects are built into DarkBASIC. Creating a sphere only takes 1 line:
<lang darkbasic>MAKE OBJECT SPHERE 1,1</lang>
=={{header|Brlcad}}==
| |||