near/heyarne.all-my-friends.vis
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Uncanny uncanny uncanny valley

Browse source
This commit is contained in:
heyarne 2021-04-19 18:10:27 +02:00
commit 4fedebd627
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/heyarne/all_my_friends/core.cljc
View file

@ -1,15 +1,16 @@
(ns heyarne.all-my-friends.core (ns heyarne.all-my-friends.core
(:require [quil.core :as q] (:require [quil.core :as q]
[quil.middlewares.pause-on-error :refer [pause-on-error]] [quil.middleware :as qm]
[quil.middlewares.fun-mode :refer [fun-mode]]
[camel-snake-kebab.core :refer [->kebab-case-keyword]] [camel-snake-kebab.core :refer [->kebab-case-keyword]]
[cheshire.core :as json] [cheshire.core :as json]
[net.cgrand.xforms :as x] [net.cgrand.xforms :as x]
[thi.ng.geom.vector :as v] [thi.ng.geom.vector :as v]
[thi.ng.geom.core :as g] [thi.ng.geom.core :as g]
[thi.ng.geom.line :as l]
[thi.ng.geom.matrix :as mat] [thi.ng.geom.matrix :as mat]
[thi.ng.geom.rect :as r] [thi.ng.geom.rect :as r]
[thi.ng.math.core :as m] [thi.ng.math.core :as m]
[thi.ng.math.noise :as n]
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.string :as str])) [clojure.string :as str]))
@ -111,16 +112,17 @@
(doseq [face current-faces (doseq [face current-faces
p (:scaled-mesh face) p (:scaled-mesh face)
:let [p (g/transform (v/vec2 p) transform-matrix)]] :let [p (g/transform (v/vec2 p) transform-matrix)
(q/ellipse (p :x) (p :y) 6 6) t (m/* (v/randvec2) (* 1.5 (+ 1 (n/noise1 (* 0.002 (q/millis))))))
#_(apply q/line pt1 pt2))) {[a b] :points} (l/line2 (g/translate p (m/- t)) (g/translate p t))]]
(q/line a b)))
#_:clj-kondo/ignore #_:clj-kondo/ignore
(q/defsketch all-my-friends (q/defsketch all-my-friends
:title "These are all my friends" :title "These are all my friends"
:settings #(q/smooth 2) :settings #(q/smooth 2)
:middleware [pause-on-error :middleware [qm/pause-on-error
fun-mode] qm/fun-mode]
:setup setup :setup setup
:key-pressed key-pressed :key-pressed key-pressed
:draw draw :draw draw