gistfile1.clj

(extend-type Renderer
  IRenderable
  (setup [this options]
    (let [{:keys [width height]} options]
      (doto this
        (.setSize width height))))
  (render [this renderables]
    (.render this (first renderables) (second renderables)))
  IAnimatable
  (animate [this scene camera animatables]
    (let [-animate
          (fn -animate []
            (.requestAnimationFrame js/window -animate)
            (doseq [animatable animatables]
              (animate! (:animatable animatable) (:animation animatable)))
            (.render this scene camera))]
      (-animate))))