renderer.cljs

(ns ^:figwheel-always game.client.renderer
  (:require
    [cljs.pprint :as pprint]
    [jayq.core :as jayq :refer [$]]
    [game.client.common :as common :refer [data]]
    [game.client.config :as config]
    [game.client.overlay :as overlay]
    [game.client.magic :as magic]
    [game.client.explosion :as explosion]
    [game.client.engine2 :as engine2]
    [game.client.engine2_physics :as engine2_physics]
    [game.client.engine2_graphics :as engine2_graphics]
    [game.client.engine2_selection :as engine2_selection]
    [game.client.water :as water]
    [game.client.minimap :as minimap]
    [game.client.mathbox :as mathbox]
    [com.stuartsierra.component :as component])

  (:require-macros [game.shared.macros :as macros :refer [defcom]]))


(defn render-loop
  [component]
  (if @(:running component)
    (let
     [start-time @(:last-frame-time component)
      end-time (common/game-time)
      elapsed-time (- end-time start-time)
      camera (data (:camera component))
      scene (data (:scene component))
      renderer (data (:renderer component))
      ;three-overlay (:three-overlay component)
      ;overlay-renderer (:overlay-renderer three-overlay)
      render-stats (data (:render-stats component))
      ;minimap (:minimap component)
      ;minimap-camera (:minimap-camera minimap)
      width (-> renderer .-domElement .-width)
      height (-> renderer .-domElement .-height)]
     (reset! (:last-frame-elapsed component) elapsed-time)
     (reset! (:last-frame-time component) end-time)
      ; TODO: generic component render
     (-> render-stats .update)
     ;(magic/on-render component (:update-magic component))
     ;(explosion/on-render component (:update-explosion component))
     (water/on-render component (:update-water component))
     (engine2/on-render component (:update-units component))
     (engine2_physics/on-render component (:update-physics component))
     (engine2_graphics/on-render component (:update-textures component))
     (engine2_selection/on-render component (:update-selection component))
     ;(mathbox/on-render component (:update-mathbox component))
     (-> renderer (.setViewport 0 0 width height))
     (-> renderer (.setScissor 0 0 width height))
     (-> renderer (.setScissorTest true))
     ;(-> renderer (.setClearColor (-> scene .-fog .-color)))
     (-> renderer (.setClearColor (new js/THREE.Color 0xFFFFFF) 1.0))
     (-> renderer (.render scene camera))
     ;(minimap/on-render component minimap)
     ;(overlay/on-xp-render component three-overlay)
     (js/requestAnimationFrame (partial render-loop component)))))

(defcom
  new-init-renderer
  [renderer camera
   scene render-stats
   update-water
   update-units
   update-physics
   update-textures
   update-selection]
   ;three-overlay pixi-overlay
   ;update-magic update-explosion update-mathbox
   ;minimap]
  [running last-frame-time last-frame-elapsed frame-counter]
  (fn [component]
    (let
      [component
       (-> component
         (assoc :last-frame-time (atom (common/game-time)))
         (assoc :last-frame-elapsed (atom 0))
         (assoc :frame-counter (atom 0))
         (assoc :running (atom true)))]
      (render-loop component)
      component))
  (fn [component]
    (if
      (not= running nil)
      (reset! running false))
    component))