Got a screen, anyway
This commit is contained in:
parent
b82539e481
commit
60b8929033
|
@ -28,7 +28,7 @@
|
|||
(b/copy-dir {:src-dirs ["src" "resources"]
|
||||
:target-dir class-dir})
|
||||
(b/compile-clj {:basis basis
|
||||
:ns-compile '[ois.core]
|
||||
:ns-compile '[ois.launcher]
|
||||
:class-dir class-dir})
|
||||
(b/uber {:class-dir class-dir
|
||||
:uber-file uber-file
|
||||
|
|
1
deps.edn
1
deps.edn
|
@ -9,6 +9,7 @@
|
|||
com.badlogicgames.gdx/gdx-bullet-platform$natives-desktop { :mvn/version "1.11.0" }
|
||||
com.badlogicgames.gdx/gdx-platform$natives-desktop { :mvn/version "1.11.0" }
|
||||
org.clojure/clojure { :mvn/version "1.7.0" }
|
||||
play-clj/play-clj { :mvn/version "1.1.1" }
|
||||
}
|
||||
:aliases {
|
||||
:build {
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
[com.badlogic.gdx.scenes.scene2d.ui Label Label$LabelStyle]))
|
||||
|
||||
(gen-class
|
||||
:name demo.core.Game
|
||||
:name ois.core.Game
|
||||
:extends com.badlogic.gdx.Game)
|
||||
|
||||
(def main-screen
|
||||
|
@ -14,7 +14,7 @@
|
|||
(proxy [Screen] []
|
||||
(show []
|
||||
(reset! stage (Stage.))
|
||||
(let [style (Label$LabelStyle. (BitmapFont.) (Color. 1 1 1 1))
|
||||
(let [style (Label$LabelStyle. (BitmapFont.) (Color. 0 1 0 1))
|
||||
label (Label. "Hello world!" style)]
|
||||
(.addActor @stage label)))
|
||||
(render [delta]
|
||||
|
|
|
@ -1,9 +1,9 @@
|
|||
(ns ois.launcher
|
||||
(:require [demo.core :refer :all])
|
||||
(:require [ois.core :refer :all])
|
||||
(:import [com.badlogic.gdx.backends.lwjgl LwjglApplication]
|
||||
[org.lwjgl.input Keyboard])
|
||||
(:gen-class))
|
||||
|
||||
(defn -main []
|
||||
(LwjglApplication. (demo.core.Game.) "demo" 800 600)
|
||||
(LwjglApplication. (ois.core.Game.) "demo" 800 600)
|
||||
(Keyboard/enableRepeatEvents true))
|
||||
|
|
Loading…
Reference in New Issue