glMLite
  1. Overview
  2. Docs
val glutInit : argv:string array -> string array
val glutInitWindowPosition : x:int -> y:int -> unit
val glutInitWindowSize : width:int -> height:int -> unit
type init_mode =
  1. | GLUT_RGBA
  2. | GLUT_RGB
  3. | GLUT_INDEX
  4. | GLUT_SINGLE
  5. | GLUT_DOUBLE
  6. | GLUT_ACCUM
  7. | GLUT_ALPHA
  8. | GLUT_DEPTH
  9. | GLUT_STENCIL
  10. | GLUT_MULTISAMPLE
  11. | GLUT_STEREO
  12. | GLUT_LUMINANCE
val glutInitDisplayMode : mode:init_mode list -> unit
val glutInitDisplayString : string -> unit
val glutInitContextVersion : major:int -> minor:int -> unit
type context_profile =
  1. | GLUT_CORE_PROFILE
  2. | GLUT_COMPATIBILITY_PROFILE
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
type cursor_type =
  1. | GLUT_CURSOR_RIGHT_ARROW
  2. | GLUT_CURSOR_LEFT_ARROW
  3. | GLUT_CURSOR_INFO
  4. | GLUT_CURSOR_DESTROY
  5. | GLUT_CURSOR_HELP
  6. | GLUT_CURSOR_CYCLE
  7. | GLUT_CURSOR_SPRAY
  8. | GLUT_CURSOR_WAIT
  9. | GLUT_CURSOR_TEXT
  10. | GLUT_CURSOR_CROSSHAIR
  11. | GLUT_CURSOR_UP_DOWN
  12. | GLUT_CURSOR_LEFT_RIGHT
  13. | GLUT_CURSOR_TOP_SIDE
  14. | GLUT_CURSOR_BOTTOM_SIDE
  15. | GLUT_CURSOR_LEFT_SIDE
  16. | GLUT_CURSOR_RIGHT_SIDE
  17. | GLUT_CURSOR_TOP_LEFT_CORNER
  18. | GLUT_CURSOR_TOP_RIGHT_CORNER
  19. | GLUT_CURSOR_BOTTOM_RIGHT_CORNER
  20. | GLUT_CURSOR_BOTTOM_LEFT_CORNER
  21. | GLUT_CURSOR_FULL_CROSSHAIR
  22. | GLUT_CURSOR_NONE
  23. | GLUT_CURSOR_INHERIT
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
type mouse_button =
  1. | GLUT_LEFT_BUTTON
  2. | GLUT_MIDDLE_BUTTON
  3. | GLUT_RIGHT_BUTTON
  4. | GLUT_WHEEL_UP
  5. | GLUT_WHEEL_DOWN
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
type mouse_button_state =
  1. | GLUT_DOWN
  2. | GLUT_UP
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
type visibility_state =
  1. | GLUT_NOT_VISIBLE
  2. | GLUT_VISIBLE
val glutVisibilityFunc : visibility:(state:visibility_state -> unit) -> unit
type entry_state =
  1. | GLUT_LEFT
  2. | GLUT_ENTERED
