star.cljs

(defn star
  []
  (let [side (mg/apply-recursively (mg/reflect :e) 13 [1] 1)
        seed (mg/sphere-lattice-seg 6 0.355 0.0955 0.2)
        skewed-side (mg/skew
               :n
               :e
               :offset 0.3
               :out [side])
        tree (mg/scale-edge
              :ab
              :z
              :len 2.35
              :out [skewed-side])
        ]
    [seed tree]))