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

A 'bowboard', a chessboard of rainbow circles 

Compare with (chessboard screen 256)
This commit is contained in:
Kartik K. Agaram 2021-05-08 08:33:22 -07:00
parent 665b1e8f07
commit 183010779c
1 changed files with 31 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
shell/data.limg
View File

@ -96,30 +96,38 @@
(while (< r rmax)
(brcircle screen cx cy r clr)
(set r (+ r 1))))))])
(circle_rainbow . [(def circle_rainbow (fn(screen c w)
(let cx (/ (width screen) 2)
(let cy (/ (height screen) 2)
(ring screen cx cy c w 37)
(set c (+ c w))
(ring screen cx cy c w 33)
(set c (+ c w))
(ring screen cx cy c w 55)
(set c (+ c w))
(ring screen cx cy c w 52)
(set c (+ c w))
(ring screen cx cy c w 47)
(set c (+ c w))
(ring screen cx cy c w 45)
(set c (+ c w))
(ring screen cx cy c w 44)
(set c (+ c w))
(ring screen cx cy c w 42)
(set c (+ c w))
(ring screen cx cy c w 41)
(set c (+ c w))
(ring screen cx cy c w 40)))))])
(circle_rainbow . [(def circle_rainbow (fn(screen cx cy r w)
(ring screen cx cy r w 37)
(set r (+ r w))
(ring screen cx cy r w 33)
(set r (+ r w))
(ring screen cx cy r w 55)
(set r (+ r w))
(ring screen cx cy r w 52)
(set r (+ r w))
(ring screen cx cy r w 47)
(set r (+ r w))
(ring screen cx cy r w 45)
(set r (+ r w))
(ring screen cx cy r w 44)
(set r (+ r w))
(ring screen cx cy r w 42)
(set r (+ r w))
(ring screen cx cy r w 41)
(set r (+ r w))
(ring screen cx cy r w 40)))])
(bowboard . [(def bowboard (fn (screen side)
(let xmax (width screen)
(let ymax (height screen)
(let y side
(while (< y ymax)
(let x side
(while (< x xmax)
(circle_rainbow screen x y (- side 100) 10)
(set x (+ x (* 2 side)))))
(set y (+ y (* 2 side)))))))))])
(main . [(def main (fn (screen keyboard)
(circle_rainbow screen 80 10)))])
(bowboard screen 128)))])
))
(sandbox . (circle_rainbow screen 8 1))
)