Module Togl

module Togl: sig .. end

type w 

type widget = w Widget.widget 

val render : widget -> unit

val swap_buffers : widget -> unit

val height : widget -> int

val width : widget -> int

type font = [ `Fixed_8x13
       | `Fixed_9x15
       | `Helvetica_10
       | `Helvetica_12
       | `Helvetica_18
       | `Times_10
       | `Times_24
       | `Xfont of string ] 

val load_bitmap_font : widget -> font:font -> GlList.base

val unload_bitmap_font : widget -> base:GlList.base -> unit

val use_layer : widget -> num:int -> unit

val show_overlay : widget -> unit

val hide_overlay : widget -> unit

val overlay_redisplay : widget -> unit

val exists_overlay : widget -> bool

val get_overlay_transparent_value : widget -> int

val make_current : widget -> unit

val display_func : widget -> cb:(unit -> unit) -> unit

val reshape_func : widget -> cb:(unit -> unit) -> unit

val overlay_display_func : widget -> cb:(unit -> unit) -> unit

val dump_to_eps_file : filename:string ->
       ?rgba:bool -> ?render:(unit -> unit) -> widget -> unit

val timer_func : ms:int -> cb:(unit -> unit) -> unit

val configure : ?height:int -> ?width:int -> widget -> string

val create : ?name:string ->
       ?accum:bool ->
       ?accumalphasize:int ->
       ?accumbluesize:int ->
       ?accumgreensize:int ->
       ?accumredsize:int ->
       ?alpha:bool ->
       ?alphasize:int ->
       ?auxbuffers:int ->
       ?bluesize:int ->
       ?depth:bool ->
       ?depthsize:int ->
       ?double:bool ->
       ?greensize:int ->
       ?height:int ->
       ?overlay:bool ->
       ?privatecmap:bool ->
       ?redsize:int ->
       ?rgba:bool ->
       ?stencil:bool ->
       ?stencilsize:int ->
       ?stereo:bool -> ?width:int -> 'a Widget.widget -> widget