From 9d2c64455a87edd4d241cbedd18963010b110a32 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 6 Jun 2021 23:22:57 -0700 Subject: fizz-buzz take 2 --- shell/data.limg | 35 ++++++++++++++++++++++++----------- 1 file changed, 24 insertions(+), 11 deletions(-) (limited to 'shell/data.limg') 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)) ) -- cgit 1.4.1-2-gfad0