               (on-init-draw-path shape))
       (on-init-draw-generic shape))))
 
+;; --- Icon Drawing
+
 (defn- on-init-draw-icon
   [shape]
   (let [{:keys [x y]} (gpt/divide @wb/mouse-canvas-a @wb/zoom-ref)

;; --- Draw Area (Component)

(declare watch-draw-actions)

(defn- draw-area-will-mount
  [own]

                (reset! drawing-shape shape)))

            (on-draw [[point ctrl?]]
              (if ctrl?
                (let [center (get-in @drawing-shape [:points (dec @counter)])
                      point (as-> point $
                              (gpt/subtract $ center)
                              (align-position (gpt/angle $) $)
                              (gpt/add $ center))]
                  (->> (update-point @drawing-shape point @counter)
                       (reset! drawing-shape)))
                (->> (update-point @drawing-shape point @counter)
                     (reset! drawing-shape))))

            (on-end []
              (let [shape (normalize-shape @drawing-shape)]
