/support/gambit/glut/glut-header.scm
Scheme | 236 lines | 168 code | 22 blank | 46 comment | 0 complexity | d40b42581ab3eed4293eba4a577b1cfc MD5 | raw file
Possible License(s): BSD-3-Clause
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