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

  (aset canvas "width" width)
  (aset canvas "height" height)

  (recalculate-circles)
  (minkowski-order-changed)
  (window-resized)


  (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 []
