05-24-2005, 05:56 PM
Its a little long and includes : But there's no cos,sin,sqr,* or / just + and -. the fisrt line y=180 changes the radius xoff and yoff move it around the screen.
Code:
SCREEN 12
y = 180: xoff = 280: yoff = 200: x = -1
WHILE x < y
x = x + 1: d = d + x + x + 1
IF d > 0 THEN d = d - y - y + 1: y = y - 1
FOR k = 0 TO 7
IF k AND 4 THEN a = -x ELSE a = x
IF k AND 2 THEN b = -y ELSE b = y
IF k AND 1 THEN SWAP a, b
PSET (a + xoff, b + yoff)
NEXT k
WEND