diff options
| -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 4386df7a..6a9b67cb 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -161,7 +161,7 @@ (circle . [def (circle scr cx cy r clr) with (x (0 - r) y 0 - err (2 - (* 2 r)) + err (2 - r*2) continue 1) while continue (pixel scr cx-x cy+y clr) @@ -171,10 +171,10 @@ (set r err) when (r <= y) ++y - err += (1 + (2 * y)) + err += (y*2 + 1) when (or (r > x) (err > y)) ++x - err += (+ 1 (* 2 x)) + err += (x*2 + 1) set continue (x < 0)]) (ring . [def (ring screen cx cy r0 w clr) for r r0 (r < (r0 + w)) ++r |