sig
  type t
  val create : unit -> OsgViewer.??.t
  val stop : OsgViewer.??.-> unit
  val wait : OsgViewer.??.-> unit
  val call : OsgViewer.??.-> (OsgViewer.Viewer.t -> 'a) -> 'a
  type frame_handler = OsgViewer.Viewer.t -> unit
  val set_frame_handler :
    OsgViewer.??.-> OsgViewer.??.frame_handler -> unit
end