diff options
| -rw-r--r-- | shell/data.limg | 35 |
1 files changed, 24 insertions, 11 deletions
diff --git a/shell/data.limg b/shell/data.limg index 5a477f04..6c0260ce 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -209,21 +209,34 @@ (palette . [(def (palette p i) (nth (% i (len p)) p))]) (task . [(def (task screen keyboard) + (let width (width screen) + (let t (/ width 3) + (let height (height screen) (let (i y) '(1 0) - (while (< y (height screen)) - (hline screen y (fizzbuzz i)) + (while (< y height) + (hline1 screen y 0 t + # color + (if (= 0 (% i 3)) + 10 + 7)) + (hline1 screen y t (* 2 t) + # color + (if (= 0 (% i 5)) + 12 + 7)) + (hline1 screen y (* 2 t) (* 3 t) + # color + (if (= 0 (% i 3)) + (if (= 0 (% i 5)) + 14 + 10) + (if (= 0 (% i 5)) + 12 + 7))) (+= y 3) - (++ i))))]) + (++ i)))))))]) (main . [(def (main screen keyboard) (task screen keyboard))]) - (fizzbuzz . [(def (fizzbuzz n) - (if (= 0 (% n 3)) - (if (= 0 (% n 5)) - 14 - 12) - (if (= 0 (% n 5)) - 10 - 7)))]) )) (sandbox . (task screen keyboard)) ) |