Orbiting camera

camera.clj

(defn camera
  [x y]
  (let [proj (js/mat4.perspective cam-proj
               (/ js/Math.PI 4) (/ width height) 0.1 1000)
        view  (-> (js/mat4.identity cam-view)
                  (js/mat4.translate cam-view #js [0 0 (- camera-distance)])
                  (js/mat4.rotateX cam-view (/ y camera-speed))
                  (js/mat4.rotateY cam-view (/ x camera-speed))
                  (js/mat4.translate cam-view #js [0 (- (/ wall-height 2)) 0]))
        viewr (js/mat3.fromMat4 cam-viewr view)]
    {:proj  proj
     :view  view
     :viewr viewr
     :inv-proj  (js/mat4.invert cam-inv-proj  proj)
     :inv-view  (js/mat4.invert cam-inv-view  view)
     :inv-viewr (js/mat3.invert cam-inv-viewr viewr)}))