                     (+ y speed))]
   (assoc entity :y new-y)))
 
-

    :speed (first (shuffle star-speeds))))

(defn create-space []
  (let [star-textures (map (fn [c] (create-star-texture c)) star-colors)]
    (for [count (range star-count)]
      (create-star (c/screen-to-world (rand-int c/game-width)) (c/screen-to-world (rand-int c/game-height)) (first (shuffle star-textures)) )
      )))

(defn move-star [screen {:keys [:y :speed] :as entity}]

(def star-speed-fast (c/screen-to-world -0.4))
(def star-speeds [star-speed-slow star-speed-med star-speed-fast])
(def star-alpha 0.75)
(def star-color-dim 0.75)
(def star-color-full 1.0)

(defn create-star-texture [c]
  (let [pix-map (pixmap* 1 1 (pixmap-format :r-g-b-a8888))]
