akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik Agaram 2021-06-24 14:33:22 -07:00
parent 1684e3e10c
commit 6f6f6384f1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
shell/data.limg
View File

@ -162,8 +162,8 @@
with (x (0 - r)
y 0
err (2 - 2*r)
continue 1)
while continue
continue? 1)
while continue?
(pixel scr cx-x cy+y clr)
(pixel scr cx-y cy-x clr)
(pixel scr cx+x cy-y clr)
@ -175,7 +175,7 @@
when (or (r > x) (err > y))
++x
err += (2*x + 1)
set continue (x < 0)])
set continue? (x < 0)])
(ring . [def (ring screen cx cy r0 w clr)
for r r0 (r < r0+w) ++r
(circle screen cx cy r clr)])