Mirrored Spirals

a27

(defn spiral-points [a da r dr]
  (map maths/pol-to-rec
       (map vector
            (iterate (partial + da) a)
            (iterate (partial + dr) r))))

(def spiral (optional-styled-primitive [n a da r dr]
               (take n (spiral-points a da r dr))))

(def final-pattern 
    (four-mirror (groups/reframe
       (spiral 2000 0 3 0.3 0.01 {:stroke (p-color 0) 
                                  :stroke-weight 3}))))

Leave a Reply