let cam_transfo () = GlMat.translate3 (!tx, !ty, !tz) ; GlMat.rotate ~angle:!rx ~x:1. ~y:0. ~z:0. () ; GlMat.rotate ~angle:!ry ~x:0. ~y:1. ~z:0. ()