val glutEntryFunc : entry:(state:entry_state -> unit) -> unit
type special_key =
  1. | GLUT_KEY_F1
  2. | GLUT_KEY_F2
  3. | GLUT_KEY_F3
  4. | GLUT_KEY_F4
  5. | GLUT_KEY_F5
  6. | GLUT_KEY_F6
  7. | GLUT_KEY_F7
  8. | GLUT_KEY_F8
  9. | GLUT_KEY_F9
  10. | GLUT_KEY_F10
  11. | GLUT_KEY_F11
  12. | GLUT_KEY_F12
  13. | GLUT_KEY_LEFT
  14. | GLUT_KEY_UP
  15. | GLUT_KEY_RIGHT
  16. | GLUT_KEY_DOWN
  17. | GLUT_KEY_PAGE_UP
  18. | GLUT_KEY_PAGE_DOWN
  19. | GLUT_KEY_HOME
  20. | GLUT_KEY_END
  21. | GLUT_KEY_INSERT
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
type get_state =
  1. | GLUT_WINDOW_X
  2. | GLUT_WINDOW_Y
  3. | GLUT_WINDOW_WIDTH
  4. | GLUT_WINDOW_HEIGHT
  5. | GLUT_WINDOW_BUFFER_SIZE
  6. | GLUT_WINDOW_STENCIL_SIZE
  7. | GLUT_WINDOW_DEPTH_SIZE
  8. | GLUT_WINDOW_RED_SIZE
  9. | GLUT_WINDOW_GREEN_SIZE
  10. | GLUT_WINDOW_BLUE_SIZE
  11. | GLUT_WINDOW_ALPHA_SIZE
  12. | GLUT_WINDOW_ACCUM_RED_SIZE
  13. | GLUT_WINDOW_ACCUM_GREEN_SIZE
  14. | GLUT_WINDOW_ACCUM_BLUE_SIZE
  15. | GLUT_WINDOW_ACCUM_ALPHA_SIZE
  16. | GLUT_WINDOW_DOUBLEBUFFER
  17. | GLUT_WINDOW_RGBA
  18. | GLUT_WINDOW_PARENT
  19. | GLUT_WINDOW_NUM_CHILDREN
  20. | GLUT_WINDOW_COLORMAP_SIZE
  21. | GLUT_WINDOW_NUM_SAMPLES
  22. | GLUT_WINDOW_STEREO
  23. | GLUT_WINDOW_CURSOR
  24. | GLUT_SCREEN_WIDTH
  25. | GLUT_SCREEN_HEIGHT
  26. | GLUT_SCREEN_WIDTH_MM
  27. | GLUT_SCREEN_HEIGHT_MM
  28. | GLUT_MENU_NUM_ITEMS
  29. | GLUT_DISPLAY_MODE_POSSIBLE
  30. | GLUT_INIT_DISPLAY_MODE
  31. | GLUT_INIT_WINDOW_X
  32. | GLUT_INIT_WINDOW_Y
  33. | GLUT_INIT_WINDOW_WIDTH
  34. | GLUT_INIT_WINDOW_HEIGHT
  35. | GLUT_ELAPSED_TIME
val glutGet : state:get_state -> int
type glut_device =
  1. | GLUT_HAS_KEYBOARD
  2. | GLUT_HAS_MOUSE
  3. | GLUT_HAS_SPACEBALL
  4. | GLUT_HAS_DIAL_AND_BUTTON_BOX
  5. | GLUT_HAS_TABLET
  6. | GLUT_NUM_MOUSE_BUTTONS
  7. | GLUT_NUM_SPACEBALL_BUTTONS
  8. | GLUT_NUM_BUTTON_BOX_BUTTONS
  9. | GLUT_NUM_DIALS
  10. | GLUT_NUM_TABLET_BUTTONS
val glutDeviceGet : device:glut_device -> int
type active_modifier =
  1. | GLUT_ACTIVE_SHIFT
  2. | GLUT_ACTIVE_CTRL
  3. | GLUT_ACTIVE_ALT
val glutGetModifiers : unit -> active_modifier list
val glutGetModifiersB : unit -> bool * bool * bool
val glutExtensionSupported : extension:string -> bool
type stroke_font =
  1. | GLUT_STROKE_ROMAN
  2. | GLUT_STROKE_MONO_ROMAN
type bitmap_font =
  1. | GLUT_BITMAP_9_BY_15
  2. | GLUT_BITMAP_8_BY_13
  3. | GLUT_BITMAP_TIMES_ROMAN_10
  4. | GLUT_BITMAP_TIMES_ROMAN_24
  5. | GLUT_BITMAP_HELVETICA_10
  6. | GLUT_BITMAP_HELVETICA_12
  7. | GLUT_BITMAP_HELVETICA_18
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
type game_mode =
  1. | GLUT_GAME_MODE_ACTIVE
  2. | GLUT_GAME_MODE_POSSIBLE
  3. | GLUT_GAME_MODE_WIDTH
  4. | GLUT_GAME_MODE_HEIGHT
  5. | GLUT_GAME_MODE_PIXEL_DEPTH
  6. | GLUT_GAME_MODE_REFRESH_RATE
  7. | GLUT_GAME_MODE_DISPLAY_CHANGED
val glutGameModeGet : game_mode:game_mode -> int