# CIRCLE statement fully implemented in preparation for Demo #5! (+screenshot)

Here's a link to a screen-shot:
http://img216.imageshack.us/img216/9403/circlescn6.png

Here's the QBASIC program QB64 used to generate it:

'"GALLEON'S NOT SELF OBSESSED!" by Galleon
'for QB64 Demo #5
SCREEN 13
x = 30 'starting x-offset
y = 100 'y-offset
s = 50 'average spacing
col = 32 'color
CIRCLE (x, y), r, col, 1, -.1, 1
x = x + s: col = col + 2
CIRCLE (x, y + r), r * 2, col, 0, 3.1, 2
x = x + s * .75: col = col + 2
CIRCLE (x, y), r, col, -1.5, 5, 10
x = x + s * .5: col = col + 2
CIRCLE (x, y), r, col, -1.5, 5, 10
x = x + s * .75: col = col + 2
CIRCLE (x, y), r, col, -.1, 5.5, 1
x = x + s: col = col + 2
CIRCLE (x, y), r, col, , , 1
x = x + s: col = col + 2
CIRCLE (x, y + r), r * 2, col, 0, 3.1, 2
'horizontal bubbles (1:1 perspective)
LOCATE 5, 1
PRINT "1:1 perspective:"
col = 32
x = -1
y = 50
PSET (x, y)
FOR r = 0 TO 16
CIRCLE STEP(r * 2 + 1, 0), r, col, , , 1
col = col + 1
NEXT
'horizontal bubbles (default perspective)
LOCATE 21, 1
PRINT "Default perspective:"
col = 32
x = -1
y = 150
PSET (x, y)
FOR r = 0 TO 16
CIRCLE STEP(r * 2 + 1, 0), r, col
col = col + 1
NEXT

Posted on Jan 2, 2008, 7:53 PM

Respond to this message