diff options
-rw-r--r-- | shell/recursive-definitions.limg | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/shell/recursive-definitions.limg b/shell/recursive-definitions.limg deleted file mode 100644 index cef17c49..00000000 --- a/shell/recursive-definitions.limg +++ /dev/null @@ -1,94 +0,0 @@ -( - (globals . ( - (hline1 . (fn () (screen y lo hi color) - (if (>= lo hi) - () - ((fn () - (pixel screen lo y color) - (hline1 screen y (+ lo 1) hi color)))))) - (vline1 . (fn () (screen x lo hi color) - (if (>= lo hi) - () - ((fn () - (pixel screen x lo color) - (vline1 screen x (+ lo 1) hi color)))))) - (hline . (fn () (screen y color) - (hline1 screen y 0 (width screen) color))) - (vline . (fn () (screen y color) - (vline1 screen y 0 (height screen) color))) - (andf . (fn () (a b) - (if a - (if b - 1 - ()) - ()))) - (brline . (fn () (screen x0 y0 x1 y1 color) - ((fn (dx dy sx sy) - ((fn (err) - (brline1 screen x0 y0 x1 y1 dx dy sx sy err color)) - (+ dx dy))) - (abs (- x1 x0)) - (- 0 (abs (- y1 y0))) - (sgn (- x1 x0)) - (sgn (- y1 y0))))) - (brline1 . (fn () (screen x y xmax ymax dx dy sx sy err color) - (pixel screen x y color) - (if (andf (= x xmax) (= y ymax)) - () - ((fn (e2) - (brline1 screen - (if (>= e2 dy) - (+ x sx) - x) - (if (<= e2 dx) - (+ y sy) - y) - xmax - ymax - dx - dy - sx - sy - (+ err - (+ - (if (>= e2 dy) - dy - 0) - (if (<= e2 dx) - dx - 0))) - color)) - (* err 2))))) - (read_line_2 . (fn () (keyboard stream) - ((fn (c) - (if (= c 10) - stream - (if (= c 0) - stream - (read_line_2 keyboard (write stream c))))) - (key keyboard)))) - (read_line . (fn () (keyboard) - (read_line_2 keyboard (stream)))) - (fill_rect . (fn () (screen x1 y1 x2 y2 fill_color) - (if (>= y1 y2) - () - ((fn () - (hline1 screen y1 x1 x2 fill_color) - (fill_rect screen x1 (+ y1 1) x2 y2 fill_color)))))) - (chessboard . (fn () (screen px) - (chessboard1 screen px 0 15))) - (chessboard1 . (fn () (screen px y color) - (if (>= y (height screen)) - () - ((fn () - (chessboard2 screen px y 0 color) - (chessboard1 screen px (+ y px) (- 15 color))))))) - (chessboard2 . (fn () (screen px y x color) - (if (>= x (width screen)) - () - ((fn () - (fill_rect screen x y (+ x px) (+ y px) color) - (chessboard2 screen px y (+ x px) (- 15 color))))))) - )) - (sandbox . (+ 1 2)) -) |