diff options
Diffstat (limited to 'shell')
| -rw-r--r-- | shell/data.limg | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/shell/data.limg b/shell/data.limg index 3e3b7912..0c46da98 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -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)]) |