From cb453d2285d7ecd7f811af4a7d64162bd5db6d2d Mon Sep 17 00:00:00 2001 From: Charles Comstock Date: Mon, 10 Jul 2023 13:04:52 -0500 Subject: [PATCH] sometimes use hand-drawn paths, sometimes straight lines --- src/shimmers/sketches/window_glimpses.cljs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/shimmers/sketches/window_glimpses.cljs b/src/shimmers/sketches/window_glimpses.cljs index 8ad062ee8..910c1c01d 100644 --- a/src/shimmers/sketches/window_glimpses.cljs +++ b/src/shimmers/sketches/window_glimpses.cljs @@ -1,5 +1,6 @@ (ns shimmers.sketches.window-glimpses (:require + [shimmers.algorithm.hand-drawn :as hand-drawn] [shimmers.algorithm.line-clipping :as clip] [shimmers.algorithm.lines :as lines] [shimmers.common.palette :as palette] @@ -380,9 +381,10 @@ arcs (->> shapes (filter (fn [x] (instance? Triangle2 x))) (mapcat (comp (partitioned-arcs windows) triangle-arc)) - (map (dashed-arc [3 1 4])))] + (map (dashed-arc [3 1 4]))) + render-path (dr/rand-nth [hand-drawn/squiggle-path identity])] [(csvg/group {:stroke-width 0.5 :stroke "#888888"} - connecting-lines) + (map render-path connecting-lines)) (csvg/group {:fill background} (map clean-meta windows)) (csvg/group {} (map (render-shapes palette show-path-points) clipped-shapes))