diff options
author | Kartik Agaram <vc@akkartik.com> | 2021-06-23 11:05:57 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2021-06-23 11:05:57 -0700 |
commit | a25e4c1ac2f135b5b76508c6bd5cd2d4edd73c49 (patch) | |
tree | 8c3ef08df3c7bac1c9ef72e77bfea2d2bb062e50 | |
parent | f13e3cdfb16e28791ef2ff01dc16ddb5651cbb03 (diff) | |
download | mu-a25e4c1ac2f135b5b76508c6bd5cd2d4edd73c49.tar.gz |
.
-rw-r--r-- | shell/data.limg | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/shell/data.limg b/shell/data.limg index 6a9b67cb..2372545a 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -171,16 +171,16 @@ (set r err) when (r <= y) ++y - err += (y*2 + 1) + err += (2*y + 1) when (or (r > x) (err > y)) ++x - err += (x*2 + 1) + err += (2*x + 1) set continue (x < 0)]) (ring . [def (ring screen cx cy r0 w clr) - for r r0 (r < (r0 + w)) ++r + for r r0 (r < r0+w) ++r (circle screen cx cy r clr)]) (Greys . [define Greys - (map1 (fn(n) (n + 15)) + (map1 (fn(n) n+15) (seq 16))]) (Pinks . [define Pinks '(84 85 59 60 61 13 36 37 5 108)]) |