From 55617be51fee6ee3d436ba9615c6c75ee3a51f49 Mon Sep 17 00:00:00 2001 From: Charles Comstock Date: Mon, 20 May 2024 14:07:27 -0500 Subject: [PATCH] add svg-export to differential-harmonics --- src/shimmers/sketches/differential_harmonics.cljs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/shimmers/sketches/differential_harmonics.cljs b/src/shimmers/sketches/differential_harmonics.cljs index 5c7a9237c..1a1a0cbe6 100644 --- a/src/shimmers/sketches/differential_harmonics.cljs +++ b/src/shimmers/sketches/differential_harmonics.cljs @@ -1,7 +1,9 @@ (ns shimmers.sketches.differential-harmonics (:require [clojure.math :as math] + [reagent-keybindings.keyboard :as kb] [shimmers.common.svg :as csvg :include-macros true] + [shimmers.common.svg-export :as svg-export] [shimmers.common.ui.controls :as ctrl] [shimmers.common.ui.debug :as debug] [shimmers.math.deterministic-random :as dr] @@ -59,7 +61,8 @@ (gl/line2 p q)))))) (defn scene [params] - (csvg/svg-timed {:width width + (csvg/svg-timed {:id "scene" + :width width :height height :stroke "black" :fill "none" @@ -84,6 +87,7 @@ [sketch/with-explanation [:div.canvas-frame [scene params]] [:div.flexcols + [kb/kb-action "alt-s" #(svg-export/download "scene" "differential-harmonics")] [view-sketch/generate :differential-harmonics] [:p "Similar to helix but instead perturb oscillation frequency forward and backward from base harmonic."]] [:div.readable-width