| 1 | #require <GL/gl.sbp>
|
|---|
| 2 | #require <GL/glu.sbp>
|
|---|
| 3 |
|
|---|
| 4 | Const GLUT_XLIB_IMPLEMENTATION = 13
|
|---|
| 5 |
|
|---|
| 6 | Const GLUT_RGB = 0
|
|---|
| 7 | Const GLUT_RGBA = GLUT_RGB
|
|---|
| 8 | Const GLUT_INDEX = 1
|
|---|
| 9 | Const GLUT_SINGLE = 0
|
|---|
| 10 | Const GLUT_DOUBLE = 2
|
|---|
| 11 | Const GLUT_ACCUM = 4
|
|---|
| 12 | Const GLUT_ALPHA = 8
|
|---|
| 13 | Const GLUT_DEPTH = 16
|
|---|
| 14 | Const GLUT_STENCIL = 32
|
|---|
| 15 | Const GLUT_MULTISAMPLE = 128
|
|---|
| 16 | Const GLUT_STEREO = 256
|
|---|
| 17 | Const GLUT_LUMINANCE = 512
|
|---|
| 18 |
|
|---|
| 19 | Const GLUT_LEFT_BUTTON = 0
|
|---|
| 20 | Const GLUT_MIDDLE_BUTTON = 1
|
|---|
| 21 | Const GLUT_RIGHT_BUTTON = 2
|
|---|
| 22 |
|
|---|
| 23 | Const GLUT_DOWN = 0
|
|---|
| 24 | Const GLUT_UP = 1
|
|---|
| 25 |
|
|---|
| 26 | Const GLUT_KEY_F1 = 1
|
|---|
| 27 | Const GLUT_KEY_F2 = 2
|
|---|
| 28 | Const GLUT_KEY_F3 = 3
|
|---|
| 29 | Const GLUT_KEY_F4 = 4
|
|---|
| 30 | Const GLUT_KEY_F5 = 5
|
|---|
| 31 | Const GLUT_KEY_F6 = 6
|
|---|
| 32 | Const GLUT_KEY_F7 = 7
|
|---|
| 33 | Const GLUT_KEY_F8 = 8
|
|---|
| 34 | Const GLUT_KEY_F9 = 9
|
|---|
| 35 | Const GLUT_KEY_F10 = 10
|
|---|
| 36 | Const GLUT_KEY_F11 = 11
|
|---|
| 37 | Const GLUT_KEY_F12 = 12
|
|---|
| 38 | Const GLUT_KEY_LEFT = 100
|
|---|
| 39 | Const GLUT_KEY_UP = 101
|
|---|
| 40 | Const GLUT_KEY_RIGHT = 102
|
|---|
| 41 | Const GLUT_KEY_DOWN = 103
|
|---|
| 42 | Const GLUT_KEY_PAGE_UP = 104
|
|---|
| 43 | Const GLUT_KEY_PAGE_DOWN = 105
|
|---|
| 44 | Const GLUT_KEY_HOME = 106
|
|---|
| 45 | Const GLUT_KEY_END = 107
|
|---|
| 46 | Const GLUT_KEY_INSERT = 108
|
|---|
| 47 |
|
|---|
| 48 | Const GLUT_LEFT = 0
|
|---|
| 49 | Const GLUT_ENTERED = 1
|
|---|
| 50 |
|
|---|
| 51 | Const GLUT_MENU_NOT_IN_USE = 0
|
|---|
| 52 | Const GLUT_MENU_IN_USE = 1
|
|---|
| 53 |
|
|---|
| 54 | Const GLUT_NOT_VISIBLE = 0
|
|---|
| 55 | Const GLUT_VISIBLE = 1
|
|---|
| 56 |
|
|---|
| 57 | Const GLUT_HIDDEN = 0
|
|---|
| 58 | Const GLUT_FULLY_RETAINED = 1
|
|---|
| 59 | Const GLUT_PARTIALLY_RETAINED = 2
|
|---|
| 60 | Const GLUT_FULLY_COVERED = 3
|
|---|
| 61 |
|
|---|
| 62 | Const GLUT_RED = 0
|
|---|
| 63 | Const GLUT_GREEN = 1
|
|---|
| 64 | Const GLUT_BLUE = 2
|
|---|
| 65 |
|
|---|
| 66 | Const GLUT_NORMAL = 0
|
|---|
| 67 | Const GLUT_OVERLAY = 1
|
|---|
| 68 |
|
|---|
| 69 | Const GLUT_STROKE_ROMAN = 0
|
|---|
| 70 | Const GLUT_STROKE_MONO_ROMAN = 1
|
|---|
| 71 |
|
|---|
| 72 | Const GLUT_BITMAP_9_BY_15 = 2
|
|---|
| 73 | Const GLUT_BITMAP_8_BY_13 = 3
|
|---|
| 74 | Const GLUT_BITMAP_TIMES_ROMAN_10 = 4
|
|---|
| 75 | Const GLUT_BITMAP_TIMES_ROMAN_24 = 5
|
|---|
| 76 | Const GLUT_BITMAP_HELVETICA_10 = 6
|
|---|
| 77 | Const GLUT_BITMAP_HELVETICA_12 = 7
|
|---|
| 78 | Const GLUT_BITMAP_HELVETICA_18 = 8
|
|---|
| 79 |
|
|---|
| 80 | Dim glutStrokeRoman As VoidPtr
|
|---|
| 81 | Dim glutStrokeMonoRoman As VoidPtr
|
|---|
| 82 |
|
|---|
| 83 | Dim glutBitmap9By15 As VoidPtr
|
|---|
| 84 | Dim glutBitmap8By13 As VoidPtr
|
|---|
| 85 | Dim glutBitmapTimesRoman10 As VoidPtr
|
|---|
| 86 | Dim glutBitmapTimesRoman24 As VoidPtr
|
|---|
| 87 | Dim glutBitmapHelvetica10 As VoidPtr
|
|---|
| 88 | Dim glutBitmapHelvetica12 As VoidPtr
|
|---|
| 89 | Dim glutBitmapHelvetica18 As VoidPtr
|
|---|
| 90 |
|
|---|
| 91 | Const GLUT_WINDOW_X = 100
|
|---|
| 92 | Const GLUT_WINDOW_Y = 101
|
|---|
| 93 | Const GLUT_WINDOW_WIDTH = 102
|
|---|
| 94 | Const GLUT_WINDOW_HEIGHT = 103
|
|---|
| 95 | Const GLUT_WINDOW_BUFFER_SIZE = 104
|
|---|
| 96 | Const GLUT_WINDOW_STENCIL_SIZE = 105
|
|---|
| 97 | Const GLUT_WINDOW_DEPTH_SIZE = 106
|
|---|
| 98 | Const GLUT_WINDOW_RED_SIZE = 107
|
|---|
| 99 | Const GLUT_WINDOW_GREEN_SIZE = 108
|
|---|
| 100 | Const GLUT_WINDOW_BLUE_SIZE = 109
|
|---|
| 101 | Const GLUT_WINDOW_ALPHA_SIZE = 110
|
|---|
| 102 | Const GLUT_WINDOW_ACCUM_RED_SIZE = 111
|
|---|
| 103 | Const GLUT_WINDOW_ACCUM_GREEN_SIZE = 112
|
|---|
| 104 | Const GLUT_WINDOW_ACCUM_BLUE_SIZE = 113
|
|---|
| 105 | Const GLUT_WINDOW_ACCUM_ALPHA_SIZE = 114
|
|---|
| 106 | Const GLUT_WINDOW_DOUBLEBUFFER = 115
|
|---|
| 107 | Const GLUT_WINDOW_RGBA = 116
|
|---|
| 108 | Const GLUT_WINDOW_PARENT = 117
|
|---|
| 109 | Const GLUT_WINDOW_NUM_CHILDREN = 118
|
|---|
| 110 | Const GLUT_WINDOW_COLORMAP_SIZE = 119
|
|---|
| 111 | Const GLUT_WINDOW_NUM_SAMPLES = 120
|
|---|
| 112 | Const GLUT_WINDOW_STEREO = 121
|
|---|
| 113 | Const GLUT_WINDOW_CURSOR = 122
|
|---|
| 114 | Const GLUT_SCREEN_WIDTH = 200
|
|---|
| 115 | Const GLUT_SCREEN_HEIGHT = 201
|
|---|
| 116 | Const GLUT_SCREEN_WIDTH_MM = 202
|
|---|
| 117 | Const GLUT_SCREEN_HEIGHT_MM = 203
|
|---|
| 118 | Const GLUT_MENU_NUM_ITEMS = 300
|
|---|
| 119 | Const GLUT_DISPLAY_MODE_POSSIBLE = 400
|
|---|
| 120 | Const GLUT_INIT_WINDOW_X = 500
|
|---|
| 121 | Const GLUT_INIT_WINDOW_Y = 501
|
|---|
| 122 | Const GLUT_INIT_WINDOW_WIDTH = 502
|
|---|
| 123 | Const GLUT_INIT_WINDOW_HEIGHT = 503
|
|---|
| 124 | Const GLUT_INIT_DISPLAY_MODE = 504
|
|---|
| 125 | Const GLUT_ELAPSED_TIME = 700
|
|---|
| 126 | Const GLUT_WINDOW_FORMAT_ID = 123
|
|---|
| 127 |
|
|---|
| 128 | Const GLUT_HAS_KEYBOARD = 600
|
|---|
| 129 | Const GLUT_HAS_MOUSE = 601
|
|---|
| 130 | Const GLUT_HAS_SPACEBALL = 602
|
|---|
| 131 | Const GLUT_HAS_DIAL_AND_BUTTON_BOX = 603
|
|---|
| 132 | Const GLUT_HAS_TABLET = 604
|
|---|
| 133 | Const GLUT_NUM_MOUSE_BUTTONS = 605
|
|---|
| 134 | Const GLUT_NUM_SPACEBALL_BUTTONS = 606
|
|---|
| 135 | Const GLUT_NUM_BUTTON_BOX_BUTTONS = 607
|
|---|
| 136 | Const GLUT_NUM_DIALS = 608
|
|---|
| 137 | Const GLUT_NUM_TABLET_BUTTONS = 609
|
|---|
| 138 | Const GLUT_DEVICE_IGNORE_KEY_REPEAT = 610
|
|---|
| 139 | Const GLUT_DEVICE_KEY_REPEAT = 611
|
|---|
| 140 | Const GLUT_HAS_JOYSTICK = 612
|
|---|
| 141 | Const GLUT_OWNS_JOYSTICK = 613
|
|---|
| 142 | Const GLUT_JOYSTICK_BUTTONS = 614
|
|---|
| 143 | Const GLUT_JOYSTICK_AXES = 615
|
|---|
| 144 | Const GLUT_JOYSTICK_POLL_RATE = 616
|
|---|
| 145 |
|
|---|
| 146 | Const GLUT_OVERLAY_POSSIBLE = 800
|
|---|
| 147 | Const GLUT_LAYER_IN_USE = 801
|
|---|
| 148 | Const GLUT_HAS_OVERLAY = 802
|
|---|
| 149 | Const GLUT_TRANSPARENT_INDEX = 803
|
|---|
| 150 | Const GLUT_NORMAL_DAMAGED = 804
|
|---|
| 151 | Const GLUT_OVERLAY_DAMAGED = 805
|
|---|
| 152 |
|
|---|
| 153 | Const GLUT_VIDEO_RESIZE_POSSIBLE = 900
|
|---|
| 154 | Const GLUT_VIDEO_RESIZE_IN_USE = 901
|
|---|
| 155 | Const GLUT_VIDEO_RESIZE_X_DELTA = 902
|
|---|
| 156 | Const GLUT_VIDEO_RESIZE_Y_DELTA = 903
|
|---|
| 157 | Const GLUT_VIDEO_RESIZE_WIDTH_DELTA = 904
|
|---|
| 158 | Const GLUT_VIDEO_RESIZE_HEIGHT_DELTA = 905
|
|---|
| 159 | Const GLUT_VIDEO_RESIZE_X = 906
|
|---|
| 160 | Const GLUT_VIDEO_RESIZE_Y = 907
|
|---|
| 161 | Const GLUT_VIDEO_RESIZE_WIDTH = 908
|
|---|
| 162 | Const GLUT_VIDEO_RESIZE_HEIGHT = 909
|
|---|
| 163 |
|
|---|
| 164 | Const GLUT_ACTIVE_SHIFT = 1
|
|---|
| 165 | Const GLUT_ACTIVE_CTRL = 2
|
|---|
| 166 | Const GLUT_ACTIVE_ALT = 4
|
|---|
| 167 |
|
|---|
| 168 | Const GLUT_CURSOR_RIGHT_ARROW = 0
|
|---|
| 169 | Const GLUT_CURSOR_LEFT_ARROW = 1
|
|---|
| 170 | Const GLUT_CURSOR_INFO = 2
|
|---|
| 171 | Const GLUT_CURSOR_DESTROY = 3
|
|---|
| 172 | Const GLUT_CURSOR_HELP = 4
|
|---|
| 173 | Const GLUT_CURSOR_CYCLE = 5
|
|---|
| 174 | Const GLUT_CURSOR_SPRAY = 6
|
|---|
| 175 | Const GLUT_CURSOR_WAIT = 7
|
|---|
| 176 | Const GLUT_CURSOR_TEXT = 8
|
|---|
| 177 | Const GLUT_CURSOR_CROSSHAIR = 9
|
|---|
| 178 | Const GLUT_CURSOR_UP_DOWN = 10
|
|---|
| 179 | Const GLUT_CURSOR_LEFT_RIGHT = 11
|
|---|
| 180 | Const GLUT_CURSOR_TOP_SIDE = 12
|
|---|
| 181 | Const GLUT_CURSOR_BOTTOM_SIDE = 13
|
|---|
| 182 | Const GLUT_CURSOR_LEFT_SIDE = 14
|
|---|
| 183 | Const GLUT_CURSOR_RIGHT_SIDE = 15
|
|---|
| 184 | Const GLUT_CURSOR_TOP_LEFT_CORNER = 16
|
|---|
| 185 | Const GLUT_CURSOR_TOP_RIGHT_CORNER = 17
|
|---|
| 186 | Const GLUT_CURSOR_BOTTOM_RIGHT_CORNER = 18
|
|---|
| 187 | Const GLUT_CURSOR_BOTTOM_LEFT_CORNER = 19
|
|---|
| 188 | Const GLUT_CURSOR_INHERIT = 100
|
|---|
| 189 | Const GLUT_CURSOR_NONE = 101
|
|---|
| 190 | Const GLUT_CURSOR_FULL_CROSSHAIR = 102
|
|---|
| 191 |
|
|---|
| 192 | Declare Sub glutInit Lib "glut32" (argcp As *Long, argv As *PSTR)
|
|---|
| 193 | Declare Sub glutInitDisplayMode Lib "glut32" (mode As DWord)
|
|---|
| 194 | Declare Sub glutInitDisplayString Lib "glut32" (pstring As PSTR)
|
|---|
| 195 | Declare Sub glutInitWindowPosition Lib "glut32" (x As Long, y As Long)
|
|---|
| 196 | Declare Sub glutInitWindowSize Lib "glut32" (width As Long, height As Long)
|
|---|
| 197 | Declare Sub glutMainLoop Lib "glut32" ()
|
|---|
| 198 | Declare Function glutCreateWindow Lib "glut32" (title As PSTR) As Long
|
|---|
| 199 | Declare Function glutCreateSubWindow Lib "glut32" (win As Long, x As Long, y As Long, width As Long, height As Long) As Long
|
|---|
| 200 | Declare Sub glutDestroyWindow Lib "glut32" (win As Long)
|
|---|
| 201 | Declare Sub glutPostRedisplay Lib "glut32" ()
|
|---|
| 202 | Declare Sub glutPostWindowRedisplay Lib "glut32" (win As Long)
|
|---|
| 203 | Declare Sub glutSwapBuffers Lib "glut32" ()
|
|---|
| 204 | Declare Function glutGetWindow Lib "glut32" () As Long
|
|---|
| 205 | Declare Sub glutSetWindow Lib "glut32" (win As Long)
|
|---|
| 206 | Declare Sub glutSetWindowTitle Lib "glut32" (title As PSTR)
|
|---|
| 207 | Declare Sub glutSetIconTitle Lib "glut32" (title As PSTR)
|
|---|
| 208 | Declare Sub glutPositionWindow Lib "glut32" (x As Long, y As Long)
|
|---|
| 209 | Declare Sub glutReshapeWindow Lib "glut32" (width As Long, height As Long)
|
|---|
| 210 | Declare Sub glutPopWindow Lib "glut32" ()
|
|---|
| 211 | Declare Sub glutPushWindow Lib "glut32" ()
|
|---|
| 212 | Declare Sub glutIconifyWindow Lib "glut32" ()
|
|---|
| 213 | Declare Sub glutShowWindow Lib "glut32" ()
|
|---|
| 214 | Declare Sub glutHideWindow Lib "glut32" ()
|
|---|
| 215 | Declare Sub glutFullScreen Lib "glut32" ()
|
|---|
| 216 | Declare Sub glutSetCursor Lib "glut32" (cursor As Long)
|
|---|
| 217 | Declare Sub glutWarpPointer Lib "glut32" (x As Long, y As Long)
|
|---|
| 218 | Declare Sub glutEstablishOverlay Lib "glut32" ()
|
|---|
| 219 | Declare Sub glutRemoveOverlay Lib "glut32" ()
|
|---|
| 220 | Declare Sub glutUseLayer Lib "glut32" (layer As GLenum)
|
|---|
| 221 | Declare Sub glutPostOverlayRedisplay Lib "glut32" ()
|
|---|
| 222 | Declare Sub glutPostWindowOverlayRedisplay Lib "glut32" (win As Long)
|
|---|
| 223 | Declare Sub glutShowOverlay Lib "glut32" ()
|
|---|
| 224 | Declare Sub glutHideOverlay Lib "glut32" ()
|
|---|
| 225 | Declare Function glutCreateMenu Lib "glut32" (i As VoidPtr) As Long
|
|---|
| 226 | Declare Sub glutDestroyMenu Lib "glut32" (menu As Long)
|
|---|
| 227 | Declare Function glutGetMenu Lib "glut32" () As Long
|
|---|
| 228 | Declare Sub glutSetMenu Lib "glut32" (menu As Long)
|
|---|
| 229 | Declare Sub glutAddMenuEntry Lib "glut32" (label As PSTR, value As Long)
|
|---|
| 230 | Declare Sub glutAddSubMenu Lib "glut32" (label As PSTR, submenu As Long)
|
|---|
| 231 | Declare Sub glutChangeToMenuEntry Lib "glut32" (item As Long, label As PSTR, value As Long)
|
|---|
| 232 | Declare Sub glutChangeToSubMenu Lib "glut32" (item As Long, label As PSTR, submenu As Long)
|
|---|
| 233 | Declare Sub glutRemoveMenuItem Lib "glut32" (item As Long)
|
|---|
| 234 | Declare Sub glutAttachMenu Lib "glut32" (button As Long)
|
|---|
| 235 | Declare Sub glutDetachMenu Lib "glut32" (button As Long)
|
|---|
| 236 | TypeDef LPDISPLAYFUNC = *Sub()
|
|---|
| 237 | Declare Sub glutDisplayFunc Lib "glut32" (func As LPDISPLAYFUNC)
|
|---|
| 238 | TypeDef LPRESHAPEFUNC = *Sub(width As Long, height As Long)
|
|---|
| 239 | Declare Sub glutReshapeFunc Lib "glut32" (func As LPRESHAPEFUNC)
|
|---|
| 240 | TypeDef LPKEYBOARDFUNC = *Sub(key As Byte, x As Long, y As Long)
|
|---|
| 241 | Declare Sub glutKeyboardFunc Lib "glut32" (func As LPKEYBOARDFUNC)
|
|---|
| 242 | TypeDef LPMOUSEFUNC = *Sub(button As Long, state As Long, x As Long, y As Long)
|
|---|
| 243 | Declare Sub glutMouseFunc Lib "glut32" (func As LPMOUSEFUNC)
|
|---|
| 244 | TypeDef LPMOTIONFUNC = *Sub(x As Long, y As Long)
|
|---|
| 245 | Declare Sub glutMotionFunc Lib "glut32" (func As LPMOTIONFUNC)
|
|---|
| 246 | TypeDef LPPASSIVEMOTIONFUNC = *Sub(x As Long, y As Long)
|
|---|
| 247 | Declare Sub glutPassiveMotionFunc Lib "glut32" (func As LPPASSIVEMOTIONFUNC)
|
|---|
| 248 | TypeDef LPENTRYFUNC = *Sub(state As Long)
|
|---|
| 249 | Declare Sub glutEntryFunc Lib "glut32" (func As LPENTRYFUNC)
|
|---|
| 250 | TypeDef LPVISIBILITYFUNC = *Sub(state As Long)
|
|---|
| 251 | Declare Sub glutVisibilityFunc Lib "glut32" (func As LPVISIBILITYFUNC)
|
|---|
| 252 | TypeDef LPIDLEFUNC = *Sub()
|
|---|
| 253 | Declare Sub glutIdleFunc Lib "glut32" (func As LPIDLEFUNC)
|
|---|
| 254 | TypeDef LPTIMERFUNC = *Sub(value As Long)
|
|---|
| 255 | Declare Sub glutTimerFunc Lib "glut32" (millis As DWord, func As LPTIMERFUNC, value As Long)
|
|---|
| 256 | TypeDef LPMENUSTATEFUNC = *Sub(state As Long)
|
|---|
| 257 | Declare Sub glutMenuStateFunc Lib "glut32" (func As LPMENUSTATEFUNC)
|
|---|
| 258 | TypeDef LPSPECIALFUNC = *Sub(int key, x As Long, y As Long)
|
|---|
| 259 | Declare Sub glutSpecialFunc Lib "glut32" (func As LPSPECIALFUNC)
|
|---|
| 260 | TypeDef LPSPACEBALLMOTIONFUNC = *Sub(x As Long, y As Long, int z)
|
|---|
| 261 | Declare Sub glutSpaceballMotionFunc Lib "glut32" (func As LPSPACEBALLMOTIONFUNC)
|
|---|
| 262 | TypeDef LPSPACEBALLROTATEFUNC = *Sub(x As Long, y As Long, int z)
|
|---|
| 263 | Declare Sub glutSpaceballRotateFunc Lib "glut32" (func As LPSPACEBALLROTATEFUNC)
|
|---|
| 264 | TypeDef LPSPACEBALLBUTTONFUNC = *Sub(button As Long, state As Long)
|
|---|
| 265 | Declare Sub glutSpaceballButtonFunc Lib "glut32" (func As LPSPACEBALLBUTTONFUNC)
|
|---|
| 266 | TypeDef LPBUTTONBOXFUNC = *Sub(button As Long, state As Long)
|
|---|
| 267 | Declare Sub glutButtonBoxFunc Lib "glut32" (func As LPBUTTONBOXFUNC)
|
|---|
| 268 | TypeDef LPDIALSFUNC = *Sub(dial As Long, value As Long)
|
|---|
| 269 | Declare Sub glutDialsFunc Lib "glut32" (func As LPDIALSFUNC)
|
|---|
| 270 | TypeDef LPTABLETMOTIONFUNC = *Sub(x As Long, y As Long)
|
|---|
| 271 | Declare Sub glutTabletMotionFunc Lib "glut32" (func As LPTABLETMOTIONFUNC)
|
|---|
| 272 | TypeDef LPTABLETBUTTONFUNC = *Sub(button As Long, state As Long, x As Long, y As Long)
|
|---|
| 273 | Declare Sub glutTabletButtonFunc Lib "glut32" (func As LPTABLETBUTTONFUNC)
|
|---|
| 274 | TypeDef LPMENUSTATUSFUNC = *Sub(int status, x As Long, y As Long)
|
|---|
| 275 | Declare Sub glutMenuStatusFunc Lib "glut32" (func As LPMENUSTATUSFUNC)
|
|---|
| 276 | TypeDef LPOVERLAYDISPLAYFUNC = *Sub()
|
|---|
| 277 | Declare Sub glutOverlayDisplayFunc Lib "glut32" (func As LPOVERLAYDISPLAYFUNC)
|
|---|
| 278 | TypeDef LPWINDOWSTATUSFUNC = *Sub(state As Long)
|
|---|
| 279 | Declare Sub glutWindowStatusFunc Lib "glut32" (func As LPWINDOWSTATUSFUNC)
|
|---|
| 280 | TypeDef LPKEYBOARDUPFUNC = *Sub(key As Byte, x As Long, y As Long)
|
|---|
| 281 | Declare Sub glutKeyboardUpFunc Lib "glut32" (func As LPKEYBOARDUPFUNC)
|
|---|
| 282 | TypeDef LPSPECIALUPFUNC = *Sub(int key, x As Long, y As Long)
|
|---|
| 283 | Declare Sub glutSpecialUpFunc Lib "glut32" (func As LPSPECIALUPFUNC)
|
|---|
| 284 | TypeDef LPJOYSTICKFUNC = *Sub(unsigned button As LongMask, x As Long, y As Long, int z)
|
|---|
| 285 | Declare Sub glutJoystickFunc Lib "glut32" (func As LPJOYSTICKFUNC, pollInterval As Long)
|
|---|
| 286 | Declare Sub glutSetColor Lib "glut32" (i As Long, red As GLfloat, green As GLfloat, blue As GLfloat)
|
|---|
| 287 | Declare Function glutGetColor Lib "glut32" (ndx As Long, component As Long) As GLfloat
|
|---|
| 288 | Declare Sub glutCopyColormap Lib "glut32" (win As Long)
|
|---|
| 289 | Declare Function glutGet Lib "glut32" (type_ As GLenum) As Long
|
|---|
| 290 | Declare Function glutDeviceGet Lib "glut32" (type_ As GLenum) As Long
|
|---|
| 291 | Declare Function glutExtensionSupported Lib "glut32" (name As PSTR) As Long
|
|---|
| 292 | Declare Function glutGetModifiers Lib "glut32" () As Long
|
|---|
| 293 | Declare Function glutLayerGet Lib "glut32" (type_ As GLenum) As Long
|
|---|
| 294 | Declare Sub glutBitmapCharacter Lib "glut32" (font As VoidPtr, character As Long)
|
|---|
| 295 | Declare Function glutBitmapWidth Lib "glut32" (font As VoidPtr, character As Long) As Long
|
|---|
| 296 | Declare Sub glutStrokeCharacter Lib "glut32" (font As VoidPtr, character As Long)
|
|---|
| 297 | Declare Function glutStrokeWidth Lib "glut32" (font As VoidPtr, character As Long) As Long
|
|---|
| 298 | Declare Function glutBitmapLength Lib "glut32" (font As VoidPtr, pstring As *Byte) As Long
|
|---|
| 299 | Declare Function glutStrokeLength Lib "glut32" (font As VoidPtr, pstring As *Byte) As Long
|
|---|
| 300 | Declare Sub glutWireSphere Lib "glut32" (radius As GLdouble, slices As GLint, stacks As GLint)
|
|---|
| 301 | Declare Sub glutSolidSphere Lib "glut32" (radius As GLdouble, slices As GLint, stacks As GLint)
|
|---|
| 302 | Declare Sub glutWireCone Lib "glut32" (base As GLdouble, height As GLdouble, slices As GLint, stacks As GLint)
|
|---|
| 303 | Declare Sub glutSolidCone Lib "glut32" (base As GLdouble, height As GLdouble, slices As GLint, stacks As GLint)
|
|---|
| 304 | Declare Sub glutWireCube Lib "glut32" (size As GLdouble)
|
|---|
| 305 | Declare Sub glutSolidCube Lib "glut32" (size As GLdouble)
|
|---|
| 306 | Declare Sub glutWireTorus Lib "glut32" (innerRadius As GLdouble, outerRadius As GLdouble, sides As GLint, rings As GLint)
|
|---|
| 307 | Declare Sub glutSolidTorus Lib "glut32" (innerRadius As GLdouble, outerRadius As GLdouble, sides As GLint, rings As GLint)
|
|---|
| 308 | Declare Sub glutWireDodecahedron Lib "glut32" ()
|
|---|
| 309 | Declare Sub glutSolidDodecahedron Lib "glut32" ()
|
|---|
| 310 | Declare Sub glutWireTeapot Lib "glut32" (size As GLdouble)
|
|---|
| 311 | Declare Sub glutSolidTeapot Lib "glut32" (size As GLdouble)
|
|---|
| 312 | Declare Sub glutWireOctahedron Lib "glut32" ()
|
|---|
| 313 | Declare Sub glutSolidOctahedron Lib "glut32" ()
|
|---|
| 314 | Declare Sub glutWireTetrahedron Lib "glut32" ()
|
|---|
| 315 | Declare Sub glutSolidTetrahedron Lib "glut32" ()
|
|---|
| 316 | Declare Sub glutWireIcosahedron Lib "glut32" ()
|
|---|
| 317 | Declare Sub glutSolidIcosahedron Lib "glut32" ()
|
|---|
| 318 | Declare Function glutVideoResizeGet Lib "glut32" (param As GLenum) As Long
|
|---|
| 319 | Declare Sub glutSetupVideoResizing Lib "glut32" ()
|
|---|
| 320 | Declare Sub glutStopVideoResizing Lib "glut32" ()
|
|---|
| 321 | Declare Sub glutVideoResize Lib "glut32" (x As Long, y As Long, width As Long, height As Long)
|
|---|
| 322 | Declare Sub glutVideoPan Lib "glut32" (x As Long, y As Long, width As Long, height As Long)
|
|---|
| 323 | Declare Sub glutReportErrors Lib "glut32" ()
|
|---|
| 324 |
|
|---|
| 325 | Const GLUT_KEY_REPEAT_OFF = 0
|
|---|
| 326 | Const GLUT_KEY_REPEAT_ON = 1
|
|---|
| 327 | Const GLUT_KEY_REPEAT_DEFAULT = 2
|
|---|
| 328 |
|
|---|
| 329 | Const GLUT_JOYSTICK_BUTTON_A = 1
|
|---|
| 330 | Const GLUT_JOYSTICK_BUTTON_B = 2
|
|---|
| 331 | Const GLUT_JOYSTICK_BUTTON_C = 4
|
|---|
| 332 | Const GLUT_JOYSTICK_BUTTON_D = 8
|
|---|
| 333 |
|
|---|
| 334 | Declare Sub glutIgnoreKeyRepeat Lib "glut32" (ignore As Long)
|
|---|
| 335 | Declare Sub glutSetKeyRepeat Lib "glut32" (repeatMode As Long)
|
|---|
| 336 | Declare Sub glutForceJoystickFunc Lib "glut32" ()
|
|---|
| 337 |
|
|---|
| 338 | Const GLUT_GAME_MODE_ACTIVE = 0
|
|---|
| 339 | Const GLUT_GAME_MODE_POSSIBLE = 1
|
|---|
| 340 | Const GLUT_GAME_MODE_WIDTH = 2
|
|---|
| 341 | Const GLUT_GAME_MODE_HEIGHT = 3
|
|---|
| 342 | Const GLUT_GAME_MODE_PIXEL_DEPTH = 4
|
|---|
| 343 | Const GLUT_GAME_MODE_REFRESH_RATE = 5
|
|---|
| 344 | Const GLUT_GAME_MODE_DISPLAY_CHANGED = 6
|
|---|
| 345 |
|
|---|
| 346 | Declare Sub glutGameModeString Lib "glut32" (pstring As PSTR)
|
|---|
| 347 | Declare Function glutEnterGameMode Lib "glut32" () As Long
|
|---|
| 348 | Declare Sub glutLeaveGameMode Lib "glut32" ()
|
|---|
| 349 | Declare Function glutGameModeGet Lib "glut32" (mode As GLenum) As Long
|
|---|
