                 ref (geom/reflection p1 p2)
                 image1 (ref A)
                 image2 (ref B)]
-            (draw-line p1 p2 draw-chan #{:extended})
-            (draw-line A image1 draw-chan #{:midpoint})
-            (draw-line B image2 draw-chan #{:midpoint})
-            (draw-line A B draw-chan #{:extended})
-            (draw-line image1 image2 draw-chan #{:extended})
+            (draw-line p1 p2 draw-chan #{:extended} :red)
+            (draw-line A image1 draw-chan #{:midpoint} :red)
+            (draw-line B image2 draw-chan #{:midpoint} :red)
+            (draw-line A B draw-chan #{:extended} :red)
+            (draw-line image1 image2 draw-chan #{:extended} :red)
             current-state)
         4 (let [p1 (:p1 current-state)
                 p2 (:p2 current-state)

                line (geom/param-line A B)
                pre-image-points (map line (geom/parts 24))
                image-points (map inversion pre-image-points)]
            (draw-circle-2 center radius draw-chan)
            (draw-line center A draw-chan #{:extended})
            (draw-line center B draw-chan #{:extended})
            (draw-point image1 draw-chan)
            (draw-point image2 draw-chan)
            (doseq [p image-points]

                p1 value
                homotheties (:homotheties current-state)
                images (map (fn [f] (f p1)) homotheties)]
            (draw-line (first images) (last images) draw-chan nil :red)
            (doseq [pi images]
              (draw-point pi draw-chan))
            (draw-point p1 draw-chan)
