      :left angle-c :fwd sector-len
      :right angle-d :fwd len]))
 
+(defn- arrow
+  [len]
+  (concat
+   (arrow-start len)
+   [:fwd (* len 7/10)
+    :right (* 2 base-angle)]))
+  
 (defn simple-flake
   [len]
-  (let [single-arrow (concat
-                      (arrow len)
-                      [:fwd (* len 7/10)
-                       :right (* 2 base-angle)])
+  (let [single-arrow (arrow len)
         cycle-len (* 6 (count single-arrow))]
     (take cycle-len (cycle single-arrow))))
 

  [len star-len angle]
  (let [star-gap (- len star-len (* len 3/10))
        single-part (concat
                     (arrow len)
                     [:fwd star-gap]
                     (sector angle star-len)
                     [:right base-angle])
        cycle-len (* 6 (count single-part))]
    (take cycle-len (cycle single-part))))

(defn draw-svg [filename commands]
  (spit filename (draw! ->svg commands [200 200])))


  [len]
  [:fwd len :left 180 :fwd len])

(defn- arrow-start
  [len]
  (let [fifth (/ len 5)
        tenth (/ len 10)]
