Got a screen, anyway

This commit is contained in:
niten 2024-01-08 08:56:13 -08:00
parent b82539e481
commit 60b8929033
4 changed files with 6 additions and 5 deletions

View File

@ -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

View File

@ -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 {

View File

@ -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]

View File

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