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

Switched to rounded edges for the border (via SDF)

Browse Source
This commit is contained in:
Chris Hodapp 2020-07-11 16:05:24 -04:00
parent 74bd37e65c
commit f92b4c136e
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/curlnoise/core.cljc
View File

@ -95,8 +95,10 @@
scale 400.0 scale 400.0
;; Amplitude multiplier for noise: ;; Amplitude multiplier for noise:
noise-scale (* scale 3.0) noise-scale (* scale 3.0)
;; Radius for mouse-thingy ;; Radius for mouse-thingy:
rad 50.0 rad 50.0
;; Radius for rounded corners:
rect-rad 100.0
margin 0 margin 0
eps (* w 1e-3) eps (* w 1e-3)
mx (q/mouse-x) mx (q/mouse-x)
@ -111,13 +113,12 @@
1e6 ;; arbitrarily large value 1e6 ;; arbitrarily large value
) )
;; function for distance to the border: ;; function for distance to the border:
;; d-border (fn [x y] d-border #(- rect-rad
;; (min (sdf-box (- %1 rect-rad) ; x
;; (- x margin) (- %2 rect-rad) ; y
;; (- y margin) (- w (* rect-rad 2)) ; width
;; (- (- w margin) x) (- h (* rect-rad 2)) ; height
;; (- (- h margin) y))) ))
d-border (fn [x y] (- 50 (sdf-box x y w h)))
;; potential modulation function - takes (x,y): ;; potential modulation function - takes (x,y):
amp-fn #(ramp (min (/ (d-mouse %1 %2) d0) amp-fn #(ramp (min (/ (d-mouse %1 %2) d0)
(/ (d-border %1 %2) d0))) (/ (d-border %1 %2) d0)))
@ -150,17 +151,14 @@
(def show-fn false) (def show-fn false)
(defn draw-field [offset sdf] (defn draw-field [offset sdf domain-xform]
(let [pix (q/pixels) (let [pix (q/pixels)
w (q/width) w (q/width)
h (q/height) h (q/height)
] ]
(doseq [point (grid (q/width) (q/height))] (doseq [point (grid (q/width) (q/height))]
(let [[px py] point (let [[px py] point
px2 (- (* px 1.5) 50) [px2 py2] (domain-xform px py)
py2 (- (* py 1.5) 50)
;; TODO: Factor this out somehow (what's a good way to
;; factor out domain transformations?)
w2 w w2 w
h2 h h2 h
d (sdf px2 py2) d (sdf px2 py2)
@ -188,9 +186,15 @@
w (q/width) w (q/width)
h (q/height) h (q/height)
color (q/color 0) color (q/color 0)
rad 50
] ]
(if show-fn (if show-fn
(draw-field 10.0 #(- 40.0 (sdf-box %1 %2 (q/width) (q/height)))) (draw-field
10.0
#(- rad (sdf-box %1 %2 (- (q/width) (* rad 2)) (- (q/height) (* rad 2))))
#(vec [(- (- %1 rad) 0.0)
(- (- %2 rad) 0.0)])
)
(doseq [point (:grid state)] (doseq [point (:grid state)]
(let [[_ _ px py] point (let [[_ _ px py] point
ix (clamp (int px) 0 (- w 1)) ix (clamp (int px) 0 (- w 1))