 (def angular-acceleration 10.0)
 (def width 640)
 (def height 480)
+(def fire-delay 0.3)
+(def bullet-velocity 100)
 
 (defn do-mod [coll func v]
     (dosync (alter coll (fn [x] (apply func [x v])))))

        (let [rect (.getClipBounds g)]
            (.fillRect g (.x rect) (.y rect) (.width rect) (.height rect)))
        (draw-player (:player state) g))
        (doseq [a (:asteroids state)] (draw-asteroid a g)))

(defn create-component [game-state]
    (doto

            (.fill g (asteroid-shape (:radii asteroid)))
            (.setTransform g old-transform))))

(defn draw-bullet [bullet g]
    (do
        (.setColor g (Color/YELLOW))
        (let [old-transform (.getTransform g)]
            (.translate g (:x bullet) (:y bullet))
            (.rotate g (:a bullet))
            (.fill g (bullet-shape))
            (.setTransform g old-transform))))

(defn game-render [state g]
    (do
        (.setRenderingHint g
