idk

penrose-tile/src/penrose_tile/core.clj

@@ -46,9 +46,9 @@
 
 (defn draw-state []
   ; Set circle color.
-  (q/background 255)
+  ;(q/background 255)
   (q/stroke 0)
-  (q/rect (/ (q/width) 2) (/ (q/height) 2) 50 50)
+  ;(q/rect (/ (q/width) 2) (/ (q/height) 2) 50 50)
   (parse-string)
   )
 

test/src/test/core.clj

@@ -11,27 +11,31 @@
   ; circle color and position.
   {:color 0
    :angle 0
-   :delta 30})
+   :pos 0})
 
 (defn update-state [state]
   ; Update sketch state by changing circle color and position.
   {:color (mod (+ (:color state) 0.7) 255)
-   :angle (+ (:angle state) 0.1)})
+   :angle (+ (:angle state) 0.1)
+   :pos (mod (+ (:pos state) 1) 140)})
 
 (defn draw-state [state]
   ; Clear the sketch by filling it with light-grey color.
   (q/background 240)
   ; Set circle color.
   (q/fill (:color state) 255 255)
-  ; Calculate x and y coordinates of the circle.
-  (let [angle (:angle state)
-        x (* 140 (q/cos angle))
-        y (* 150 (q/sin angle))]
-    ; Move origin point to the center of the sketch.
     (q/with-translation [(/ (q/width) 2)
                          (/ (q/height) 2)]
-      ; Draw the circle.
-      (q/ellipse x y 100 100)))) ; #'test.core/draw-state
+      (doseq [i (range 10 20 2)]
+        (let [angle (:angle state)
+              pos (:pos state)
+              x (* (* i 17) (q/cos angle))
+              y (* (* i 12) (q/sin angle))
+              size 30]
+          (q/ellipse x y size size)
+          (q/ellipse pos x size size)
+          (q/ellipse y x size size)
+      )))) ; #'test.core/draw-state
 
 
 (q/defsketch test