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. ()