   )
 
 (defn polygon-to-screen [pol mat]
-  (let [f (fn [v] (->> (conj v 1)
+  (let [f (fn [v] (->> (conj (vec v) 1)
                        (mat*vec mat)
                        (take 2)
                        (round)))]

   (let [x (rand width)
         y (rand height)]
     (create-asteroid size [x y]))))

(defn out-of-bounds? [{[x y] :position size :size}]
  (or


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