notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

it all works, rather smoothly too.

Browse Source
This commit is contained in:
Bryce Covert
2017-05-29 17:32:21 -07:00
parent 03cba14c2a
commit 42067c1080
19 changed files with 206 additions and 217 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
desktop/src-common/advent/utils.clj
View File

@@ -766,18 +766,29 @@
(recur r#))))))))
(defn acquire-atlas [{:keys [resources] :as screen :or {resources []}} file]
(let [atlas (texture-atlas file)]
(update! screen :resources
(conj resources file))
[(assoc screen :resources (conj resources file))
atlas]))
(defn acquire-atlas
([screen file]
(acquire-atlas screen file :default))
([screen file id]
(let [resources (get-in screen [:resources id] [])
atlas (texture-atlas file)]
(update! screen :resources
(assoc (:resources screen) id (conj resources file)))
[(assoc-in screen [:resources id] (conj resources file))
atlas])))
(defn release-resources [screen]
(doseq [resource (:resources screen)]
(asset-manager! *asset-manager* :unload resource))
(update! screen :resources [])
(app! :log "info"(str "Released resources " (.getDiagnostics *asset-manager*))))
(defn release-resources
([screen]
(release-resources screen :default))
([screen id]
(println (:resources screen))
(doseq [resource (id (:resources screen))]
(println "releasing " resource)
(asset-manager! *asset-manager* :unload resource))
(app! :log "info"(str "Released resources " (.getDiagnostics *asset-manager*)))
(update! screen :resources (assoc (:resources screen {}) id []))))
(defn make-anim-seq
([file [w h] speed frames]