diff options
| -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)]) |