(ns play-clj.g3d
  (:require [play-clj.utils :as u])
  (:import [com.badlogic.gdx.graphics.g3d Environment Model ModelBatch
            ModelInstance]
           [com.badlogic.gdx.graphics.g3d.utils ModelBuilder]))

; environment

(defn environment*
  "The function version of `environment`"
  []
  (Environment.))

(defmacro environment
  "Returns an [Environment](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/Environment.html)

    (environment)"
  [& options]
  `(let [^Environment object# (environment*)]
     (u/calls! object# ~@options)))

(defmacro environment!
  "Calls a single method on an `environment`"
  [screen k & options]
  `(let [^Environment object# (u/get-obj ~screen :attributes)]
     (u/call! object# ~k ~@options)))

; model-batch

(defn model-batch*
  "The function version of `model-batch`"
  []
  (ModelBatch.))

(defmacro model-batch
  "Returns a [ModelBatch](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/ModelBatch.html)

    (model-batch)"
  [& options]
  `(let [^ModelBatch object# (model-batch*)]
     (u/calls! object# ~@options)))

(defmacro model-batch!
  "Calls a single method on an `model-batch`"
  [screen k & options]
  `(let [^ModelBatch object# (u/get-obj ~screen :renderer)]
     (u/call! object# ~k ~@options)))

; model

(defn model*
  "The function version of `model`"
  ([a1]
    (u/create-entity (ModelInstance. (if (map? a1) (:object a1) a1))))
  ([a1 a2]
    (u/create-entity (ModelInstance. a1 a2)))
  ([a1 a2 a3]
    (u/create-entity (ModelInstance. a1 a2 a3)))
  ([a1 a2 a3 a4]
    (u/create-entity (ModelInstance. a1 a2 a3 a4)))
  ([a1 a2 a3 a4 a5]
    (u/create-entity (ModelInstance. a1 a2 a3 a4 a5)))
  ([a1 a2 a3 a4 a5 a6]
    (u/create-entity (ModelInstance. a1 a2 a3 a4 a5 a6))))

(defmacro model
  "Returns an entity based on [ModelInstance](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/ModelInstance.html)"
  [& options]
  `(let [^ModelInstance object# (model*)]
     (u/calls! object# ~@options)))

(defmacro model!
  "Calls a single method on an `model`"
  [entity k & options]
  `(let [^ModelInstance object# (u/get-obj ~entity :object)]
     (u/call! object# ~k ~@options)))

; model-builder

(defn model-builder*
  "The function version of `model-builder`"
  []
  (ModelBuilder.))

(defmacro model-builder
  "Returns a [ModelBuilder](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/utils/ModelBuilder.html)

    (model-builder)"
  [& options]
  `(let [^ModelBuilder object# (model-builder*)]
     (u/calls! object# ~@options)))

(defmacro model-builder!
  "Calls a single method on an `model-builder`"
  [object k & options]
  `(let [^ModelBuilder object# object]
     (u/call! object# ~k ~@options)))