near/heyarne.aphorisms
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add previously unstaged aphorism eleven

Browse source
This commit is contained in:
arne 2020-09-16 20:03:49 +02:00
commit 57ad9171f7
1 changed files with 23 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/aphorisms/eleven.clj
View file

@ -3,38 +3,43 @@
[thi.ng.geom.circle :as c]
[thi.ng.geom.core :as g]
[thi.ng.math.core :as m]
[thi.ng.math.noise :as n]
[quil.core :as q]
[quil.middleware :as qm]))
(defn setup []
(q/frame-rate 1)
(q/color-mode :hsb)
{:shapes [(->
(c/circle 60)
(g/as-polygon 120))]})
(q/color-mode :hsb 360 1.0 1.0 1.0)
{:shapes (repeatedly 20 #(-> (m/* (v/randvec2) (q/random 25 175))
(c/circle 20)))})
(defn update-state [state]
state)
(defn mix-hsb [[h1 s1 b1] [h2 s2 b2] t]
(mapv + (map (partial * (- 1 t)) [h1 s1 b1])
(map (partial * t) [h2 s2 b2])))
(defn lerp-color [c1 c2 t]
(mapv + (map (partial * (- 1 t)) (cond-> c1
(< (count c1) 4) (conj 1.0)))
(map (partial * t) (cond-> c2
(< (count c2) 4) (conj 1.0)))))
(def color1 [180 (* 255 0.5) (* 255 0.6)])
(def color2 [210 (* 255 0.5) (* 255 0.6)])
(def color1 [180 0.5 0.6 0.5])
(def color2 [210 0.5 0.6])
(defn draw-state [state]
(q/background 0 0 (* 255 0.92))
(q/background 0 0 0.98)
(q/no-fill)
(q/no-stroke)
(q/with-translation [(* 0.5 (q/width)) (* 0.5 (q/height))]
(q/begin-shape)
(doseq [shape (:shapes state)
pt (:points shape)]
(apply q/fill (mix-hsb color1 color2 (q/map-range (first pt) -25 25 0 1)))
(apply q/vertex pt))
(q/end-shape :close)))
(doseq [shape (:shapes state)]
(q/begin-shape)
(doseq [pt (:points (g/as-polygon shape 120))]
(let [color (lerp-color color1 color2 (q/map-range (first pt)
(- (first (:p shape))
(:r shape))
(+ (first (:p shape))
(:r shape)) 0 1))]
(apply q/fill color)
(apply q/vertex pt)))
(q/end-shape :close))))
(q/defsketch eleven
:title "Eleven"