    :life-colors            [(Color. 255 0 0) (Color. 255 80 75) (Color. 250 160 75) (Color. 160 160 150)]
    :collidable?            false                            ; is set to true at first movement / shooting
    })
+
+(defn create-circle
+  ([pos speed]
+   {:type           :shot
+
+    :size           (* 0.5 ship-size)
+    :shape          [[-1 -1] [1 1]]
+
+    :color          (Color. 10 200 220)
+    :paint-method   fill-circle
+
+    :position       pos
+    :speed          speed
+    :acceleration   0
+
+    :direction      0
+    :rotation-speed 0
+
+    :collidable?    true
+    }))
 
 (defn create-shot
   ([pos dir speed]

    (doto graphics
      (.setColor color)
      (.fillPolygon jpolygon)))
  nil)

(defmulti paint (fn [_ {type :type}]

    (map f pol))
  )

(declare fill-polygon draw-polygon fill-circle draw-circle)

(defn create-ship []
  {:type                   :ship
