.

State as of https://archive.org/details/akkartik-mu-2021-05-31

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))
 )