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


(defn- sector
  [angle len]
  (let [angle-b (- 60 angle)
        angle-c (- 120 (* 2 angle))
        angle-d (- 180 angle)
        sector-len (/ (/ len 2) (Math/cos (Math/toRadians angle-b)))]

(ns clj-turtle.core
  (:require [turtle.core :refer [draw!]]
            [turtle.renderer.vector :refer [->svg]]))

(def base-angle 60)

(defn- there-and-back
  [len]
