 
 ;; widgets ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(def degrees-to-radians (/ Math/PI 180))
-
 (defn update-in-if
   "Like update-in, but only applies the
    function if the keys are present. Otherwise


;; animation

(defn now []
  (System/currentTimeMillis))

(defn animate! [reference value-address duration min-val max-val]
  (let [start-time (now)]
    (loop []
      (let [elapsed (- (now) start-time)

                          Rectangle2D$Double
                          RoundRectangle2D$Double))
    (:require [slide-explorer.widgets :as widgets]
              [slide-explorer.paint :as paint]
              [slide-explorer.bind :as bind]))

; Create a default font render context, that can be rebound.
