source: Include/gl/glut.sbp@ 281

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