dos33fsprogs/graphics/hgr/circles/brescool.bas

0HGR2
1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
3X=0:D=3-2*Y:GOTO6
4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6
5D=D+4*X+6
6HPLOTA+X,B+YTOA-X,B+YTOA+X,B-YTOA-X,B-YTOA+Y,B+XTOA-Y,B+XTOA+Y,B-XTOA-Y,B-X
8IFY>=XTHEN4
9GOTO1
circles: even more circles filled, not what I was expecting 2021-06-14 12:24:59 -04:00			`0HGR2`
			`1HCOLOR=1+RND(1)7:A=40+RND(1)200:B=40+RND(1)100:Y=RND(1)40`
			`3X=0:D=3-2*Y:GOTO6`
			`4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6`
			`5D=D+4*X+6`
circles: remove extraneous spaces 2021-06-14 16:29:50 -04:00			`6HPLOTA+X,B+YTOA-X,B+YTOA+X,B-YTOA-X,B-YTOA+Y,B+XTOA-Y,B+XTOA+Y,B-XTOA-Y,B-X`
circles: even more circles filled, not what I was expecting 2021-06-14 12:24:59 -04:00			`8IFY>=XTHEN4`
			`9GOTO1`