sig
  type rot
  val rot :
    ?center:Gg.p2 ->
    ?radius:float -> ?init:Gg.quat -> start:Gg.p2 -> unit -> Litu.Manip.rot
  val rot_update : Litu.Manip.rot -> Gg.p2 -> Gg.quat
end