hodapp/curlnoise
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add particle trails back in

Browse Source
This commit is contained in:
Chris Hodapp 2020-07-10 15:37:03 -04:00
parent 9829d13e8b
commit b660abef05
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/curlnoise/core.cljc
View File

@ -8,7 +8,11 @@
;; Lower grid size produces more points ;; Lower grid size produces more points
(def grid-size 20) (def grid-size 20)
;; Lower alpha produces *longer* particle trails ;; Lower alpha produces *longer* particle trails
(def alpha 10) (def alpha 20)
(def renderer #?(:clj :java2d
:cljs :p3d))
;; TODO: Figure out my own test setup issues with p3d
;; Return sequence of [x y], with ;; Return sequence of [x y], with
(defn grid [nx ny] (defn grid [nx ny]
@ -61,9 +65,11 @@
(defn setup [] (defn setup []
(q/background 255) (q/background 255)
(q/frame-rate framerate) (q/frame-rate framerate)
{:frame 0 (let [gr (q/create-graphics res-x res-y)]
:grid (pix-grid grid-size res-x res-y) (q/with-graphics gr (q/background 255 alpha))
}) {:frame 0
:grid (pix-grid grid-size res-x res-y)
:blend gr}))
(defn update-state [state] (defn update-state [state]
(let [w (q/width) (let [w (q/width)
@ -127,10 +133,9 @@
(assoc :grid points)))) (assoc :grid points))))
(defn draw-state [state] (defn draw-state [state]
(q/background 255)
;;(q/fill 255 255 255 alpha)
#?(:cljs (q/translate (- (/ res-x 2)) (- (/ res-y 2)))) #?(:cljs (q/translate (- (/ res-x 2)) (- (/ res-y 2))))
;;(q/rect 0 0 (q/width) (q/height)) ;; TODO: Is this a p3d thing?
(q/image (:blend state) 0 0)
(q/stroke 0) (q/stroke 0)
(q/stroke-weight 5) (q/stroke-weight 5)
(let [pix (q/pixels) (let [pix (q/pixels)
@ -153,9 +158,7 @@
:title "Curl Noise" :title "Curl Noise"
:host "curlnoise" :host "curlnoise"
:size [res-x res-y] :size [res-x res-y]
:renderer #?(:clj :java2d :renderer renderer
:cljs :p3d)
;; TODO: Figure out my own test setup issues with p3d
:setup setup :setup setup
:update update-state :update update-state
:draw draw-state :draw draw-state