   [len]
   [:fwd len :left 180 :fwd len])
 
-(defn- arrow
+(defn- arrow-start
   [len]
   (let [fifth (/ len 5)
         tenth (/ len 10)]

  [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])))


     :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 (arrow len)
        cycle-len (* 6 (count single-arrow))]
    (take cycle-len (cycle single-arrow))))

