(defn
perspective-camera-3d-example
[game]
(gl game enable (gl game CULL_FACE))
(gl game enable (gl game DEPTH_TEST))
(let
[entity
(f-entity game (transform-f-data data/f-3d))
*state
(atom {:cr 0})]
(eu/listen-for-mouse game *state)
(assoc game :entity entity :*state *state)))