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

Draw circular barrier. Need to figure out browser slowdown

Browse Source
This commit is contained in:
Chris Hodapp 2020-07-13 12:25:15 -04:00
parent 4a568cb523
commit a0f7139900
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/curlnoise/core.cljc
View File

@ -47,6 +47,9 @@
(q/with-graphics gr (q/with-graphics gr
(q/background 255 alpha)) (q/background 255 alpha))
{:frame 0 {:frame 0
:pressed? false
:mouse-x 0
:mouse-y 0
:grid (mapv (fn [_] (vec [(q/random (q/width)) (q/random (q/height))])) :grid (mapv (fn [_] (vec [(q/random (q/width)) (q/random (q/height))]))
(range particles)) (range particles))
:blend gr})) :blend gr}))
@ -131,9 +134,10 @@
h (q/height) h (q/height)
mx (q/mouse-x) mx (q/mouse-x)
my (q/mouse-y) my (q/mouse-y)
pressed? (q/mouse-pressed?)
;; distance of point to a circle of radius 'rad' ;; distance of point to a circle of radius 'rad'
;; centered at mouse cursor: ;; centered at mouse cursor:
d-mouse #(if (q/mouse-pressed?) d-mouse #(if pressed?
(- (magn (- mx %1) (- my %2)) mouse-rad) (- (magn (- mx %1) (- my %2)) mouse-rad)
1e6) 1e6)
;; function for distance to the border: ;; function for distance to the border:
@ -180,7 +184,7 @@
[x2 y2]) [x2 y2])
;; When mouse is pressed, particles inside the ;; When mouse is pressed, particles inside the
;; configured radius are likewise resurrected: ;; configured radius are likewise resurrected:
[x4 y4] (if (and (q/mouse-pressed?) [x4 y4] (if (and pressed?
(< (magn (- mx x) (- my y)) mouse-rad)) (< (magn (- mx x) (- my y)) mouse-rad))
[(q/random w) (q/random h)] [(q/random w) (q/random h)]
[x3 y3]) [x3 y3])
@ -188,6 +192,9 @@
[x4 y4])) (:grid state))] [x4 y4])) (:grid state))]
(-> state (-> state
(update :frame inc) (update :frame inc)
(assoc :pressed? pressed?)
(assoc :mouse-x mx)
(assoc :mouse-y my)
(assoc :grid points)))) (assoc :grid points))))
;; Turn to true to enable kludgey visualization of the potential ;; Turn to true to enable kludgey visualization of the potential
@ -255,12 +262,16 @@
iy (clamp (int py) 0 (- h 1))] iy (clamp (int py) 0 (- h 1))]
#?(:clj (aset-int pix (+ ix (* iy w)) color) #?(:clj (aset-int pix (+ ix (* iy w)) color)
:cljs (let [offset (* 4 (+ ix (* iy w)))] :cljs (let [offset (* 4 (+ ix (* iy w)))]
(aset pix offset 0) ;; R (aset pix offset 0) ;; R
(aset pix (+ offset 1) 0) ;; G (aset pix (+ offset 1) 0) ;; G
(aset pix (+ offset 2) 0) ;; B (aset pix (+ offset 2) 0) ;; B
(aset pix (+ offset 3) 255) ;; alpha (aset pix (+ offset 3) 255) ;; alpha
))))) )))))
(q/update-pixels))) (q/update-pixels)
(if (:pressed? state)
(let [r (int mouse-rad)]
(q/fill 0 255)
(q/ellipse (:mouse-x state) (:mouse-y state) r r)))))
(defn settings [] (defn settings []
;; https://github.com/quil/quil/issues/299 ;; https://github.com/quil/quil/issues/299