50 lines
1.7 KiB
Clojure
50 lines
1.7 KiB
Clojure
(ns advent.screens.test
|
|
(:require [play-clj.core :refer :all]
|
|
[play-clj.math :refer :all]
|
|
[play-clj.ui :refer :all]
|
|
[play-clj.utils :refer :all]
|
|
[play-clj.g2d :refer :all]
|
|
[advent.utils :as utils]
|
|
[advent.tween :as tween]
|
|
[advent.screens.scene :as scene]
|
|
[advent.screens.dialogue :as dialogue]
|
|
[advent.screens.title :as title]
|
|
[advent.screens.inventory :as inventory]
|
|
[advent.screens.safe :as safe]
|
|
[advent.screens.fade :as fade]
|
|
)
|
|
(:import [com.badlogic.gdx.graphics Pixmap Pixmap$Filter Texture Texture$TextureFilter]
|
|
[com.badlogic.gdx.graphics.g2d TextureRegion]
|
|
[com.badlogic.gdx.utils.viewport FitViewport]
|
|
[com.badlogic.gdx.scenes.scene2d.ui Slider$SliderStyle]
|
|
[com.badlogic.gdx.scenes.scene2d.utils Align]
|
|
[com.badlogic.gdx Application Audio Files Game Gdx Graphics Input
|
|
InputMultiplexer InputProcessor Net Preferences Screen]))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defscreen test-screen
|
|
:on-show
|
|
(fn [screen entities]
|
|
|
|
(utils/setup-viewport screen 320 240)
|
|
|
|
{:overlay (assoc (utils/get-texture "testscreen/test.png" ) :x 0 :y 0 :origin-x 0 :origin-y 0)
|
|
:subject (assoc (utils/get-texture "testscreen/subject.png" ) :x 160 :y 120 :origin-x 7 :origin-y 7 :scale-x 5 :scale-y 5 )})
|
|
|
|
:on-render
|
|
(fn [screen [entities]]
|
|
|
|
(clear!)
|
|
(render! screen [(:overlay entities) (:subject entities)])
|
|
entities)
|
|
|
|
:show-screen (fn [entities]
|
|
entities)
|
|
:on-resize (fn [{:keys [viewport width height]} [entities]]
|
|
(.update viewport width height)
|
|
nil))
|