 (defn bullet-shape []
     (doto
         (new Polygon)
-        (.addPoint 2 0)
-        (.addPoint -2 1)
-        (.addPoint -2 -1)))
+        (.addPoint 3 0)
+        (.addPoint -3 1.5)
+        (.addPoint -3 -1.5)))
 
 (defn draw-player [player g]
     (do

        :a 0.0
        :av 0.0
        :acc 0.0
        :eff player-efficiency }
    :next-fire-time (now)
    :asteroids (take 10 (repeatedly generate-asteroid))
    :sparkles []

(def player-efficiency 0.7)
(def bullet-efficiency 0.5)
(def bullet-acceleration 200)
(def sparkle-efficiency 0.3)
(def sparkle-velocity 0.25)
(def sparkle-amount 0.3)

(def width 640)
(def height 480)
