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

shell: cool new stress-test

Browse Source
This commit is contained in:
Kartik K. Agaram 2021-06-05 21:17:23 -07:00
parent 79a80f7774
commit b5d3095c92
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
shell/data.limg
View File

@ -125,8 +125,16 @@
(for y r (< y ymax) (+= y side) (for y r (< y ymax) (+= y side)
(for x r (< x xmax) (+= x side) (for x r (< x xmax) (+= x side)
(circle_rainbow screen x y (- r 100) 10)))))))]) (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) (main . [(def (main screen keyboard)
(bowboard screen 128))]) (task screen))])
)) ))
(sandbox . (+ 3 4)) (sandbox . (task screen))
) )