shell: cool new stress-test

1 files changed, 10 insertions, 2 deletions

diff --git a/shell/data.limg b/shell/data.limg
index de093dee..9e7c1954 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -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))
 )