(defn
scale-example
[game]
(gl game disable (gl game CULL_FACE))
(gl game disable (gl game DEPTH_TEST))
(let
[entity
(->
(c/compile game (e/->entity game data/f-2d))
(assoc :clear {:color [0 0 0 0], :depth 1}))
tx
100
ty
100
*state
(atom {:tx tx, :ty ty, :rx 1, :ry 1})]
(eu/listen-for-mouse game *state)
(assoc game :entity entity :*state *state)))