niten
/
ois
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build.clj
View File

@ -28,7 +28,7 @@
(b/copy-dir {:src-dirs ["src" "resources"] (b/copy-dir {:src-dirs ["src" "resources"]
:target-dir class-dir}) :target-dir class-dir})
(b/compile-clj {:basis basis (b/compile-clj {:basis basis
:ns-compile '[ois.core] :ns-compile '[ois.launcher]
:class-dir class-dir}) :class-dir class-dir})
(b/uber {:class-dir class-dir (b/uber {:class-dir class-dir
:uber-file uber-file :uber-file uber-file

1
deps.edn
View File

@ -9,6 +9,7 @@
com.badlogicgames.gdx/gdx-bullet-platform$natives-desktop { :mvn/version "1.11.0" } 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" } com.badlogicgames.gdx/gdx-platform$natives-desktop { :mvn/version "1.11.0" }
org.clojure/clojure { :mvn/version "1.7.0" } org.clojure/clojure { :mvn/version "1.7.0" }
play-clj/play-clj { :mvn/version "1.1.1" }
} }
:aliases { :aliases {
:build { :build {

4
src/ois/core.clj
View File

@ -6,7 +6,7 @@
[com.badlogic.gdx.scenes.scene2d.ui Label Label$LabelStyle])) [com.badlogic.gdx.scenes.scene2d.ui Label Label$LabelStyle]))
(gen-class (gen-class
:name demo.core.Game :name ois.core.Game
:extends com.badlogic.gdx.Game) :extends com.badlogic.gdx.Game)
(def main-screen (def main-screen
@ -14,7 +14,7 @@
(proxy [Screen] [] (proxy [Screen] []
(show [] (show []
(reset! stage (Stage.)) (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)] label (Label. "Hello world!" style)]
(.addActor @stage label))) (.addActor @stage label)))
(render [delta] (render [delta]

4
src/ois/launcher.clj
View File

@ -1,9 +1,9 @@
(ns ois.launcher (ns ois.launcher
(:require [demo.core :refer :all]) (:require [ois.core :refer :all])
(:import [com.badlogic.gdx.backends.lwjgl LwjglApplication] (:import [com.badlogic.gdx.backends.lwjgl LwjglApplication]
[org.lwjgl.input Keyboard]) [org.lwjgl.input Keyboard])
(:gen-class)) (:gen-class))
(defn -main [] (defn -main []
(LwjglApplication. (demo.core.Game.) "demo" 800 600) (LwjglApplication. (ois.core.Game.) "demo" 800 600)
(Keyboard/enableRepeatEvents true)) (Keyboard/enableRepeatEvents true))