A 'bowboard', a chessboard of rainbow circles
Compare with (chessboard screen 256)
This commit is contained in:
parent
665b1e8f07
commit
183010779c
|
@ -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))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue