aynish/quil
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

2d wave edition

Browse source
This commit is contained in:
Anish Lakhwara 2023-01-03 15:40:08 +10:00
parent 6d40c5695a
commit 26dade3b0f
1 changed files with 13 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
cubes/src/cubes/core.clj
View file

@ -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.
(reset! offset 0)
(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))))
(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"