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