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

It's never done

Browse source
This commit is contained in:
arne 2021-05-27 08:25:00 +02:00
commit 5c6023621c
3 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/aphorisms/fifteen.clj
View file

@ -28,7 +28,7 @@
(q/background 350) (q/background 350)
{:world (make-world)}) {:world (make-world)})
(def radius 10) (def radius 30)
(defn register-mouse [state ev] (defn register-mouse [state ev]
(assoc state :mouse (v/vec2 ev))) (assoc state :mouse (v/vec2 ev)))

3
src/aphorisms/fourteen.clj
View file

@ -36,7 +36,7 @@
;; (q/ellipse (+ x x-off) y 1 1) ;; (q/ellipse (+ x x-off) y 1 1)
;; draw the oddly moving ridge ;; draw the oddly moving ridge
(q/stroke 320 50 80) (q/stroke 320 50 20)
(q/arc (- (+ x x-off) (* 0.5 size-l)) y size-l size-l end-l 0) (q/arc (- (+ x x-off) (* 0.5 size-l)) y size-l size-l end-l 0)
(q/arc (+ (+ x x-off) (* 0.5 size-r)) y size-r size-r (- m/PI) end-r) (q/arc (+ (+ x x-off) (* 0.5 size-r)) y size-r size-r (- m/PI) end-r)
@ -56,6 +56,5 @@
:setup setup :setup setup
:update update-state :update update-state
:draw draw-state :draw draw-state
:renderer :p2d
:features [:keep-on-top :no-bind-output] :features [:keep-on-top :no-bind-output]
:middleware [qm/pause-on-error qm/fun-mode]) :middleware [qm/pause-on-error qm/fun-mode])

15
src/aphorisms/seventeen.clj
View file

@ -37,21 +37,22 @@
bg-color [180 5 90]] bg-color [180 5 90]]
(q/background 180 5 90) (q/background 180 5 90)
(q/with-translation [250 250] (q/with-translation [250 250]
(doseq [[idx radius] (map-indexed vector (range 20 150 10))] (doseq [[idx radius] (reverse (map-indexed vector (range 20 150 10)))]
(let [n-idx (/ idx 12)
paint (if (zero? idx) q/fill q/stroke)
{p :p r :r} (circle (+ (q/millis) (* idx 100)) radius)
p (g/translate p (m/- (m/* (m/- p (:pointer state)) (* (- 1 n-idx) 0.05))))]
(q/no-fill) (q/no-fill)
(q/no-stroke) (q/no-stroke)
(let [paint (if (zero? idx) q/fill q/stroke) (apply paint (mix-hsb fg-color bg-color (/ (inc idx) 12)))
{[x y] :p r :r} (as-> (circle (+ (q/millis) (* idx 100)) radius) shape (q/ellipse (:x p) (:y p) r r))))))
(g/translate shape (m/*! (m/-! shape))))]
(apply paint (mix-hsb fg-color bg-color (/ (inc idx) 10)))
(q/ellipse x y r r))))))
(let [center (v/vec2 250 250) (let [center (v/vec2 250 250)
mouse (v/vec2 100 100)] mouse (v/vec2 100 100)]
(g/translate center (m/*! (m/- mouse center) 0.1))) (g/translate center (m/*! (m/- mouse center) 0.1)))
(defn mouse-moved [state ev] (defn mouse-moved [state ev]
(assoc state (v/vec2 ev))) (assoc state :pointer (v/vec2 ev)))
#_:clj-kondo/ignore #_:clj-kondo/ignore
(q/defsketch seventeen (q/defsketch seventeen