               (int \J) {:fire-weapon :launcher}
               (int \K) {:fire-weapon :machinegun}})
 
-; END: constants
-
 (def sqrt (memoize #(Math/sqrt %)))
-
-(defn random [from to]
-  (let [range (- to from)]
-    (+ from (rand range))))
-
-(defn vary [variance n]
-  (let [from (* n (- 1 variance))
-        to (* n (+ 1 variance))]
-    (random from to)))
 
 (defn get-transformation-matrix [{:keys [size position direction]} scale]
   (let [[x y] position]

(def asteroid-max-rotation-speed 4)
(def asteroid-damage 1)
(def debris-life-millis 3000)

(def ammunition-types {:projectile {:size         (/ ship-size 10)
                                    :shape        [[-1.0 -5.0] [1.0 -5.0] [0.0 1.0]]

           (java.awt.event ActionListener KeyListener)
           (javax.sound.sampled AudioSystem FloatControl$Type))
  (:require [asteroids.matrix-math :as m])
  (:use clojure.java.io))
#_(import-static java.awt.event.KeyEvent VK_LEFT VK_RIGHT VK_UP VK_DOWN)

; ----------------------------------------------------------
; functional model
; ----------------------------------------------------------

(def width 160)
(def height 85)
