     (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)))
+    (recalculate-isoquants)))
 
 (defn coordinates-point [[x y]] [(/ (- x (/ width 2)) unit-pixels) (/ (- y (/ height 2)) unit-pixels)])
 

  (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))))


; UI elements

(def height (* 8 unit-pixels))
(def minkowski-order 2.0)
(def minkowski-distance (distance/minkowski minkowski-order))
(def isoquants [])
(def mouse-point [0 0])


