   "Display the world."
   [[dt time] state]
   (text/write-to-screen (str (int (/ 1 dt)) " fps") 0 0)
-  (text/write-to-screen (str (:simulation-time state) " time") 0 30)
-  (text/write-to-screen (str "Rotation [active " (:rotate-mode state) "]: (" 
+  (text/write-to-screen (str (float (:simulation-time state)) " time") 0 30)
+  (text/write-to-screen (str "Rotation: (" 
                              (:rot-x state) "," (:rot-y state) "," (:rot-z state) ")") 0 60)
-  (text/write-to-screen (str "Translation [active " (:translate-mode state) "]: (" 
-                             (:shift-x state) "," (:shift-y state) "," (:shift-z state) ")") 0 90)
+  (text/write-to-screen (str "Translation: (" 
+                             (int (:shift-x state)) "," (int (:shift-y state)) "," (int (:shift-z state)) ")") 0 90)
   (rotate (:rot-x state) 1 0 0)
   (rotate (:rot-y state) 0 1 0)
   (rotate (:rot-z state) 0 0 1)

               (= (:translate-mode state) :x) {:shift-x (+ (:shift-x state) displacement)}               
               (= (:translate-mode state) :y) {:shift-y (+ (:shift-y state) displacement)}               
               (= (:translate-mode state) :z) {:shift-z (+ (:shift-z state) displacement)})))))
   
(defn key-press
  "Update the state in response to a keypress."
  [key state]
  (cond
   (= "q" key) (assoc state
                      :rotate-mode :x)
   (= "w" key) (assoc state

  [state]
  (app/title! "brevis")
  (app/vsync! true)
  ;(app/key-repeat! true)
  (enable :blend)
  (enable :depth-test)
  (init-box-graphic)
  (enable :lighting)
  (enable :light0)
  (blend-func :src-alpha :one-minus-src-alpha))


(def shift-key-down (atom false))
(defn sin [n] (float (Math/sin n)))
(defn cos [n] (float (Math/cos n)))

(defn reshape
  "Reshape after the window is resized."
