/support/gambit/glut/glut-header.scm

  1(include "glu-header.scm")
  2
  3
  4(c-define-type int* (pointer int))
  5
  6
  7;; /*
  8;;  * The freeglut and GLUT API versions
  9;;  */
 10(define FREEGLUT 1)
 11(define VERSION 4)
 12;(define 0 1)
 13(define IMPLEMENTATION 13)
 14
 15
 16;; /*
 17;;  * GLUT API macro definitions -- the special key codes:
 18;;  */
 19(define GLUT_KEY_F1 #x0001)
 20(define GLUT_KEY_F2 #x0002)
 21(define GLUT_KEY_F3 #x0003)
 22(define GLUT_KEY_F4 #x0004)
 23(define GLUT_KEY_F5 #x0005)
 24(define GLUT_KEY_F6 #x0006)
 25(define GLUT_KEY_F7 #x0007)
 26(define GLUT_KEY_F8 #x0008)
 27(define GLUT_KEY_F9 #x0009)
 28(define GLUT_KEY_F10 #x000A)
 29(define GLUT_KEY_F11 #x000B)
 30(define GLUT_KEY_F12 #x000C)
 31(define GLUT_KEY_LEFT #x0064)
 32(define GLUT_KEY_UP #x0065)
 33(define GLUT_KEY_RIGHT #x0066)
 34(define GLUT_KEY_DOWN #x0067)
 35(define GLUT_KEY_PAGE_UP #x0068)
 36(define GLUT_KEY_PAGE_DOWN #x0069)
 37(define GLUT_KEY_HOME #x006A)
 38(define GLUT_KEY_END #x006B)
 39(define GLUT_KEY_INSERT #x006C)
 40
 41;; /*
 42;;  * GLUT API macro definitions -- mouse state definitions
 43;;  */
 44(define GLUT_LEFT_BUTTON #x0000)
 45(define GLUT_MIDDLE_BUTTON #x0001)
 46(define GLUT_RIGHT_BUTTON #x0002)
 47(define GLUT_DOWN #x0000)
 48(define GLUT_UP #x0001)
 49(define GLUT_LEFT #x0000)
 50(define GLUT_ENTERED #x0001)
 51
 52;; /*
 53;;  * GLUT API macro definitions -- the display mode definitions
 54;;  */
 55(define GLUT_RGB #x0000)
 56(define GLUT_RGBA #x0000)
 57(define GLUT_INDEX #x0001)
 58(define GLUT_SINGLE #x0000)
 59(define GLUT_DOUBLE #x0002)
 60(define GLUT_ACCUM #x0004)
 61(define GLUT_ALPHA #x0008)
 62(define GLUT_DEPTH #x0010)
 63(define GLUT_STENCIL #x0020)
 64(define GLUT_MULTISAMPLE #x0080)
 65(define GLUT_STEREO #x0100)
 66(define GLUT_LUMINANCE #x0200)
 67
 68;; /*
 69;;  * GLUT API macro definitions -- windows and menu related definitions
 70;;  */
 71(define GLUT_MENU_NOT_IN_USE #x0000)
 72(define GLUT_MENU_IN_USE #x0001)
 73(define GLUT_NOT_VISIBLE #x0000)
 74(define GLUT_VISIBLE #x0001)
 75(define GLUT_HIDDEN #x0000)
 76(define GLUT_FULLY_RETAINED #x0001)
 77(define GLUT_PARTIALLY_RETAINED #x0002)
 78(define GLUT_FULLY_COVERED #x0003)
 79
 80;; /*
 81;;  * GLUT API macro definitions -- the glutGet parameters
 82;;  */
 83(define GLUT_WINDOW_X #x0064)
 84(define GLUT_WINDOW_Y #x0065)
 85(define GLUT_WINDOW_WIDTH #x0066)
 86(define GLUT_WINDOW_HEIGHT #x0067)
 87(define GLUT_WINDOW_BUFFER_SIZE #x0068)
 88(define GLUT_WINDOW_STENCIL_SIZE #x0069)
 89(define GLUT_WINDOW_DEPTH_SIZE #x006A)
 90(define GLUT_WINDOW_RED_SIZE #x006B)
 91(define GLUT_WINDOW_GREEN_SIZE #x006C)
 92(define GLUT_WINDOW_BLUE_SIZE #x006D)
 93(define GLUT_WINDOW_ALPHA_SIZE #x006E)
 94(define GLUT_WINDOW_ACCUM_RED_SIZE #x006F)
 95(define GLUT_WINDOW_ACCUM_GREEN_SIZE #x0070)
 96(define GLUT_WINDOW_ACCUM_BLUE_SIZE #x0071)
 97(define GLUT_WINDOW_ACCUM_ALPHA_SIZE #x0072)
 98(define GLUT_WINDOW_DOUBLEBUFFER #x0073)
 99(define GLUT_WINDOW_RGBA #x0074)
100(define GLUT_WINDOW_PARENT #x0075)
101(define GLUT_WINDOW_NUM_CHILDREN #x0076)
102(define GLUT_WINDOW_COLORMAP_SIZE #x0077)
103(define GLUT_WINDOW_NUM_SAMPLES #x0078)
104(define GLUT_WINDOW_STEREO #x0079)
105(define GLUT_WINDOW_CURSOR #x007A)
106
107(define GLUT_SCREEN_WIDTH #x00C8)
108(define GLUT_SCREEN_HEIGHT #x00C9)
109(define GLUT_SCREEN_WIDTH_MM #x00CA)
110(define GLUT_SCREEN_HEIGHT_MM #x00CB)
111(define GLUT_MENU_NUM_ITEMS #x012C)
112(define GLUT_DISPLAY_MODE_POSSIBLE #x0190)
113(define GLUT_INIT_WINDOW_X #x01F4)
114(define GLUT_INIT_WINDOW_Y #x01F5)
115(define GLUT_INIT_WINDOW_WIDTH #x01F6)
116(define GLUT_INIT_WINDOW_HEIGHT #x01F7)
117(define GLUT_INIT_DISPLAY_MODE #x01F8)
118(define GLUT_ELAPSED_TIME #x02BC)
119(define GLUT_WINDOW_FORMAT_ID #x007B)
120(define GLUT_INIT_STATE #x007C)
121
122;; /*
123;;  * GLUT API macro definitions -- the glutDeviceGet parameters
124;;  */
125(define GLUT_HAS_KEYBOARD #x0258)
126(define GLUT_HAS_MOUSE #x0259)
127(define GLUT_HAS_SPACEBALL #x025A)
128(define GLUT_HAS_DIAL_AND_BUTTON_BOX #x025B)
129(define GLUT_HAS_TABLET #x025C)
130(define GLUT_NUM_MOUSE_BUTTONS #x025D)
131(define GLUT_NUM_SPACEBALL_BUTTONS #x025E)
132(define GLUT_NUM_BUTTON_BOX_BUTTONS #x025F)
133(define GLUT_NUM_DIALS #x0260)
134(define GLUT_NUM_TABLET_BUTTONS #x0261)
135(define GLUT_DEVICE_IGNORE_KEY_REPEAT #x0262)
136(define GLUT_DEVICE_KEY_REPEAT #x0263)
137(define GLUT_HAS_JOYSTICK #x0264)
138(define GLUT_OWNS_JOYSTICK #x0265)
139(define GLUT_JOYSTICK_BUTTONS #x0266)
140(define GLUT_JOYSTICK_AXES #x0267)
141(define GLUT_JOYSTICK_POLL_RATE #x0268)
142
143;; /*
144;;  * GLUT API macro definitions -- the glutLayerGet parameters
145;;  */
146(define GLUT_OVERLAY_POSSIBLE #x0320)
147(define GLUT_LAYER_IN_USE #x0321)
148(define GLUT_HAS_OVERLAY #x0322)
149(define GLUT_TRANSPARENT_INDEX #x0323)
150(define GLUT_NORMAL_DAMAGED #x0324)
151(define GLUT_OVERLAY_DAMAGED #x0325)
152
153;; /*
154;;  * GLUT API macro definitions -- the glutVideoResizeGet parameters
155;;  */
156(define GLUT_VIDEO_RESIZE_POSSIBLE #x0384)
157(define GLUT_VIDEO_RESIZE_IN_USE #x0385)
158(define GLUT_VIDEO_RESIZE_X_DELTA #x0386)
159(define GLUT_VIDEO_RESIZE_Y_DELTA #x0387)
160(define GLUT_VIDEO_RESIZE_WIDTH_DELTA #x0388)
161(define GLUT_VIDEO_RESIZE_HEIGHT_DELTA #x0389)
162(define GLUT_VIDEO_RESIZE_X #x038A)
163(define GLUT_VIDEO_RESIZE_Y #x038B)
164(define GLUT_VIDEO_RESIZE_WIDTH #x038C)
165(define GLUT_VIDEO_RESIZE_HEIGHT #x038D)
166
167;; /*
168;;  * GLUT API macro definitions -- the glutUseLayer parameters
169;;  */
170(define GLUT_NORMAL #x0000)
171(define GLUT_OVERLAY #x0001)
172
173;; /*
174;;  * GLUT API macro definitions -- the glutGetModifiers parameters
175;;  */
176(define GLUT_ACTIVE_SHIFT #x0001)
177(define GLUT_ACTIVE_CTRL #x0002)
178(define GLUT_ACTIVE_ALT #x0004)
179
180;; /*
181;;  * GLUT API macro definitions -- the glutSetCursor parameters
182;;  */
183(define GLUT_CURSOR_RIGHT_ARROW #x0000)
184(define GLUT_CURSOR_LEFT_ARROW #x0001)
185(define GLUT_CURSOR_INFO #x0002)
186(define GLUT_CURSOR_DESTROY #x0003)
187(define GLUT_CURSOR_HELP #x0004)
188(define GLUT_CURSOR_CYCLE #x0005)
189(define GLUT_CURSOR_SPRAY #x0006)
190(define GLUT_CURSOR_WAIT #x0007)
191(define GLUT_CURSOR_TEXT #x0008)
192(define GLUT_CURSOR_CROSSHAIR #x0009)
193(define GLUT_CURSOR_UP_DOWN #x000A)
194(define GLUT_CURSOR_LEFT_RIGHT #x000B)
195(define GLUT_CURSOR_TOP_SIDE #x000C)
196(define GLUT_CURSOR_BOTTOM_SIDE #x000D)
197(define GLUT_CURSOR_LEFT_SIDE #x000E)
198(define GLUT_CURSOR_RIGHT_SIDE #x000F)
199(define GLUT_CURSOR_TOP_LEFT_CORNER #x0010)
200(define GLUT_CURSOR_TOP_RIGHT_CORNER #x0011)
201(define GLUT_CURSOR_BOTTOM_RIGHT_CORNER #x0012)
202(define GLUT_CURSOR_BOTTOM_LEFT_CORNER #x0013)
203(define GLUT_CURSOR_INHERIT #x0064)
204(define GLUT_CURSOR_NONE #x0065)
205(define GLUT_CURSOR_FULL_CROSSHAIR #x0066)
206
207;; /*
208;;  * GLUT API macro definitions -- RGB color component specification definitions
209;;  */
210(define GLUT_RED #x0000)
211(define GLUT_GREEN #x0001)
212(define GLUT_BLUE #x0002)
213
214;; /*
215;;  * GLUT API macro definitions -- additional keyboard and joystick definitions
216;;  */
217(define GLUT_KEY_REPEAT_OFF #x0000)
218(define GLUT_KEY_REPEAT_ON #x0001)
219(define GLUT_KEY_REPEAT_DEFAULT #x0002)
220
221(define GLUT_JOYSTICK_BUTTON_A #x0001)
222(define GLUT_JOYSTICK_BUTTON_B #x0002)
223(define GLUT_JOYSTICK_BUTTON_C #x0004)
224(define GLUT_JOYSTICK_BUTTON_D #x0008)
225
226;; /*
227;;  * GLUT API macro definitions -- game mode definitions
228;;  */
229(define GLUT_GAME_MODE_ACTIVE #x0000)
230(define GLUT_GAME_MODE_POSSIBLE #x0001)
231(define GLUT_GAME_MODE_WIDTH #x0002)
232(define GLUT_GAME_MODE_HEIGHT #x0003)
233(define GLUT_GAME_MODE_PIXEL_DEPTH #x0004)
234(define GLUT_GAME_MODE_REFRESH_RATE #x0005)
235(define GLUT_GAME_MODE_DISPLAY_CHANGED #x0006)
236