freeing resources for justice.

2017-05-26 07:46:29 -07:00
parent 807ee8564c
commit d8a145bb67
4 changed files with 29 additions and 18 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -742,3 +742,16 @@
                      nil)
                  (do ~form
                      (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 release-resources [screen]
+  (doseq [resource (:resources screen)]
+    (asset-manager! *asset-manager* :unload resource))
+  (app! :log "info"(str "Released resources " (.getDiagnostics *asset-manager*))))