From d4968adbc91af4af5db16d2b9016f5b9458041b7 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 11 Jun 2021 23:00:00 -0700
Subject: .

---
 shell/data.limg | 43 +------------------------------------------
 1 file changed, 1 insertion(+), 42 deletions(-)

(limited to 'shell')

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))])
   ))
-- 
cgit 1.4.1-2-gfad0