             (draw-point-coords value draw-chan)
             current-state)
         1 (let [p1 (:p1 current-state)]
-            (draw-line p1 value draw-chan #{})
+            (draw-line p1 value draw-chan #{} :red)
             current-state)
         2 (let [p1 (:p1 current-state)
                 p2 (:p2 current-state)
                 base (geom/altitude p1 p2 value)]
-            (draw-line p1 p2 draw-chan #{:extended})
-            (draw-line p2 value draw-chan nil)
-            (draw-line value p1 draw-chan nil)
-            (draw-line value base draw-chan nil)
+            (draw-line p1 p2 draw-chan #{:extended} :red)
+            (draw-line p2 value draw-chan nil :red)
+            (draw-line value p1 draw-chan nil :red)
+            (draw-line value base draw-chan nil :red)
             current-state)))
     :click
     (condp = (:step current-state)

  (let [circumcenter (geom/circumcenter [p1 p2 p3])
        _ (println "circumcenter: " circumcenter)]
    (when (contains? options :circumcircle)
      (draw-line p1 circumcenter draw-chan #{})
      (draw-line p2 circumcenter draw-chan #{})
      (draw-line p3 circumcenter draw-chan #{})
      (draw-circle-2 circumcenter (geom/distance p1 circumcenter) draw-chan))
    (draw-line p1 p2 draw-chan #{:perp-bisector})
    (draw-line p2 p3 draw-chan #{:perp-bisector})
    (draw-line p3 p1 draw-chan #{:perp-bisector})
    (when (contains? options :circumcenter)
      (draw-point circumcenter draw-chan))))


                image1 (translation p1)
                image2 (translation p2)
                image3 (translation p3)]
            (draw-line pi pf draw-chan nil :red)
            (draw-point p1 draw-chan)
            (draw-point image1 draw-chan)
            (draw-point p2 draw-chan)
            (draw-point image2 draw-chan)
            (draw-point p3 draw-chan)
            (draw-point image3 draw-chan)
            (draw-line p1 p2 draw-chan nil :red)
            (draw-line image1 image2 draw-chan nil :red)
            (draw-line p2 p3 draw-chan nil :red)
            (draw-line image2 image3 draw-chan nil :red)
            (draw-line p3 p1 draw-chan nil :red)
            (draw-line image3 image1 draw-chan nil :red)
            current-state)))
    :click
    (condp = (:step current-state)
