diff options
| author | Kartik Agaram <vc@akkartik.com> | 2021-06-24 14:33:22 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2021-06-24 14:33:22 -0700 |
| commit | 6f6f6384f1e5fe46636af28f8e7d4ca3cbea655c (patch) | |
| tree | a100301d478cd9219eb9d115cf2d7bd32331b21e | |
| parent | 1684e3e10cac3e0ddf5473be647dfc53b9000174 (diff) | |
| download | mu-6f6f6384f1e5fe46636af28f8e7d4ca3cbea655c.tar.gz | |
.
| -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)]) |