 (defn show [x]
   (do (pr x)
       x))
+
+(defn now []
+  (System/currentTimeMillis))
+
+(def degrees-to-radians (/ Math/PI 180))
 
 (defn clip-value
   "Clips a value between min-value and max-value."

          :top 20
          :text (.getMessage e)}]))  

(defn canvas
  "Create a blank JPanel \"canvas\" for automatic painting. The
  canvas is automatically updated with the graphics description


;; widgets ;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn update-in-if
  "Like update-in, but only applies the
   function if the keys are present. Otherwise
