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