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

            (>! draw-chan
                [(dt/style {:stroke :lt-grey})
                 (dt/line [p1 p3])
                 (dt/line [p2 p4])
                 (dt/style {:stroke :red})]))))))

(defn draw-circle
  "clear-screen draw item draw point and coords of value"

                images1 (map (fn [f] (f p1)) homotheties)
                images2 (map (fn [f] (f p2)) homotheties)]

            (draw-line (first images1) (last images1) draw-chan nil :red)
            (draw-line (first images2) (last images2) draw-chan nil :red)
            
            (doseq [[i1 i2] (map vector images1 images2)]
              (draw-line i1 i2 draw-chan nil :red))
            
            (draw-point p1 draw-chan)
            (draw-point p2 draw-chan)
            (draw-line p1 p2 draw-chan nil :red)

            (draw-point center draw-chan)
            
