From 26dade3b0fd161f3b32a8d8d37bbc82f4ac0a811 Mon Sep 17 00:00:00 2001
From: Anish Lakhwara <anish+git@lakhwara.com>
Date: Tue, 3 Jan 2023 15:40:08 +1000
Subject: [PATCH] 2d wave edition

---
 cubes/src/cubes/core.clj | 36 +++++++++++++-----------------------
 1 file changed, 13 insertions(+), 23 deletions(-)

diff --git a/cubes/src/cubes/core.clj b/cubes/src/cubes/core.clj
index d62d27c..2b290fe 100644
--- a/cubes/src/cubes/core.clj
+++ b/cubes/src/cubes/core.clj
@@ -22,32 +22,22 @@
   {:color (mod (+ (:color state) 0.7) 255)
    :angle (+ (:angle state) 0.1)})
 
+(def w 50)
+(def offset (atom 0))
+
 (defn draw-state [state]
-  ; Set circle color.
   (q/background 0)
   (q/fill (:color state) 255 255)
-  (q/stroke (- (:color state) 12.7) 255 255)
-  ; (q/stroke-weight 4)
-  ; Calculate x and y coordinates of the circle.
-  (let [angle (:angle state)
-        x (* 150 (q/cos angle))
-        y (* 150 (q/sin angle))
-        sin (q/sin angle)
-        cos (q/cos angle)
-        h (q/map-range sin -1 1 10 40)
-        w (q/map-range cos -1 1 10 40)]
-    ; Move origin point to the center of the sketch.
-    (q/with-translation [(/ (q/width) 2)
-                         (/ (q/height) 2)]
-      (doseq [i (range 1 48)]
-        (q/fill (q/map-range i 1 48 0 255) 255 255)
-        (q/with-rotation [(/ q/TWO-PI i)]
-          (q/rect 0 (* 2 h) (- 41 w) h)
-          ; (q/rect 0 (* -2 w) w (- 41 h))
-          ; (q/rect (* -2 w) 0 w h)
-          (q/rect (* 2 h) 0 (- 41 w) (- 41 h)))))))
-      ; Draw the circle.
-      ; (q/ellipse x y 100 100))))
+  (reset! offset 0)
+  (q/with-translation [(/ (q/width) 2)
+                       (/ (q/height) 2)]
+    (doseq [i (range 0 (q/width) w)]
+      (let [angle (:angle state)
+            sin (q/sin (+ angle @offset))
+            cos (q/cos angle)
+            h (q/map-range sin -1 1 10 w)]
+        (q/rect (- (/ (q/width) 2) i) 0 (- w 2) h)
+        (swap! offset + 0.5)))))
 
 (q/defsketch cubes
   :title "You spin my circle right round"