 
 (defn game []
   (let [ship (ref (create-ship))
+        level (ref asteroids-start-number)
         asteroids (ref (create-asteroids asteroids-start-number asteroid-start-size))
         frame (JFrame. "Asteroids")
-        panel (game-panel frame ship asteroids)
+        panel (game-panel frame ship asteroids level)
         timer (Timer. turn-millis panel)]
     (doto panel                                             ; <label id="code.game.panel"/>
       (.setFocusable true)

   (do-action! ship action 1))
  )

(defn reset-game! [ship asteroids]
  (dosync
    (ref-set ship (create-ship))
    (ref-set asteroids (create-asteroids asteroids-start-number asteroid-start-size)))
  nil)

; ----------------------------------------------------------

; functional model
; ----------------------------------------------------------
; START: constants
(def sqrt3 (Math/sqrt 3.0))

(def width 120)
(def height 100)
(def point-size 8)
(def ship-size 1.5)
(def ship-life 3)
(def turn-speed 4)
(def shot-size (/ ship-size 10))
(def shot-speed 1.5)
