shell: cool new stress-test
This commit is contained in:
parent
79a80f7774
commit
b5d3095c92
|
@ -125,8 +125,16 @@
|
|||
(for y r (< y ymax) (+= y side)
|
||||
(for x r (< x xmax) (+= x side)
|
||||
(circle_rainbow screen x y (- r 100) 10)))))))])
|
||||
(task . [(def (task screen)
|
||||
(let xmax (width screen)
|
||||
(let ymax (height screen)
|
||||
(for y 0 (< y ymax) (+= y 1)
|
||||
(for x 4 (< x xmax) (+= x 1)
|
||||
(pixel screen x y
|
||||
# color
|
||||
(+ (* x x) (* y y))))))))])
|
||||
(main . [(def (main screen keyboard)
|
||||
(bowboard screen 128))])
|
||||
(task screen))])
|
||||
))
|
||||
(sandbox . (+ 3 4))
|
||||
(sandbox . (task screen))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue