From 9df284cfa25e96cf70c2ce7dc458c1c8e2b9c53d Mon Sep 17 00:00:00 2001 From: Charles Comstock Date: Wed, 11 Dec 2024 01:29:42 -0600 Subject: [PATCH] comment out debug circles --- src/shimmers/sketches/circuit_diagrams.cljs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/src/shimmers/sketches/circuit_diagrams.cljs b/src/shimmers/sketches/circuit_diagrams.cljs index 380f7ffb..7db2c66e 100644 --- a/src/shimmers/sketches/circuit_diagrams.cljs +++ b/src/shimmers/sketches/circuit_diagrams.cljs @@ -68,16 +68,16 @@ (vary-meta (gc/circle center 6.0) assoc :stroke-width 2.0)]) (when (seq out) - (into [(let [margin (* eq/TAU 0.75 (/ 1.0 (inc (count faces)))) - t0 (- (g/heading (tm/- (face-center (first out)) center)) margin) - t1 (+ (g/heading (tm/- (face-center (last out)) center)) margin)] - (vary-meta (arc/arc center radius t0 t1) - assoc :stroke-width 2.0 - :fill "none")) - (gc/circle (tm/mix center (face-center (first out)) 0.33) 4.0) - (gc/circle (tm/mix center (face-center (last out)) 0.66) 4.0)] - (for [face out] - (connector face (v/+polar center radius (g/heading (tm/- (face-center face) center)))))))))) + (concat [(let [margin (* eq/TAU 0.75 (/ 1.0 (inc (count faces)))) + t0 (- (g/heading (tm/- (face-center (first out)) center)) margin) + t1 (+ (g/heading (tm/- (face-center (last out)) center)) margin)] + (vary-meta (arc/arc center radius t0 t1) + assoc :stroke-width 2.0 + :fill "none"))] + #_[(gc/circle (tm/mix center (face-center (first out)) 0.33) 4.0) + (gc/circle (tm/mix center (face-center (last out)) 0.66) 4.0)] + (for [face out] + (connector face (v/+polar center radius (g/heading (tm/- (face-center face) center)))))))))) (mapcat draw-face faces))) (defn make-component [shape]