   (map (fn [angle]
     (point-euclidean angle (* radius (/ radius (minkowski-distance (point-euclidean angle radius)))))) (angles n)))
 
-(defn recalculate-circles []
-    (set! circles (map (fn [n] (points 360 n)) (range 1 7))))
+(defn recalculate-isoquants []
+    (set! isoquants (map (fn [n] (points 360 n)) (range 1 7))))
 
 
 ; UI elements

    (if (> minkowski-order 3.0) (set! minkowski-order distance/infinity)
      (if (> minkowski-order 2.0) (set! minkowski-order (+ 2.0 (* (- minkowski-order 2.0) 20)))))
    (minkowski-order-changed)
    (recalculate-circles)))

(defn coordinates-point [[x y]] [(/ (- x (/ width 2)) unit-pixels) (/ (- y (/ height 2)) unit-pixels)])


  (do
    (.clearRect drawing 0 0 (aget canvas "width") (aget canvas "height"))
    (draw-coordinates)
    (doall (for [isoquant isoquants] (draw-isoquant isoquant)))
    (draw-mouse-point)))

(defn request-frame []
