Re: A86: Drawing circles
[Prev][Next][Index][Thread]
Re: A86: Drawing circles
sorry i meant that it was closer to qbasic version i redid it and wrote it in true
qbasic i was in a hurry so i wrote in a mix of ti- and qbasics since i didnt have
the time to totally convert it in to qbasic and i hate typing it using -> as the
store key also some people cant read html enhanced mail so it wasnt perfect sorry
Patrick
MrManson wrote:
> > 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
References: