about summary refs log tree commit diff stats
path: root/shell/data.limg
diff options
context:
space:
mode:
Diffstat (limited to 'shell/data.limg')
-rw-r--r--shell/data.limg38
1 files changed, 19 insertions, 19 deletions
diff --git a/shell/data.limg b/shell/data.limg
index 4c9c21dc..772c9064 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -6,23 +6,19 @@
   `(if ,cond ,body ()))])
     (let . [(mac let (var val . body)
   `((fn (,var) ,@body) ,val))])
-    (hline . [(def hline (fn (screen y color)
-  (hline1 screen y 0 (width screen) color)))])
     (hline1 . [(def hline1 (fn (screen y x xmax color)
   (while (< x xmax)
     (pixel screen x y color)
     (set x (+ x 1)))))])
-    (vline . [(def vline (fn (screen x color)
-  (vline1 screen x 0 (height screen) color)))])
     (vline1 . [(def vline1 (fn (screen x y ymax color)
   (while (< y ymax)
     (pixel screen x y color)
     (set y (+ y 1)))))])
-    (fill_rect . [(def fill_rect (fn (screen x1 y1 x2 y2 color)
-  (while (< y1 y2)
-    (hline1 screen y1 x1 x2 color)
-    (set y1 (+ y1 1)))))])
-  (brline . [(def brline (fn (screen x0 y0 x1 y1 color)
+    (hline . [(def hline (fn (screen y color)
+  (hline1 screen y 0 (width screen) color)))])
+    (vline . [(def vline (fn (screen x color)
+  (vline1 screen x 0 (height screen) color)))])
+    (brline . [(def brline (fn (screen x0 y0 x1 y1 color)
   (let (x y) `(,x0 ,y0)
   (let dx (abs (- x1 x0))
   (let dy (- 0 (abs (- y1 y0)))
@@ -45,14 +41,24 @@
             (if (<= e2 dx)
               dx
               0))))))))))))))])
-  (read_line . [(def read_line (fn (keyboard)
+    (read_line . [(def read_line (fn (keyboard)
   (let str (stream)
   (let c (key keyboard)
     (while (not (or (= c 0) (= c 10)))
       (write str c)
       (set c (key keyboard))))
   str)))])
-  (chessboard . [(def chessboard (fn (screen px)
+    (fill_rect . [(def fill_rect (fn (screen x1 y1 x2 y2 color)
+  (while (< y1 y2)
+    (hline1 screen y1 x1 x2 color)
+    (set y1 (+ y1 1)))))])
+    (chessboard_row . [(def chessboard_row (fn (screen px y x xmax)
+  (while (< x xmax)
+    (fill_rect screen
+               x        y
+               (+ x px) (+ y px) 15)
+    (set x (+ x (* px 2))))))])
+    (chessboard . [(def chessboard (fn (screen px)
   (clear screen)
   (let xmax (width screen)
   (let ymax (height screen)
@@ -62,13 +68,7 @@
     (set y (+ y px))
     (chessboard_row screen px y px xmax)
     (set y (+ y px)))))])
-  (chessboard_row . [(def chessboard_row (fn (screen px y x xmax)
-  (while (< x xmax)
-    (fill_rect screen
-               x        y
-               (+ x px) (+ y px) 15)
-    (set x (+ x (* px 2))))))])
-  (brcircle . [(def brcircle (fn (screen cx cy r clr)
+    (brcircle . [(def brcircle (fn (screen cx cy r clr)
   (let x (- 0 r)
   (let y 0
   (let err (- 2 (* 2 r))
@@ -88,7 +88,7 @@
         (+ err
            (+ 1 (* 2 (set x (+ x 1)))))))
     (set continue (< x 0)))))))))])
-  (main . [(def main (fn (screen keyboard)
+    (main . [(def main (fn (screen keyboard)
   (chessboard screen 16)))])
   ))
   (sandbox . (brline screen 1 1 5 5 4))