diff options
| -rw-r--r-- | shell/data.limg | 36 |
1 files changed, 19 insertions, 17 deletions
diff --git a/shell/data.limg b/shell/data.limg index c0fee939..3278af5d 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -81,41 +81,41 @@ (pixel screen (+ cx y) (+ cy x) clr) (set r err) (when (<= r y) + (set y (+ y 1)) (set err (+ err - (+ 1 (* 2 (set y (+ y 1)))))) - ) + (+ 1 (* 2 y))))) (when (or (> r x) (> err y)) + (set x (+ x 1)) (set err (+ err - (+ 1 (* 2 (set x (+ x 1)))))) - ) + (+ 1 (* 2 x))))) (set continue (< x 0)))))))))]) (ring . [(def ring (fn(screen cx cy r w clr) (let rmax (+ r w) (while (< r rmax) (circle screen cx cy r clr) (set r (+ r 1))))))]) - (circle_rainbow . [(def circle_rainbow (fn(screen cx cy r w) - (ring screen cx cy r w 37) + (circle_rainbow . [(def circle_rainbow (fn(scr cx cy r w) + (ring scr cx cy r w 37) (set r (+ r w)) - (ring screen cx cy r w 33) + (ring scr cx cy r w 33) (set r (+ r w)) - (ring screen cx cy r w 55) + (ring scr cx cy r w 55) (set r (+ r w)) - (ring screen cx cy r w 52) + (ring scr cx cy r w 52) (set r (+ r w)) - (ring screen cx cy r w 47) + (ring scr cx cy r w 47) (set r (+ r w)) - (ring screen cx cy r w 45) + (ring scr cx cy r w 45) (set r (+ r w)) - (ring screen cx cy r w 44) + (ring scr cx cy r w 44) (set r (+ r w)) - (ring screen cx cy r w 42) + (ring scr cx cy r w 42) (set r (+ r w)) - (ring screen cx cy r w 41) + (ring scr cx cy r w 41) (set r (+ r w)) - (ring screen cx cy r w 40)))]) + (ring scr cx cy r w 40)))]) (bowboard . [(def bowboard (fn (screen side) (let xmax (width screen) (let ymax (height screen) @@ -127,7 +127,9 @@ (set x (+ x (* 2 side))))) (set y (+ y (* 2 side)))))))))]) (main . [(def main (fn (screen keyboard) - (bowboard screen 128)))]) + (circle_rainbow screen 90 90 8 1)))]) + (task . [(def task (fn (screen) + (circle_rainbow screen 32 24 8 1)))]) )) - (sandbox . (circle_rainbow screen 30 30 8 1)) + (sandbox . (+ 3 4)) ) |