jmonkey.clj

(ns jm-clj.core
  (:import (com.jme3.app SimpleApplication)
           (com.jme3.scene.shape Box)
           (com.jme3.scene Geometry)
           (com.jme3.material Material)
           (com.jme3.math ColorRGBA)))

;(def ^:dynamic *app-settings* (doto (AppSettings. true)
;                                (.setFullscreen false)
;                                (.setTitle "jme_clj")))

(defn my-logic [this]
  (let [b    (Box. 1 1 1)
        geom (Geometry. "Box" b)
        mat  (Material. (.getAssetManager ^SimpleApplication this) "Common/MatDefs/Misc/Unshaded.j3md")]
    (.setColor mat "Color" ColorRGBA/Green)
    (.setMaterial geom mat)
    (doto (.getRootNode this)
      (.attachChild geom))))


(def app (proxy [SimpleApplication] []
           (simpleInitApp []
             (my-logic this))))

(defn -main [& args]
  (doto app
    (.setShowSettings false)
    (.setPauseOnLostFocus false)
    (.start)))


(comment
  ;; this fails
 (.update app)
 )