Minimal 3D

(defscreen main-screen :on-show (fn [screen entities] (update! screen :renderer (model-batch) :attributes (let [attr-type (attribute-type :color :ambient-light) attr (attribute :color attr-type 0.8 0.8 0.8 1)] (environment :set attr)) :camera (doto (perspective 75 (game :width) (game :height)) (position! 0 0 3) (direction! 0 0 0) (near! 0.1) (far! 300))) (let [attr (attribute! :color :create-diffuse (color :blue)) model-mat (material :set attr) model-attrs (bit-or (usage :position) (usage :normal)) builder (model-builder)] (-> (model-builder! builder :create-box 2 2 2 model-mat model-attrs) (model) (assoc :x 0 :y 0 :z 0))))

:on-render (fn [screen entities] (clear! 1 1 1 1) (doto screen (perspective! :rotate-around (vector-3 0 0 0) (vector-3 0 1 0) 1) (perspective! :update)) (render! screen entities))

:on-resize (fn [screen entities] (height! screen (:height screen))))

(set-game-screen! main-screen)