<html><head> <link rel="stylesheet" href="_style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="GL" rel="Chapter" href="GL.html"> <link title="Glu" rel="Chapter" href="Glu.html"> <link title="Glut" rel="Chapter" href="Glut.html"> <link title="VertArray" rel="Chapter" href="VertArray.html"> <link title="GLE" rel="Chapter" href="GLE.html"> <link title="Ftgl" rel="Chapter" href="Ftgl.html"> <link title="Jpeg_loader" rel="Chapter" href="Jpeg_loader.html"> <link title="Png_loader" rel="Chapter" href="Png_loader.html"> <link title="Svg_loader" rel="Chapter" href="Svg_loader.html"> <link title="Genimg_loader" rel="Chapter" href="Genimg_loader.html"> <link title="FunGL" rel="Chapter" href="FunGL.html"> <link title="FunGlut" rel="Chapter" href="FunGlut.html"><title>Glut</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">external</span> glutInit : argv:string array <span class="keywordsign">-></span> string array = <span class="string">"ml_glutinit"</span><br> <span class="keyword">external</span> glutInitWindowPosition : x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutinitwindowposition"</span><br> <span class="keyword">external</span> glutInitWindowSize : width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutinitwindowsize"</span><br> <span class="keyword">type</span> init_mode =<br> <span class="constructor">GLUT_RGBA</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_RGB</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_INDEX</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_SINGLE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_DOUBLE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_ACCUM</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_ALPHA</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_DEPTH</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_STENCIL</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_MULTISAMPLE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_STEREO</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_LUMINANCE</span><br> <span class="keyword">external</span> glutInitDisplayMode : mode:<span class="constructor">Glut</span>.init_mode list <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutinitdisplaymode"</span><br> <span class="keyword">external</span> glutInitDisplayString : string <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutinitdisplaystring"</span><br> <span class="keyword">external</span> glutMainLoop : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutmainloop"</span><br> <span class="keyword">external</span> glutLeaveMainLoop : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutleavemainloop"</span><br> <span class="keyword">type</span> window_id<br> <span class="keyword">external</span> glutCreateWindow : title:string <span class="keywordsign">-></span> <span class="constructor">Glut</span>.window_id<br> = <span class="string">"ml_glutcreatewindow"</span><br> <span class="keyword">external</span> glutSetWindow : win:<span class="constructor">Glut</span>.window_id <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsetwindow"</span><br> <span class="keyword">external</span> glutGetWindow : unit <span class="keywordsign">-></span> <span class="constructor">Glut</span>.window_id = <span class="string">"ml_glutgetwindow"</span><br> <span class="keyword">external</span> glutCreateSubWindow :<br> win:<span class="constructor">Glut</span>.window_id <span class="keywordsign">-></span><br> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> <span class="constructor">Glut</span>.window_id<br> = <span class="string">"ml_glutcreatesubwindow"</span><br> <span class="keyword">external</span> glutDestroyWindow : win:<span class="constructor">Glut</span>.window_id <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutdestroywindow"</span><br> <span class="keyword">external</span> glutPostRedisplay : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutpostredisplay"</span><br> <span class="keyword">external</span> glutSwapBuffers : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutswapbuffers"</span><br> <span class="keyword">external</span> glutPositionWindow : x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutpositionwindow"</span><br> <span class="keyword">external</span> glutReshapeWindow : width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutreshapewindow"</span><br> <span class="keyword">external</span> glutFullScreen : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutfullscreen"</span><br> <span class="keyword">external</span> glutPopWindow : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutpopwindow"</span><br> <span class="keyword">external</span> glutPushWindow : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutpushwindow"</span><br> <span class="keyword">external</span> glutShowWindow : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutshowwindow"</span><br> <span class="keyword">external</span> glutHideWindow : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_gluthidewindow"</span><br> <span class="keyword">external</span> glutIconifyWindow : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_gluticonifywindow"</span><br> <span class="keyword">external</span> glutSetWindowTitle : name:string <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsetwindowtitle"</span><br> <span class="keyword">external</span> glutSetIconTitle : name:string <span class="keywordsign">-></span> unit = <span class="string">"ml_glutseticontitle"</span><br> <span class="keyword">type</span> cursor_type =<br> <span class="constructor">GLUT_CURSOR_RIGHT_ARROW</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_LEFT_ARROW</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_INFO</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_DESTROY</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_HELP</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_CYCLE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_SPRAY</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_WAIT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_TEXT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_CROSSHAIR</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_UP_DOWN</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_LEFT_RIGHT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_TOP_SIDE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_BOTTOM_SIDE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_LEFT_SIDE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_RIGHT_SIDE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_TOP_LEFT_CORNER</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_TOP_RIGHT_CORNER</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_BOTTOM_RIGHT_CORNER</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_BOTTOM_LEFT_CORNER</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_FULL_CROSSHAIR</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_NONE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_CURSOR_INHERIT</span><br> <span class="keyword">external</span> glutSetCursor : cursor:<span class="constructor">Glut</span>.cursor_type <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutsetcursor"</span><br> <span class="keyword">type</span> menu_id<br> <span class="keyword">val</span> glutCreateMenu : menu:(value:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> <span class="constructor">Glut</span>.menu_id<br> <span class="keyword">external</span> glutGetMenu : unit <span class="keywordsign">-></span> <span class="constructor">Glut</span>.menu_id = <span class="string">"ml_glutgetmenu"</span><br> <span class="keyword">external</span> glutSetMenu : menu:<span class="constructor">Glut</span>.menu_id <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsetmenu"</span><br> <span class="keyword">external</span> glutDestroyMenu : menu:<span class="constructor">Glut</span>.menu_id <span class="keywordsign">-></span> unit = <span class="string">"ml_glutdestroymenu"</span><br> <span class="keyword">external</span> glutAddMenuEntry : name:string <span class="keywordsign">-></span> value:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutaddmenuentry"</span><br> <span class="keyword">external</span> glutAddSubMenu : name:string <span class="keywordsign">-></span> menu:<span class="constructor">Glut</span>.menu_id <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutaddsubmenu"</span><br> <span class="keyword">external</span> glutChangeToMenuEntry :<br> entry:int <span class="keywordsign">-></span> name:string <span class="keywordsign">-></span> value:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutchangetomenuentry"</span><br> <span class="keyword">external</span> glutChangeToSubMenu :<br> entry:int <span class="keywordsign">-></span> name:string <span class="keywordsign">-></span> menu:<span class="constructor">Glut</span>.menu_id <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutchangetosubmenu"</span><br> <span class="keyword">external</span> glutRemoveMenuItem : entry:int <span class="keywordsign">-></span> unit = <span class="string">"ml_glutremovemenuitem"</span><br> <span class="keyword">type</span> mouse_button =<br> <span class="constructor">GLUT_LEFT_BUTTON</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_MIDDLE_BUTTON</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_RIGHT_BUTTON</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WHEEL_UP</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WHEEL_DOWN</span><br> <span class="keyword">external</span> glutAttachMenu : button:<span class="constructor">Glut</span>.mouse_button <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutattachmenu"</span><br> <span class="keyword">external</span> glutDetachMenu : button:<span class="constructor">Glut</span>.mouse_button <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutdetachmenu"</span><br> <span class="keyword">val</span> glutDisplayFunc : display:(unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> glutReshapeFunc : reshape:(width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> glutKeyboardFunc :<br> keyboard:(key:char <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> glutKeyboardUpFunc :<br> keyboard_up:(key:char <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">type</span> mouse_button_state = <span class="constructor">GLUT_DOWN</span> <span class="keywordsign">|</span> <span class="constructor">GLUT_UP</span><br> <span class="keyword">val</span> glutMouseFunc :<br> mouse:(button:<span class="constructor">Glut</span>.mouse_button <span class="keywordsign">-></span><br> state:<span class="constructor">Glut</span>.mouse_button_state <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span><br> unit<br> <span class="keyword">val</span> glutMotionFunc : motion:(x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> glutPassiveMotionFunc : passive:(x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">type</span> visibility_state = <span class="constructor">GLUT_NOT_VISIBLE</span> <span class="keywordsign">|</span> <span class="constructor">GLUT_VISIBLE</span><br> <span class="keyword">val</span> glutVisibilityFunc :<br> visibility:(state:<span class="constructor">Glut</span>.visibility_state <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">type</span> entry_state = <span class="constructor">GLUT_LEFT</span> <span class="keywordsign">|</span> <span class="constructor">GLUT_ENTERED</span><br> <span class="keyword">val</span> glutEntryFunc : entry:(state:<span class="constructor">Glut</span>.entry_state <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">type</span> special_key =<br> <span class="constructor">GLUT_KEY_F1</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F2</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F3</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F4</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F5</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F6</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F7</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F8</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F9</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F10</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F11</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_F12</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_LEFT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_UP</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_RIGHT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_DOWN</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_PAGE_UP</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_PAGE_DOWN</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_HOME</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_END</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_KEY_INSERT</span><br> <span class="keyword">val</span> glutSpecialFunc :<br> special:(key:<span class="constructor">Glut</span>.special_key <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> glutSpecialUpFunc :<br> special_up:(key:<span class="constructor">Glut</span>.special_key <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> glutIdleFunc : idle:(unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> glutRemoveIdleFunc : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutremoveidlefunc"</span><br> <span class="keyword">val</span> glutTimerFunc :<br> msecs:int <span class="keywordsign">-></span> timer:(value:<span class="keywordsign">'</span>a <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> value:<span class="keywordsign">'</span>a <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> glutSetColor : cell:int <span class="keywordsign">-></span> r:float <span class="keywordsign">-></span> g:float <span class="keywordsign">-></span> b:float <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutsetcolor"</span><br> <span class="keyword">external</span> glutGetColor : cell:int <span class="keywordsign">-></span> float * float * float<br> = <span class="string">"ml_glutgetcolor"</span><br> <span class="keyword">type</span> get_state =<br> <span class="constructor">GLUT_WINDOW_X</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_Y</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_WIDTH</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_HEIGHT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_BUFFER_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_STENCIL_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_DEPTH_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_RED_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_GREEN_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_BLUE_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_ALPHA_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_ACCUM_RED_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_ACCUM_GREEN_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_ACCUM_BLUE_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_ACCUM_ALPHA_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_DOUBLEBUFFER</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_RGBA</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_PARENT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_NUM_CHILDREN</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_COLORMAP_SIZE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_NUM_SAMPLES</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_STEREO</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_WINDOW_CURSOR</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_SCREEN_WIDTH</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_SCREEN_HEIGHT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_SCREEN_WIDTH_MM</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_SCREEN_HEIGHT_MM</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_MENU_NUM_ITEMS</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_DISPLAY_MODE_POSSIBLE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_INIT_DISPLAY_MODE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_INIT_WINDOW_X</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_INIT_WINDOW_Y</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_INIT_WINDOW_WIDTH</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_INIT_WINDOW_HEIGHT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_ELAPSED_TIME</span><br> <span class="keyword">external</span> glutGet : state:<span class="constructor">Glut</span>.get_state <span class="keywordsign">-></span> int = <span class="string">"ml_glutget"</span><br> <span class="keyword">type</span> glut_device =<br> <span class="constructor">GLUT_HAS_KEYBOARD</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_HAS_MOUSE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_HAS_SPACEBALL</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_HAS_DIAL_AND_BUTTON_BOX</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_HAS_TABLET</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_NUM_MOUSE_BUTTONS</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_NUM_SPACEBALL_BUTTONS</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_NUM_BUTTON_BOX_BUTTONS</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_NUM_DIALS</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_NUM_TABLET_BUTTONS</span><br> <span class="keyword">external</span> glutDeviceGet : device:<span class="constructor">Glut</span>.glut_device <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutdeviceget"</span><br> <span class="keyword">type</span> active_modifier =<br> <span class="constructor">GLUT_ACTIVE_SHIFT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_ACTIVE_CTRL</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_ACTIVE_ALT</span><br> <span class="keyword">external</span> glutGetModifiers : unit <span class="keywordsign">-></span> <span class="constructor">Glut</span>.active_modifier list<br> = <span class="string">"ml_glutgetmodifiers"</span><br> <span class="keyword">external</span> glutGetModifiersB : unit <span class="keywordsign">-></span> bool * bool * bool<br> = <span class="string">"ml_glutgetmodifiers_t"</span><br> <span class="keyword">external</span> glutExtensionSupported : extension:string <span class="keywordsign">-></span> bool<br> = <span class="string">"ml_glutextensionsupported"</span><br> <span class="keyword">type</span> stroke_font = <span class="constructor">GLUT_STROKE_ROMAN</span> <span class="keywordsign">|</span> <span class="constructor">GLUT_STROKE_MONO_ROMAN</span><br> <span class="keyword">type</span> bitmap_font =<br> <span class="constructor">GLUT_BITMAP_9_BY_15</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_BITMAP_8_BY_13</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_BITMAP_TIMES_ROMAN_10</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_BITMAP_TIMES_ROMAN_24</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_BITMAP_HELVETICA_10</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_BITMAP_HELVETICA_12</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_BITMAP_HELVETICA_18</span><br> <span class="keyword">external</span> glutBitmapCharacter : font:<span class="constructor">Glut</span>.bitmap_font <span class="keywordsign">-></span> c:char <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutbitmapcharacter"</span><br> <span class="keyword">external</span> glutBitmapWidth : font:<span class="constructor">Glut</span>.bitmap_font <span class="keywordsign">-></span> c:char <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutbitmapwidth"</span><br> <span class="keyword">external</span> glutStrokeCharacter : font:<span class="constructor">Glut</span>.stroke_font <span class="keywordsign">-></span> c:char <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutstrokecharacter"</span><br> <span class="keyword">external</span> glutStrokeWidth : font:<span class="constructor">Glut</span>.stroke_font <span class="keywordsign">-></span> c:char <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutstrokewidth"</span><br> <span class="keyword">external</span> glutBitmapHeight : font:<span class="constructor">Glut</span>.bitmap_font <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutbitmapheight"</span><br> <span class="keyword">external</span> glutStrokeHeight : font:<span class="constructor">Glut</span>.stroke_font <span class="keywordsign">-></span> float<br> = <span class="string">"ml_glutstrokeheight"</span><br> <span class="keyword">external</span> glutBitmapLength : font:<span class="constructor">Glut</span>.bitmap_font <span class="keywordsign">-></span> str:string <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutbitmaplength"</span><br> <span class="keyword">external</span> glutStrokeLength : font:<span class="constructor">Glut</span>.stroke_font <span class="keywordsign">-></span> str:string <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutstrokelength"</span><br> <span class="keyword">external</span> glutWireSphere : radius:float <span class="keywordsign">-></span> slices:int <span class="keywordsign">-></span> stacks:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutwiresphere"</span><br> <span class="keyword">external</span> glutSolidSphere : radius:float <span class="keywordsign">-></span> slices:int <span class="keywordsign">-></span> stacks:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutsolidsphere"</span><br> <span class="keyword">external</span> glutWireCone :<br> base:float <span class="keywordsign">-></span> height:float <span class="keywordsign">-></span> slices:int <span class="keywordsign">-></span> stacks:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutwirecone"</span><br> <span class="keyword">external</span> glutSolidCone :<br> base:float <span class="keywordsign">-></span> height:float <span class="keywordsign">-></span> slices:int <span class="keywordsign">-></span> stacks:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutsolidcone"</span><br> <span class="keyword">external</span> glutWireCube : size:float <span class="keywordsign">-></span> unit = <span class="string">"ml_glutwirecube"</span><br> <span class="keyword">external</span> glutSolidCube : size:float <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsolidcube"</span><br> <span class="keyword">external</span> glutWireTorus :<br> innerRadius:float <span class="keywordsign">-></span> outerRadius:float <span class="keywordsign">-></span> sides:int <span class="keywordsign">-></span> rings:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutwiretorus"</span><br> <span class="keyword">external</span> glutSolidTorus :<br> innerRadius:float <span class="keywordsign">-></span> outerRadius:float <span class="keywordsign">-></span> sides:int <span class="keywordsign">-></span> rings:int <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutsolidtorus"</span><br> <span class="keyword">external</span> glutWireDodecahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutwiredodecahedron"</span><br> <span class="keyword">external</span> glutSolidDodecahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsoliddodecahedron"</span><br> <span class="keyword">external</span> glutWireTeapot : size:float <span class="keywordsign">-></span> unit = <span class="string">"ml_glutwireteapot"</span><br> <span class="keyword">external</span> glutSolidTeapot : size:float <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsolidteapot"</span><br> <span class="keyword">external</span> glutWireOctahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutwireoctahedron"</span><br> <span class="keyword">external</span> glutSolidOctahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsolidoctahedron"</span><br> <span class="keyword">external</span> glutWireTetrahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutwiretetrahedron"</span><br> <span class="keyword">external</span> glutSolidTetrahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsolidtetrahedron"</span><br> <span class="keyword">external</span> glutWireIcosahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutwireicosahedron"</span><br> <span class="keyword">external</span> glutSolidIcosahedron : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutsolidicosahedron"</span><br> <span class="keyword">external</span> glutWireRhombicDodecahedron : unit <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutwirerhombicdodecahedron"</span><br> <span class="keyword">external</span> glutSolidRhombicDodecahedron : unit <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_glutsolidrhombicdodecahedron"</span><br> <span class="keyword">external</span> glutGameModeString : mode:string <span class="keywordsign">-></span> unit = <span class="string">"ml_glutgamemodestring"</span><br> <span class="keyword">external</span> glutEnterGameMode : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutentergamemode"</span><br> <span class="keyword">external</span> glutLeaveGameMode : unit <span class="keywordsign">-></span> unit = <span class="string">"ml_glutleavegamemode"</span><br> <span class="keyword">type</span> game_mode =<br> <span class="constructor">GLUT_GAME_MODE_ACTIVE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_GAME_MODE_POSSIBLE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_GAME_MODE_WIDTH</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_GAME_MODE_HEIGHT</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_GAME_MODE_PIXEL_DEPTH</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_GAME_MODE_REFRESH_RATE</span><br> <span class="keywordsign">|</span> <span class="constructor">GLUT_GAME_MODE_DISPLAY_CHANGED</span><br> <span class="keyword">external</span> glutGameModeGet : game_mode:<span class="constructor">Glut</span>.game_mode <span class="keywordsign">-></span> int<br> = <span class="string">"ml_glutgamemodeget"</span><br> <span class="keyword">end</span></code></body></html>