nice transitions.

This commit is contained in:
2014-09-17 12:26:38 -07:00
parent 8f32ec50d3
commit 28728bba27
3 changed files with 29 additions and 5 deletions

View File

@@ -10,9 +10,10 @@
[advent.utils :as utils]
[advent.screens.dialogue :refer [talking-screen]]
[clojure.core.async :refer [put! <! <!! >! chan go thread take! alts!!]])
(:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
(:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter GL20 GL30]
[com.badlogic.gdx.graphics.g2d TextureRegion]
[java.lang Object]))
[java.lang Object]
[com.badlogic.gdx Gdx]))
(def +screen-width+ 320)
(def +screen-height+ 240)
@@ -206,6 +207,8 @@
:on-render
(fn [screen [entities]]
(clear!)
(.glEnable (.getGL20 Gdx/graphics) GL20/GL_BLEND)
#_(.glEnable (.getGL30 Gdx/graphics) GL30/GL_BLEND)
(let [entities (update-cursor screen entities)
entities (update-from-script screen entities)
entities (update-in entities [:background :entities] (fn [entities] (map #(animate % screen) entities)))