Module Glut

module Glut: sig .. end

val glutInit : argv:string array -> string array

val glutInitWindowPosition : x:int -> y:int -> unit

val glutInitWindowSize : width:int -> height:int -> unit

val glutInitDisplayMode : mode:init_mode list -> unit

val glutInitDisplayString : string -> unit

val glutInitContextVersion : major:int -> minor:int -> unit

val glutInitContextProfile : profile:context_profile -> unit

val glutMainLoop : unit -> unit

val glutLeaveMainLoop : unit -> unit

type window_id 

val glutCreateWindow : title:string -> window_id

val glutSetWindow : win:window_id -> unit

val glutGetWindow : unit -> window_id

val glutCreateSubWindow : win:window_id ->
       x:int -> y:int -> width:int -> height:int -> window_id

val glutDestroyWindow : win:window_id -> unit

val glutPostRedisplay : unit -> unit

val glutSwapBuffers : unit -> unit

val glutPositionWindow : x:int -> y:int -> unit

val glutReshapeWindow : width:int -> height:int -> unit

val glutFullScreen : unit -> unit

val glutPopWindow : unit -> unit

val glutPushWindow : unit -> unit

val glutShowWindow : unit -> unit

val glutHideWindow : unit -> unit

val glutIconifyWindow : unit -> unit

val glutSetWindowTitle : name:string -> unit

val glutSetIconTitle : name:string -> unit

val glutSetCursor : cursor:cursor_type -> unit

val glutWarpPointer : x:int -> y:int -> unit

val glutIgnoreKeyRepeat : ignore:bool -> unit

type menu_id 

val glutCreateMenu : menu:(value:int -> unit) -> menu_id

val glutGetMenu : unit -> menu_id

val glutSetMenu : menu:menu_id -> unit

val glutDestroyMenu : menu:menu_id -> unit

val glutAddMenuEntry : name:string -> value:int -> unit

val glutAddSubMenu : name:string -> menu:menu_id -> unit

val glutChangeToMenuEntry : entry:int -> name:string -> value:int -> unit

val glutChangeToSubMenu : entry:int -> name:string -> menu:menu_id -> unit

val glutRemoveMenuItem : entry:int -> unit

val glutAttachMenu : button:mouse_button -> unit

val glutDetachMenu : button:mouse_button -> unit

val glutDisplayFunc : display:(unit -> unit) -> unit

val glutReshapeFunc : reshape:(width:int -> height:int -> unit) -> unit

val glutKeyboardFunc : keyboard:(key:char -> x:int -> y:int -> unit) -> unit

val glutKeyboardUpFunc : keyboard_up:(key:char -> x:int -> y:int -> unit) -> unit

val glutMouseFunc : mouse:(button:mouse_button ->
              state:mouse_button_state -> x:int -> y:int -> unit) ->
       unit

val glutMotionFunc : motion:(x:int -> y:int -> unit) -> unit

val glutPassiveMotionFunc : passive:(x:int -> y:int -> unit) -> unit

val glutVisibilityFunc : visibility:(state:visibility_state -> unit) -> unit

val glutEntryFunc : entry:(state:entry_state -> unit) -> unit

val glutSpecialFunc : special:(key:special_key -> x:int -> y:int -> unit) -> unit

val glutSpecialUpFunc : special_up:(key:special_key -> x:int -> y:int -> unit) -> unit

val glutIdleFunc : idle:(unit -> unit) -> unit

val glutRemoveIdleFunc : unit -> unit

val glutTimerFunc : msecs:int -> timer:(value:'a -> unit) -> value:'a -> unit

val glutSetColor : cell:int -> r:float -> g:float -> b:float -> unit

val glutGetColor : cell:int -> float * float * float

val glutGet : state:get_state -> int

val glutDeviceGet : device:glut_device -> int

val glutGetModifiers : unit -> active_modifier list

val glutGetModifiersB : unit -> bool * bool * bool

val glutExtensionSupported : extension:string -> bool

val glutBitmapCharacter : font:bitmap_font -> c:char -> unit

val glutBitmapWidth : font:bitmap_font -> c:char -> int

val glutStrokeCharacter : font:stroke_font -> c:char -> unit

val glutStrokeWidth : font:stroke_font -> c:char -> int

val glutBitmapHeight : font:bitmap_font -> int

val glutStrokeHeight : font:stroke_font -> float

val glutBitmapLength : font:bitmap_font -> str:string -> int

val glutStrokeLength : font:stroke_font -> str:string -> int

val glutWireSphere : radius:float -> slices:int -> stacks:int -> unit

val glutSolidSphere : radius:float -> slices:int -> stacks:int -> unit

val glutWireCone : base:float -> height:float -> slices:int -> stacks:int -> unit

val glutSolidCone : base:float -> height:float -> slices:int -> stacks:int -> unit

val glutWireCube : size:float -> unit

val glutSolidCube : size:float -> unit

val glutWireTorus : innerRadius:float -> outerRadius:float -> sides:int -> rings:int -> unit

val glutSolidTorus : innerRadius:float -> outerRadius:float -> sides:int -> rings:int -> unit

val glutWireDodecahedron : unit -> unit

val glutSolidDodecahedron : unit -> unit

val glutWireTeapot : size:float -> unit

val glutSolidTeapot : size:float -> unit

val glutWireOctahedron : unit -> unit

val glutSolidOctahedron : unit -> unit

val glutWireTetrahedron : unit -> unit

val glutSolidTetrahedron : unit -> unit

val glutWireIcosahedron : unit -> unit

val glutSolidIcosahedron : unit -> unit

val glutWireRhombicDodecahedron : unit -> unit

val glutSolidRhombicDodecahedron : unit -> unit

val glutGameModeString : mode:string -> unit

val glutEnterGameMode : unit -> unit

val glutLeaveGameMode : unit -> unit

val glutGameModeGet : game_mode:game_mode -> int