diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-23 01:01:42 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-23 01:01:42 -0700 |
commit | ba0c41673b7cb024544c5e1ec1638cf2fb1f3725 (patch) | |
tree | 6426ee6f313a0c3fa7ab2819b398d48810e33285 | |
parent | cfa1bac8bbd235dc5e6c6ccb5893f3089f561370 (diff) | |
download | mu-ba0c41673b7cb024544c5e1ec1638cf2fb1f3725.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 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 |