From b5d3095c923ba8ce7ee07bc2666e42a9a1f483af Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 5 Jun 2021 21:17:23 -0700
Subject: shell: cool new stress-test

---
 shell/data.limg | 12 ++++++++++--
 1 file 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))
 )
-- 
cgit 1.4.1-2-gfad0