akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik K. Agaram 2021-06-11 23:00:00 -07:00
parent af2e837787
commit d4968adbc9
1 changed files with 1 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
shell/data.limg
View File

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