     :size           shot-size
     :shape          [[-1.0 -5.0] [1.0 -5.0] [0.0 1.0]]
     :color          (Color. 250 50 10)
-    :paint-method fill-polygon
+    :paint-method   fill-polygon
 
     :position       pos
     :speed          speed

      (ref-set asteroids asteroids*))))

(defn do-action!
  ([ship {:keys [rotation acceleration shoot repair] :as action} modifier]
   (when rotation (dosync (alter ship turn (* modifier rotation))))
   (when acceleration (dosync (alter ship accelerate (* modifier acceleration))))
   (when shoot (dosync (alter ship toggle-shooting (> modifier 0))))
   (when repair (dosync (alter ship repair-ship))))
  ([ship action]
   (do-action! ship action 1))
  )

(defn reset-game! [ship asteroids level increase-level?]
  (dosync

(def turn-millis 40)

(def actions {
              (int \A) {:rotation (- ship-rotation-speed)}
              (int \D) {:rotation ship-rotation-speed}
              (int \W) {:acceleration ship-acceleration}
              (int \K) {:shoot true}
              (int \1) {:set-level 1}
              (int \2) {:set-level 2}
              (int \3) {:set-level 3}
