(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))