     (paint-method g polygon color)
     (paint-method g cockpit-polygon cockpit-color)))
 
-(defmethod paint :other [g {:keys [shape color paint-method] :as object}]
+(defmethod paint :default [g {:keys [shape color paint-method] :as object}]
   (let [transformation (get-transformation-matrix object point-size)
         polygon (polygon-to-screen shape transformation)]
     (paint-method g polygon color)))

     :paint-method   fill-circle

     :position       position
     :speed          [0 0]
     :acceleration   0

     :direction      0

    nil))

(defn create-asteroid
  ([size pos velocity]
   (let [size (vary asteroid-size-variance size)
         direction (rand (* 2 (Math/PI)))
         dir-vec (m/rotate-vec direction [0 1])
         velocity (m/vec+vec velocity (m/num*vec (rand asteroid-max-speed) dir-vec))
         position (m/vec+vec pos (m/num*vec size dir-vec))
         rotation-speed (rand asteroid-max-rotation-speed)
         num-points (Math/round (+ size 3.0))
