(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))