diff options
| -rw-r--r-- | shell/data.limg | 43 |
1 files changed, 1 insertions, 42 deletions
diff --git a/shell/data.limg b/shell/data.limg index 9d130a28..930c4f94 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -137,20 +137,6 @@ (fill_rect . [(def (fill_rect screen x1 y1 x2 y2 color) (for y y1 (< y y2) (++ y) (hline1 screen y x1 x2 color)))]) - (chessboard_row . [(def (chessboard_row screen px y x xmax) - (while (< x xmax) - (fill_rect screen - x y - (+ x px) (+ y px) 15) - (+= x (* px 2))))]) - (chessboard . [(def (chessboard screen px) - (clear screen) - (let xmax (width screen) - (let ymax (height screen) - (for y 0 (< y ymax) (+= y px) - (chessboard_row screen px y 0 xmax) - (+= y px) - (chessboard_row screen px y px xmax)))))]) (circle . [(def (circle screen cx cy r clr) (let x (- 0 r) (let y 0 @@ -174,33 +160,6 @@ (ring . [(def (ring screen cx cy r0 w clr) (for r r0 (< r (+ r0 w)) (++ r) (circle screen cx cy r clr)))]) - (circle_rainbow . [(def (circle_rainbow scr cx cy r w) - (ring scr cx cy r w 37) - (+= r w) - (ring scr cx cy r w 33) - (+= r w) - (ring scr cx cy r w 55) - (+= r w) - (ring scr cx cy r w 52) - (+= r w) - (ring scr cx cy r w 47) - (+= r w) - (ring scr cx cy r w 45) - (+= r w) - (ring scr cx cy r w 44) - (+= r w) - (ring scr cx cy r w 42) - (+= r w) - (ring scr cx cy r w 41) - (+= r w) - (ring scr cx cy r w 40))]) - (bowboard . [(def (bowboard screen r) - (let xmax (width screen) - (let ymax (height screen) - (let side (* 2 r) - (for y r (< y ymax) (+= y side) - (for x r (< x xmax) (+= x side) - (circle_rainbow screen x y (- r 100) 10)))))))]) (Greys . [(define Greys (map1 (fn(n) (+ n 15)) (seq 16)))]) @@ -214,7 +173,7 @@ (for y 0 (< y h) (++ y) (for x 0 (< x w) (++ x) (pixel screen x y - (palette Pinks (+ (sq x) (cube y)))))))))]) + (* x y)))))))]) (main . [(def (main screen keyboard) (task screen))]) )) |