Re: A86: Drawing circles


[Prev][Next][Index][Thread]

Re: A86: Drawing circles



> this is a quick basic version i havent tried it out on quick basic yet but it
> should work
> 
> Patrick

CLS
SCREEN 13
WINDOW (-10, -10)-(10, 10)
x = 0
y = 5
d = 3 - (2 * 5)
WHILE x <= y
PSET (xc + x, yc + y)
PSET (xc + x, yc - y)
PSET (xc - x, yc + y)
PSET (xc - x, yc - y)
PSET (yc + y, xc + x)
PSET (yc + y, xc - x)
PSET (yc - y, xc + x)
PSET (yc - y, xc - x)
IF d < 0 THEN
d = d + 4 * x + 6
ELSE
d = d + 4 * (x - y) + 10
END IF
x = x + 1
WEND
CLS

there is a modified version of your quickbasic program (PSET instead of
PtOn and screen 13 and window size) but now it just draws a box, check
it out


Follow-Ups: References: