getting rid of old packs

desktop/src-common/advent/screens/credits.clj

@@ -153,23 +153,24 @@
   (fn [screen entities options]
     (utils/setup-viewport screen 1280 960)
     (graphics! :set-cursor (utils/cursor "cursor.png" :main))
-    (let [font (bitmap-font "ego/font.fnt" )]
+    (let [[screen atlas] (utils/acquire-atlas screen "packed/global.atlas")
+          font (bitmap-font "ego/font.fnt" )]
       {:font font
-       :bg (assoc (utils/get-texture "black.png")
+       :bg (assoc (utils/atlas->texture atlas "black")
              :scale-x 80
              :scale-y 80 
              :opacity 1.0
              :origin-x 0
              :origin-y 0)
-       :fade (assoc (utils/get-texture "black.png")
+       :fade (assoc (utils/atlas->texture atlas "black")
                :scale-x 80
                :scale-y 80 
                :opacity 0.0
                :origin-x 0
                :origin-y 0)
 
-       :pos  (assoc (utils/get-texture "pos.png") :x 640 :y 700 :scale-x 1 :scale-y 1 :origin-x 145 :origin-y 0 :z 1 :opacity 0.0) 
+       :pos  (assoc (utils/atlas->texture atlas "black") :x 640 :y 700 :scale-x 1 :scale-y 1 :origin-x 145 :origin-y 0 :z 1 :opacity 0.0) 
-       :dbh  (assoc (utils/get-texture "dbh.png") :x 640 :y 500 :scale-x 0.5 :scale-y 0.5 :origin-x 640  :origin-y 0 :z 1 :opacity 0.0) 
+       :dbh  (assoc (utils/atlas->texture atlas "black") :x 640 :y 500 :scale-x 0.5 :scale-y 0.5 :origin-x 640  :origin-y 0 :z 1 :opacity 0.0) 
        :remaining-messages (cond (= @saved-took? :died)
                                  (conj credit-messages [nil
                                                         
@@ -184,7 +185,7 @@
                                  
                                  (conj credit-messages [nil
                                                         ["" ""]]))
-       #_#_:the-end (assoc (utils/get-texture "the-end.png") :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0)
+       #_#_:the-end (assoc (utils/atlas->texture atlas "the-end") :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0)
        :tweens {:fade-in
                 (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 5.0 :ease tween/ease-out-cubic)}}))
 :on-key-up