Yogthos
and 1 other
boosted
Konrad Hinsen
boosted
Chip Butty
boosted
Using PGA2D (2D Plane-based Geometric Algebra) to explore wallpaper groups. (Still making examples for this library 😆.)
Using CGA (conformal geometric algebra) to find the circumcircle that fits three moving points…
Using PGA2D (2D Plane-based Geometric Algebra) to explore wallpaper groups. (Still making examples for this library 😆.)
Konrad Hinsen
and 1 other
boosted
Using CGA (conformal geometric algebra) to find the circumcircle that fits three moving points…
I’m not sure how this #Clojure program could be shorter without losing generality. 🤔
![(ns vga3d-01
(:require [common :refer [make-sketch hypercube-edges tau draw-line *current-frame* *num-frames*]]
[com. rusher.geometer.vgad :refer [point rotor rotate unit-x unit-y orthographic-project]]))
(def edges (hypercube-edges 3 200 point))
(defn draw []
(let [r (rotor [0 1 1] (* *current-frame* (/ tau *num-frames*)))] (doseq [pq (mapv (partial mapv #(-> (rotate % r)
(orthographic-project unit-x unit-y)))
edges) ]
(draw-line pq))))
(def sketch (make-sketch draw))](https://media-proxy.berlin.social/media_attachments/files/115/963/534/127/441/543/original/b9a4c2e90124a506.png)
Using CGA (conformal geometric algebra) to find the circumcircle that fits three moving points…