samples: juicy dumb clicker

1 files changed, 19 insertions, 12 deletions

diff --git a/samples/dumbclicker.cl b/samples/dumbclicker.cl
index f005653..b61ddbf 100644
--- a/samples/dumbclicker.cl
+++ b/samples/dumbclicker.cl
@@ -9,24 +9,31 @@
        (vec (op (car v0) (car v1))
             (op (cdr v0) (cdr v1)))))
 (= vec-dpoint (fn (v) (draw-pixel (car v) (cdr v))))
+(= vec-drect (fn (v d) (draw-rectangle t (car v) (cdr v) (car d) (cdr d))))
 (= draw-sprite
    (fn (s p)
        (foreach s (fn (v)
                       (vec-dpoint (vec-op + p v))))))
+(= draw-sprite-scaled
+   (fn (s p x)
+       (let dim (vec x x))
+       (foreach s (fn (v)
+		      (vec-drect (vec-op + p (vec-op * v dim)) dim)))))
 
 (= draw-digit
    (fn (x y a)
+       (let scale (+ 1 (* 3 flash)))
        (if
-         (is a 0) (draw-sprite spr0 (vec x y))
-         (is a 1) (draw-sprite spr1 (vec x y))
-         (is a 2) (draw-sprite spr2 (vec x y))
-         (is a 3) (draw-sprite spr3 (vec x y))
-         (is a 4) (draw-sprite spr4 (vec x y))
-         (is a 5) (draw-sprite spr5 (vec x y))
-         (is a 6) (draw-sprite spr6 (vec x y))
-         (is a 7) (draw-sprite spr7 (vec x y))
-         (is a 8) (draw-sprite spr8 (vec x y))
-         (is a 9) (draw-sprite spr9 (vec x y))
+         (is a 0) (draw-sprite-scaled spr0 (vec x y) scale)
+         (is a 1) (draw-sprite-scaled spr1 (vec x y) scale)
+         (is a 2) (draw-sprite-scaled spr2 (vec x y) scale)
+         (is a 3) (draw-sprite-scaled spr3 (vec x y) scale)
+         (is a 4) (draw-sprite-scaled spr4 (vec x y) scale)
+         (is a 5) (draw-sprite-scaled spr5 (vec x y) scale)
+         (is a 6) (draw-sprite-scaled spr6 (vec x y) scale)
+         (is a 7) (draw-sprite-scaled spr7 (vec x y) scale)
+         (is a 8) (draw-sprite-scaled spr8 (vec x y) scale)
+         (is a 9) (draw-sprite-scaled spr9 (vec x y) scale)
          (draw-rectangle t x y a a))))
 
 (= draw-number
@@ -37,7 +44,7 @@
        (while (< 0 (floor (/ div 10)))
               (= div (floor (/ div 10)))
               (draw-digit x y (% (floor (/ a div)) 10))
-              (= x (+ x 4)))))
+              (= x (+ x 5)))))
 
 (= _init
    (fn ()
@@ -60,7 +67,7 @@
        (set-draw-color 0.9 0.9 0.8)
        (draw-clear)
        (set-draw-color flash flash flash)
-       (draw-number 5 123 n)))
+       (draw-number 10 123 n)))
 
 (= spr0
    (list