├── README ├── gl.sls ├── glu.sls └── glut.sls /README: -------------------------------------------------------------------------------- 1 | 2 | Add path to 'chez-gl' to your CHEZSCHEMELIBDIRS. 3 | 4 | -------------------------------------------------------------------------------- /gl.sls: -------------------------------------------------------------------------------- 1 | 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | ;;; Ported to Chez Scheme by Ed Cavazos (wayo.cavazos@gmail.com) 7 | 8 | (library (gl) 9 | (export GL_FALSE 10 | GL_TRUE 11 | GL_BYTE 12 | GL_UNSIGNED_BYTE 13 | GL_SHORT 14 | GL_UNSIGNED_SHORT 15 | GL_INT 16 | GL_UNSIGNED_INT 17 | GL_FLOAT 18 | GL_2_BYTES 19 | GL_3_BYTES 20 | GL_4_BYTES 21 | GL_DOUBLE 22 | GL_POINTS 23 | GL_LINES 24 | GL_LINE_LOOP 25 | GL_LINE_STRIP 26 | GL_TRIANGLES 27 | GL_TRIANGLE_STRIP 28 | GL_TRIANGLE_FAN 29 | GL_QUADS 30 | GL_QUAD_STRIP 31 | GL_POLYGON 32 | GL_VERTEX_ARRAY 33 | GL_NORMAL_ARRAY 34 | GL_COLOR_ARRAY 35 | GL_INDEX_ARRAY 36 | GL_TEXTURE_COORD_ARRAY 37 | GL_EDGE_FLAG_ARRAY 38 | GL_VERTEX_ARRAY_SIZE 39 | GL_VERTEX_ARRAY_TYPE 40 | GL_VERTEX_ARRAY_STRIDE 41 | GL_NORMAL_ARRAY_TYPE 42 | GL_NORMAL_ARRAY_STRIDE 43 | GL_COLOR_ARRAY_SIZE 44 | GL_COLOR_ARRAY_TYPE 45 | GL_COLOR_ARRAY_STRIDE 46 | GL_INDEX_ARRAY_TYPE 47 | GL_INDEX_ARRAY_STRIDE 48 | GL_TEXTURE_COORD_ARRAY_SIZE 49 | GL_TEXTURE_COORD_ARRAY_TYPE 50 | GL_TEXTURE_COORD_ARRAY_STRIDE 51 | GL_EDGE_FLAG_ARRAY_STRIDE 52 | GL_VERTEX_ARRAY_POINTER 53 | GL_NORMAL_ARRAY_POINTER 54 | GL_COLOR_ARRAY_POINTER 55 | GL_INDEX_ARRAY_POINTER 56 | GL_TEXTURE_COORD_ARRAY_POINTER 57 | GL_EDGE_FLAG_ARRAY_POINTER 58 | GL_V2F 59 | GL_V3F 60 | GL_C4UB_V2F 61 | GL_C4UB_V3F 62 | GL_C3F_V3F 63 | GL_N3F_V3F 64 | GL_C4F_N3F_V3F 65 | GL_T2F_V3F 66 | GL_T4F_V4F 67 | GL_T2F_C4UB_V3F 68 | GL_T2F_C3F_V3F 69 | GL_T2F_N3F_V3F 70 | GL_T2F_C4F_N3F_V3F 71 | GL_T4F_C4F_N3F_V4F 72 | GL_MATRIX_MODE 73 | GL_MODELVIEW 74 | GL_PROJECTION 75 | GL_TEXTURE 76 | GL_POINT_SMOOTH 77 | GL_POINT_SIZE 78 | GL_POINT_SIZE_GRANULARITY 79 | GL_POINT_SIZE_RANGE 80 | GL_LINE_SMOOTH 81 | GL_LINE_STIPPLE 82 | GL_LINE_STIPPLE_PATTERN 83 | GL_LINE_STIPPLE_REPEAT 84 | GL_LINE_WIDTH 85 | GL_LINE_WIDTH_GRANULARITY 86 | GL_LINE_WIDTH_RANGE 87 | GL_POINT 88 | GL_LINE 89 | GL_FILL 90 | GL_CW 91 | GL_CCW 92 | GL_FRONT 93 | GL_BACK 94 | GL_POLYGON_MODE 95 | GL_POLYGON_SMOOTH 96 | GL_POLYGON_STIPPLE 97 | GL_EDGE_FLAG 98 | GL_CULL_FACE 99 | GL_CULL_FACE_MODE 100 | GL_FRONT_FACE 101 | GL_POLYGON_OFFSET_FACTOR 102 | GL_POLYGON_OFFSET_UNITS 103 | GL_POLYGON_OFFSET_POINT 104 | GL_POLYGON_OFFSET_LINE 105 | GL_POLYGON_OFFSET_FILL 106 | GL_COMPILE 107 | GL_COMPILE_AND_EXECUTE 108 | GL_LIST_BASE 109 | GL_LIST_INDEX 110 | GL_LIST_MODE 111 | GL_NEVER 112 | GL_LESS 113 | GL_EQUAL 114 | GL_LEQUAL 115 | GL_GREATER 116 | GL_NOTEQUAL 117 | GL_GEQUAL 118 | GL_ALWAYS 119 | GL_DEPTH_TEST 120 | GL_DEPTH_BITS 121 | GL_DEPTH_CLEAR_VALUE 122 | GL_DEPTH_FUNC 123 | GL_DEPTH_RANGE 124 | GL_DEPTH_WRITEMASK 125 | GL_DEPTH_COMPONENT 126 | GL_LIGHTING 127 | GL_LIGHT0 128 | GL_LIGHT1 129 | GL_LIGHT2 130 | GL_LIGHT3 131 | GL_LIGHT4 132 | GL_LIGHT5 133 | GL_LIGHT6 134 | GL_LIGHT7 135 | GL_SPOT_EXPONENT 136 | GL_SPOT_CUTOFF 137 | GL_CONSTANT_ATTENUATION 138 | GL_LINEAR_ATTENUATION 139 | GL_QUADRATIC_ATTENUATION 140 | GL_AMBIENT 141 | GL_DIFFUSE 142 | GL_SPECULAR 143 | GL_SHININESS 144 | GL_EMISSION 145 | GL_POSITION 146 | GL_SPOT_DIRECTION 147 | GL_AMBIENT_AND_DIFFUSE 148 | GL_COLOR_INDEXES 149 | GL_LIGHT_MODEL_TWO_SIDE 150 | GL_LIGHT_MODEL_LOCAL_VIEWER 151 | GL_LIGHT_MODEL_AMBIENT 152 | GL_FRONT_AND_BACK 153 | GL_SHADE_MODEL 154 | GL_FLAT 155 | GL_SMOOTH 156 | GL_COLOR_MATERIAL 157 | GL_COLOR_MATERIAL_FACE 158 | GL_COLOR_MATERIAL_PARAMETER 159 | GL_NORMALIZE 160 | GL_CLIP_PLANE0 161 | GL_CLIP_PLANE1 162 | GL_CLIP_PLANE2 163 | GL_CLIP_PLANE3 164 | GL_CLIP_PLANE4 165 | GL_CLIP_PLANE5 166 | GL_ACCUM_RED_BITS 167 | GL_ACCUM_GREEN_BITS 168 | GL_ACCUM_BLUE_BITS 169 | GL_ACCUM_ALPHA_BITS 170 | GL_ACCUM_CLEAR_VALUE 171 | GL_ACCUM 172 | GL_ADD 173 | GL_LOAD 174 | GL_MULT 175 | GL_RETURN 176 | GL_ALPHA_TEST 177 | GL_ALPHA_TEST_REF 178 | GL_ALPHA_TEST_FUNC 179 | GL_BLEND 180 | GL_BLEND_SRC 181 | GL_BLEND_DST 182 | GL_ZERO 183 | GL_ONE 184 | GL_SRC_COLOR 185 | GL_ONE_MINUS_SRC_COLOR 186 | GL_SRC_ALPHA 187 | GL_ONE_MINUS_SRC_ALPHA 188 | GL_DST_ALPHA 189 | GL_ONE_MINUS_DST_ALPHA 190 | GL_DST_COLOR 191 | GL_ONE_MINUS_DST_COLOR 192 | GL_SRC_ALPHA_SATURATE 193 | GL_FEEDBACK 194 | GL_RENDER 195 | GL_SELECT 196 | GL_2D 197 | GL_3D 198 | GL_3D_COLOR 199 | GL_3D_COLOR_TEXTURE 200 | GL_4D_COLOR_TEXTURE 201 | GL_POINT_TOKEN 202 | GL_LINE_TOKEN 203 | GL_LINE_RESET_TOKEN 204 | GL_POLYGON_TOKEN 205 | GL_BITMAP_TOKEN 206 | GL_DRAW_PIXEL_TOKEN 207 | GL_COPY_PIXEL_TOKEN 208 | GL_PASS_THROUGH_TOKEN 209 | GL_FEEDBACK_BUFFER_POINTER 210 | GL_FEEDBACK_BUFFER_SIZE 211 | GL_FEEDBACK_BUFFER_TYPE 212 | GL_SELECTION_BUFFER_POINTER 213 | GL_SELECTION_BUFFER_SIZE 214 | GL_FOG 215 | GL_FOG_MODE 216 | GL_FOG_DENSITY 217 | GL_FOG_COLOR 218 | GL_FOG_INDEX 219 | GL_FOG_START 220 | GL_FOG_END 221 | GL_LINEAR 222 | GL_EXP 223 | GL_EXP2 224 | GL_LOGIC_OP 225 | GL_INDEX_LOGIC_OP 226 | GL_COLOR_LOGIC_OP 227 | GL_LOGIC_OP_MODE 228 | GL_CLEAR 229 | GL_SET 230 | GL_COPY 231 | GL_COPY_INVERTED 232 | GL_NOOP 233 | GL_INVERT 234 | GL_AND 235 | GL_NAND 236 | GL_OR 237 | GL_NOR 238 | GL_XOR 239 | GL_EQUIV 240 | GL_AND_REVERSE 241 | GL_AND_INVERTED 242 | GL_OR_REVERSE 243 | GL_OR_INVERTED 244 | GL_STENCIL_BITS 245 | GL_STENCIL_TEST 246 | GL_STENCIL_CLEAR_VALUE 247 | GL_STENCIL_FUNC 248 | GL_STENCIL_VALUE_MASK 249 | GL_STENCIL_FAIL 250 | GL_STENCIL_PASS_DEPTH_FAIL 251 | GL_STENCIL_PASS_DEPTH_PASS 252 | GL_STENCIL_REF 253 | GL_STENCIL_WRITEMASK 254 | GL_STENCIL_INDEX 255 | GL_KEEP 256 | GL_REPLACE 257 | GL_INCR 258 | GL_DECR 259 | GL_NONE 260 | GL_LEFT 261 | GL_RIGHT 262 | GL_FRONT_LEFT 263 | GL_FRONT_RIGHT 264 | GL_BACK_LEFT 265 | GL_BACK_RIGHT 266 | GL_AUX0 267 | GL_AUX1 268 | GL_AUX2 269 | GL_AUX3 270 | GL_COLOR_INDEX 271 | GL_RED 272 | GL_GREEN 273 | GL_BLUE 274 | GL_ALPHA 275 | GL_LUMINANCE 276 | GL_LUMINANCE_ALPHA 277 | GL_ALPHA_BITS 278 | GL_RED_BITS 279 | GL_GREEN_BITS 280 | GL_BLUE_BITS 281 | GL_INDEX_BITS 282 | GL_SUBPIXEL_BITS 283 | GL_AUX_BUFFERS 284 | GL_READ_BUFFER 285 | GL_DRAW_BUFFER 286 | GL_DOUBLEBUFFER 287 | GL_STEREO 288 | GL_BITMAP 289 | GL_COLOR 290 | GL_DEPTH 291 | GL_STENCIL 292 | GL_DITHER 293 | GL_RGB 294 | GL_RGBA 295 | GL_MAX_LIST_NESTING 296 | GL_MAX_EVAL_ORDER 297 | GL_MAX_LIGHTS 298 | GL_MAX_CLIP_PLANES 299 | GL_MAX_TEXTURE_SIZE 300 | GL_MAX_PIXEL_MAP_TABLE 301 | GL_MAX_ATTRIB_STACK_DEPTH 302 | GL_MAX_MODELVIEW_STACK_DEPTH 303 | GL_MAX_NAME_STACK_DEPTH 304 | GL_MAX_PROJECTION_STACK_DEPTH 305 | GL_MAX_TEXTURE_STACK_DEPTH 306 | GL_MAX_VIEWPORT_DIMS 307 | GL_MAX_CLIENT_ATTRIB_STACK_DEPTH 308 | GL_ATTRIB_STACK_DEPTH 309 | GL_CLIENT_ATTRIB_STACK_DEPTH 310 | GL_COLOR_CLEAR_VALUE 311 | GL_COLOR_WRITEMASK 312 | GL_CURRENT_INDEX 313 | GL_CURRENT_COLOR 314 | GL_CURRENT_NORMAL 315 | GL_CURRENT_RASTER_COLOR 316 | GL_CURRENT_RASTER_DISTANCE 317 | GL_CURRENT_RASTER_INDEX 318 | GL_CURRENT_RASTER_POSITION 319 | GL_CURRENT_RASTER_TEXTURE_COORDS 320 | GL_CURRENT_RASTER_POSITION_VALID 321 | GL_CURRENT_TEXTURE_COORDS 322 | GL_INDEX_CLEAR_VALUE 323 | GL_INDEX_MODE 324 | GL_INDEX_WRITEMASK 325 | GL_MODELVIEW_MATRIX 326 | GL_MODELVIEW_STACK_DEPTH 327 | GL_NAME_STACK_DEPTH 328 | GL_PROJECTION_MATRIX 329 | GL_PROJECTION_STACK_DEPTH 330 | GL_RENDER_MODE 331 | GL_RGBA_MODE 332 | GL_TEXTURE_MATRIX 333 | GL_TEXTURE_STACK_DEPTH 334 | GL_VIEWPORT 335 | GL_AUTO_NORMAL 336 | GL_MAP1_COLOR_4 337 | GL_MAP1_INDEX 338 | GL_MAP1_NORMAL 339 | GL_MAP1_TEXTURE_COORD_1 340 | GL_MAP1_TEXTURE_COORD_2 341 | GL_MAP1_TEXTURE_COORD_3 342 | GL_MAP1_TEXTURE_COORD_4 343 | GL_MAP1_VERTEX_3 344 | GL_MAP1_VERTEX_4 345 | GL_MAP2_COLOR_4 346 | GL_MAP2_INDEX 347 | GL_MAP2_NORMAL 348 | GL_MAP2_TEXTURE_COORD_1 349 | GL_MAP2_TEXTURE_COORD_2 350 | GL_MAP2_TEXTURE_COORD_3 351 | GL_MAP2_TEXTURE_COORD_4 352 | GL_MAP2_VERTEX_3 353 | GL_MAP2_VERTEX_4 354 | GL_MAP1_GRID_DOMAIN 355 | GL_MAP1_GRID_SEGMENTS 356 | GL_MAP2_GRID_DOMAIN 357 | GL_MAP2_GRID_SEGMENTS 358 | GL_COEFF 359 | GL_ORDER 360 | GL_DOMAIN 361 | GL_PERSPECTIVE_CORRECTION_HINT 362 | GL_POINT_SMOOTH_HINT 363 | GL_LINE_SMOOTH_HINT 364 | GL_POLYGON_SMOOTH_HINT 365 | GL_FOG_HINT 366 | GL_DONT_CARE 367 | GL_FASTEST 368 | GL_NICEST 369 | GL_SCISSOR_BOX 370 | GL_SCISSOR_TEST 371 | GL_MAP_COLOR 372 | GL_MAP_STENCIL 373 | GL_INDEX_SHIFT 374 | GL_INDEX_OFFSET 375 | GL_RED_SCALE 376 | GL_RED_BIAS 377 | GL_GREEN_SCALE 378 | GL_GREEN_BIAS 379 | GL_BLUE_SCALE 380 | GL_BLUE_BIAS 381 | GL_ALPHA_SCALE 382 | GL_ALPHA_BIAS 383 | GL_DEPTH_SCALE 384 | GL_DEPTH_BIAS 385 | GL_PIXEL_MAP_S_TO_S_SIZE 386 | GL_PIXEL_MAP_I_TO_I_SIZE 387 | GL_PIXEL_MAP_I_TO_R_SIZE 388 | GL_PIXEL_MAP_I_TO_G_SIZE 389 | GL_PIXEL_MAP_I_TO_B_SIZE 390 | GL_PIXEL_MAP_I_TO_A_SIZE 391 | GL_PIXEL_MAP_R_TO_R_SIZE 392 | GL_PIXEL_MAP_G_TO_G_SIZE 393 | GL_PIXEL_MAP_B_TO_B_SIZE 394 | GL_PIXEL_MAP_A_TO_A_SIZE 395 | GL_PIXEL_MAP_S_TO_S 396 | GL_PIXEL_MAP_I_TO_I 397 | GL_PIXEL_MAP_I_TO_R 398 | GL_PIXEL_MAP_I_TO_G 399 | GL_PIXEL_MAP_I_TO_B 400 | GL_PIXEL_MAP_I_TO_A 401 | GL_PIXEL_MAP_R_TO_R 402 | GL_PIXEL_MAP_G_TO_G 403 | GL_PIXEL_MAP_B_TO_B 404 | GL_PIXEL_MAP_A_TO_A 405 | GL_PACK_ALIGNMENT 406 | GL_PACK_LSB_FIRST 407 | GL_PACK_ROW_LENGTH 408 | GL_PACK_SKIP_PIXELS 409 | GL_PACK_SKIP_ROWS 410 | GL_PACK_SWAP_BYTES 411 | GL_UNPACK_ALIGNMENT 412 | GL_UNPACK_LSB_FIRST 413 | GL_UNPACK_ROW_LENGTH 414 | GL_UNPACK_SKIP_PIXELS 415 | GL_UNPACK_SKIP_ROWS 416 | GL_UNPACK_SWAP_BYTES 417 | GL_ZOOM_X 418 | GL_ZOOM_Y 419 | GL_TEXTURE_ENV 420 | GL_TEXTURE_ENV_MODE 421 | GL_TEXTURE_1D 422 | GL_TEXTURE_2D 423 | GL_TEXTURE_WRAP_S 424 | GL_TEXTURE_WRAP_T 425 | GL_TEXTURE_MAG_FILTER 426 | GL_TEXTURE_MIN_FILTER 427 | GL_TEXTURE_ENV_COLOR 428 | GL_TEXTURE_GEN_S 429 | GL_TEXTURE_GEN_T 430 | GL_TEXTURE_GEN_MODE 431 | GL_TEXTURE_BORDER_COLOR 432 | GL_TEXTURE_WIDTH 433 | GL_TEXTURE_HEIGHT 434 | GL_TEXTURE_BORDER 435 | GL_TEXTURE_COMPONENTS 436 | GL_TEXTURE_RED_SIZE 437 | GL_TEXTURE_GREEN_SIZE 438 | GL_TEXTURE_BLUE_SIZE 439 | GL_TEXTURE_ALPHA_SIZE 440 | GL_TEXTURE_LUMINANCE_SIZE 441 | GL_TEXTURE_INTENSITY_SIZE 442 | GL_NEAREST_MIPMAP_NEAREST 443 | GL_NEAREST_MIPMAP_LINEAR 444 | GL_LINEAR_MIPMAP_NEAREST 445 | GL_LINEAR_MIPMAP_LINEAR 446 | GL_OBJECT_LINEAR 447 | GL_OBJECT_PLANE 448 | GL_EYE_LINEAR 449 | GL_EYE_PLANE 450 | GL_SPHERE_MAP 451 | GL_DECAL 452 | GL_MODULATE 453 | GL_NEAREST 454 | GL_REPEAT 455 | GL_CLAMP 456 | GL_S 457 | GL_T 458 | GL_R 459 | GL_Q 460 | GL_TEXTURE_GEN_R 461 | GL_TEXTURE_GEN_Q 462 | GL_VENDOR 463 | GL_RENDERER 464 | GL_VERSION 465 | GL_EXTENSIONS 466 | GL_NO_ERROR 467 | GL_INVALID_ENUM 468 | GL_INVALID_VALUE 469 | GL_INVALID_OPERATION 470 | GL_STACK_OVERFLOW 471 | GL_STACK_UNDERFLOW 472 | GL_OUT_OF_MEMORY 473 | GL_CURRENT_BIT 474 | GL_POINT_BIT 475 | GL_LINE_BIT 476 | GL_POLYGON_BIT 477 | GL_POLYGON_STIPPLE_BIT 478 | GL_PIXEL_MODE_BIT 479 | GL_LIGHTING_BIT 480 | GL_FOG_BIT 481 | GL_DEPTH_BUFFER_BIT 482 | GL_ACCUM_BUFFER_BIT 483 | GL_STENCIL_BUFFER_BIT 484 | GL_VIEWPORT_BIT 485 | GL_TRANSFORM_BIT 486 | GL_ENABLE_BIT 487 | GL_COLOR_BUFFER_BIT 488 | GL_HINT_BIT 489 | GL_EVAL_BIT 490 | GL_LIST_BIT 491 | GL_TEXTURE_BIT 492 | GL_SCISSOR_BIT 493 | GL_ALL_ATTRIB_BITS 494 | GL_PROXY_TEXTURE_1D 495 | GL_PROXY_TEXTURE_2D 496 | GL_TEXTURE_PRIORITY 497 | GL_TEXTURE_RESIDENT 498 | GL_TEXTURE_BINDING_1D 499 | GL_TEXTURE_BINDING_2D 500 | GL_TEXTURE_INTERNAL_FORMAT 501 | GL_ALPHA4 502 | GL_ALPHA8 503 | GL_ALPHA12 504 | GL_ALPHA16 505 | GL_LUMINANCE4 506 | GL_LUMINANCE8 507 | GL_LUMINANCE12 508 | GL_LUMINANCE16 509 | GL_LUMINANCE4_ALPHA4 510 | GL_LUMINANCE6_ALPHA2 511 | GL_LUMINANCE8_ALPHA8 512 | GL_LUMINANCE12_ALPHA4 513 | GL_LUMINANCE12_ALPHA12 514 | GL_LUMINANCE16_ALPHA16 515 | GL_INTENSITY 516 | GL_INTENSITY4 517 | GL_INTENSITY8 518 | GL_INTENSITY12 519 | GL_INTENSITY16 520 | GL_R3_G3_B2 521 | GL_RGB4 522 | GL_RGB5 523 | GL_RGB8 524 | GL_RGB10 525 | GL_RGB12 526 | GL_RGB16 527 | GL_RGBA2 528 | GL_RGBA4 529 | GL_RGB5_A1 530 | GL_RGBA8 531 | GL_RGB10_A2 532 | GL_RGBA12 533 | GL_RGBA16 534 | GL_CLIENT_PIXEL_STORE_BIT 535 | GL_CLIENT_VERTEX_ARRAY_BIT 536 | GL_ALL_CLIENT_ATTRIB_BITS 537 | GL_CLIENT_ALL_ATTRIB_BITS 538 | GL_RESCALE_NORMAL 539 | GL_CLAMP_TO_EDGE 540 | GL_MAX_ELEMENTS_VERTICES 541 | GL_MAX_ELEMENTS_INDICES 542 | GL_BGR 543 | GL_BGRA 544 | GL_UNSIGNED_BYTE_3_3_2 545 | GL_UNSIGNED_BYTE_2_3_3_REV 546 | GL_UNSIGNED_SHORT_5_6_5 547 | GL_UNSIGNED_SHORT_5_6_5_REV 548 | GL_UNSIGNED_SHORT_4_4_4_4 549 | GL_UNSIGNED_SHORT_4_4_4_4_REV 550 | GL_UNSIGNED_SHORT_5_5_5_1 551 | GL_UNSIGNED_SHORT_1_5_5_5_REV 552 | GL_UNSIGNED_INT_8_8_8_8 553 | GL_UNSIGNED_INT_8_8_8_8_REV 554 | GL_UNSIGNED_INT_10_10_10_2 555 | GL_UNSIGNED_INT_2_10_10_10_REV 556 | GL_LIGHT_MODEL_COLOR_CONTROL 557 | GL_SINGLE_COLOR 558 | GL_SEPARATE_SPECULAR_COLOR 559 | GL_TEXTURE_MIN_LOD 560 | GL_TEXTURE_MAX_LOD 561 | GL_TEXTURE_BASE_LEVEL 562 | GL_TEXTURE_MAX_LEVEL 563 | GL_SMOOTH_POINT_SIZE_RANGE 564 | GL_SMOOTH_POINT_SIZE_GRANULARITY 565 | GL_SMOOTH_LINE_WIDTH_RANGE 566 | GL_SMOOTH_LINE_WIDTH_GRANULARITY 567 | GL_ALIASED_POINT_SIZE_RANGE 568 | GL_ALIASED_LINE_WIDTH_RANGE 569 | GL_PACK_SKIP_IMAGES 570 | GL_PACK_IMAGE_HEIGHT 571 | GL_UNPACK_SKIP_IMAGES 572 | GL_UNPACK_IMAGE_HEIGHT 573 | GL_TEXTURE_3D 574 | GL_PROXY_TEXTURE_3D 575 | GL_TEXTURE_DEPTH 576 | GL_TEXTURE_WRAP_R 577 | GL_MAX_3D_TEXTURE_SIZE 578 | GL_TEXTURE_BINDING_3D 579 | GL_CONSTANT_COLOR 580 | GL_ONE_MINUS_CONSTANT_COLOR 581 | GL_CONSTANT_ALPHA 582 | GL_ONE_MINUS_CONSTANT_ALPHA 583 | GL_COLOR_TABLE 584 | GL_POST_CONVOLUTION_COLOR_TABLE 585 | GL_POST_COLOR_MATRIX_COLOR_TABLE 586 | GL_PROXY_COLOR_TABLE 587 | GL_PROXY_POST_CONVOLUTION_COLOR_TABLE 588 | GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE 589 | GL_COLOR_TABLE_SCALE 590 | GL_COLOR_TABLE_BIAS 591 | GL_COLOR_TABLE_FORMAT 592 | GL_COLOR_TABLE_WIDTH 593 | GL_COLOR_TABLE_RED_SIZE 594 | GL_COLOR_TABLE_GREEN_SIZE 595 | GL_COLOR_TABLE_BLUE_SIZE 596 | GL_COLOR_TABLE_ALPHA_SIZE 597 | GL_COLOR_TABLE_LUMINANCE_SIZE 598 | GL_COLOR_TABLE_INTENSITY_SIZE 599 | GL_CONVOLUTION_1D 600 | GL_CONVOLUTION_2D 601 | GL_SEPARABLE_2D 602 | GL_CONVOLUTION_BORDER_MODE 603 | GL_CONVOLUTION_FILTER_SCALE 604 | GL_CONVOLUTION_FILTER_BIAS 605 | GL_REDUCE 606 | GL_CONVOLUTION_FORMAT 607 | GL_CONVOLUTION_WIDTH 608 | GL_CONVOLUTION_HEIGHT 609 | GL_MAX_CONVOLUTION_WIDTH 610 | GL_MAX_CONVOLUTION_HEIGHT 611 | GL_POST_CONVOLUTION_RED_SCALE 612 | GL_POST_CONVOLUTION_GREEN_SCALE 613 | GL_POST_CONVOLUTION_BLUE_SCALE 614 | GL_POST_CONVOLUTION_ALPHA_SCALE 615 | GL_POST_CONVOLUTION_RED_BIAS 616 | GL_POST_CONVOLUTION_GREEN_BIAS 617 | GL_POST_CONVOLUTION_BLUE_BIAS 618 | GL_POST_CONVOLUTION_ALPHA_BIAS 619 | GL_CONSTANT_BORDER 620 | GL_REPLICATE_BORDER 621 | GL_CONVOLUTION_BORDER_COLOR 622 | GL_COLOR_MATRIX 623 | GL_COLOR_MATRIX_STACK_DEPTH 624 | GL_MAX_COLOR_MATRIX_STACK_DEPTH 625 | GL_POST_COLOR_MATRIX_RED_SCALE 626 | GL_POST_COLOR_MATRIX_GREEN_SCALE 627 | GL_POST_COLOR_MATRIX_BLUE_SCALE 628 | GL_POST_COLOR_MATRIX_ALPHA_SCALE 629 | GL_POST_COLOR_MATRIX_RED_BIAS 630 | GL_POST_COLOR_MATRIX_GREEN_BIAS 631 | GL_POST_COLOR_MATRIX_BLUE_BIAS 632 | GL_POST_COLOR_MATRIX_ALPHA_BIAS 633 | GL_HISTOGRAM 634 | GL_PROXY_HISTOGRAM 635 | GL_HISTOGRAM_WIDTH 636 | GL_HISTOGRAM_FORMAT 637 | GL_HISTOGRAM_RED_SIZE 638 | GL_HISTOGRAM_GREEN_SIZE 639 | GL_HISTOGRAM_BLUE_SIZE 640 | GL_HISTOGRAM_ALPHA_SIZE 641 | GL_HISTOGRAM_LUMINANCE_SIZE 642 | GL_HISTOGRAM_SINK 643 | GL_MINMAX 644 | GL_MINMAX_FORMAT 645 | GL_MINMAX_SINK 646 | GL_TABLE_TOO_LARGE 647 | GL_BLEND_EQUATION 648 | GL_MIN 649 | GL_MAX 650 | GL_FUNC_ADD 651 | GL_FUNC_SUBTRACT 652 | GL_FUNC_REVERSE_SUBTRACT 653 | GL_BLEND_COLOR 654 | GL_TEXTURE0 655 | GL_TEXTURE1 656 | GL_TEXTURE2 657 | GL_TEXTURE3 658 | GL_TEXTURE4 659 | GL_TEXTURE5 660 | GL_TEXTURE6 661 | GL_TEXTURE7 662 | GL_TEXTURE8 663 | GL_TEXTURE9 664 | GL_TEXTURE10 665 | GL_TEXTURE11 666 | GL_TEXTURE12 667 | GL_TEXTURE13 668 | GL_TEXTURE14 669 | GL_TEXTURE15 670 | GL_TEXTURE16 671 | GL_TEXTURE17 672 | GL_TEXTURE18 673 | GL_TEXTURE19 674 | GL_TEXTURE20 675 | GL_TEXTURE21 676 | GL_TEXTURE22 677 | GL_TEXTURE23 678 | GL_TEXTURE24 679 | GL_TEXTURE25 680 | GL_TEXTURE26 681 | GL_TEXTURE27 682 | GL_TEXTURE28 683 | GL_TEXTURE29 684 | GL_TEXTURE30 685 | GL_TEXTURE31 686 | GL_ACTIVE_TEXTURE 687 | GL_CLIENT_ACTIVE_TEXTURE 688 | GL_MAX_TEXTURE_UNITS 689 | GL_NORMAL_MAP 690 | GL_REFLECTION_MAP 691 | GL_TEXTURE_CUBE_MAP 692 | GL_TEXTURE_BINDING_CUBE_MAP 693 | GL_TEXTURE_CUBE_MAP_POSITIVE_X 694 | GL_TEXTURE_CUBE_MAP_NEGATIVE_X 695 | GL_TEXTURE_CUBE_MAP_POSITIVE_Y 696 | GL_TEXTURE_CUBE_MAP_NEGATIVE_Y 697 | GL_TEXTURE_CUBE_MAP_POSITIVE_Z 698 | GL_TEXTURE_CUBE_MAP_NEGATIVE_Z 699 | GL_PROXY_TEXTURE_CUBE_MAP 700 | GL_MAX_CUBE_MAP_TEXTURE_SIZE 701 | GL_COMPRESSED_ALPHA 702 | GL_COMPRESSED_LUMINANCE 703 | GL_COMPRESSED_LUMINANCE_ALPHA 704 | GL_COMPRESSED_INTENSITY 705 | GL_COMPRESSED_RGB 706 | GL_COMPRESSED_RGBA 707 | GL_TEXTURE_COMPRESSION_HINT 708 | GL_TEXTURE_COMPRESSED_IMAGE_SIZE 709 | GL_TEXTURE_COMPRESSED 710 | GL_NUM_COMPRESSED_TEXTURE_FORMATS 711 | GL_COMPRESSED_TEXTURE_FORMATS 712 | GL_MULTISAMPLE 713 | GL_SAMPLE_ALPHA_TO_COVERAGE 714 | GL_SAMPLE_ALPHA_TO_ONE 715 | GL_SAMPLE_COVERAGE 716 | GL_SAMPLE_BUFFERS 717 | GL_SAMPLES 718 | GL_SAMPLE_COVERAGE_VALUE 719 | GL_SAMPLE_COVERAGE_INVERT 720 | GL_MULTISAMPLE_BIT 721 | GL_TRANSPOSE_MODELVIEW_MATRIX 722 | GL_TRANSPOSE_PROJECTION_MATRIX 723 | GL_TRANSPOSE_TEXTURE_MATRIX 724 | GL_TRANSPOSE_COLOR_MATRIX 725 | GL_COMBINE 726 | GL_COMBINE_RGB 727 | GL_COMBINE_ALPHA 728 | GL_SOURCE0_RGB 729 | GL_SOURCE1_RGB 730 | GL_SOURCE2_RGB 731 | GL_SOURCE0_ALPHA 732 | GL_SOURCE1_ALPHA 733 | GL_SOURCE2_ALPHA 734 | GL_OPERAND0_RGB 735 | GL_OPERAND1_RGB 736 | GL_OPERAND2_RGB 737 | GL_OPERAND0_ALPHA 738 | GL_OPERAND1_ALPHA 739 | GL_OPERAND2_ALPHA 740 | GL_RGB_SCALE 741 | GL_ADD_SIGNED 742 | GL_INTERPOLATE 743 | GL_SUBTRACT 744 | GL_CONSTANT 745 | GL_PRIMARY_COLOR 746 | GL_PREVIOUS 747 | GL_DOT3_RGB 748 | GL_DOT3_RGBA 749 | GL_CLAMP_TO_BORDER 750 | GL_TEXTURE0_ARB 751 | GL_TEXTURE1_ARB 752 | GL_TEXTURE2_ARB 753 | GL_TEXTURE3_ARB 754 | GL_TEXTURE4_ARB 755 | GL_TEXTURE5_ARB 756 | GL_TEXTURE6_ARB 757 | GL_TEXTURE7_ARB 758 | GL_TEXTURE8_ARB 759 | GL_TEXTURE9_ARB 760 | GL_TEXTURE10_ARB 761 | GL_TEXTURE11_ARB 762 | GL_TEXTURE12_ARB 763 | GL_TEXTURE13_ARB 764 | GL_TEXTURE14_ARB 765 | GL_TEXTURE15_ARB 766 | GL_TEXTURE16_ARB 767 | GL_TEXTURE17_ARB 768 | GL_TEXTURE18_ARB 769 | GL_TEXTURE19_ARB 770 | GL_TEXTURE20_ARB 771 | GL_TEXTURE21_ARB 772 | GL_TEXTURE22_ARB 773 | GL_TEXTURE23_ARB 774 | GL_TEXTURE24_ARB 775 | GL_TEXTURE25_ARB 776 | GL_TEXTURE26_ARB 777 | GL_TEXTURE27_ARB 778 | GL_TEXTURE28_ARB 779 | GL_TEXTURE29_ARB 780 | GL_TEXTURE30_ARB 781 | GL_TEXTURE31_ARB 782 | GL_ACTIVE_TEXTURE_ARB 783 | GL_CLIENT_ACTIVE_TEXTURE_ARB 784 | GL_MAX_TEXTURE_UNITS_ARB 785 | glClearIndex 786 | glClearColor 787 | glClear 788 | glIndexMask 789 | glColorMask 790 | glAlphaFunc 791 | glBlendFunc 792 | glLogicOp 793 | glCullFace 794 | glFrontFace 795 | glPointSize 796 | glLineWidth 797 | glLineStipple 798 | glPolygonMode 799 | glPolygonOffset 800 | glPolygonStipple 801 | glGetPolygonStipple 802 | glEdgeFlag 803 | glEdgeFlagv 804 | glScissor 805 | glClipPlane 806 | glGetClipPlane 807 | glDrawBuffer 808 | glReadBuffer 809 | glEnable 810 | glDisable 811 | glIsEnabled 812 | glEnableClientState 813 | glDisableClientState 814 | glGetBooleanv 815 | glGetDoublev 816 | glGetFloatv 817 | glGetIntegerv 818 | glPushAttrib 819 | glPopAttrib 820 | glPushClientAttrib 821 | glPopClientAttrib 822 | glRenderMode 823 | glGetError 824 | glGetString 825 | glFinish 826 | glFlush 827 | glHint 828 | glClearDepth 829 | glDepthFunc 830 | glDepthMask 831 | glDepthRange 832 | glClearAccum 833 | glAccum 834 | glMatrixMode 835 | glOrtho 836 | glFrustum 837 | glViewport 838 | glPushMatrix 839 | glPopMatrix 840 | glLoadIdentity 841 | glLoadMatrixd 842 | glLoadMatrixf 843 | glMultMatrixd 844 | glMultMatrixf 845 | glRotated 846 | glRotatef 847 | glScaled 848 | glScalef 849 | glTranslated 850 | glTranslatef 851 | glIsList 852 | glDeleteLists 853 | glGenLists 854 | glNewList 855 | glEndList 856 | glCallList 857 | glCallLists 858 | glListBase 859 | glBegin 860 | glEnd 861 | glVertex2d 862 | glVertex2f 863 | glVertex2i 864 | glVertex2s 865 | glVertex3d 866 | glVertex3f 867 | glVertex3i 868 | glVertex3s 869 | glVertex4d 870 | glVertex4f 871 | glVertex4i 872 | glVertex4s 873 | glVertex2dv 874 | glVertex2fv 875 | glVertex2iv 876 | glVertex2sv 877 | glVertex3dv 878 | glVertex3fv 879 | glVertex3iv 880 | glVertex3sv 881 | glVertex4dv 882 | glVertex4fv 883 | glVertex4iv 884 | glVertex4sv 885 | glNormal3b 886 | glNormal3d 887 | glNormal3f 888 | glNormal3i 889 | glNormal3s 890 | glNormal3bv 891 | glNormal3dv 892 | glNormal3fv 893 | glNormal3iv 894 | glNormal3sv 895 | glIndexd 896 | glIndexf 897 | glIndexi 898 | glIndexs 899 | glIndexub 900 | glIndexdv 901 | glIndexfv 902 | glIndexiv 903 | glIndexsv 904 | glIndexubv 905 | glColor3b 906 | glColor3d 907 | glColor3f 908 | glColor3i 909 | glColor3s 910 | glColor3ub 911 | glColor3ui 912 | glColor3us 913 | glColor4b 914 | glColor4d 915 | glColor4f 916 | glColor4i 917 | glColor4s 918 | glColor4ub 919 | glColor4ui 920 | glColor4us 921 | glColor3bv 922 | glColor3dv 923 | glColor3fv 924 | glColor3iv 925 | glColor3sv 926 | glColor3ubv 927 | glColor3uiv 928 | glColor3usv 929 | glColor4bv 930 | glColor4dv 931 | glColor4fv 932 | glColor4iv 933 | glColor4sv 934 | glColor4ubv 935 | glColor4uiv 936 | glColor4usv 937 | glTexCoord1d 938 | glTexCoord1f 939 | glTexCoord1i 940 | glTexCoord1s 941 | glTexCoord2d 942 | glTexCoord2f 943 | glTexCoord2i 944 | glTexCoord2s 945 | glTexCoord3d 946 | glTexCoord3f 947 | glTexCoord3i 948 | glTexCoord3s 949 | glTexCoord4d 950 | glTexCoord4f 951 | glTexCoord4i 952 | glTexCoord4s 953 | glTexCoord1dv 954 | glTexCoord1fv 955 | glTexCoord1iv 956 | glTexCoord1sv 957 | glTexCoord2dv 958 | glTexCoord2fv 959 | glTexCoord2iv 960 | glTexCoord2sv 961 | glTexCoord3dv 962 | glTexCoord3fv 963 | glTexCoord3iv 964 | glTexCoord3sv 965 | glTexCoord4dv 966 | glTexCoord4fv 967 | glTexCoord4iv 968 | glTexCoord4sv 969 | glRasterPos2d 970 | glRasterPos2f 971 | glRasterPos2i 972 | glRasterPos2s 973 | glRasterPos3d 974 | glRasterPos3f 975 | glRasterPos3i 976 | glRasterPos3s 977 | glRasterPos4d 978 | glRasterPos4f 979 | glRasterPos4i 980 | glRasterPos4s 981 | glRasterPos2dv 982 | glRasterPos2fv 983 | glRasterPos2iv 984 | glRasterPos2sv 985 | glRasterPos3dv 986 | glRasterPos3fv 987 | glRasterPos3iv 988 | glRasterPos3sv 989 | glRasterPos4dv 990 | glRasterPos4fv 991 | glRasterPos4iv 992 | glRasterPos4sv 993 | glRectd 994 | glRectf 995 | glRecti 996 | glRects 997 | glRectdv 998 | glRectfv 999 | glRectiv 1000 | glRectsv 1001 | glVertexPointer 1002 | glNormalPointer 1003 | glColorPointer 1004 | glIndexPointer 1005 | glTexCoordPointer 1006 | glEdgeFlagPointer 1007 | glGetPointerv 1008 | glArrayElement 1009 | glDrawArrays 1010 | glDrawElements 1011 | glInterleavedArrays 1012 | glShadeModel 1013 | glLightf 1014 | glLighti 1015 | glLightfv 1016 | glLightiv 1017 | glGetLightfv 1018 | glGetLightiv 1019 | glLightModelf 1020 | glLightModeli 1021 | glLightModelfv 1022 | glLightModeliv 1023 | glMaterialf 1024 | glMateriali 1025 | glMaterialfv 1026 | glMaterialiv 1027 | glGetMaterialfv 1028 | glGetMaterialiv 1029 | glColorMaterial 1030 | glPixelZoom 1031 | glPixelStoref 1032 | glPixelStorei 1033 | glPixelTransferf 1034 | glPixelTransferi 1035 | glPixelMapfv 1036 | glPixelMapuiv 1037 | glPixelMapusv 1038 | glGetPixelMapfv 1039 | glGetPixelMapuiv 1040 | glGetPixelMapusv 1041 | glBitmap 1042 | glReadPixels 1043 | glDrawPixels 1044 | glCopyPixels 1045 | glStencilFunc 1046 | glStencilMask 1047 | glStencilOp 1048 | glClearStencil 1049 | glTexGend 1050 | glTexGenf 1051 | glTexGeni 1052 | glTexGendv 1053 | glTexGenfv 1054 | glTexGeniv 1055 | glGetTexGendv 1056 | glGetTexGenfv 1057 | glGetTexGeniv 1058 | glTexEnvf 1059 | glTexEnvi 1060 | glTexEnvfv 1061 | glTexEnviv 1062 | glGetTexEnvfv 1063 | glGetTexEnviv 1064 | glTexParameterf 1065 | glTexParameteri 1066 | glTexParameterfv 1067 | glTexParameteriv 1068 | glGetTexParameterfv 1069 | glGetTexParameteriv 1070 | glGetTexLevelParameterfv 1071 | glGetTexLevelParameteriv 1072 | glTexImage1D 1073 | glTexImage2D 1074 | glGetTexImage 1075 | glGenTextures 1076 | glDeleteTextures 1077 | glBindTexture 1078 | glPrioritizeTextures 1079 | glAreTexturesResident 1080 | glIsTexture 1081 | glTexSubImage1D 1082 | glTexSubImage2D 1083 | glCopyTexImage1D 1084 | glCopyTexImage2D 1085 | glCopyTexSubImage1D 1086 | glCopyTexSubImage2D 1087 | glMap1d 1088 | glMap1f 1089 | glMap2d 1090 | glMap2f 1091 | glGetMapdv 1092 | glGetMapfv 1093 | glGetMapiv 1094 | glEvalCoord1d 1095 | glEvalCoord1f 1096 | glEvalCoord1dv 1097 | glEvalCoord1fv 1098 | glEvalCoord2d 1099 | glEvalCoord2f 1100 | glEvalCoord2dv 1101 | glEvalCoord2fv 1102 | glMapGrid1d 1103 | glMapGrid1f 1104 | glMapGrid2d 1105 | glMapGrid2f 1106 | glEvalPoint1 1107 | glEvalPoint2 1108 | glEvalMesh1 1109 | glEvalMesh2 1110 | glFogf 1111 | glFogi 1112 | glFogfv 1113 | glFogiv 1114 | glFeedbackBuffer 1115 | glPassThrough 1116 | glSelectBuffer 1117 | glInitNames 1118 | glLoadName 1119 | glPushName 1120 | glPopName 1121 | glDrawRangeElements 1122 | glTexImage3D 1123 | glTexSubImage3D 1124 | glCopyTexSubImage3D 1125 | glColorTable 1126 | glColorSubTable 1127 | glColorTableParameteriv 1128 | glColorTableParameterfv 1129 | glCopyColorSubTable 1130 | glCopyColorTable 1131 | glGetColorTable 1132 | glGetColorTableParameterfv 1133 | glGetColorTableParameteriv 1134 | glBlendEquation 1135 | glBlendColor 1136 | glHistogram 1137 | glResetHistogram 1138 | glGetHistogram 1139 | glGetHistogramParameterfv 1140 | glGetHistogramParameteriv 1141 | glMinmax 1142 | glResetMinmax 1143 | glGetMinmax 1144 | glGetMinmaxParameterfv 1145 | glGetMinmaxParameteriv 1146 | glConvolutionFilter1D 1147 | glConvolutionFilter2D 1148 | glConvolutionParameterf 1149 | glConvolutionParameterfv 1150 | glConvolutionParameteri 1151 | glConvolutionParameteriv 1152 | glCopyConvolutionFilter1D 1153 | glCopyConvolutionFilter2D 1154 | glGetConvolutionFilter 1155 | glGetConvolutionParameterfv 1156 | glGetConvolutionParameteriv 1157 | glSeparableFilter2D 1158 | glGetSeparableFilter 1159 | glActiveTexture 1160 | glClientActiveTexture 1161 | glCompressedTexImage1D 1162 | glCompressedTexImage2D 1163 | glCompressedTexImage3D 1164 | glCompressedTexSubImage1D 1165 | glCompressedTexSubImage2D 1166 | glCompressedTexSubImage3D 1167 | glGetCompressedTexImage 1168 | glMultiTexCoord1d 1169 | glMultiTexCoord1dv 1170 | glMultiTexCoord1f 1171 | glMultiTexCoord1fv 1172 | glMultiTexCoord1i 1173 | glMultiTexCoord1iv 1174 | glMultiTexCoord1s 1175 | glMultiTexCoord1sv 1176 | glMultiTexCoord2d 1177 | glMultiTexCoord2dv 1178 | glMultiTexCoord2f 1179 | glMultiTexCoord2fv 1180 | glMultiTexCoord2i 1181 | glMultiTexCoord2iv 1182 | glMultiTexCoord2s 1183 | glMultiTexCoord2sv 1184 | glMultiTexCoord3d 1185 | glMultiTexCoord3dv 1186 | glMultiTexCoord3f 1187 | glMultiTexCoord3fv 1188 | glMultiTexCoord3i 1189 | glMultiTexCoord3iv 1190 | glMultiTexCoord3s 1191 | glMultiTexCoord3sv 1192 | glMultiTexCoord4d 1193 | glMultiTexCoord4dv 1194 | glMultiTexCoord4f 1195 | glMultiTexCoord4fv 1196 | glMultiTexCoord4i 1197 | glMultiTexCoord4iv 1198 | glMultiTexCoord4s 1199 | glMultiTexCoord4sv 1200 | glLoadTransposeMatrixd 1201 | glLoadTransposeMatrixf 1202 | glMultTransposeMatrixd 1203 | glMultTransposeMatrixf 1204 | glSampleCoverage 1205 | glActiveTextureARB 1206 | glClientActiveTextureARB 1207 | glMultiTexCoord1dARB 1208 | glMultiTexCoord1dvARB 1209 | glMultiTexCoord1fARB 1210 | glMultiTexCoord1fvARB 1211 | glMultiTexCoord1iARB 1212 | glMultiTexCoord1ivARB 1213 | glMultiTexCoord1sARB 1214 | glMultiTexCoord1svARB 1215 | glMultiTexCoord2dARB 1216 | glMultiTexCoord2dvARB 1217 | glMultiTexCoord2fARB 1218 | glMultiTexCoord2fvARB 1219 | glMultiTexCoord2iARB 1220 | glMultiTexCoord2ivARB 1221 | glMultiTexCoord2sARB 1222 | glMultiTexCoord2svARB 1223 | glMultiTexCoord3dARB 1224 | glMultiTexCoord3dvARB 1225 | glMultiTexCoord3fARB 1226 | glMultiTexCoord3fvARB 1227 | glMultiTexCoord3iARB 1228 | glMultiTexCoord3ivARB 1229 | glMultiTexCoord3sARB 1230 | glMultiTexCoord3svARB 1231 | glMultiTexCoord4dARB 1232 | glMultiTexCoord4dvARB 1233 | glMultiTexCoord4fARB 1234 | glMultiTexCoord4fvARB 1235 | glMultiTexCoord4iARB 1236 | glMultiTexCoord4ivARB 1237 | glMultiTexCoord4sARB 1238 | glMultiTexCoord4svARB) 1239 | 1240 | (import (chezscheme)) 1241 | 1242 | (define lib-name 1243 | (case (machine-type) 1244 | ((i3osx ti3osx) "OpenGL.framework/OpenGL") ; OSX x86 1245 | ((a6osx ta6osx) "OpenGL.framework/OpenGL") ; OSX x86_64 1246 | ((i3nt ti3nt) "opengl32.dll") ; Windows x86 1247 | ((a6nt ta6nt) "opengl64.dll") ; Windows x86_64 1248 | ((i3le ti3le) "libGL.so.1") ; Linux x86 1249 | ((a6le ta6le) "libGL.so.1") ; Linux x86_64 1250 | ((i3ob ti3ob) "libGL.so.7.3") ; OpenBSD x86 1251 | ((a6ob ta6ob) "libGL.so.7.3") ; OpenBSD x86_64 1252 | ((i3fb ti3fb) "libGL.so") ; FreeBSD x86 1253 | ((a6fb ta6fb) "libGL.so") ; FreeBSD x86_64 1254 | ((i3s2 ti3s2) "libGL.so.1") ; Solaris x86 1255 | ((a6s2 ta6s2) "libGL.so.1") ; Solaris x86_64 1256 | (else 1257 | (assertion-violation #f "can not locate OpenGL library, unknown operating system")))) 1258 | 1259 | (define lib (load-shared-object lib-name)) 1260 | 1261 | ;;;; Boolean values 1262 | (define GL_FALSE #x0) 1263 | (define GL_TRUE #x1) 1264 | ;;;; Data types 1265 | (define GL_BYTE #x1400) 1266 | (define GL_UNSIGNED_BYTE #x1401) 1267 | (define GL_SHORT #x1402) 1268 | (define GL_UNSIGNED_SHORT #x1403) 1269 | (define GL_INT #x1404) 1270 | (define GL_UNSIGNED_INT #x1405) 1271 | (define GL_FLOAT #x1406) 1272 | (define GL_2_BYTES #x1407) 1273 | (define GL_3_BYTES #x1408) 1274 | (define GL_4_BYTES #x1409) 1275 | (define GL_DOUBLE #x140A) 1276 | ;;;; Primitives 1277 | (define GL_POINTS #x0000) 1278 | (define GL_LINES #x0001) 1279 | (define GL_LINE_LOOP #x0002) 1280 | (define GL_LINE_STRIP #x0003) 1281 | (define GL_TRIANGLES #x0004) 1282 | (define GL_TRIANGLE_STRIP #x0005) 1283 | (define GL_TRIANGLE_FAN #x0006) 1284 | (define GL_QUADS #x0007) 1285 | (define GL_QUAD_STRIP #x0008) 1286 | (define GL_POLYGON #x0009) 1287 | ;;;; Vertex Arrays 1288 | (define GL_VERTEX_ARRAY #x8074) 1289 | (define GL_NORMAL_ARRAY #x8075) 1290 | (define GL_COLOR_ARRAY #x8076) 1291 | (define GL_INDEX_ARRAY #x8077) 1292 | (define GL_TEXTURE_COORD_ARRAY #x8078) 1293 | (define GL_EDGE_FLAG_ARRAY #x8079) 1294 | (define GL_VERTEX_ARRAY_SIZE #x807A) 1295 | (define GL_VERTEX_ARRAY_TYPE #x807B) 1296 | (define GL_VERTEX_ARRAY_STRIDE #x807C) 1297 | (define GL_NORMAL_ARRAY_TYPE #x807E) 1298 | (define GL_NORMAL_ARRAY_STRIDE #x807F) 1299 | (define GL_COLOR_ARRAY_SIZE #x8081) 1300 | (define GL_COLOR_ARRAY_TYPE #x8082) 1301 | (define GL_COLOR_ARRAY_STRIDE #x8083) 1302 | (define GL_INDEX_ARRAY_TYPE #x8085) 1303 | (define GL_INDEX_ARRAY_STRIDE #x8086) 1304 | (define GL_TEXTURE_COORD_ARRAY_SIZE #x8088) 1305 | (define GL_TEXTURE_COORD_ARRAY_TYPE #x8089) 1306 | (define GL_TEXTURE_COORD_ARRAY_STRIDE #x808A) 1307 | (define GL_EDGE_FLAG_ARRAY_STRIDE #x808C) 1308 | (define GL_VERTEX_ARRAY_POINTER #x808E) 1309 | (define GL_NORMAL_ARRAY_POINTER #x808F) 1310 | (define GL_COLOR_ARRAY_POINTER #x8090) 1311 | (define GL_INDEX_ARRAY_POINTER #x8091) 1312 | (define GL_TEXTURE_COORD_ARRAY_POINTER #x8092) 1313 | (define GL_EDGE_FLAG_ARRAY_POINTER #x8093) 1314 | (define GL_V2F #x2A20) 1315 | (define GL_V3F #x2A21) 1316 | (define GL_C4UB_V2F #x2A22) 1317 | (define GL_C4UB_V3F #x2A23) 1318 | (define GL_C3F_V3F #x2A24) 1319 | (define GL_N3F_V3F #x2A25) 1320 | (define GL_C4F_N3F_V3F #x2A26) 1321 | (define GL_T2F_V3F #x2A27) 1322 | (define GL_T4F_V4F #x2A28) 1323 | (define GL_T2F_C4UB_V3F #x2A29) 1324 | (define GL_T2F_C3F_V3F #x2A2A) 1325 | (define GL_T2F_N3F_V3F #x2A2B) 1326 | (define GL_T2F_C4F_N3F_V3F #x2A2C) 1327 | (define GL_T4F_C4F_N3F_V4F #x2A2D) 1328 | ;;;; Matrix Mode 1329 | (define GL_MATRIX_MODE #x0BA0) 1330 | (define GL_MODELVIEW #x1700) 1331 | (define GL_PROJECTION #x1701) 1332 | (define GL_TEXTURE #x1702) 1333 | ;;;; Points 1334 | (define GL_POINT_SMOOTH #x0B10) 1335 | (define GL_POINT_SIZE #x0B11) 1336 | (define GL_POINT_SIZE_GRANULARITY #x0B13) 1337 | (define GL_POINT_SIZE_RANGE #x0B12) 1338 | ;;;; Lines 1339 | (define GL_LINE_SMOOTH #x0B20) 1340 | (define GL_LINE_STIPPLE #x0B24) 1341 | (define GL_LINE_STIPPLE_PATTERN #x0B25) 1342 | (define GL_LINE_STIPPLE_REPEAT #x0B26) 1343 | (define GL_LINE_WIDTH #x0B21) 1344 | (define GL_LINE_WIDTH_GRANULARITY #x0B23) 1345 | (define GL_LINE_WIDTH_RANGE #x0B22) 1346 | ;;;; Polygons 1347 | (define GL_POINT #x1B00) 1348 | (define GL_LINE #x1B01) 1349 | (define GL_FILL #x1B02) 1350 | (define GL_CW #x0900) 1351 | (define GL_CCW #x0901) 1352 | (define GL_FRONT #x0404) 1353 | (define GL_BACK #x0405) 1354 | (define GL_POLYGON_MODE #x0B40) 1355 | (define GL_POLYGON_SMOOTH #x0B41) 1356 | (define GL_POLYGON_STIPPLE #x0B42) 1357 | (define GL_EDGE_FLAG #x0B43) 1358 | (define GL_CULL_FACE #x0B44) 1359 | (define GL_CULL_FACE_MODE #x0B45) 1360 | (define GL_FRONT_FACE #x0B46) 1361 | (define GL_POLYGON_OFFSET_FACTOR #x8038) 1362 | (define GL_POLYGON_OFFSET_UNITS #x2A00) 1363 | (define GL_POLYGON_OFFSET_POINT #x2A01) 1364 | (define GL_POLYGON_OFFSET_LINE #x2A02) 1365 | (define GL_POLYGON_OFFSET_FILL #x8037) 1366 | ;;;; Display Lists 1367 | (define GL_COMPILE #x1300) 1368 | (define GL_COMPILE_AND_EXECUTE #x1301) 1369 | (define GL_LIST_BASE #x0B32) 1370 | (define GL_LIST_INDEX #x0B33) 1371 | (define GL_LIST_MODE #x0B30) 1372 | ;;;; Depth buffer 1373 | (define GL_NEVER #x0200) 1374 | (define GL_LESS #x0201) 1375 | (define GL_EQUAL #x0202) 1376 | (define GL_LEQUAL #x0203) 1377 | (define GL_GREATER #x0204) 1378 | (define GL_NOTEQUAL #x0205) 1379 | (define GL_GEQUAL #x0206) 1380 | (define GL_ALWAYS #x0207) 1381 | (define GL_DEPTH_TEST #x0B71) 1382 | (define GL_DEPTH_BITS #x0D56) 1383 | (define GL_DEPTH_CLEAR_VALUE #x0B73) 1384 | (define GL_DEPTH_FUNC #x0B74) 1385 | (define GL_DEPTH_RANGE #x0B70) 1386 | (define GL_DEPTH_WRITEMASK #x0B72) 1387 | (define GL_DEPTH_COMPONENT #x1902) 1388 | ;;;; Lighting 1389 | (define GL_LIGHTING #x0B50) 1390 | (define GL_LIGHT0 #x4000) 1391 | (define GL_LIGHT1 #x4001) 1392 | (define GL_LIGHT2 #x4002) 1393 | (define GL_LIGHT3 #x4003) 1394 | (define GL_LIGHT4 #x4004) 1395 | (define GL_LIGHT5 #x4005) 1396 | (define GL_LIGHT6 #x4006) 1397 | (define GL_LIGHT7 #x4007) 1398 | (define GL_SPOT_EXPONENT #x1205) 1399 | (define GL_SPOT_CUTOFF #x1206) 1400 | (define GL_CONSTANT_ATTENUATION #x1207) 1401 | (define GL_LINEAR_ATTENUATION #x1208) 1402 | (define GL_QUADRATIC_ATTENUATION #x1209) 1403 | (define GL_AMBIENT #x1200) 1404 | (define GL_DIFFUSE #x1201) 1405 | (define GL_SPECULAR #x1202) 1406 | (define GL_SHININESS #x1601) 1407 | (define GL_EMISSION #x1600) 1408 | (define GL_POSITION #x1203) 1409 | (define GL_SPOT_DIRECTION #x1204) 1410 | (define GL_AMBIENT_AND_DIFFUSE #x1602) 1411 | (define GL_COLOR_INDEXES #x1603) 1412 | (define GL_LIGHT_MODEL_TWO_SIDE #x0B52) 1413 | (define GL_LIGHT_MODEL_LOCAL_VIEWER #x0B51) 1414 | (define GL_LIGHT_MODEL_AMBIENT #x0B53) 1415 | (define GL_FRONT_AND_BACK #x0408) 1416 | (define GL_SHADE_MODEL #x0B54) 1417 | (define GL_FLAT #x1D00) 1418 | (define GL_SMOOTH #x1D01) 1419 | (define GL_COLOR_MATERIAL #x0B57) 1420 | (define GL_COLOR_MATERIAL_FACE #x0B55) 1421 | (define GL_COLOR_MATERIAL_PARAMETER #x0B56) 1422 | (define GL_NORMALIZE #x0BA1) 1423 | ;;;; User clipping planes 1424 | (define GL_CLIP_PLANE0 #x3000) 1425 | (define GL_CLIP_PLANE1 #x3001) 1426 | (define GL_CLIP_PLANE2 #x3002) 1427 | (define GL_CLIP_PLANE3 #x3003) 1428 | (define GL_CLIP_PLANE4 #x3004) 1429 | (define GL_CLIP_PLANE5 #x3005) 1430 | ;;;; Accumulation buffer 1431 | (define GL_ACCUM_RED_BITS #x0D58) 1432 | (define GL_ACCUM_GREEN_BITS #x0D59) 1433 | (define GL_ACCUM_BLUE_BITS #x0D5A) 1434 | (define GL_ACCUM_ALPHA_BITS #x0D5B) 1435 | (define GL_ACCUM_CLEAR_VALUE #x0B80) 1436 | (define GL_ACCUM #x0100) 1437 | (define GL_ADD #x0104) 1438 | (define GL_LOAD #x0101) 1439 | (define GL_MULT #x0103) 1440 | (define GL_RETURN #x0102) 1441 | ;;;; Alpha testing 1442 | (define GL_ALPHA_TEST #x0BC0) 1443 | (define GL_ALPHA_TEST_REF #x0BC2) 1444 | (define GL_ALPHA_TEST_FUNC #x0BC1) 1445 | ;;;; Blending 1446 | (define GL_BLEND #x0BE2) 1447 | (define GL_BLEND_SRC #x0BE1) 1448 | (define GL_BLEND_DST #x0BE0) 1449 | (define GL_ZERO #x0) 1450 | (define GL_ONE #x1) 1451 | (define GL_SRC_COLOR #x0300) 1452 | (define GL_ONE_MINUS_SRC_COLOR #x0301) 1453 | (define GL_SRC_ALPHA #x0302) 1454 | (define GL_ONE_MINUS_SRC_ALPHA #x0303) 1455 | (define GL_DST_ALPHA #x0304) 1456 | (define GL_ONE_MINUS_DST_ALPHA #x0305) 1457 | (define GL_DST_COLOR #x0306) 1458 | (define GL_ONE_MINUS_DST_COLOR #x0307) 1459 | (define GL_SRC_ALPHA_SATURATE #x0308) 1460 | ;;;; Render Mode 1461 | (define GL_FEEDBACK #x1C01) 1462 | (define GL_RENDER #x1C00) 1463 | (define GL_SELECT #x1C02) 1464 | ;;;; Feedback 1465 | (define GL_2D #x0600) 1466 | (define GL_3D #x0601) 1467 | (define GL_3D_COLOR #x0602) 1468 | (define GL_3D_COLOR_TEXTURE #x0603) 1469 | (define GL_4D_COLOR_TEXTURE #x0604) 1470 | (define GL_POINT_TOKEN #x0701) 1471 | (define GL_LINE_TOKEN #x0702) 1472 | (define GL_LINE_RESET_TOKEN #x0707) 1473 | (define GL_POLYGON_TOKEN #x0703) 1474 | (define GL_BITMAP_TOKEN #x0704) 1475 | (define GL_DRAW_PIXEL_TOKEN #x0705) 1476 | (define GL_COPY_PIXEL_TOKEN #x0706) 1477 | (define GL_PASS_THROUGH_TOKEN #x0700) 1478 | (define GL_FEEDBACK_BUFFER_POINTER #x0DF0) 1479 | (define GL_FEEDBACK_BUFFER_SIZE #x0DF1) 1480 | (define GL_FEEDBACK_BUFFER_TYPE #x0DF2) 1481 | ;;;; Selection 1482 | (define GL_SELECTION_BUFFER_POINTER #x0DF3) 1483 | (define GL_SELECTION_BUFFER_SIZE #x0DF4) 1484 | ;;;; Fog 1485 | (define GL_FOG #x0B60) 1486 | (define GL_FOG_MODE #x0B65) 1487 | (define GL_FOG_DENSITY #x0B62) 1488 | (define GL_FOG_COLOR #x0B66) 1489 | (define GL_FOG_INDEX #x0B61) 1490 | (define GL_FOG_START #x0B63) 1491 | (define GL_FOG_END #x0B64) 1492 | (define GL_LINEAR #x2601) 1493 | (define GL_EXP #x0800) 1494 | (define GL_EXP2 #x0801) 1495 | ;;;; Logic Ops 1496 | (define GL_LOGIC_OP #x0BF1) 1497 | (define GL_INDEX_LOGIC_OP #x0BF1) 1498 | (define GL_COLOR_LOGIC_OP #x0BF2) 1499 | (define GL_LOGIC_OP_MODE #x0BF0) 1500 | (define GL_CLEAR #x1500) 1501 | (define GL_SET #x150F) 1502 | (define GL_COPY #x1503) 1503 | (define GL_COPY_INVERTED #x150C) 1504 | (define GL_NOOP #x1505) 1505 | (define GL_INVERT #x150A) 1506 | (define GL_AND #x1501) 1507 | (define GL_NAND #x150E) 1508 | (define GL_OR #x1507) 1509 | (define GL_NOR #x1508) 1510 | (define GL_XOR #x1506) 1511 | (define GL_EQUIV #x1509) 1512 | (define GL_AND_REVERSE #x1502) 1513 | (define GL_AND_INVERTED #x1504) 1514 | (define GL_OR_REVERSE #x150B) 1515 | (define GL_OR_INVERTED #x150D) 1516 | ;;;; Stencil 1517 | (define GL_STENCIL_BITS #x0D57) 1518 | (define GL_STENCIL_TEST #x0B90) 1519 | (define GL_STENCIL_CLEAR_VALUE #x0B91) 1520 | (define GL_STENCIL_FUNC #x0B92) 1521 | (define GL_STENCIL_VALUE_MASK #x0B93) 1522 | (define GL_STENCIL_FAIL #x0B94) 1523 | (define GL_STENCIL_PASS_DEPTH_FAIL #x0B95) 1524 | (define GL_STENCIL_PASS_DEPTH_PASS #x0B96) 1525 | (define GL_STENCIL_REF #x0B97) 1526 | (define GL_STENCIL_WRITEMASK #x0B98) 1527 | (define GL_STENCIL_INDEX #x1901) 1528 | (define GL_KEEP #x1E00) 1529 | (define GL_REPLACE #x1E01) 1530 | (define GL_INCR #x1E02) 1531 | (define GL_DECR #x1E03) 1532 | ;;;; Buffers, Pixel Drawing/Reading 1533 | (define GL_NONE #x0) 1534 | (define GL_LEFT #x0406) 1535 | (define GL_RIGHT #x0407) 1536 | ;;;;GL_FRONT 0x0404 1537 | ;;;;GL_BACK 0x0405 1538 | ;;;;GL_FRONT_AND_BACK 0x0408 1539 | (define GL_FRONT_LEFT #x0400) 1540 | (define GL_FRONT_RIGHT #x0401) 1541 | (define GL_BACK_LEFT #x0402) 1542 | (define GL_BACK_RIGHT #x0403) 1543 | (define GL_AUX0 #x0409) 1544 | (define GL_AUX1 #x040A) 1545 | (define GL_AUX2 #x040B) 1546 | (define GL_AUX3 #x040C) 1547 | (define GL_COLOR_INDEX #x1900) 1548 | (define GL_RED #x1903) 1549 | (define GL_GREEN #x1904) 1550 | (define GL_BLUE #x1905) 1551 | (define GL_ALPHA #x1906) 1552 | (define GL_LUMINANCE #x1909) 1553 | (define GL_LUMINANCE_ALPHA #x190A) 1554 | (define GL_ALPHA_BITS #x0D55) 1555 | (define GL_RED_BITS #x0D52) 1556 | (define GL_GREEN_BITS #x0D53) 1557 | (define GL_BLUE_BITS #x0D54) 1558 | (define GL_INDEX_BITS #x0D51) 1559 | (define GL_SUBPIXEL_BITS #x0D50) 1560 | (define GL_AUX_BUFFERS #x0C00) 1561 | (define GL_READ_BUFFER #x0C02) 1562 | (define GL_DRAW_BUFFER #x0C01) 1563 | (define GL_DOUBLEBUFFER #x0C32) 1564 | (define GL_STEREO #x0C33) 1565 | (define GL_BITMAP #x1A00) 1566 | (define GL_COLOR #x1800) 1567 | (define GL_DEPTH #x1801) 1568 | (define GL_STENCIL #x1802) 1569 | (define GL_DITHER #x0BD0) 1570 | (define GL_RGB #x1907) 1571 | (define GL_RGBA #x1908) 1572 | ;;;; Implementation limits 1573 | (define GL_MAX_LIST_NESTING #x0B31) 1574 | (define GL_MAX_EVAL_ORDER #x0D30) 1575 | (define GL_MAX_LIGHTS #x0D31) 1576 | (define GL_MAX_CLIP_PLANES #x0D32) 1577 | (define GL_MAX_TEXTURE_SIZE #x0D33) 1578 | (define GL_MAX_PIXEL_MAP_TABLE #x0D34) 1579 | (define GL_MAX_ATTRIB_STACK_DEPTH #x0D35) 1580 | (define GL_MAX_MODELVIEW_STACK_DEPTH #x0D36) 1581 | (define GL_MAX_NAME_STACK_DEPTH #x0D37) 1582 | (define GL_MAX_PROJECTION_STACK_DEPTH #x0D38) 1583 | (define GL_MAX_TEXTURE_STACK_DEPTH #x0D39) 1584 | (define GL_MAX_VIEWPORT_DIMS #x0D3A) 1585 | (define GL_MAX_CLIENT_ATTRIB_STACK_DEPTH #x0D3B) 1586 | ;;;; Gets 1587 | (define GL_ATTRIB_STACK_DEPTH #x0BB0) 1588 | (define GL_CLIENT_ATTRIB_STACK_DEPTH #x0BB1) 1589 | (define GL_COLOR_CLEAR_VALUE #x0C22) 1590 | (define GL_COLOR_WRITEMASK #x0C23) 1591 | (define GL_CURRENT_INDEX #x0B01) 1592 | (define GL_CURRENT_COLOR #x0B00) 1593 | (define GL_CURRENT_NORMAL #x0B02) 1594 | (define GL_CURRENT_RASTER_COLOR #x0B04) 1595 | (define GL_CURRENT_RASTER_DISTANCE #x0B09) 1596 | (define GL_CURRENT_RASTER_INDEX #x0B05) 1597 | (define GL_CURRENT_RASTER_POSITION #x0B07) 1598 | (define GL_CURRENT_RASTER_TEXTURE_COORDS #x0B06) 1599 | (define GL_CURRENT_RASTER_POSITION_VALID #x0B08) 1600 | (define GL_CURRENT_TEXTURE_COORDS #x0B03) 1601 | (define GL_INDEX_CLEAR_VALUE #x0C20) 1602 | (define GL_INDEX_MODE #x0C30) 1603 | (define GL_INDEX_WRITEMASK #x0C21) 1604 | (define GL_MODELVIEW_MATRIX #x0BA6) 1605 | (define GL_MODELVIEW_STACK_DEPTH #x0BA3) 1606 | (define GL_NAME_STACK_DEPTH #x0D70) 1607 | (define GL_PROJECTION_MATRIX #x0BA7) 1608 | (define GL_PROJECTION_STACK_DEPTH #x0BA4) 1609 | (define GL_RENDER_MODE #x0C40) 1610 | (define GL_RGBA_MODE #x0C31) 1611 | (define GL_TEXTURE_MATRIX #x0BA8) 1612 | (define GL_TEXTURE_STACK_DEPTH #x0BA5) 1613 | (define GL_VIEWPORT #x0BA2) 1614 | ;;;; Evaluators 1615 | (define GL_AUTO_NORMAL #x0D80) 1616 | (define GL_MAP1_COLOR_4 #x0D90) 1617 | (define GL_MAP1_INDEX #x0D91) 1618 | (define GL_MAP1_NORMAL #x0D92) 1619 | (define GL_MAP1_TEXTURE_COORD_1 #x0D93) 1620 | (define GL_MAP1_TEXTURE_COORD_2 #x0D94) 1621 | (define GL_MAP1_TEXTURE_COORD_3 #x0D95) 1622 | (define GL_MAP1_TEXTURE_COORD_4 #x0D96) 1623 | (define GL_MAP1_VERTEX_3 #x0D97) 1624 | (define GL_MAP1_VERTEX_4 #x0D98) 1625 | (define GL_MAP2_COLOR_4 #x0DB0) 1626 | (define GL_MAP2_INDEX #x0DB1) 1627 | (define GL_MAP2_NORMAL #x0DB2) 1628 | (define GL_MAP2_TEXTURE_COORD_1 #x0DB3) 1629 | (define GL_MAP2_TEXTURE_COORD_2 #x0DB4) 1630 | (define GL_MAP2_TEXTURE_COORD_3 #x0DB5) 1631 | (define GL_MAP2_TEXTURE_COORD_4 #x0DB6) 1632 | (define GL_MAP2_VERTEX_3 #x0DB7) 1633 | (define GL_MAP2_VERTEX_4 #x0DB8) 1634 | (define GL_MAP1_GRID_DOMAIN #x0DD0) 1635 | (define GL_MAP1_GRID_SEGMENTS #x0DD1) 1636 | (define GL_MAP2_GRID_DOMAIN #x0DD2) 1637 | (define GL_MAP2_GRID_SEGMENTS #x0DD3) 1638 | (define GL_COEFF #x0A00) 1639 | (define GL_ORDER #x0A01) 1640 | (define GL_DOMAIN #x0A02) 1641 | ;;;; Hints 1642 | (define GL_PERSPECTIVE_CORRECTION_HINT #x0C50) 1643 | (define GL_POINT_SMOOTH_HINT #x0C51) 1644 | (define GL_LINE_SMOOTH_HINT #x0C52) 1645 | (define GL_POLYGON_SMOOTH_HINT #x0C53) 1646 | (define GL_FOG_HINT #x0C54) 1647 | (define GL_DONT_CARE #x1100) 1648 | (define GL_FASTEST #x1101) 1649 | (define GL_NICEST #x1102) 1650 | ;;;; Scissor box 1651 | (define GL_SCISSOR_BOX #x0C10) 1652 | (define GL_SCISSOR_TEST #x0C11) 1653 | ;;;; Pixel Mode / Transfer 1654 | (define GL_MAP_COLOR #x0D10) 1655 | (define GL_MAP_STENCIL #x0D11) 1656 | (define GL_INDEX_SHIFT #x0D12) 1657 | (define GL_INDEX_OFFSET #x0D13) 1658 | (define GL_RED_SCALE #x0D14) 1659 | (define GL_RED_BIAS #x0D15) 1660 | (define GL_GREEN_SCALE #x0D18) 1661 | (define GL_GREEN_BIAS #x0D19) 1662 | (define GL_BLUE_SCALE #x0D1A) 1663 | (define GL_BLUE_BIAS #x0D1B) 1664 | (define GL_ALPHA_SCALE #x0D1C) 1665 | (define GL_ALPHA_BIAS #x0D1D) 1666 | (define GL_DEPTH_SCALE #x0D1E) 1667 | (define GL_DEPTH_BIAS #x0D1F) 1668 | (define GL_PIXEL_MAP_S_TO_S_SIZE #x0CB1) 1669 | (define GL_PIXEL_MAP_I_TO_I_SIZE #x0CB0) 1670 | (define GL_PIXEL_MAP_I_TO_R_SIZE #x0CB2) 1671 | (define GL_PIXEL_MAP_I_TO_G_SIZE #x0CB3) 1672 | (define GL_PIXEL_MAP_I_TO_B_SIZE #x0CB4) 1673 | (define GL_PIXEL_MAP_I_TO_A_SIZE #x0CB5) 1674 | (define GL_PIXEL_MAP_R_TO_R_SIZE #x0CB6) 1675 | (define GL_PIXEL_MAP_G_TO_G_SIZE #x0CB7) 1676 | (define GL_PIXEL_MAP_B_TO_B_SIZE #x0CB8) 1677 | (define GL_PIXEL_MAP_A_TO_A_SIZE #x0CB9) 1678 | (define GL_PIXEL_MAP_S_TO_S #x0C71) 1679 | (define GL_PIXEL_MAP_I_TO_I #x0C70) 1680 | (define GL_PIXEL_MAP_I_TO_R #x0C72) 1681 | (define GL_PIXEL_MAP_I_TO_G #x0C73) 1682 | (define GL_PIXEL_MAP_I_TO_B #x0C74) 1683 | (define GL_PIXEL_MAP_I_TO_A #x0C75) 1684 | (define GL_PIXEL_MAP_R_TO_R #x0C76) 1685 | (define GL_PIXEL_MAP_G_TO_G #x0C77) 1686 | (define GL_PIXEL_MAP_B_TO_B #x0C78) 1687 | (define GL_PIXEL_MAP_A_TO_A #x0C79) 1688 | (define GL_PACK_ALIGNMENT #x0D05) 1689 | (define GL_PACK_LSB_FIRST #x0D01) 1690 | (define GL_PACK_ROW_LENGTH #x0D02) 1691 | (define GL_PACK_SKIP_PIXELS #x0D04) 1692 | (define GL_PACK_SKIP_ROWS #x0D03) 1693 | (define GL_PACK_SWAP_BYTES #x0D00) 1694 | (define GL_UNPACK_ALIGNMENT #x0CF5) 1695 | (define GL_UNPACK_LSB_FIRST #x0CF1) 1696 | (define GL_UNPACK_ROW_LENGTH #x0CF2) 1697 | (define GL_UNPACK_SKIP_PIXELS #x0CF4) 1698 | (define GL_UNPACK_SKIP_ROWS #x0CF3) 1699 | (define GL_UNPACK_SWAP_BYTES #x0CF0) 1700 | (define GL_ZOOM_X #x0D16) 1701 | (define GL_ZOOM_Y #x0D17) 1702 | ;;;; Texture mapping 1703 | (define GL_TEXTURE_ENV #x2300) 1704 | (define GL_TEXTURE_ENV_MODE #x2200) 1705 | (define GL_TEXTURE_1D #x0DE0) 1706 | (define GL_TEXTURE_2D #x0DE1) 1707 | (define GL_TEXTURE_WRAP_S #x2802) 1708 | (define GL_TEXTURE_WRAP_T #x2803) 1709 | (define GL_TEXTURE_MAG_FILTER #x2800) 1710 | (define GL_TEXTURE_MIN_FILTER #x2801) 1711 | (define GL_TEXTURE_ENV_COLOR #x2201) 1712 | (define GL_TEXTURE_GEN_S #x0C60) 1713 | (define GL_TEXTURE_GEN_T #x0C61) 1714 | (define GL_TEXTURE_GEN_MODE #x2500) 1715 | (define GL_TEXTURE_BORDER_COLOR #x1004) 1716 | (define GL_TEXTURE_WIDTH #x1000) 1717 | (define GL_TEXTURE_HEIGHT #x1001) 1718 | (define GL_TEXTURE_BORDER #x1005) 1719 | (define GL_TEXTURE_COMPONENTS #x1003) 1720 | (define GL_TEXTURE_RED_SIZE #x805C) 1721 | (define GL_TEXTURE_GREEN_SIZE #x805D) 1722 | (define GL_TEXTURE_BLUE_SIZE #x805E) 1723 | (define GL_TEXTURE_ALPHA_SIZE #x805F) 1724 | (define GL_TEXTURE_LUMINANCE_SIZE #x8060) 1725 | (define GL_TEXTURE_INTENSITY_SIZE #x8061) 1726 | (define GL_NEAREST_MIPMAP_NEAREST #x2700) 1727 | (define GL_NEAREST_MIPMAP_LINEAR #x2702) 1728 | (define GL_LINEAR_MIPMAP_NEAREST #x2701) 1729 | (define GL_LINEAR_MIPMAP_LINEAR #x2703) 1730 | (define GL_OBJECT_LINEAR #x2401) 1731 | (define GL_OBJECT_PLANE #x2501) 1732 | (define GL_EYE_LINEAR #x2400) 1733 | (define GL_EYE_PLANE #x2502) 1734 | (define GL_SPHERE_MAP #x2402) 1735 | (define GL_DECAL #x2101) 1736 | (define GL_MODULATE #x2100) 1737 | (define GL_NEAREST #x2600) 1738 | (define GL_REPEAT #x2901) 1739 | (define GL_CLAMP #x2900) 1740 | (define GL_S #x2000) 1741 | (define GL_T #x2001) 1742 | (define GL_R #x2002) 1743 | (define GL_Q #x2003) 1744 | (define GL_TEXTURE_GEN_R #x0C62) 1745 | (define GL_TEXTURE_GEN_Q #x0C63) 1746 | ;;;; Utility 1747 | (define GL_VENDOR #x1F00) 1748 | (define GL_RENDERER #x1F01) 1749 | (define GL_VERSION #x1F02) 1750 | (define GL_EXTENSIONS #x1F03) 1751 | ;;;; Errors 1752 | (define GL_NO_ERROR #x0) 1753 | (define GL_INVALID_ENUM #x0500) 1754 | (define GL_INVALID_VALUE #x0501) 1755 | (define GL_INVALID_OPERATION #x0502) 1756 | (define GL_STACK_OVERFLOW #x0503) 1757 | (define GL_STACK_UNDERFLOW #x0504) 1758 | (define GL_OUT_OF_MEMORY #x0505) 1759 | ;;;; glPush/PopAttrib bits 1760 | (define GL_CURRENT_BIT #x00000001) 1761 | (define GL_POINT_BIT #x00000002) 1762 | (define GL_LINE_BIT #x00000004) 1763 | (define GL_POLYGON_BIT #x00000008) 1764 | (define GL_POLYGON_STIPPLE_BIT #x00000010) 1765 | (define GL_PIXEL_MODE_BIT #x00000020) 1766 | (define GL_LIGHTING_BIT #x00000040) 1767 | (define GL_FOG_BIT #x00000080) 1768 | (define GL_DEPTH_BUFFER_BIT #x00000100) 1769 | (define GL_ACCUM_BUFFER_BIT #x00000200) 1770 | (define GL_STENCIL_BUFFER_BIT #x00000400) 1771 | (define GL_VIEWPORT_BIT #x00000800) 1772 | (define GL_TRANSFORM_BIT #x00001000) 1773 | (define GL_ENABLE_BIT #x00002000) 1774 | (define GL_COLOR_BUFFER_BIT #x00004000) 1775 | (define GL_HINT_BIT #x00008000) 1776 | (define GL_EVAL_BIT #x00010000) 1777 | (define GL_LIST_BIT #x00020000) 1778 | (define GL_TEXTURE_BIT #x00040000) 1779 | (define GL_SCISSOR_BIT #x00080000) 1780 | (define GL_ALL_ATTRIB_BITS #x000FFFFF) 1781 | ;;;; OpenGL 1.1 1782 | (define GL_PROXY_TEXTURE_1D #x8063) 1783 | (define GL_PROXY_TEXTURE_2D #x8064) 1784 | (define GL_TEXTURE_PRIORITY #x8066) 1785 | (define GL_TEXTURE_RESIDENT #x8067) 1786 | (define GL_TEXTURE_BINDING_1D #x8068) 1787 | (define GL_TEXTURE_BINDING_2D #x8069) 1788 | (define GL_TEXTURE_INTERNAL_FORMAT #x1003) 1789 | (define GL_ALPHA4 #x803B) 1790 | (define GL_ALPHA8 #x803C) 1791 | (define GL_ALPHA12 #x803D) 1792 | (define GL_ALPHA16 #x803E) 1793 | (define GL_LUMINANCE4 #x803F) 1794 | (define GL_LUMINANCE8 #x8040) 1795 | (define GL_LUMINANCE12 #x8041) 1796 | (define GL_LUMINANCE16 #x8042) 1797 | (define GL_LUMINANCE4_ALPHA4 #x8043) 1798 | (define GL_LUMINANCE6_ALPHA2 #x8044) 1799 | (define GL_LUMINANCE8_ALPHA8 #x8045) 1800 | (define GL_LUMINANCE12_ALPHA4 #x8046) 1801 | (define GL_LUMINANCE12_ALPHA12 #x8047) 1802 | (define GL_LUMINANCE16_ALPHA16 #x8048) 1803 | (define GL_INTENSITY #x8049) 1804 | (define GL_INTENSITY4 #x804A) 1805 | (define GL_INTENSITY8 #x804B) 1806 | (define GL_INTENSITY12 #x804C) 1807 | (define GL_INTENSITY16 #x804D) 1808 | (define GL_R3_G3_B2 #x2A10) 1809 | (define GL_RGB4 #x804F) 1810 | (define GL_RGB5 #x8050) 1811 | (define GL_RGB8 #x8051) 1812 | (define GL_RGB10 #x8052) 1813 | (define GL_RGB12 #x8053) 1814 | (define GL_RGB16 #x8054) 1815 | (define GL_RGBA2 #x8055) 1816 | (define GL_RGBA4 #x8056) 1817 | (define GL_RGB5_A1 #x8057) 1818 | (define GL_RGBA8 #x8058) 1819 | (define GL_RGB10_A2 #x8059) 1820 | (define GL_RGBA12 #x805A) 1821 | (define GL_RGBA16 #x805B) 1822 | (define GL_CLIENT_PIXEL_STORE_BIT #x00000001) 1823 | (define GL_CLIENT_VERTEX_ARRAY_BIT #x00000002) 1824 | (define GL_ALL_CLIENT_ATTRIB_BITS #xFFFFFFFF) 1825 | (define GL_CLIENT_ALL_ATTRIB_BITS #xFFFFFFFF) 1826 | ;;;; OpenGL 1.2 1827 | (define GL_RESCALE_NORMAL #x803A) 1828 | (define GL_CLAMP_TO_EDGE #x812F) 1829 | (define GL_MAX_ELEMENTS_VERTICES #x80E8) 1830 | (define GL_MAX_ELEMENTS_INDICES #x80E9) 1831 | (define GL_BGR #x80E0) 1832 | (define GL_BGRA #x80E1) 1833 | (define GL_UNSIGNED_BYTE_3_3_2 #x8032) 1834 | (define GL_UNSIGNED_BYTE_2_3_3_REV #x8362) 1835 | (define GL_UNSIGNED_SHORT_5_6_5 #x8363) 1836 | (define GL_UNSIGNED_SHORT_5_6_5_REV #x8364) 1837 | (define GL_UNSIGNED_SHORT_4_4_4_4 #x8033) 1838 | (define GL_UNSIGNED_SHORT_4_4_4_4_REV #x8365) 1839 | (define GL_UNSIGNED_SHORT_5_5_5_1 #x8034) 1840 | (define GL_UNSIGNED_SHORT_1_5_5_5_REV #x8366) 1841 | (define GL_UNSIGNED_INT_8_8_8_8 #x8035) 1842 | (define GL_UNSIGNED_INT_8_8_8_8_REV #x8367) 1843 | (define GL_UNSIGNED_INT_10_10_10_2 #x8036) 1844 | (define GL_UNSIGNED_INT_2_10_10_10_REV #x8368) 1845 | (define GL_LIGHT_MODEL_COLOR_CONTROL #x81F8) 1846 | (define GL_SINGLE_COLOR #x81F9) 1847 | (define GL_SEPARATE_SPECULAR_COLOR #x81FA) 1848 | (define GL_TEXTURE_MIN_LOD #x813A) 1849 | (define GL_TEXTURE_MAX_LOD #x813B) 1850 | (define GL_TEXTURE_BASE_LEVEL #x813C) 1851 | (define GL_TEXTURE_MAX_LEVEL #x813D) 1852 | (define GL_SMOOTH_POINT_SIZE_RANGE #x0B12) 1853 | (define GL_SMOOTH_POINT_SIZE_GRANULARITY #x0B13) 1854 | (define GL_SMOOTH_LINE_WIDTH_RANGE #x0B22) 1855 | (define GL_SMOOTH_LINE_WIDTH_GRANULARITY #x0B23) 1856 | (define GL_ALIASED_POINT_SIZE_RANGE #x846D) 1857 | (define GL_ALIASED_LINE_WIDTH_RANGE #x846E) 1858 | (define GL_PACK_SKIP_IMAGES #x806B) 1859 | (define GL_PACK_IMAGE_HEIGHT #x806C) 1860 | (define GL_UNPACK_SKIP_IMAGES #x806D) 1861 | (define GL_UNPACK_IMAGE_HEIGHT #x806E) 1862 | (define GL_TEXTURE_3D #x806F) 1863 | (define GL_PROXY_TEXTURE_3D #x8070) 1864 | (define GL_TEXTURE_DEPTH #x8071) 1865 | (define GL_TEXTURE_WRAP_R #x8072) 1866 | (define GL_MAX_3D_TEXTURE_SIZE #x8073) 1867 | (define GL_TEXTURE_BINDING_3D #x806A) 1868 | ;;;; GL_ARB_imaging 1869 | (define GL_CONSTANT_COLOR #x8001) 1870 | (define GL_ONE_MINUS_CONSTANT_COLOR #x8002) 1871 | (define GL_CONSTANT_ALPHA #x8003) 1872 | (define GL_ONE_MINUS_CONSTANT_ALPHA #x8004) 1873 | (define GL_COLOR_TABLE #x80D0) 1874 | (define GL_POST_CONVOLUTION_COLOR_TABLE #x80D1) 1875 | (define GL_POST_COLOR_MATRIX_COLOR_TABLE #x80D2) 1876 | (define GL_PROXY_COLOR_TABLE #x80D3) 1877 | (define GL_PROXY_POST_CONVOLUTION_COLOR_TABLE #x80D4) 1878 | (define GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE #x80D5) 1879 | (define GL_COLOR_TABLE_SCALE #x80D6) 1880 | (define GL_COLOR_TABLE_BIAS #x80D7) 1881 | (define GL_COLOR_TABLE_FORMAT #x80D8) 1882 | (define GL_COLOR_TABLE_WIDTH #x80D9) 1883 | (define GL_COLOR_TABLE_RED_SIZE #x80DA) 1884 | (define GL_COLOR_TABLE_GREEN_SIZE #x80DB) 1885 | (define GL_COLOR_TABLE_BLUE_SIZE #x80DC) 1886 | (define GL_COLOR_TABLE_ALPHA_SIZE #x80DD) 1887 | (define GL_COLOR_TABLE_LUMINANCE_SIZE #x80DE) 1888 | (define GL_COLOR_TABLE_INTENSITY_SIZE #x80DF) 1889 | (define GL_CONVOLUTION_1D #x8010) 1890 | (define GL_CONVOLUTION_2D #x8011) 1891 | (define GL_SEPARABLE_2D #x8012) 1892 | (define GL_CONVOLUTION_BORDER_MODE #x8013) 1893 | (define GL_CONVOLUTION_FILTER_SCALE #x8014) 1894 | (define GL_CONVOLUTION_FILTER_BIAS #x8015) 1895 | (define GL_REDUCE #x8016) 1896 | (define GL_CONVOLUTION_FORMAT #x8017) 1897 | (define GL_CONVOLUTION_WIDTH #x8018) 1898 | (define GL_CONVOLUTION_HEIGHT #x8019) 1899 | (define GL_MAX_CONVOLUTION_WIDTH #x801A) 1900 | (define GL_MAX_CONVOLUTION_HEIGHT #x801B) 1901 | (define GL_POST_CONVOLUTION_RED_SCALE #x801C) 1902 | (define GL_POST_CONVOLUTION_GREEN_SCALE #x801D) 1903 | (define GL_POST_CONVOLUTION_BLUE_SCALE #x801E) 1904 | (define GL_POST_CONVOLUTION_ALPHA_SCALE #x801F) 1905 | (define GL_POST_CONVOLUTION_RED_BIAS #x8020) 1906 | (define GL_POST_CONVOLUTION_GREEN_BIAS #x8021) 1907 | (define GL_POST_CONVOLUTION_BLUE_BIAS #x8022) 1908 | (define GL_POST_CONVOLUTION_ALPHA_BIAS #x8023) 1909 | (define GL_CONSTANT_BORDER #x8151) 1910 | (define GL_REPLICATE_BORDER #x8153) 1911 | (define GL_CONVOLUTION_BORDER_COLOR #x8154) 1912 | (define GL_COLOR_MATRIX #x80B1) 1913 | (define GL_COLOR_MATRIX_STACK_DEPTH #x80B2) 1914 | (define GL_MAX_COLOR_MATRIX_STACK_DEPTH #x80B3) 1915 | (define GL_POST_COLOR_MATRIX_RED_SCALE #x80B4) 1916 | (define GL_POST_COLOR_MATRIX_GREEN_SCALE #x80B5) 1917 | (define GL_POST_COLOR_MATRIX_BLUE_SCALE #x80B6) 1918 | (define GL_POST_COLOR_MATRIX_ALPHA_SCALE #x80B7) 1919 | (define GL_POST_COLOR_MATRIX_RED_BIAS #x80B8) 1920 | (define GL_POST_COLOR_MATRIX_GREEN_BIAS #x80B9) 1921 | (define GL_POST_COLOR_MATRIX_BLUE_BIAS #x80BA) 1922 | (define GL_POST_COLOR_MATRIX_ALPHA_BIAS #x80BB) 1923 | (define GL_HISTOGRAM #x8024) 1924 | (define GL_PROXY_HISTOGRAM #x8025) 1925 | (define GL_HISTOGRAM_WIDTH #x8026) 1926 | (define GL_HISTOGRAM_FORMAT #x8027) 1927 | (define GL_HISTOGRAM_RED_SIZE #x8028) 1928 | (define GL_HISTOGRAM_GREEN_SIZE #x8029) 1929 | (define GL_HISTOGRAM_BLUE_SIZE #x802A) 1930 | (define GL_HISTOGRAM_ALPHA_SIZE #x802B) 1931 | (define GL_HISTOGRAM_LUMINANCE_SIZE #x802C) 1932 | (define GL_HISTOGRAM_SINK #x802D) 1933 | (define GL_MINMAX #x802E) 1934 | (define GL_MINMAX_FORMAT #x802F) 1935 | (define GL_MINMAX_SINK #x8030) 1936 | (define GL_TABLE_TOO_LARGE #x8031) 1937 | (define GL_BLEND_EQUATION #x8009) 1938 | (define GL_MIN #x8007) 1939 | (define GL_MAX #x8008) 1940 | (define GL_FUNC_ADD #x8006) 1941 | (define GL_FUNC_SUBTRACT #x800A) 1942 | (define GL_FUNC_REVERSE_SUBTRACT #x800B) 1943 | (define GL_BLEND_COLOR #x8005) 1944 | ;;;; OpenGL 1.3 1945 | ;;;; multitexture 1946 | (define GL_TEXTURE0 #x84C0) 1947 | (define GL_TEXTURE1 #x84C1) 1948 | (define GL_TEXTURE2 #x84C2) 1949 | (define GL_TEXTURE3 #x84C3) 1950 | (define GL_TEXTURE4 #x84C4) 1951 | (define GL_TEXTURE5 #x84C5) 1952 | (define GL_TEXTURE6 #x84C6) 1953 | (define GL_TEXTURE7 #x84C7) 1954 | (define GL_TEXTURE8 #x84C8) 1955 | (define GL_TEXTURE9 #x84C9) 1956 | (define GL_TEXTURE10 #x84CA) 1957 | (define GL_TEXTURE11 #x84CB) 1958 | (define GL_TEXTURE12 #x84CC) 1959 | (define GL_TEXTURE13 #x84CD) 1960 | (define GL_TEXTURE14 #x84CE) 1961 | (define GL_TEXTURE15 #x84CF) 1962 | (define GL_TEXTURE16 #x84D0) 1963 | (define GL_TEXTURE17 #x84D1) 1964 | (define GL_TEXTURE18 #x84D2) 1965 | (define GL_TEXTURE19 #x84D3) 1966 | (define GL_TEXTURE20 #x84D4) 1967 | (define GL_TEXTURE21 #x84D5) 1968 | (define GL_TEXTURE22 #x84D6) 1969 | (define GL_TEXTURE23 #x84D7) 1970 | (define GL_TEXTURE24 #x84D8) 1971 | (define GL_TEXTURE25 #x84D9) 1972 | (define GL_TEXTURE26 #x84DA) 1973 | (define GL_TEXTURE27 #x84DB) 1974 | (define GL_TEXTURE28 #x84DC) 1975 | (define GL_TEXTURE29 #x84DD) 1976 | (define GL_TEXTURE30 #x84DE) 1977 | (define GL_TEXTURE31 #x84DF) 1978 | (define GL_ACTIVE_TEXTURE #x84E0) 1979 | (define GL_CLIENT_ACTIVE_TEXTURE #x84E1) 1980 | (define GL_MAX_TEXTURE_UNITS #x84E2) 1981 | ;;;; texture_cube_map 1982 | (define GL_NORMAL_MAP #x8511) 1983 | (define GL_REFLECTION_MAP #x8512) 1984 | (define GL_TEXTURE_CUBE_MAP #x8513) 1985 | (define GL_TEXTURE_BINDING_CUBE_MAP #x8514) 1986 | (define GL_TEXTURE_CUBE_MAP_POSITIVE_X #x8515) 1987 | (define GL_TEXTURE_CUBE_MAP_NEGATIVE_X #x8516) 1988 | (define GL_TEXTURE_CUBE_MAP_POSITIVE_Y #x8517) 1989 | (define GL_TEXTURE_CUBE_MAP_NEGATIVE_Y #x8518) 1990 | (define GL_TEXTURE_CUBE_MAP_POSITIVE_Z #x8519) 1991 | (define GL_TEXTURE_CUBE_MAP_NEGATIVE_Z #x851A) 1992 | (define GL_PROXY_TEXTURE_CUBE_MAP #x851B) 1993 | (define GL_MAX_CUBE_MAP_TEXTURE_SIZE #x851C) 1994 | ;;;; texture_compression 1995 | (define GL_COMPRESSED_ALPHA #x84E9) 1996 | (define GL_COMPRESSED_LUMINANCE #x84EA) 1997 | (define GL_COMPRESSED_LUMINANCE_ALPHA #x84EB) 1998 | (define GL_COMPRESSED_INTENSITY #x84EC) 1999 | (define GL_COMPRESSED_RGB #x84ED) 2000 | (define GL_COMPRESSED_RGBA #x84EE) 2001 | (define GL_TEXTURE_COMPRESSION_HINT #x84EF) 2002 | (define GL_TEXTURE_COMPRESSED_IMAGE_SIZE #x86A0) 2003 | (define GL_TEXTURE_COMPRESSED #x86A1) 2004 | (define GL_NUM_COMPRESSED_TEXTURE_FORMATS #x86A2) 2005 | (define GL_COMPRESSED_TEXTURE_FORMATS #x86A3) 2006 | ;;;; multisample 2007 | (define GL_MULTISAMPLE #x809D) 2008 | (define GL_SAMPLE_ALPHA_TO_COVERAGE #x809E) 2009 | (define GL_SAMPLE_ALPHA_TO_ONE #x809F) 2010 | (define GL_SAMPLE_COVERAGE #x80A0) 2011 | (define GL_SAMPLE_BUFFERS #x80A8) 2012 | (define GL_SAMPLES #x80A9) 2013 | (define GL_SAMPLE_COVERAGE_VALUE #x80AA) 2014 | (define GL_SAMPLE_COVERAGE_INVERT #x80AB) 2015 | (define GL_MULTISAMPLE_BIT #x20000000) 2016 | ;;;; transpose_matrix 2017 | (define GL_TRANSPOSE_MODELVIEW_MATRIX #x84E3) 2018 | (define GL_TRANSPOSE_PROJECTION_MATRIX #x84E4) 2019 | (define GL_TRANSPOSE_TEXTURE_MATRIX #x84E5) 2020 | (define GL_TRANSPOSE_COLOR_MATRIX #x84E6) 2021 | ;;;; texture_env_combine 2022 | (define GL_COMBINE #x8570) 2023 | (define GL_COMBINE_RGB #x8571) 2024 | (define GL_COMBINE_ALPHA #x8572) 2025 | (define GL_SOURCE0_RGB #x8580) 2026 | (define GL_SOURCE1_RGB #x8581) 2027 | (define GL_SOURCE2_RGB #x8582) 2028 | (define GL_SOURCE0_ALPHA #x8588) 2029 | (define GL_SOURCE1_ALPHA #x8589) 2030 | (define GL_SOURCE2_ALPHA #x858A) 2031 | (define GL_OPERAND0_RGB #x8590) 2032 | (define GL_OPERAND1_RGB #x8591) 2033 | (define GL_OPERAND2_RGB #x8592) 2034 | (define GL_OPERAND0_ALPHA #x8598) 2035 | (define GL_OPERAND1_ALPHA #x8599) 2036 | (define GL_OPERAND2_ALPHA #x859A) 2037 | (define GL_RGB_SCALE #x8573) 2038 | (define GL_ADD_SIGNED #x8574) 2039 | (define GL_INTERPOLATE #x8575) 2040 | (define GL_SUBTRACT #x84E7) 2041 | (define GL_CONSTANT #x8576) 2042 | (define GL_PRIMARY_COLOR #x8577) 2043 | (define GL_PREVIOUS #x8578) 2044 | ;;;; texture_env_dot3 2045 | (define GL_DOT3_RGB #x86AE) 2046 | (define GL_DOT3_RGBA #x86AF) 2047 | ;;;; texture_border_clamp 2048 | (define GL_CLAMP_TO_BORDER #x812D) 2049 | ;;;; GL_ARB_multitexture: ARB extension 1 and OpenGL 1.2.1 2050 | (define GL_TEXTURE0_ARB #x84C0) 2051 | (define GL_TEXTURE1_ARB #x84C1) 2052 | (define GL_TEXTURE2_ARB #x84C2) 2053 | (define GL_TEXTURE3_ARB #x84C3) 2054 | (define GL_TEXTURE4_ARB #x84C4) 2055 | (define GL_TEXTURE5_ARB #x84C5) 2056 | (define GL_TEXTURE6_ARB #x84C6) 2057 | (define GL_TEXTURE7_ARB #x84C7) 2058 | (define GL_TEXTURE8_ARB #x84C8) 2059 | (define GL_TEXTURE9_ARB #x84C9) 2060 | (define GL_TEXTURE10_ARB #x84CA) 2061 | (define GL_TEXTURE11_ARB #x84CB) 2062 | (define GL_TEXTURE12_ARB #x84CC) 2063 | (define GL_TEXTURE13_ARB #x84CD) 2064 | (define GL_TEXTURE14_ARB #x84CE) 2065 | (define GL_TEXTURE15_ARB #x84CF) 2066 | (define GL_TEXTURE16_ARB #x84D0) 2067 | (define GL_TEXTURE17_ARB #x84D1) 2068 | (define GL_TEXTURE18_ARB #x84D2) 2069 | (define GL_TEXTURE19_ARB #x84D3) 2070 | (define GL_TEXTURE20_ARB #x84D4) 2071 | (define GL_TEXTURE21_ARB #x84D5) 2072 | (define GL_TEXTURE22_ARB #x84D6) 2073 | (define GL_TEXTURE23_ARB #x84D7) 2074 | (define GL_TEXTURE24_ARB #x84D8) 2075 | (define GL_TEXTURE25_ARB #x84D9) 2076 | (define GL_TEXTURE26_ARB #x84DA) 2077 | (define GL_TEXTURE27_ARB #x84DB) 2078 | (define GL_TEXTURE28_ARB #x84DC) 2079 | (define GL_TEXTURE29_ARB #x84DD) 2080 | (define GL_TEXTURE30_ARB #x84DE) 2081 | (define GL_TEXTURE31_ARB #x84DF) 2082 | (define GL_ACTIVE_TEXTURE_ARB #x84E0) 2083 | (define GL_CLIENT_ACTIVE_TEXTURE_ARB #x84E1) 2084 | (define GL_MAX_TEXTURE_UNITS_ARB #x84E2) 2085 | 2086 | ;; (define-syntax define-function 2087 | ;; (syntax-rules () 2088 | ;; ((_ ret name args) 2089 | ;; (define name (c-function lib lib-name ret __stdcall name args))))) 2090 | 2091 | (define-syntax define-function 2092 | (syntax-rules () 2093 | ((_ ret name args) 2094 | (define name 2095 | (foreign-procedure (symbol->string 'name) args ret))))) 2096 | 2097 | ;; void glClearIndex( GLfloat c ) 2098 | (define-function void glClearIndex (float)) 2099 | 2100 | ;; void glClearColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha ) 2101 | (define-function void glClearColor (float float float float)) 2102 | 2103 | ;; void glClear( GLbitfield mask ) 2104 | (define-function void glClear (int)) 2105 | 2106 | ;; void glIndexMask( GLuint mask ) 2107 | (define-function void glIndexMask (int)) 2108 | 2109 | ;; void glColorMask( GLboolean red, GLboolean green, GLboolean blue, GLboolean alpha ) 2110 | (define-function void glColorMask (int int int int)) 2111 | 2112 | ;; void glAlphaFunc( GLenum func, GLclampf ref ) 2113 | (define-function void glAlphaFunc (int float)) 2114 | 2115 | ;; void glBlendFunc( GLenum sfactor, GLenum dfactor ) 2116 | (define-function void glBlendFunc (int int)) 2117 | 2118 | ;; void glLogicOp( GLenum opcode ) 2119 | (define-function void glLogicOp (int)) 2120 | 2121 | ;; void glCullFace( GLenum mode ) 2122 | (define-function void glCullFace (int)) 2123 | 2124 | ;; void glFrontFace( GLenum mode ) 2125 | (define-function void glFrontFace (int)) 2126 | 2127 | ;; void glPointSize( GLfloat size ) 2128 | (define-function void glPointSize (float)) 2129 | 2130 | ;; void glLineWidth( GLfloat width ) 2131 | (define-function void glLineWidth (float)) 2132 | 2133 | ;; void glLineStipple( GLint factor, GLushort pattern ) 2134 | (define-function void glLineStipple (int int)) 2135 | 2136 | ;; void glPolygonMode( GLenum face, GLenum mode ) 2137 | (define-function void glPolygonMode (int int)) 2138 | 2139 | ;; void glPolygonOffset( GLfloat factor, GLfloat units ) 2140 | (define-function void glPolygonOffset (float float)) 2141 | 2142 | ;; void glPolygonStipple( const GLubyte *mask ) 2143 | (define-function void glPolygonStipple (void*)) 2144 | 2145 | ;; void glGetPolygonStipple( GLubyte *mask ) 2146 | (define-function void glGetPolygonStipple (void*)) 2147 | 2148 | ;; void glEdgeFlag( GLboolean flag ) 2149 | (define-function void glEdgeFlag (int)) 2150 | 2151 | ;; void glEdgeFlagv( const GLboolean *flag ) 2152 | (define-function void glEdgeFlagv (void*)) 2153 | 2154 | ;; void glScissor( GLint x, GLint y, GLsizei width, GLsizei height) 2155 | (define-function void glScissor (int int int int)) 2156 | 2157 | ;; void glClipPlane( GLenum plane, const GLdouble *equation ) 2158 | (define-function void glClipPlane (int void*)) 2159 | 2160 | ;; void glGetClipPlane( GLenum plane, GLdouble *equation ) 2161 | (define-function void glGetClipPlane (int void*)) 2162 | 2163 | ;; void glDrawBuffer( GLenum mode ) 2164 | (define-function void glDrawBuffer (int)) 2165 | 2166 | ;; void glReadBuffer( GLenum mode ) 2167 | (define-function void glReadBuffer (int)) 2168 | 2169 | ;; void glEnable( GLenum cap ) 2170 | (define-function void glEnable (int)) 2171 | 2172 | ;; void glDisable( GLenum cap ) 2173 | (define-function void glDisable (int)) 2174 | 2175 | ;; GLboolean glIsEnabled( GLenum cap ) 2176 | (define-function int glIsEnabled (int)) 2177 | 2178 | ;; void glEnableClientState( GLenum cap ) /* 1.1 */ 2179 | (define-function void glEnableClientState (int)) 2180 | 2181 | ;; void glDisableClientState( GLenum cap ) /* 1.1 */ 2182 | (define-function void glDisableClientState (int)) 2183 | 2184 | ;; void glGetBooleanv( GLenum pname, GLboolean *params ) 2185 | (define-function void glGetBooleanv (int void*)) 2186 | 2187 | ;; void glGetDoublev( GLenum pname, GLdouble *params ) 2188 | 2189 | ;; (define-function void glGetDoublev (int void*)) 2190 | 2191 | (define-function void glGetDoublev (int u8*)) 2192 | 2193 | ;; void glGetFloatv( GLenum pname, GLfloat *params ) 2194 | (define-function void glGetFloatv (int void*)) 2195 | 2196 | ;; void glGetIntegerv( GLenum pname, GLint *params ) 2197 | (define-function void glGetIntegerv (int void*)) 2198 | 2199 | ;; void glPushAttrib( GLbitfield mask ) 2200 | (define-function void glPushAttrib (int)) 2201 | 2202 | ;; void glPopAttrib( void ) 2203 | (define-function void glPopAttrib ()) 2204 | 2205 | ;; void glPushClientAttrib( GLbitfield mask ) /* 1.1 */ 2206 | (define-function void glPushClientAttrib (int)) 2207 | 2208 | ;; void glPopClientAttrib( void ) /* 1.1 */ 2209 | (define-function void glPopClientAttrib ()) 2210 | 2211 | ;; GLint glRenderMode( GLenum mode ) 2212 | (define-function int glRenderMode (int)) 2213 | 2214 | ;; GLenum glGetError( void ) 2215 | (define-function int glGetError ()) 2216 | 2217 | ;; const GLubyte * glGetString( GLenum name ) 2218 | (define-function string glGetString (int)) 2219 | 2220 | ;; void glFinish( void ) 2221 | (define-function void glFinish ()) 2222 | 2223 | ;; void glFlush( void ) 2224 | (define-function void glFlush ()) 2225 | 2226 | ;; void glHint( GLenum target, GLenum mode ) 2227 | (define-function void glHint (int int)) 2228 | 2229 | ;;;; Depth Buffer 2230 | 2231 | ;; void glClearDepth( GLclampd depth ) 2232 | (define-function void glClearDepth (double)) 2233 | 2234 | ;; void glDepthFunc( GLenum func ) 2235 | (define-function void glDepthFunc (int)) 2236 | 2237 | ;; void glDepthMask( GLboolean flag ) 2238 | (define-function void glDepthMask (int)) 2239 | 2240 | ;; void glDepthRange( GLclampd near_val, GLclampd far_val ) 2241 | (define-function void glDepthRange (double double)) 2242 | 2243 | ;;;; Accumulation Buffer 2244 | 2245 | ;; void glClearAccum( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha ) 2246 | (define-function void glClearAccum (float float float float)) 2247 | 2248 | ;; void glAccum( GLenum op, GLfloat value ) 2249 | (define-function void glAccum (int float)) 2250 | 2251 | ;;;; Transformation 2252 | 2253 | ;; void glMatrixMode( GLenum mode ) 2254 | (define-function void glMatrixMode (int)) 2255 | 2256 | ;; void glOrtho( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near_val, GLdouble far_val ) 2257 | (define-function void glOrtho (double double double double double double)) 2258 | 2259 | ;; void glFrustum( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top, GLdouble near_val, GLdouble far_val ) 2260 | (define-function void glFrustum (double double double double double double)) 2261 | 2262 | ;; void glViewport( GLint x, GLint y, GLsizei width, GLsizei height ) 2263 | (define-function void glViewport (int int int int)) 2264 | 2265 | ;; void glPushMatrix( void ) 2266 | (define-function void glPushMatrix ()) 2267 | 2268 | ;; void glPopMatrix( void ) 2269 | (define-function void glPopMatrix ()) 2270 | 2271 | ;; void glLoadIdentity( void ) 2272 | (define-function void glLoadIdentity ()) 2273 | 2274 | ;; void glLoadMatrixd( const GLdouble *m ) 2275 | (define-function void glLoadMatrixd (u8*)) 2276 | 2277 | ;; void glLoadMatrixf( const GLfloat *m ) 2278 | (define-function void glLoadMatrixf (u8*)) 2279 | 2280 | ;; void glMultMatrixd( const GLdouble *m ) 2281 | (define-function void glMultMatrixd (u8*)) 2282 | 2283 | ;; void glMultMatrixf( const GLfloat *m ) 2284 | (define-function void glMultMatrixf (u8*)) 2285 | 2286 | ;; void glRotated( GLdouble angle, GLdouble x, GLdouble y, GLdouble z ) 2287 | (define-function void glRotated (double double double double)) 2288 | 2289 | ;; void glRotatef( GLfloat angle, GLfloat x, GLfloat y, GLfloat z ) 2290 | (define-function void glRotatef (float float float float)) 2291 | 2292 | ;; void glScaled( GLdouble x, GLdouble y, GLdouble z ) 2293 | (define-function void glScaled (double double double)) 2294 | 2295 | ;; void glScalef( GLfloat x, GLfloat y, GLfloat z ) 2296 | (define-function void glScalef (float float float)) 2297 | 2298 | ;; void glTranslated( GLdouble x, GLdouble y, GLdouble z ) 2299 | (define-function void glTranslated (double double double)) 2300 | 2301 | ;; void glTranslatef( GLfloat x, GLfloat y, GLfloat z ) 2302 | (define-function void glTranslatef (float float float)) 2303 | 2304 | ;;;; Display Lists 2305 | 2306 | ;; GLboolean glIsList( GLuint list ) 2307 | (define-function int glIsList (int)) 2308 | 2309 | ;; void glDeleteLists( GLuint list, GLsizei range ) 2310 | (define-function void glDeleteLists (int int)) 2311 | 2312 | ;; GLuint glGenLists( GLsizei range ) 2313 | (define-function int glGenLists (int)) 2314 | 2315 | ;; void glNewList( GLuint list, GLenum mode ) 2316 | (define-function void glNewList (int int)) 2317 | 2318 | ;; void glEndList( void ) 2319 | (define-function void glEndList ()) 2320 | 2321 | ;; void glCallList( GLuint list ) 2322 | (define-function void glCallList (int)) 2323 | 2324 | ;; void glCallLists( GLsizei n, GLenum type, const GLvoid *lists ) 2325 | (define-function void glCallLists (int int void*)) 2326 | 2327 | ;; void glListBase( GLuint base ) 2328 | (define-function void glListBase (int)) 2329 | 2330 | ;;;; Drawing Functions 2331 | 2332 | ;; void glBegin( GLenum mode ) 2333 | (define-function void glBegin (int)) 2334 | 2335 | ;; void glEnd( void ) 2336 | (define-function void glEnd ()) 2337 | 2338 | ;; void glVertex2d( GLdouble x, GLdouble y ) 2339 | (define-function void glVertex2d (double double)) 2340 | 2341 | ;; void glVertex2f( GLfloat x, GLfloat y ) 2342 | (define-function void glVertex2f (float float)) 2343 | 2344 | ;; void glVertex2i( GLint x, GLint y ) 2345 | (define-function void glVertex2i (int int)) 2346 | 2347 | ;; void glVertex2s( GLshort x, GLshort y ) 2348 | (define-function void glVertex2s (int int)) 2349 | 2350 | ;; void glVertex3d( GLdouble x, GLdouble y, GLdouble z ) 2351 | (define-function void glVertex3d (double double double)) 2352 | 2353 | ;; void glVertex3f( GLfloat x, GLfloat y, GLfloat z ) 2354 | (define-function void glVertex3f (float float float)) 2355 | 2356 | ;; void glVertex3i( GLint x, GLint y, GLint z ) 2357 | (define-function void glVertex3i (int int int)) 2358 | 2359 | ;; void glVertex3s( GLshort x, GLshort y, GLshort z ) 2360 | (define-function void glVertex3s (int int int)) 2361 | 2362 | ;; void glVertex4d( GLdouble x, GLdouble y, GLdouble z, GLdouble w ) 2363 | (define-function void glVertex4d (double double double double)) 2364 | 2365 | ;; void glVertex4f( GLfloat x, GLfloat y, GLfloat z, GLfloat w ) 2366 | (define-function void glVertex4f (float float float float)) 2367 | 2368 | ;; void glVertex4i( GLint x, GLint y, GLint z, GLint w ) 2369 | (define-function void glVertex4i (int int int int)) 2370 | 2371 | ;; void glVertex4s( GLshort x, GLshort y, GLshort z, GLshort w ) 2372 | (define-function void glVertex4s (int int int int)) 2373 | 2374 | ;; void glVertex2dv( const GLdouble *v ) 2375 | (define-function void glVertex2dv (void*)) 2376 | 2377 | ;; void glVertex2fv( const GLfloat *v ) 2378 | (define-function void glVertex2fv (void*)) 2379 | 2380 | ;; void glVertex2iv( const GLint *v ) 2381 | (define-function void glVertex2iv (void*)) 2382 | 2383 | ;; void glVertex2sv( const GLshort *v ) 2384 | (define-function void glVertex2sv (void*)) 2385 | 2386 | ;; void glVertex3dv( const GLdouble *v ) 2387 | (define-function void glVertex3dv (void*)) 2388 | 2389 | ;; void glVertex3fv( const GLfloat *v ) 2390 | (define-function void glVertex3fv (void*)) 2391 | 2392 | ;; void glVertex3iv( const GLint *v ) 2393 | (define-function void glVertex3iv (void*)) 2394 | 2395 | ;; void glVertex3sv( const GLshort *v ) 2396 | (define-function void glVertex3sv (void*)) 2397 | 2398 | ;; void glVertex4dv( const GLdouble *v ) 2399 | (define-function void glVertex4dv (void*)) 2400 | 2401 | ;; void glVertex4fv( const GLfloat *v ) 2402 | (define-function void glVertex4fv (void*)) 2403 | 2404 | ;; void glVertex4iv( const GLint *v ) 2405 | (define-function void glVertex4iv (void*)) 2406 | 2407 | ;; void glVertex4sv( const GLshort *v ) 2408 | (define-function void glVertex4sv (void*)) 2409 | 2410 | ;; void glNormal3b( GLbyte nx, GLbyte ny, GLbyte nz ) 2411 | (define-function void glNormal3b (int int int)) 2412 | 2413 | ;; void glNormal3d( GLdouble nx, GLdouble ny, GLdouble nz ) 2414 | (define-function void glNormal3d (double double double)) 2415 | 2416 | ;; void glNormal3f( GLfloat nx, GLfloat ny, GLfloat nz ) 2417 | (define-function void glNormal3f (float float float)) 2418 | 2419 | ;; void glNormal3i( GLint nx, GLint ny, GLint nz ) 2420 | (define-function void glNormal3i (int int int)) 2421 | 2422 | ;; void glNormal3s( GLshort nx, GLshort ny, GLshort nz ) 2423 | (define-function void glNormal3s (int int int)) 2424 | 2425 | ;; void glNormal3bv( const GLbyte *v ) 2426 | (define-function void glNormal3bv (void*)) 2427 | 2428 | ;; void glNormal3dv( const GLdouble *v ) 2429 | (define-function void glNormal3dv (void*)) 2430 | 2431 | ;; void glNormal3fv( const GLfloat *v ) 2432 | (define-function void glNormal3fv (void*)) 2433 | 2434 | ;; void glNormal3iv( const GLint *v ) 2435 | (define-function void glNormal3iv (void*)) 2436 | 2437 | ;; void glNormal3sv( const GLshort *v ) 2438 | (define-function void glNormal3sv (void*)) 2439 | 2440 | ;; void glIndexd( GLdouble c ) 2441 | (define-function void glIndexd (double)) 2442 | 2443 | ;; void glIndexf( GLfloat c ) 2444 | (define-function void glIndexf (float)) 2445 | 2446 | ;; void glIndexi( GLint c ) 2447 | (define-function void glIndexi (int)) 2448 | 2449 | ;; void glIndexs( GLshort c ) 2450 | (define-function void glIndexs (int)) 2451 | 2452 | ;; void glIndexub( GLubyte c ) /* 1.1 */ 2453 | (define-function void glIndexub (int)) 2454 | 2455 | ;; void glIndexdv( const GLdouble *c ) 2456 | (define-function void glIndexdv (void*)) 2457 | 2458 | ;; void glIndexfv( const GLfloat *c ) 2459 | (define-function void glIndexfv (void*)) 2460 | 2461 | ;; void glIndexiv( const GLint *c ) 2462 | (define-function void glIndexiv (void*)) 2463 | 2464 | ;; void glIndexsv( const GLshort *c ) 2465 | (define-function void glIndexsv (void*)) 2466 | 2467 | ;; void glIndexubv( const GLubyte *c ) /* 1.1 */ 2468 | (define-function void glIndexubv (void*)) 2469 | 2470 | ;; void glColor3b( GLbyte red, GLbyte green, GLbyte blue ) 2471 | (define-function void glColor3b (int int int)) 2472 | 2473 | ;; void glColor3d( GLdouble red, GLdouble green, GLdouble blue ) 2474 | (define-function void glColor3d (double double double)) 2475 | 2476 | ;; void glColor3f( GLfloat red, GLfloat green, GLfloat blue ) 2477 | (define-function void glColor3f (float float float)) 2478 | 2479 | ;; void glColor3i( GLint red, GLint green, GLint blue ) 2480 | (define-function void glColor3i (int int int)) 2481 | 2482 | ;; void glColor3s( GLshort red, GLshort green, GLshort blue ) 2483 | (define-function void glColor3s (int int int)) 2484 | 2485 | ;; void glColor3ub( GLubyte red, GLubyte green, GLubyte blue ) 2486 | (define-function void glColor3ub (int int int)) 2487 | 2488 | ;; void glColor3ui( GLuint red, GLuint green, GLuint blue ) 2489 | (define-function void glColor3ui (int int int)) 2490 | 2491 | ;; void glColor3us( GLushort red, GLushort green, GLushort blue ) 2492 | (define-function void glColor3us (int int int)) 2493 | 2494 | ;; void glColor4b( GLbyte red, GLbyte green, GLbyte blue, GLbyte alpha ) 2495 | (define-function void glColor4b (int int int int)) 2496 | 2497 | ;; void glColor4d( GLdouble red, GLdouble green, GLdouble blue, GLdouble alpha ) 2498 | (define-function void glColor4d (double double double double)) 2499 | 2500 | ;; void glColor4f( GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha ) 2501 | (define-function void glColor4f (float float float float)) 2502 | 2503 | ;; void glColor4i( GLint red, GLint green, GLint blue, GLint alpha ) 2504 | (define-function void glColor4i (int int int int)) 2505 | 2506 | ;; void glColor4s( GLshort red, GLshort green, GLshort blue, GLshort alpha ) 2507 | (define-function void glColor4s (int int int int)) 2508 | 2509 | ;; void glColor4ub( GLubyte red, GLubyte green, GLubyte blue, GLubyte alpha ) 2510 | (define-function void glColor4ub (int int int int)) 2511 | 2512 | ;; void glColor4ui( GLuint red, GLuint green, GLuint blue, GLuint alpha ) 2513 | (define-function void glColor4ui (int int int int)) 2514 | 2515 | ;; void glColor4us( GLushort red, GLushort green, GLushort blue, GLushort alpha ) 2516 | (define-function void glColor4us (int int int int)) 2517 | 2518 | ;; void glColor3bv( const GLbyte *v ) 2519 | (define-function void glColor3bv (void*)) 2520 | 2521 | ;; void glColor3dv( const GLdouble *v ) 2522 | (define-function void glColor3dv (void*)) 2523 | 2524 | ;; void glColor3fv( const GLfloat *v ) 2525 | (define-function void glColor3fv (void*)) 2526 | 2527 | ;; void glColor3iv( const GLint *v ) 2528 | (define-function void glColor3iv (void*)) 2529 | 2530 | ;; void glColor3sv( const GLshort *v ) 2531 | (define-function void glColor3sv (void*)) 2532 | 2533 | ;; void glColor3ubv( const GLubyte *v ) 2534 | (define-function void glColor3ubv (void*)) 2535 | 2536 | ;; void glColor3uiv( const GLuint *v ) 2537 | (define-function void glColor3uiv (void*)) 2538 | 2539 | ;; void glColor3usv( const GLushort *v ) 2540 | (define-function void glColor3usv (void*)) 2541 | 2542 | ;; void glColor4bv( const GLbyte *v ) 2543 | (define-function void glColor4bv (void*)) 2544 | 2545 | ;; void glColor4dv( const GLdouble *v ) 2546 | (define-function void glColor4dv (void*)) 2547 | 2548 | ;; void glColor4fv( const GLfloat *v ) 2549 | (define-function void glColor4fv (void*)) 2550 | 2551 | ;; void glColor4iv( const GLint *v ) 2552 | (define-function void glColor4iv (void*)) 2553 | 2554 | ;; void glColor4sv( const GLshort *v ) 2555 | (define-function void glColor4sv (void*)) 2556 | 2557 | ;; void glColor4ubv( const GLubyte *v ) 2558 | (define-function void glColor4ubv (void*)) 2559 | 2560 | ;; void glColor4uiv( const GLuint *v ) 2561 | (define-function void glColor4uiv (void*)) 2562 | 2563 | ;; void glColor4usv( const GLushort *v ) 2564 | (define-function void glColor4usv (void*)) 2565 | 2566 | ;; void glTexCoord1d( GLdouble s ) 2567 | (define-function void glTexCoord1d (double)) 2568 | 2569 | ;; void glTexCoord1f( GLfloat s ) 2570 | (define-function void glTexCoord1f (float)) 2571 | 2572 | ;; void glTexCoord1i( GLint s ) 2573 | (define-function void glTexCoord1i (int)) 2574 | 2575 | ;; void glTexCoord1s( GLshort s ) 2576 | (define-function void glTexCoord1s (int)) 2577 | 2578 | ;; void glTexCoord2d( GLdouble s, GLdouble t ) 2579 | (define-function void glTexCoord2d (double double)) 2580 | 2581 | ;; void glTexCoord2f( GLfloat s, GLfloat t ) 2582 | (define-function void glTexCoord2f (float float)) 2583 | 2584 | ;; void glTexCoord2i( GLint s, GLint t ) 2585 | (define-function void glTexCoord2i (int int)) 2586 | 2587 | ;; void glTexCoord2s( GLshort s, GLshort t ) 2588 | (define-function void glTexCoord2s (int int)) 2589 | 2590 | ;; void glTexCoord3d( GLdouble s, GLdouble t, GLdouble r ) 2591 | (define-function void glTexCoord3d (double double double)) 2592 | 2593 | ;; void glTexCoord3f( GLfloat s, GLfloat t, GLfloat r ) 2594 | (define-function void glTexCoord3f (float float float)) 2595 | 2596 | ;; void glTexCoord3i( GLint s, GLint t, GLint r ) 2597 | (define-function void glTexCoord3i (int int int)) 2598 | 2599 | ;; void glTexCoord3s( GLshort s, GLshort t, GLshort r ) 2600 | (define-function void glTexCoord3s (int int int)) 2601 | 2602 | ;; void glTexCoord4d( GLdouble s, GLdouble t, GLdouble r, GLdouble q ) 2603 | (define-function void glTexCoord4d (double double double double)) 2604 | 2605 | ;; void glTexCoord4f( GLfloat s, GLfloat t, GLfloat r, GLfloat q ) 2606 | (define-function void glTexCoord4f (float float float float)) 2607 | 2608 | ;; void glTexCoord4i( GLint s, GLint t, GLint r, GLint q ) 2609 | (define-function void glTexCoord4i (int int int int)) 2610 | 2611 | ;; void glTexCoord4s( GLshort s, GLshort t, GLshort r, GLshort q ) 2612 | (define-function void glTexCoord4s (int int int int)) 2613 | 2614 | ;; void glTexCoord1dv( const GLdouble *v ) 2615 | (define-function void glTexCoord1dv (void*)) 2616 | 2617 | ;; void glTexCoord1fv( const GLfloat *v ) 2618 | (define-function void glTexCoord1fv (void*)) 2619 | 2620 | ;; void glTexCoord1iv( const GLint *v ) 2621 | (define-function void glTexCoord1iv (void*)) 2622 | 2623 | ;; void glTexCoord1sv( const GLshort *v ) 2624 | (define-function void glTexCoord1sv (void*)) 2625 | 2626 | ;; void glTexCoord2dv( const GLdouble *v ) 2627 | (define-function void glTexCoord2dv (void*)) 2628 | 2629 | ;; void glTexCoord2fv( const GLfloat *v ) 2630 | (define-function void glTexCoord2fv (void*)) 2631 | 2632 | ;; void glTexCoord2iv( const GLint *v ) 2633 | (define-function void glTexCoord2iv (void*)) 2634 | 2635 | ;; void glTexCoord2sv( const GLshort *v ) 2636 | (define-function void glTexCoord2sv (void*)) 2637 | 2638 | ;; void glTexCoord3dv( const GLdouble *v ) 2639 | (define-function void glTexCoord3dv (void*)) 2640 | 2641 | ;; void glTexCoord3fv( const GLfloat *v ) 2642 | (define-function void glTexCoord3fv (void*)) 2643 | 2644 | ;; void glTexCoord3iv( const GLint *v ) 2645 | (define-function void glTexCoord3iv (void*)) 2646 | 2647 | ;; void glTexCoord3sv( const GLshort *v ) 2648 | (define-function void glTexCoord3sv (void*)) 2649 | 2650 | ;; void glTexCoord4dv( const GLdouble *v ) 2651 | (define-function void glTexCoord4dv (void*)) 2652 | 2653 | ;; void glTexCoord4fv( const GLfloat *v ) 2654 | (define-function void glTexCoord4fv (void*)) 2655 | 2656 | ;; void glTexCoord4iv( const GLint *v ) 2657 | (define-function void glTexCoord4iv (void*)) 2658 | 2659 | ;; void glTexCoord4sv( const GLshort *v ) 2660 | (define-function void glTexCoord4sv (void*)) 2661 | 2662 | ;; void glRasterPos2d( GLdouble x, GLdouble y ) 2663 | (define-function void glRasterPos2d (double double)) 2664 | 2665 | ;; void glRasterPos2f( GLfloat x, GLfloat y ) 2666 | (define-function void glRasterPos2f (float float)) 2667 | 2668 | ;; void glRasterPos2i( GLint x, GLint y ) 2669 | (define-function void glRasterPos2i (int int)) 2670 | 2671 | ;; void glRasterPos2s( GLshort x, GLshort y ) 2672 | (define-function void glRasterPos2s (int int)) 2673 | 2674 | ;; void glRasterPos3d( GLdouble x, GLdouble y, GLdouble z ) 2675 | (define-function void glRasterPos3d (double double double)) 2676 | 2677 | ;; void glRasterPos3f( GLfloat x, GLfloat y, GLfloat z ) 2678 | (define-function void glRasterPos3f (float float float)) 2679 | 2680 | ;; void glRasterPos3i( GLint x, GLint y, GLint z ) 2681 | (define-function void glRasterPos3i (int int int)) 2682 | 2683 | ;; void glRasterPos3s( GLshort x, GLshort y, GLshort z ) 2684 | (define-function void glRasterPos3s (int int int)) 2685 | 2686 | ;; void glRasterPos4d( GLdouble x, GLdouble y, GLdouble z, GLdouble w ) 2687 | (define-function void glRasterPos4d (double double double double)) 2688 | 2689 | ;; void glRasterPos4f( GLfloat x, GLfloat y, GLfloat z, GLfloat w ) 2690 | (define-function void glRasterPos4f (float float float float)) 2691 | 2692 | ;; void glRasterPos4i( GLint x, GLint y, GLint z, GLint w ) 2693 | (define-function void glRasterPos4i (int int int int)) 2694 | 2695 | ;; void glRasterPos4s( GLshort x, GLshort y, GLshort z, GLshort w ) 2696 | (define-function void glRasterPos4s (int int int int)) 2697 | 2698 | ;; void glRasterPos2dv( const GLdouble *v ) 2699 | (define-function void glRasterPos2dv (void*)) 2700 | 2701 | ;; void glRasterPos2fv( const GLfloat *v ) 2702 | (define-function void glRasterPos2fv (void*)) 2703 | 2704 | ;; void glRasterPos2iv( const GLint *v ) 2705 | (define-function void glRasterPos2iv (void*)) 2706 | 2707 | ;; void glRasterPos2sv( const GLshort *v ) 2708 | (define-function void glRasterPos2sv (void*)) 2709 | 2710 | ;; void glRasterPos3dv( const GLdouble *v ) 2711 | (define-function void glRasterPos3dv (void*)) 2712 | 2713 | ;; void glRasterPos3fv( const GLfloat *v ) 2714 | (define-function void glRasterPos3fv (void*)) 2715 | 2716 | ;; void glRasterPos3iv( const GLint *v ) 2717 | (define-function void glRasterPos3iv (void*)) 2718 | 2719 | ;; void glRasterPos3sv( const GLshort *v ) 2720 | (define-function void glRasterPos3sv (void*)) 2721 | 2722 | ;; void glRasterPos4dv( const GLdouble *v ) 2723 | (define-function void glRasterPos4dv (void*)) 2724 | 2725 | ;; void glRasterPos4fv( const GLfloat *v ) 2726 | (define-function void glRasterPos4fv (void*)) 2727 | 2728 | ;; void glRasterPos4iv( const GLint *v ) 2729 | (define-function void glRasterPos4iv (void*)) 2730 | 2731 | ;; void glRasterPos4sv( const GLshort *v ) 2732 | (define-function void glRasterPos4sv (void*)) 2733 | 2734 | ;; void glRectd( GLdouble x1, GLdouble y1, GLdouble x2, GLdouble y2 ) 2735 | (define-function void glRectd (double double double double)) 2736 | 2737 | ;; void glRectf( GLfloat x1, GLfloat y1, GLfloat x2, GLfloat y2 ) 2738 | (define-function void glRectf (float float float float)) 2739 | 2740 | ;; void glRecti( GLint x1, GLint y1, GLint x2, GLint y2 ) 2741 | (define-function void glRecti (int int int int)) 2742 | 2743 | ;; void glRects( GLshort x1, GLshort y1, GLshort x2, GLshort y2 ) 2744 | (define-function void glRects (int int int int)) 2745 | 2746 | ;; void glRectdv( const GLdouble *v1, const GLdouble *v2 ) 2747 | (define-function void glRectdv (void* void*)) 2748 | 2749 | ;; void glRectfv( const GLfloat *v1, const GLfloat *v2 ) 2750 | (define-function void glRectfv (void* void*)) 2751 | 2752 | ;; void glRectiv( const GLint *v1, const GLint *v2 ) 2753 | (define-function void glRectiv (void* void*)) 2754 | 2755 | ;; void glRectsv( const GLshort *v1, const GLshort *v2 ) 2756 | (define-function void glRectsv (void* void*)) 2757 | 2758 | ;;;; Vertex Arrays 1.1 2759 | 2760 | ;; void glVertexPointer( GLint size, GLenum type, GLsizei stride, const GLvoid *ptr ) 2761 | (define-function void glVertexPointer (int int int void*)) 2762 | 2763 | ;; void glNormalPointer( GLenum type, GLsizei stride, const GLvoid *ptr ) 2764 | (define-function void glNormalPointer (int int void*)) 2765 | 2766 | ;; void glColorPointer( GLint size, GLenum type, GLsizei stride, const GLvoid *ptr ) 2767 | (define-function void glColorPointer (int int int void*)) 2768 | 2769 | ;; void glIndexPointer( GLenum type, GLsizei stride, const GLvoid *ptr ) 2770 | (define-function void glIndexPointer (int int void*)) 2771 | 2772 | ;; void glTexCoordPointer( GLint size, GLenum type, GLsizei stride, const GLvoid *ptr ) 2773 | (define-function void glTexCoordPointer (int int int void*)) 2774 | 2775 | ;; void glEdgeFlagPointer( GLsizei stride, const GLvoid *ptr ) 2776 | (define-function void glEdgeFlagPointer (int void*)) 2777 | 2778 | ;; void glGetPointerv( GLenum pname, GLvoid **params ) 2779 | (define-function void glGetPointerv (int void*)) 2780 | 2781 | ;; void glArrayElement( GLint i ) 2782 | (define-function void glArrayElement (int)) 2783 | 2784 | ;; void glDrawArrays( GLenum mode, GLint first, GLsizei count ) 2785 | (define-function void glDrawArrays (int int int)) 2786 | 2787 | ;; void glDrawElements( GLenum mode, GLsizei count, GLenum type, const GLvoid *indices ) 2788 | (define-function void glDrawElements (int int int void*)) 2789 | 2790 | ;; void glInterleavedArrays( GLenum format, GLsizei stride, const GLvoid *pointer ) 2791 | (define-function void glInterleavedArrays (int int void*)) 2792 | 2793 | ;;;; Lighting 2794 | 2795 | ;; void glShadeModel( GLenum mode ) 2796 | (define-function void glShadeModel (int)) 2797 | 2798 | ;; void glLightf( GLenum light, GLenum pname, GLfloat param ) 2799 | (define-function void glLightf (int int float)) 2800 | 2801 | ;; void glLighti( GLenum light, GLenum pname, GLint param ) 2802 | (define-function void glLighti (int int int)) 2803 | 2804 | ;; void glLightfv( GLenum light, GLenum pname, const GLfloat *params ) 2805 | ;; (define-function void glLightfv (int int void*)) 2806 | (define-function void glLightfv (int int u8*)) 2807 | 2808 | ;; void glLightiv( GLenum light, GLenum pname, const GLint *params ) 2809 | (define-function void glLightiv (int int void*)) 2810 | 2811 | ;; void glGetLightfv( GLenum light, GLenum pname, GLfloat *params ) 2812 | (define-function void glGetLightfv (int int void*)) 2813 | 2814 | ;; void glGetLightiv( GLenum light, GLenum pname, GLint *params ) 2815 | (define-function void glGetLightiv (int int void*)) 2816 | 2817 | ;; void glLightModelf( GLenum pname, GLfloat param ) 2818 | (define-function void glLightModelf (int float)) 2819 | 2820 | ;; void glLightModeli( GLenum pname, GLint param ) 2821 | (define-function void glLightModeli (int int)) 2822 | 2823 | ;; void glLightModelfv( GLenum pname, const GLfloat *params ) 2824 | (define-function void glLightModelfv (int void*)) 2825 | 2826 | ;; void glLightModeliv( GLenum pname, const GLint *params ) 2827 | (define-function void glLightModeliv (int void*)) 2828 | 2829 | ;; void glMaterialf( GLenum face, GLenum pname, GLfloat param ) 2830 | (define-function void glMaterialf (int int float)) 2831 | 2832 | ;; void glMateriali( GLenum face, GLenum pname, GLint param ) 2833 | (define-function void glMateriali (int int int)) 2834 | 2835 | ;; void glMaterialfv( GLenum face, GLenum pname, const GLfloat *params ) 2836 | ;; (define-function void glMaterialfv (int int void*)) 2837 | (define-function void glMaterialfv (int int u8*)) 2838 | 2839 | ;; void glMaterialiv( GLenum face, GLenum pname, const GLint *params ) 2840 | (define-function void glMaterialiv (int int void*)) 2841 | 2842 | ;; void glGetMaterialfv( GLenum face, GLenum pname, GLfloat *params ) 2843 | (define-function void glGetMaterialfv (int int void*)) 2844 | 2845 | ;; void glGetMaterialiv( GLenum face, GLenum pname, GLint *params ) 2846 | (define-function void glGetMaterialiv (int int void*)) 2847 | 2848 | ;; void glColorMaterial( GLenum face, GLenum mode ) 2849 | (define-function void glColorMaterial (int int)) 2850 | 2851 | ;;;; Raster functions 2852 | 2853 | ;; void glPixelZoom( GLfloat xfactor, GLfloat yfactor ) 2854 | (define-function void glPixelZoom (float float)) 2855 | 2856 | ;; void glPixelStoref( GLenum pname, GLfloat param ) 2857 | (define-function void glPixelStoref (int float)) 2858 | 2859 | ;; void glPixelStorei( GLenum pname, GLint param ) 2860 | (define-function void glPixelStorei (int int)) 2861 | 2862 | ;; void glPixelTransferf( GLenum pname, GLfloat param ) 2863 | (define-function void glPixelTransferf (int float)) 2864 | 2865 | ;; void glPixelTransferi( GLenum pname, GLint param ) 2866 | (define-function void glPixelTransferi (int int)) 2867 | 2868 | ;; void glPixelMapfv( GLenum map, GLsizei mapsize, const GLfloat *values ) 2869 | (define-function void glPixelMapfv (int int void*)) 2870 | 2871 | ;; void glPixelMapuiv( GLenum map, GLsizei mapsize, const GLuint *values ) 2872 | (define-function void glPixelMapuiv (int int void*)) 2873 | 2874 | ;; void glPixelMapusv( GLenum map, GLsizei mapsize, const GLushort *values ) 2875 | (define-function void glPixelMapusv (int int void*)) 2876 | 2877 | ;; void glGetPixelMapfv( GLenum map, GLfloat *values ) 2878 | (define-function void glGetPixelMapfv (int void*)) 2879 | 2880 | ;; void glGetPixelMapuiv( GLenum map, GLuint *values ) 2881 | (define-function void glGetPixelMapuiv (int void*)) 2882 | 2883 | ;; void glGetPixelMapusv( GLenum map, GLushort *values ) 2884 | (define-function void glGetPixelMapusv (int void*)) 2885 | 2886 | ;; void glBitmap( GLsizei width, GLsizei height, GLfloat xorig, GLfloat yorig, GLfloat xmove, GLfloat ymove, const GLubyte *bitmap ) 2887 | ;; (define-function void glBitmap (int int float float float float void*)) 2888 | (define-function void glBitmap (int int float float float float u8*)) 2889 | 2890 | ;; void glReadPixels( GLint x, GLint y, GLsizei width, GLsizei height, GLenum format, GLenum type, GLvoid *pixels ) 2891 | (define-function void glReadPixels (int int int int int int void*)) 2892 | 2893 | ;; void glDrawPixels( GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels ) 2894 | ;; (define-function void glDrawPixels (int int int int void*)) 2895 | (define-function void glDrawPixels (int int int int u8*)) 2896 | 2897 | ;; void glCopyPixels( GLint x, GLint y, GLsizei width, GLsizei height, GLenum type ) 2898 | (define-function void glCopyPixels (int int int int int)) 2899 | 2900 | ;;;; Stenciling 2901 | 2902 | ;; void glStencilFunc( GLenum func, GLint ref, GLuint mask ) 2903 | (define-function void glStencilFunc (int int int)) 2904 | 2905 | ;; void glStencilMask( GLuint mask ) 2906 | (define-function void glStencilMask (int)) 2907 | 2908 | ;; void glStencilOp( GLenum fail, GLenum zfail, GLenum zpass ) 2909 | (define-function void glStencilOp (int int int)) 2910 | 2911 | ;; void glClearStencil( GLint s ) 2912 | (define-function void glClearStencil (int)) 2913 | 2914 | ;;;; Texture mapping 2915 | 2916 | ;; void glTexGend( GLenum coord, GLenum pname, GLdouble param ) 2917 | (define-function void glTexGend (int int double)) 2918 | 2919 | ;; void glTexGenf( GLenum coord, GLenum pname, GLfloat param ) 2920 | (define-function void glTexGenf (int int float)) 2921 | 2922 | ;; void glTexGeni( GLenum coord, GLenum pname, GLint param ) 2923 | (define-function void glTexGeni (int int int)) 2924 | 2925 | ;; void glTexGendv( GLenum coord, GLenum pname, const GLdouble *params ) 2926 | (define-function void glTexGendv (int int void*)) 2927 | 2928 | ;; void glTexGenfv( GLenum coord, GLenum pname, const GLfloat *params ) 2929 | (define-function void glTexGenfv (int int void*)) 2930 | 2931 | ;; void glTexGeniv( GLenum coord, GLenum pname, const GLint *params ) 2932 | (define-function void glTexGeniv (int int void*)) 2933 | 2934 | ;; void glGetTexGendv( GLenum coord, GLenum pname, GLdouble *params ) 2935 | (define-function void glGetTexGendv (int int void*)) 2936 | 2937 | ;; void glGetTexGenfv( GLenum coord, GLenum pname, GLfloat *params ) 2938 | (define-function void glGetTexGenfv (int int void*)) 2939 | 2940 | ;; void glGetTexGeniv( GLenum coord, GLenum pname, GLint *params ) 2941 | (define-function void glGetTexGeniv (int int void*)) 2942 | 2943 | ;; void glTexEnvf( GLenum target, GLenum pname, GLfloat param ) 2944 | (define-function void glTexEnvf (int int float)) 2945 | 2946 | ;; void glTexEnvi( GLenum target, GLenum pname, GLint param ) 2947 | (define-function void glTexEnvi (int int int)) 2948 | 2949 | ;; void glTexEnvfv( GLenum target, GLenum pname, const GLfloat *params ) 2950 | (define-function void glTexEnvfv (int int void*)) 2951 | 2952 | ;; void glTexEnviv( GLenum target, GLenum pname, const GLint *params ) 2953 | (define-function void glTexEnviv (int int void*)) 2954 | 2955 | ;; void glGetTexEnvfv( GLenum target, GLenum pname, GLfloat *params ) 2956 | (define-function void glGetTexEnvfv (int int void*)) 2957 | 2958 | ;; void glGetTexEnviv( GLenum target, GLenum pname, GLint *params ) 2959 | (define-function void glGetTexEnviv (int int void*)) 2960 | 2961 | ;; void glTexParameterf( GLenum target, GLenum pname, GLfloat param ) 2962 | (define-function void glTexParameterf (int int float)) 2963 | 2964 | ;; void glTexParameteri( GLenum target, GLenum pname, GLint param ) 2965 | (define-function void glTexParameteri (int int int)) 2966 | 2967 | ;; void glTexParameterfv( GLenum target, GLenum pname, const GLfloat *params ) 2968 | (define-function void glTexParameterfv (int int void*)) 2969 | 2970 | ;; void glTexParameteriv( GLenum target, GLenum pname, const GLint *params ) 2971 | (define-function void glTexParameteriv (int int void*)) 2972 | 2973 | ;; void glGetTexParameterfv( GLenum target, GLenum pname, GLfloat *params) 2974 | (define-function void glGetTexParameterfv (int int void*)) 2975 | 2976 | ;; void glGetTexParameteriv( GLenum target, GLenum pname, GLint *params ) 2977 | (define-function void glGetTexParameteriv (int int void*)) 2978 | 2979 | ;; void glGetTexLevelParameterfv( GLenum target, GLint level, GLenum pname, GLfloat *params ) 2980 | (define-function void glGetTexLevelParameterfv (int int int void*)) 2981 | 2982 | ;; void glGetTexLevelParameteriv( GLenum target, GLint level, GLenum pname, GLint *params ) 2983 | (define-function void glGetTexLevelParameteriv (int int int void*)) 2984 | 2985 | ;; void glTexImage1D( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLint border, GLenum format, GLenum type, const GLvoid *pixels ) 2986 | (define-function void glTexImage1D (int int int int int int int void*)) 2987 | 2988 | ;; void glTexImage2D( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height, GLint border, GLenum format, GLenum type, const GLvoid *pixels ) 2989 | ;; (define-function void glTexImage2D (int int int int int int int int void*)) 2990 | (define-function void glTexImage2D (int int int int int int int int u8*)) 2991 | 2992 | ;; void glGetTexImage( GLenum target, GLint level, GLenum format, GLenum type, GLvoid *pixels ) 2993 | (define-function void glGetTexImage (int int int int void*)) 2994 | 2995 | ;;;; 1.1 functions 2996 | 2997 | ;; void glGenTextures( GLsizei n, GLuint *textures ) 2998 | ;; (define-function void glGenTextures (int void*)) 2999 | (define-function void glGenTextures (int u32*)) 3000 | 3001 | ;; void glDeleteTextures( GLsizei n, const GLuint *textures) 3002 | (define-function void glDeleteTextures (int void*)) 3003 | 3004 | ;; void glBindTexture( GLenum target, GLuint texture ) 3005 | (define-function void glBindTexture (int int)) 3006 | 3007 | ;; void glPrioritizeTextures( GLsizei n, const GLuint *textures, const GLclampf *priorities ) 3008 | (define-function void glPrioritizeTextures (int void* void*)) 3009 | 3010 | ;; GLboolean glAreTexturesResident( GLsizei n, const GLuint *textures, GLboolean *residences ) 3011 | (define-function int glAreTexturesResident (int void* void*)) 3012 | 3013 | ;; GLboolean glIsTexture( GLuint texture ) 3014 | (define-function int glIsTexture (int)) 3015 | 3016 | ;; void glTexSubImage1D( GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLenum type, const GLvoid *pixels ) 3017 | (define-function void glTexSubImage1D (int int int int int int void*)) 3018 | 3019 | ;; void glTexSubImage2D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *pixels ) 3020 | (define-function void glTexSubImage2D (int int int int int int int int void*)) 3021 | 3022 | ;; void glCopyTexImage1D( GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLint border ) 3023 | (define-function void glCopyTexImage1D (int int int int int int int)) 3024 | 3025 | ;; void glCopyTexImage2D( GLenum target, GLint level, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height, GLint border ) 3026 | (define-function void glCopyTexImage2D (int int int int int int int int)) 3027 | 3028 | ;; void glCopyTexSubImage1D( GLenum target, GLint level, GLint xoffset, GLint x, GLint y, GLsizei width ) 3029 | (define-function void glCopyTexSubImage1D (int int int int int int)) 3030 | 3031 | ;; void glCopyTexSubImage2D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint x, GLint y, GLsizei width, GLsizei height ) 3032 | (define-function void glCopyTexSubImage2D (int int int int int int int int)) 3033 | 3034 | ;;;; Evaluators 3035 | 3036 | ;; void glMap1d( GLenum target, GLdouble u1, GLdouble u2, GLint stride, GLint order, const GLdouble *points ) 3037 | (define-function void glMap1d (int double double int int void*)) 3038 | 3039 | ;; void glMap1f( GLenum target, GLfloat u1, GLfloat u2, GLint stride, GLint order, const GLfloat *points ) 3040 | (define-function void glMap1f (int float float int int void*)) 3041 | 3042 | ;; void glMap2d( GLenum target, GLdouble u1, GLdouble u2, GLint ustride, GLint uorder, GLdouble v1, GLdouble v2, GLint vstride, GLint vorder, const GLdouble *points ) 3043 | (define-function void glMap2d (int double double int int double double int int void*)) 3044 | 3045 | ;; void glMap2f( GLenum target, GLfloat u1, GLfloat u2, GLint ustride, GLint uorder, GLfloat v1, GLfloat v2, GLint vstride, GLint vorder, const GLfloat *points ) 3046 | (define-function void glMap2f (int float float int int float float int int void*)) 3047 | 3048 | ;; void glGetMapdv( GLenum target, GLenum query, GLdouble *v ) 3049 | (define-function void glGetMapdv (int int void*)) 3050 | 3051 | ;; void glGetMapfv( GLenum target, GLenum query, GLfloat *v ) 3052 | (define-function void glGetMapfv (int int void*)) 3053 | 3054 | ;; void glGetMapiv( GLenum target, GLenum query, GLint *v ) 3055 | (define-function void glGetMapiv (int int void*)) 3056 | 3057 | ;; void glEvalCoord1d( GLdouble u ) 3058 | (define-function void glEvalCoord1d (double)) 3059 | 3060 | ;; void glEvalCoord1f( GLfloat u ) 3061 | (define-function void glEvalCoord1f (float)) 3062 | 3063 | ;; void glEvalCoord1dv( const GLdouble *u ) 3064 | (define-function void glEvalCoord1dv (void*)) 3065 | 3066 | ;; void glEvalCoord1fv( const GLfloat *u ) 3067 | (define-function void glEvalCoord1fv (void*)) 3068 | 3069 | ;; void glEvalCoord2d( GLdouble u, GLdouble v ) 3070 | (define-function void glEvalCoord2d (double double)) 3071 | 3072 | ;; void glEvalCoord2f( GLfloat u, GLfloat v ) 3073 | (define-function void glEvalCoord2f (float float)) 3074 | 3075 | ;; void glEvalCoord2dv( const GLdouble *u ) 3076 | (define-function void glEvalCoord2dv (void*)) 3077 | 3078 | ;; void glEvalCoord2fv( const GLfloat *u ) 3079 | (define-function void glEvalCoord2fv (void*)) 3080 | 3081 | ;; void glMapGrid1d( GLint un, GLdouble u1, GLdouble u2 ) 3082 | (define-function void glMapGrid1d (int double double)) 3083 | 3084 | ;; void glMapGrid1f( GLint un, GLfloat u1, GLfloat u2 ) 3085 | (define-function void glMapGrid1f (int float float)) 3086 | 3087 | ;; void glMapGrid2d( GLint un, GLdouble u1, GLdouble u2, GLint vn, GLdouble v1, GLdouble v2 ) 3088 | (define-function void glMapGrid2d (int double double int double double)) 3089 | 3090 | ;; void glMapGrid2f( GLint un, GLfloat u1, GLfloat u2, GLint vn, GLfloat v1, GLfloat v2 ) 3091 | (define-function void glMapGrid2f (int float float int float float)) 3092 | 3093 | ;; void glEvalPoint1( GLint i ) 3094 | (define-function void glEvalPoint1 (int)) 3095 | 3096 | ;; void glEvalPoint2( GLint i, GLint j ) 3097 | (define-function void glEvalPoint2 (int int)) 3098 | 3099 | ;; void glEvalMesh1( GLenum mode, GLint i1, GLint i2 ) 3100 | (define-function void glEvalMesh1 (int int int)) 3101 | 3102 | ;; void glEvalMesh2( GLenum mode, GLint i1, GLint i2, GLint j1, GLint j2 ) 3103 | (define-function void glEvalMesh2 (int int int int int)) 3104 | 3105 | ;;;; Fog 3106 | 3107 | ;; void glFogf( GLenum pname, GLfloat param ) 3108 | (define-function void glFogf (int float)) 3109 | 3110 | ;; void glFogi( GLenum pname, GLint param ) 3111 | (define-function void glFogi (int int)) 3112 | 3113 | ;; void glFogfv( GLenum pname, const GLfloat *params ) 3114 | (define-function void glFogfv (int void*)) 3115 | 3116 | ;; void glFogiv( GLenum pname, const GLint *params ) 3117 | (define-function void glFogiv (int void*)) 3118 | 3119 | ;;;; Selection and Feedback 3120 | 3121 | ;; void glFeedbackBuffer( GLsizei size, GLenum type, GLfloat *buffer ) 3122 | (define-function void glFeedbackBuffer (int int void*)) 3123 | 3124 | ;; void glPassThrough( GLfloat token ) 3125 | (define-function void glPassThrough (float)) 3126 | 3127 | ;; void glSelectBuffer( GLsizei size, GLuint *buffer ) 3128 | (define-function void glSelectBuffer (int void*)) 3129 | 3130 | ;; void glInitNames( void ) 3131 | (define-function void glInitNames ()) 3132 | 3133 | ;; void glLoadName( GLuint name ) 3134 | (define-function void glLoadName (int)) 3135 | 3136 | ;; void glPushName( GLuint name ) 3137 | (define-function void glPushName (int)) 3138 | 3139 | ;; void glPopName( void ) 3140 | (define-function void glPopName ()) 3141 | 3142 | ;;;; OpenGL 1.2 3143 | 3144 | ;; void glDrawRangeElements( GLenum mode, GLuint start, GLuint end, GLsizei count, GLenum type, const GLvoid *indices ) 3145 | (define-function void glDrawRangeElements (int int int int int void*)) 3146 | 3147 | ;; void glTexImage3D( GLenum target, GLint level, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLenum format, GLenum type, const GLvoid *pixels ) 3148 | (define-function void glTexImage3D (int int int int int int int int int void*)) 3149 | 3150 | ;; void glTexSubImage3D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const GLvoid *pixels) 3151 | (define-function void glTexSubImage3D (int int int int int int int int int int void*)) 3152 | 3153 | ;; void glCopyTexSubImage3D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLint x, GLint y, GLsizei width, GLsizei height ) 3154 | (define-function void glCopyTexSubImage3D (int int int int int int int int int)) 3155 | 3156 | ;;;; GL_ARB_imaging 3157 | 3158 | ;; void glColorTable( GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *table ) 3159 | (define-function void glColorTable (int int int int int void*)) 3160 | 3161 | ;; void glColorSubTable( GLenum target, GLsizei start, GLsizei count, GLenum format, GLenum type, const GLvoid *data ) 3162 | (define-function void glColorSubTable (int int int int int void*)) 3163 | 3164 | ;; void glColorTableParameteriv(GLenum target, GLenum pname, const GLint *params) 3165 | (define-function void glColorTableParameteriv (int int void*)) 3166 | 3167 | ;; void glColorTableParameterfv(GLenum target, GLenum pname, const GLfloat *params) 3168 | (define-function void glColorTableParameterfv (int int void*)) 3169 | 3170 | ;; void glCopyColorSubTable( GLenum target, GLsizei start, GLint x, GLint y, GLsizei width ) 3171 | (define-function void glCopyColorSubTable (int int int int int)) 3172 | 3173 | ;; void glCopyColorTable( GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width ) 3174 | (define-function void glCopyColorTable (int int int int int)) 3175 | 3176 | ;; void glGetColorTable( GLenum target, GLenum format, GLenum type, GLvoid *table ) 3177 | (define-function void glGetColorTable (int int int void*)) 3178 | 3179 | ;; void glGetColorTableParameterfv( GLenum target, GLenum pname, GLfloat *params ) 3180 | (define-function void glGetColorTableParameterfv (int int void*)) 3181 | 3182 | ;; void glGetColorTableParameteriv( GLenum target, GLenum pname, GLint *params ) 3183 | (define-function void glGetColorTableParameteriv (int int void*)) 3184 | 3185 | ;; void glBlendEquation( GLenum mode ) 3186 | (define-function void glBlendEquation (int)) 3187 | 3188 | ;; void glBlendColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha ) 3189 | (define-function void glBlendColor (float float float float)) 3190 | 3191 | ;; void glHistogram( GLenum target, GLsizei width, GLenum internalformat, GLboolean sink ) 3192 | (define-function void glHistogram (int int int int)) 3193 | 3194 | ;; void glResetHistogram( GLenum target ) 3195 | (define-function void glResetHistogram (int)) 3196 | 3197 | ;; void glGetHistogram( GLenum target, GLboolean reset, GLenum format, GLenum type, GLvoid *values ) 3198 | (define-function void glGetHistogram (int int int int void*)) 3199 | 3200 | ;; void glGetHistogramParameterfv( GLenum target, GLenum pname, GLfloat *params ) 3201 | (define-function void glGetHistogramParameterfv (int int void*)) 3202 | 3203 | ;; void glGetHistogramParameteriv( GLenum target, GLenum pname, GLint *params ) 3204 | (define-function void glGetHistogramParameteriv (int int void*)) 3205 | 3206 | ;; void glMinmax( GLenum target, GLenum internalformat, GLboolean sink ) 3207 | (define-function void glMinmax (int int int)) 3208 | 3209 | ;; void glResetMinmax( GLenum target ) 3210 | (define-function void glResetMinmax (int)) 3211 | 3212 | ;; void glGetMinmax( GLenum target, GLboolean reset, GLenum format, GLenum types, GLvoid *values ) 3213 | (define-function void glGetMinmax (int int int int void*)) 3214 | 3215 | ;; void glGetMinmaxParameterfv( GLenum target, GLenum pname, GLfloat *params ) 3216 | (define-function void glGetMinmaxParameterfv (int int void*)) 3217 | 3218 | ;; void glGetMinmaxParameteriv( GLenum target, GLenum pname, GLint *params ) 3219 | (define-function void glGetMinmaxParameteriv (int int void*)) 3220 | 3221 | ;; void glConvolutionFilter1D( GLenum target, GLenum internalformat, GLsizei width, GLenum format, GLenum type, const GLvoid *image ) 3222 | (define-function void glConvolutionFilter1D (int int int int int void*)) 3223 | 3224 | ;; void glConvolutionFilter2D( GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *image ) 3225 | (define-function void glConvolutionFilter2D (int int int int int int void*)) 3226 | 3227 | ;; void glConvolutionParameterf( GLenum target, GLenum pname, GLfloat params ) 3228 | (define-function void glConvolutionParameterf (int int float)) 3229 | 3230 | ;; void glConvolutionParameterfv( GLenum target, GLenum pname, const GLfloat *params ) 3231 | (define-function void glConvolutionParameterfv (int int void*)) 3232 | 3233 | ;; void glConvolutionParameteri( GLenum target, GLenum pname, GLint params ) 3234 | (define-function void glConvolutionParameteri (int int int)) 3235 | 3236 | ;; void glConvolutionParameteriv( GLenum target, GLenum pname, const GLint *params ) 3237 | (define-function void glConvolutionParameteriv (int int void*)) 3238 | 3239 | ;; void glCopyConvolutionFilter1D( GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width ) 3240 | (define-function void glCopyConvolutionFilter1D (int int int int int)) 3241 | 3242 | ;; void glCopyConvolutionFilter2D( GLenum target, GLenum internalformat, GLint x, GLint y, GLsizei width, GLsizei height) 3243 | (define-function void glCopyConvolutionFilter2D (int int int int int int)) 3244 | 3245 | ;; void glGetConvolutionFilter( GLenum target, GLenum format, GLenum type, GLvoid *image ) 3246 | (define-function void glGetConvolutionFilter (int int int void*)) 3247 | 3248 | ;; void glGetConvolutionParameterfv( GLenum target, GLenum pname, GLfloat *params ) 3249 | (define-function void glGetConvolutionParameterfv (int int void*)) 3250 | 3251 | ;; void glGetConvolutionParameteriv( GLenum target, GLenum pname, GLint *params ) 3252 | (define-function void glGetConvolutionParameteriv (int int void*)) 3253 | 3254 | ;; void glSeparableFilter2D( GLenum target, GLenum internalformat, GLsizei width, GLsizei height, GLenum format, GLenum type, const GLvoid *row, const GLvoid *column ) 3255 | (define-function void glSeparableFilter2D (int int int int int int void* void*)) 3256 | 3257 | ;; void glGetSeparableFilter( GLenum target, GLenum format, GLenum type, GLvoid *row, GLvoid *column, GLvoid *span ) 3258 | (define-function void glGetSeparableFilter (int int int void* void* void*)) 3259 | 3260 | ;; void glActiveTexture( GLenum texture ) 3261 | (define-function void glActiveTexture (int)) 3262 | 3263 | ;; void glClientActiveTexture( GLenum texture ) 3264 | (define-function void glClientActiveTexture (int)) 3265 | 3266 | ;; void glCompressedTexImage1D( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLint border, GLsizei imageSize, const GLvoid *data ) 3267 | (define-function void glCompressedTexImage1D (int int int int int int void*)) 3268 | 3269 | ;; void glCompressedTexImage2D( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLint border, GLsizei imageSize, const GLvoid *data ) 3270 | (define-function void glCompressedTexImage2D (int int int int int int int void*)) 3271 | 3272 | ;; void glCompressedTexImage3D( GLenum target, GLint level, GLenum internalformat, GLsizei width, GLsizei height, GLsizei depth, GLint border, GLsizei imageSize, const GLvoid *data ) 3273 | (define-function void glCompressedTexImage3D (int int int int int int int int void*)) 3274 | 3275 | ;; void glCompressedTexSubImage1D( GLenum target, GLint level, GLint xoffset, GLsizei width, GLenum format, GLsizei imageSize, const GLvoid *data ) 3276 | (define-function void glCompressedTexSubImage1D (int int int int int int void*)) 3277 | 3278 | ;; void glCompressedTexSubImage2D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLsizei width, GLsizei height, GLenum format, GLsizei imageSize, const GLvoid *data ) 3279 | (define-function void glCompressedTexSubImage2D (int int int int int int int int void*)) 3280 | 3281 | ;; void glCompressedTexSubImage3D( GLenum target, GLint level, GLint xoffset, GLint yoffset, GLint zoffset, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLsizei imageSize, const GLvoid *data ) 3282 | (define-function void glCompressedTexSubImage3D (int int int int int int int int int int void*)) 3283 | 3284 | ;; void glGetCompressedTexImage( GLenum target, GLint lod, GLvoid *img ) 3285 | (define-function void glGetCompressedTexImage (int int void*)) 3286 | 3287 | ;; void glMultiTexCoord1d( GLenum target, GLdouble s ) 3288 | (define-function void glMultiTexCoord1d (int double)) 3289 | 3290 | ;; void glMultiTexCoord1dv( GLenum target, const GLdouble *v ) 3291 | (define-function void glMultiTexCoord1dv (int void*)) 3292 | 3293 | ;; void glMultiTexCoord1f( GLenum target, GLfloat s ) 3294 | (define-function void glMultiTexCoord1f (int float)) 3295 | 3296 | ;; void glMultiTexCoord1fv( GLenum target, const GLfloat *v ) 3297 | (define-function void glMultiTexCoord1fv (int void*)) 3298 | 3299 | ;; void glMultiTexCoord1i( GLenum target, GLint s ) 3300 | (define-function void glMultiTexCoord1i (int int)) 3301 | 3302 | ;; void glMultiTexCoord1iv( GLenum target, const GLint *v ) 3303 | (define-function void glMultiTexCoord1iv (int void*)) 3304 | 3305 | ;; void glMultiTexCoord1s( GLenum target, GLshort s ) 3306 | (define-function void glMultiTexCoord1s (int int)) 3307 | 3308 | ;; void glMultiTexCoord1sv( GLenum target, const GLshort *v ) 3309 | (define-function void glMultiTexCoord1sv (int void*)) 3310 | 3311 | ;; void glMultiTexCoord2d( GLenum target, GLdouble s, GLdouble t ) 3312 | (define-function void glMultiTexCoord2d (int double double)) 3313 | 3314 | ;; void glMultiTexCoord2dv( GLenum target, const GLdouble *v ) 3315 | (define-function void glMultiTexCoord2dv (int void*)) 3316 | 3317 | ;; void glMultiTexCoord2f( GLenum target, GLfloat s, GLfloat t ) 3318 | (define-function void glMultiTexCoord2f (int float float)) 3319 | 3320 | ;; void glMultiTexCoord2fv( GLenum target, const GLfloat *v ) 3321 | (define-function void glMultiTexCoord2fv (int void*)) 3322 | 3323 | ;; void glMultiTexCoord2i( GLenum target, GLint s, GLint t ) 3324 | (define-function void glMultiTexCoord2i (int int int)) 3325 | 3326 | ;; void glMultiTexCoord2iv( GLenum target, const GLint *v ) 3327 | (define-function void glMultiTexCoord2iv (int void*)) 3328 | 3329 | ;; void glMultiTexCoord2s( GLenum target, GLshort s, GLshort t ) 3330 | (define-function void glMultiTexCoord2s (int int int)) 3331 | 3332 | ;; void glMultiTexCoord2sv( GLenum target, const GLshort *v ) 3333 | (define-function void glMultiTexCoord2sv (int void*)) 3334 | 3335 | ;; void glMultiTexCoord3d( GLenum target, GLdouble s, GLdouble t, GLdouble r ) 3336 | (define-function void glMultiTexCoord3d (int double double double)) 3337 | 3338 | ;; void glMultiTexCoord3dv( GLenum target, const GLdouble *v ) 3339 | (define-function void glMultiTexCoord3dv (int void*)) 3340 | 3341 | ;; void glMultiTexCoord3f( GLenum target, GLfloat s, GLfloat t, GLfloat r ) 3342 | (define-function void glMultiTexCoord3f (int float float float)) 3343 | 3344 | ;; void glMultiTexCoord3fv( GLenum target, const GLfloat *v ) 3345 | (define-function void glMultiTexCoord3fv (int void*)) 3346 | 3347 | ;; void glMultiTexCoord3i( GLenum target, GLint s, GLint t, GLint r ) 3348 | (define-function void glMultiTexCoord3i (int int int int)) 3349 | 3350 | ;; void glMultiTexCoord3iv( GLenum target, const GLint *v ) 3351 | (define-function void glMultiTexCoord3iv (int void*)) 3352 | 3353 | ;; void glMultiTexCoord3s( GLenum target, GLshort s, GLshort t, GLshort r ) 3354 | (define-function void glMultiTexCoord3s (int int int int)) 3355 | 3356 | ;; void glMultiTexCoord3sv( GLenum target, const GLshort *v ) 3357 | (define-function void glMultiTexCoord3sv (int void*)) 3358 | 3359 | ;; void glMultiTexCoord4d( GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q ) 3360 | (define-function void glMultiTexCoord4d (int double double double double)) 3361 | 3362 | ;; void glMultiTexCoord4dv( GLenum target, const GLdouble *v ) 3363 | (define-function void glMultiTexCoord4dv (int void*)) 3364 | 3365 | ;; void glMultiTexCoord4f( GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q ) 3366 | (define-function void glMultiTexCoord4f (int float float float float)) 3367 | 3368 | ;; void glMultiTexCoord4fv( GLenum target, const GLfloat *v ) 3369 | (define-function void glMultiTexCoord4fv (int void*)) 3370 | 3371 | ;; void glMultiTexCoord4i( GLenum target, GLint s, GLint t, GLint r, GLint q ) 3372 | (define-function void glMultiTexCoord4i (int int int int int)) 3373 | 3374 | ;; void glMultiTexCoord4iv( GLenum target, const GLint *v ) 3375 | (define-function void glMultiTexCoord4iv (int void*)) 3376 | 3377 | ;; void glMultiTexCoord4s( GLenum target, GLshort s, GLshort t, GLshort r, GLshort q ) 3378 | (define-function void glMultiTexCoord4s (int int int int int)) 3379 | 3380 | ;; void glMultiTexCoord4sv( GLenum target, const GLshort *v ) 3381 | (define-function void glMultiTexCoord4sv (int void*)) 3382 | 3383 | ;; void glLoadTransposeMatrixd( const GLdouble *m ) /* void glLoadTransposeMatrixd( const GLdouble m[16] ) */ 3384 | (define-function void glLoadTransposeMatrixd (void*)) 3385 | 3386 | ;; void glLoadTransposeMatrixf( const GLfloat *m ) /* void glLoadTransposeMatrixf( const GLfloat m[16] ) */ 3387 | (define-function void glLoadTransposeMatrixf (void*)) 3388 | 3389 | ;; void glMultTransposeMatrixd( const GLdouble *m ) /* void glMultTransposeMatrixd( const GLdouble m[16] ) */ 3390 | (define-function void glMultTransposeMatrixd (void*)) 3391 | 3392 | ;; void glMultTransposeMatrixf( const GLfloat *m ) /* void glMultTransposeMatrixf( const GLfloat m[16] ) */ 3393 | (define-function void glMultTransposeMatrixf (void*)) 3394 | 3395 | ;; void glSampleCoverage( GLclampf value, GLboolean invert ) 3396 | (define-function void glSampleCoverage (float int)) 3397 | 3398 | ;;;; OpenGL 1.3 3399 | 3400 | ;; void glActiveTextureARB(GLenum texture) 3401 | (define-function void glActiveTextureARB (int)) 3402 | 3403 | ;; void glClientActiveTextureARB(GLenum texture) 3404 | (define-function void glClientActiveTextureARB (int)) 3405 | 3406 | ;; void glMultiTexCoord1dARB(GLenum target, GLdouble s) 3407 | (define-function void glMultiTexCoord1dARB (int double)) 3408 | 3409 | ;; void glMultiTexCoord1dvARB(GLenum target, const GLdouble *v) 3410 | (define-function void glMultiTexCoord1dvARB (int void*)) 3411 | 3412 | ;; void glMultiTexCoord1fARB(GLenum target, GLfloat s) 3413 | (define-function void glMultiTexCoord1fARB (int float)) 3414 | 3415 | ;; void glMultiTexCoord1fvARB(GLenum target, const GLfloat *v) 3416 | (define-function void glMultiTexCoord1fvARB (int void*)) 3417 | 3418 | ;; void glMultiTexCoord1iARB(GLenum target, GLint s) 3419 | (define-function void glMultiTexCoord1iARB (int int)) 3420 | 3421 | ;; void glMultiTexCoord1ivARB(GLenum target, const GLint *v) 3422 | (define-function void glMultiTexCoord1ivARB (int void*)) 3423 | 3424 | ;; void glMultiTexCoord1sARB(GLenum target, GLshort s) 3425 | (define-function void glMultiTexCoord1sARB (int int)) 3426 | 3427 | ;; void glMultiTexCoord1svARB(GLenum target, const GLshort *v) 3428 | (define-function void glMultiTexCoord1svARB (int void*)) 3429 | 3430 | ;; void glMultiTexCoord2dARB(GLenum target, GLdouble s, GLdouble t) 3431 | (define-function void glMultiTexCoord2dARB (int double double)) 3432 | 3433 | ;; void glMultiTexCoord2dvARB(GLenum target, const GLdouble *v) 3434 | (define-function void glMultiTexCoord2dvARB (int void*)) 3435 | 3436 | ;; void glMultiTexCoord2fARB(GLenum target, GLfloat s, GLfloat t) 3437 | (define-function void glMultiTexCoord2fARB (int float float)) 3438 | 3439 | ;; void glMultiTexCoord2fvARB(GLenum target, const GLfloat *v) 3440 | (define-function void glMultiTexCoord2fvARB (int void*)) 3441 | 3442 | ;; void glMultiTexCoord2iARB(GLenum target, GLint s, GLint t) 3443 | (define-function void glMultiTexCoord2iARB (int int int)) 3444 | 3445 | ;; void glMultiTexCoord2ivARB(GLenum target, const GLint *v) 3446 | (define-function void glMultiTexCoord2ivARB (int void*)) 3447 | 3448 | ;; void glMultiTexCoord2sARB(GLenum target, GLshort s, GLshort t) 3449 | (define-function void glMultiTexCoord2sARB (int int int)) 3450 | 3451 | ;; void glMultiTexCoord2svARB(GLenum target, const GLshort *v) 3452 | (define-function void glMultiTexCoord2svARB (int void*)) 3453 | 3454 | ;; void glMultiTexCoord3dARB(GLenum target, GLdouble s, GLdouble t, GLdouble r) 3455 | (define-function void glMultiTexCoord3dARB (int double double double)) 3456 | 3457 | ;; void glMultiTexCoord3dvARB(GLenum target, const GLdouble *v) 3458 | (define-function void glMultiTexCoord3dvARB (int void*)) 3459 | 3460 | ;; void glMultiTexCoord3fARB(GLenum target, GLfloat s, GLfloat t, GLfloat r) 3461 | (define-function void glMultiTexCoord3fARB (int float float float)) 3462 | 3463 | ;; void glMultiTexCoord3fvARB(GLenum target, const GLfloat *v) 3464 | (define-function void glMultiTexCoord3fvARB (int void*)) 3465 | 3466 | ;; void glMultiTexCoord3iARB(GLenum target, GLint s, GLint t, GLint r) 3467 | (define-function void glMultiTexCoord3iARB (int int int int)) 3468 | 3469 | ;; void glMultiTexCoord3ivARB(GLenum target, const GLint *v) 3470 | (define-function void glMultiTexCoord3ivARB (int void*)) 3471 | 3472 | ;; void glMultiTexCoord3sARB(GLenum target, GLshort s, GLshort t, GLshort r) 3473 | (define-function void glMultiTexCoord3sARB (int int int int)) 3474 | 3475 | ;; void glMultiTexCoord3svARB(GLenum target, const GLshort *v) 3476 | (define-function void glMultiTexCoord3svARB (int void*)) 3477 | 3478 | ;; void glMultiTexCoord4dARB(GLenum target, GLdouble s, GLdouble t, GLdouble r, GLdouble q) 3479 | (define-function void glMultiTexCoord4dARB (int double double double double)) 3480 | 3481 | ;; void glMultiTexCoord4dvARB(GLenum target, const GLdouble *v) 3482 | (define-function void glMultiTexCoord4dvARB (int void*)) 3483 | 3484 | ;; void glMultiTexCoord4fARB(GLenum target, GLfloat s, GLfloat t, GLfloat r, GLfloat q) 3485 | (define-function void glMultiTexCoord4fARB (int float float float float)) 3486 | 3487 | ;; void glMultiTexCoord4fvARB(GLenum target, const GLfloat *v) 3488 | (define-function void glMultiTexCoord4fvARB (int void*)) 3489 | 3490 | ;; void glMultiTexCoord4iARB(GLenum target, GLint s, GLint t, GLint r, GLint q) 3491 | (define-function void glMultiTexCoord4iARB (int int int int int)) 3492 | 3493 | ;; void glMultiTexCoord4ivARB(GLenum target, const GLint *v) 3494 | (define-function void glMultiTexCoord4ivARB (int void*)) 3495 | 3496 | ;; void glMultiTexCoord4sARB(GLenum target, GLshort s, GLshort t, GLshort r, GLshort q) 3497 | (define-function void glMultiTexCoord4sARB (int int int int int)) 3498 | 3499 | ;; void glMultiTexCoord4svARB(GLenum target, const GLshort *v) 3500 | (define-function void glMultiTexCoord4svARB (int void*)) 3501 | 3502 | ) 3503 | -------------------------------------------------------------------------------- /glu.sls: -------------------------------------------------------------------------------- 1 | 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | ;;; Ported to Chez Scheme by Ed Cavazos (wayo.cavazos@gmail.com) 7 | 8 | (library (glu) 9 | 10 | (export GLU_EXT_object_space_tess 11 | GLU_EXT_nurbs_tessellator 12 | GLU_FALSE 13 | GLU_TRUE 14 | GLU_VERSION_1_1 15 | GLU_VERSION_1_2 16 | GLU_VERSION_1_3 17 | GLU_VERSION 18 | GLU_EXTENSIONS 19 | GLU_INVALID_ENUM 20 | GLU_INVALID_VALUE 21 | GLU_OUT_OF_MEMORY 22 | GLU_INCOMPATIBLE_GL_VERSION 23 | GLU_INVALID_OPERATION 24 | GLU_OUTLINE_POLYGON 25 | GLU_OUTLINE_PATCH 26 | GLU_NURBS_ERROR 27 | GLU_ERROR 28 | GLU_NURBS_BEGIN 29 | GLU_NURBS_BEGIN_EXT 30 | GLU_NURBS_VERTEX 31 | GLU_NURBS_VERTEX_EXT 32 | GLU_NURBS_NORMAL 33 | GLU_NURBS_NORMAL_EXT 34 | GLU_NURBS_COLOR 35 | GLU_NURBS_COLOR_EXT 36 | GLU_NURBS_TEXTURE_COORD 37 | GLU_NURBS_TEX_COORD_EXT 38 | GLU_NURBS_END 39 | GLU_NURBS_END_EXT 40 | GLU_NURBS_BEGIN_DATA 41 | GLU_NURBS_BEGIN_DATA_EXT 42 | GLU_NURBS_VERTEX_DATA 43 | GLU_NURBS_VERTEX_DATA_EXT 44 | GLU_NURBS_NORMAL_DATA 45 | GLU_NURBS_NORMAL_DATA_EXT 46 | GLU_NURBS_COLOR_DATA 47 | GLU_NURBS_COLOR_DATA_EXT 48 | GLU_NURBS_TEXTURE_COORD_DATA 49 | GLU_NURBS_TEX_COORD_DATA_EXT 50 | GLU_NURBS_END_DATA 51 | GLU_NURBS_END_DATA_EXT 52 | GLU_NURBS_ERROR1 53 | GLU_NURBS_ERROR2 54 | GLU_NURBS_ERROR3 55 | GLU_NURBS_ERROR4 56 | GLU_NURBS_ERROR5 57 | GLU_NURBS_ERROR6 58 | GLU_NURBS_ERROR7 59 | GLU_NURBS_ERROR8 60 | GLU_NURBS_ERROR9 61 | GLU_NURBS_ERROR10 62 | GLU_NURBS_ERROR11 63 | GLU_NURBS_ERROR12 64 | GLU_NURBS_ERROR13 65 | GLU_NURBS_ERROR14 66 | GLU_NURBS_ERROR15 67 | GLU_NURBS_ERROR16 68 | GLU_NURBS_ERROR17 69 | GLU_NURBS_ERROR18 70 | GLU_NURBS_ERROR19 71 | GLU_NURBS_ERROR20 72 | GLU_NURBS_ERROR21 73 | GLU_NURBS_ERROR22 74 | GLU_NURBS_ERROR23 75 | GLU_NURBS_ERROR24 76 | GLU_NURBS_ERROR25 77 | GLU_NURBS_ERROR26 78 | GLU_NURBS_ERROR27 79 | GLU_NURBS_ERROR28 80 | GLU_NURBS_ERROR29 81 | GLU_NURBS_ERROR30 82 | GLU_NURBS_ERROR31 83 | GLU_NURBS_ERROR32 84 | GLU_NURBS_ERROR33 85 | GLU_NURBS_ERROR34 86 | GLU_NURBS_ERROR35 87 | GLU_NURBS_ERROR36 88 | GLU_NURBS_ERROR37 89 | GLU_AUTO_LOAD_MATRIX 90 | GLU_CULLING 91 | GLU_SAMPLING_TOLERANCE 92 | GLU_DISPLAY_MODE 93 | GLU_PARAMETRIC_TOLERANCE 94 | GLU_SAMPLING_METHOD 95 | GLU_U_STEP 96 | GLU_V_STEP 97 | GLU_NURBS_MODE 98 | GLU_NURBS_MODE_EXT 99 | GLU_NURBS_TESSELLATOR 100 | GLU_NURBS_TESSELLATOR_EXT 101 | GLU_NURBS_RENDERER 102 | GLU_NURBS_RENDERER_EXT 103 | GLU_OBJECT_PARAMETRIC_ERROR 104 | GLU_OBJECT_PARAMETRIC_ERROR_EXT 105 | GLU_OBJECT_PATH_LENGTH 106 | GLU_OBJECT_PATH_LENGTH_EXT 107 | GLU_PATH_LENGTH 108 | GLU_PARAMETRIC_ERROR 109 | GLU_DOMAIN_DISTANCE 110 | GLU_MAP1_TRIM_2 111 | GLU_MAP1_TRIM_3 112 | GLU_POINT 113 | GLU_LINE 114 | GLU_FILL 115 | GLU_SILHOUETTE 116 | GLU_SMOOTH 117 | GLU_FLAT 118 | GLU_NONE 119 | GLU_OUTSIDE 120 | GLU_INSIDE 121 | GLU_TESS_BEGIN 122 | GLU_BEGIN 123 | GLU_TESS_VERTEX 124 | GLU_VERTEX 125 | GLU_TESS_END 126 | GLU_END 127 | GLU_TESS_ERROR 128 | GLU_TESS_EDGE_FLAG 129 | GLU_EDGE_FLAG 130 | GLU_TESS_COMBINE 131 | GLU_TESS_BEGIN_DATA 132 | GLU_TESS_VERTEX_DATA 133 | GLU_TESS_END_DATA 134 | GLU_TESS_ERROR_DATA 135 | GLU_TESS_EDGE_FLAG_DATA 136 | GLU_TESS_COMBINE_DATA 137 | GLU_CW 138 | GLU_CCW 139 | GLU_INTERIOR 140 | GLU_EXTERIOR 141 | GLU_UNKNOWN 142 | GLU_TESS_WINDING_RULE 143 | GLU_TESS_BOUNDARY_ONLY 144 | GLU_TESS_TOLERANCE 145 | GLU_TESS_ERROR1 146 | GLU_TESS_ERROR2 147 | GLU_TESS_ERROR3 148 | GLU_TESS_ERROR4 149 | GLU_TESS_ERROR5 150 | GLU_TESS_ERROR6 151 | GLU_TESS_ERROR7 152 | GLU_TESS_ERROR8 153 | GLU_TESS_MISSING_BEGIN_POLYGON 154 | GLU_TESS_MISSING_BEGIN_CONTOUR 155 | GLU_TESS_MISSING_END_POLYGON 156 | GLU_TESS_MISSING_END_CONTOUR 157 | GLU_TESS_COORD_TOO_LARGE 158 | GLU_TESS_NEED_COMBINE_CALLBACK 159 | GLU_TESS_WINDING_ODD 160 | GLU_TESS_WINDING_NONZERO 161 | GLU_TESS_WINDING_POSITIVE 162 | GLU_TESS_WINDING_NEGATIVE 163 | GLU_TESS_WINDING_ABS_GEQ_TWO 164 | GLU_TESS_MAX_COORD 165 | gluBeginCurve 166 | gluBeginPolygon 167 | gluBeginSurface 168 | gluBeginTrim 169 | gluBuild1DMipmapLevels 170 | gluBuild1DMipmaps 171 | gluBuild2DMipmapLevels 172 | gluBuild2DMipmaps 173 | gluBuild3DMipmapLevels 174 | gluBuild3DMipmaps 175 | gluCheckExtension 176 | gluCylinder 177 | gluDeleteNurbsRenderer 178 | gluDeleteQuadric 179 | gluDeleteTess 180 | gluDisk 181 | gluEndCurve 182 | gluEndPolygon 183 | gluEndSurface 184 | gluEndTrim 185 | gluErrorString 186 | gluGetNurbsProperty 187 | gluGetString 188 | gluGetTessProperty 189 | gluLoadSamplingMatrices 190 | gluLookAt 191 | gluNewNurbsRenderer 192 | gluNewQuadric 193 | gluNewTess 194 | gluNextContour 195 | 196 | ;; gluNurbsCallback 197 | 198 | gluNurbsCallbackData 199 | gluNurbsCallbackDataEXT 200 | gluNurbsCurve 201 | gluNurbsProperty 202 | gluNurbsSurface 203 | gluOrtho2D 204 | gluPartialDisk 205 | gluPerspective 206 | gluPickMatrix 207 | gluProject 208 | gluPwlCurve 209 | 210 | ;; gluQuadricCallback 211 | 212 | gluQuadricDrawStyle 213 | gluQuadricNormals 214 | gluQuadricOrientation 215 | gluQuadricTexture 216 | gluScaleImage 217 | gluSphere 218 | gluTessBeginContour 219 | gluTessBeginPolygon 220 | 221 | ;; gluTessCallback 222 | 223 | gluTessEndContour 224 | gluTessEndPolygon 225 | gluTessNormal 226 | gluTessProperty 227 | gluTessVertex 228 | gluUnProject 229 | gluUnProject4) 230 | 231 | (import (chezscheme)) 232 | 233 | (define lib-name 234 | (case (machine-type) 235 | ((i3osx ti3osx) "OpenGL.framework/OpenGL") ; OSX x86 236 | ((a6osx ta6osx) "OpenGL.framework/OpenGL") ; OSX x86_64 237 | ((i3nt ti3nt) "glu32.dll") ; Windows x86 238 | ((a6nt ta6nt) "glu64.dll") ; Windows x86_64 239 | ((i3le ti3le) "libGLU.so.1") ; Linux x86 240 | ((a6le ta6le) "libGLU.so.1") ; Linux x86_64 241 | ((i3ob ti3ob) "libGLU.so.7.0") ; OpenBSD x86 242 | ((a6ob ta6ob) "libGLU.so.7.0") ; OpenBSD x86_64 243 | ((i3fb ti3fb) "libGLU.so") ; FreeBSD x86 244 | ((a6fb ta6fb) "libGLU.so") ; FreeBSD x86_64 245 | ((i3s2 ti3s2) "libGLU.so.1") ; Solaris x86 246 | ((a6s2 ta6s2) "libGLU.so.1") ; Solaris x86_64 247 | (else 248 | (assertion-violation #f "can not locate OpenGL library, unknown operating system")))) 249 | 250 | (define lib (load-shared-object lib-name)) 251 | 252 | ;; (define-syntax define-function 253 | ;; (syntax-rules () 254 | ;; ((_ ret name args) 255 | ;; (define name (c-function lib lib-name ret __stdcall name args))))) 256 | 257 | (define-syntax define-function 258 | (syntax-rules () 259 | ((_ ret name args) 260 | (define name 261 | (foreign-procedure (symbol->string 'name) args ret))))) 262 | 263 | ;;;; Extensions 264 | (define GLU_EXT_object_space_tess 1) 265 | (define GLU_EXT_nurbs_tessellator 1) 266 | ;;;; Boolean 267 | (define GLU_FALSE 0) 268 | (define GLU_TRUE 1) 269 | ;;;; Version 270 | (define GLU_VERSION_1_1 1) 271 | (define GLU_VERSION_1_2 1) 272 | (define GLU_VERSION_1_3 1) 273 | ;;;; StringName 274 | (define GLU_VERSION 100800) 275 | (define GLU_EXTENSIONS 100801) 276 | ;;;; ErrorCode 277 | (define GLU_INVALID_ENUM 100900) 278 | (define GLU_INVALID_VALUE 100901) 279 | (define GLU_OUT_OF_MEMORY 100902) 280 | (define GLU_INCOMPATIBLE_GL_VERSION 100903) 281 | (define GLU_INVALID_OPERATION 100904) 282 | ;;;; NurbsDisplay 283 | ;;;; GLU_FILL 284 | (define GLU_OUTLINE_POLYGON 100240) 285 | (define GLU_OUTLINE_PATCH 100241) 286 | ;;;; NurbsCallback 287 | (define GLU_NURBS_ERROR 100103) 288 | (define GLU_ERROR 100103) 289 | (define GLU_NURBS_BEGIN 100164) 290 | (define GLU_NURBS_BEGIN_EXT 100164) 291 | (define GLU_NURBS_VERTEX 100165) 292 | (define GLU_NURBS_VERTEX_EXT 100165) 293 | (define GLU_NURBS_NORMAL 100166) 294 | (define GLU_NURBS_NORMAL_EXT 100166) 295 | (define GLU_NURBS_COLOR 100167) 296 | (define GLU_NURBS_COLOR_EXT 100167) 297 | (define GLU_NURBS_TEXTURE_COORD 100168) 298 | (define GLU_NURBS_TEX_COORD_EXT 100168) 299 | (define GLU_NURBS_END 100169) 300 | (define GLU_NURBS_END_EXT 100169) 301 | (define GLU_NURBS_BEGIN_DATA 100170) 302 | (define GLU_NURBS_BEGIN_DATA_EXT 100170) 303 | (define GLU_NURBS_VERTEX_DATA 100171) 304 | (define GLU_NURBS_VERTEX_DATA_EXT 100171) 305 | (define GLU_NURBS_NORMAL_DATA 100172) 306 | (define GLU_NURBS_NORMAL_DATA_EXT 100172) 307 | (define GLU_NURBS_COLOR_DATA 100173) 308 | (define GLU_NURBS_COLOR_DATA_EXT 100173) 309 | (define GLU_NURBS_TEXTURE_COORD_DATA 100174) 310 | (define GLU_NURBS_TEX_COORD_DATA_EXT 100174) 311 | (define GLU_NURBS_END_DATA 100175) 312 | (define GLU_NURBS_END_DATA_EXT 100175) 313 | ;;;; NurbsError 314 | (define GLU_NURBS_ERROR1 100251) 315 | (define GLU_NURBS_ERROR2 100252) 316 | (define GLU_NURBS_ERROR3 100253) 317 | (define GLU_NURBS_ERROR4 100254) 318 | (define GLU_NURBS_ERROR5 100255) 319 | (define GLU_NURBS_ERROR6 100256) 320 | (define GLU_NURBS_ERROR7 100257) 321 | (define GLU_NURBS_ERROR8 100258) 322 | (define GLU_NURBS_ERROR9 100259) 323 | (define GLU_NURBS_ERROR10 100260) 324 | (define GLU_NURBS_ERROR11 100261) 325 | (define GLU_NURBS_ERROR12 100262) 326 | (define GLU_NURBS_ERROR13 100263) 327 | (define GLU_NURBS_ERROR14 100264) 328 | (define GLU_NURBS_ERROR15 100265) 329 | (define GLU_NURBS_ERROR16 100266) 330 | (define GLU_NURBS_ERROR17 100267) 331 | (define GLU_NURBS_ERROR18 100268) 332 | (define GLU_NURBS_ERROR19 100269) 333 | (define GLU_NURBS_ERROR20 100270) 334 | (define GLU_NURBS_ERROR21 100271) 335 | (define GLU_NURBS_ERROR22 100272) 336 | (define GLU_NURBS_ERROR23 100273) 337 | (define GLU_NURBS_ERROR24 100274) 338 | (define GLU_NURBS_ERROR25 100275) 339 | (define GLU_NURBS_ERROR26 100276) 340 | (define GLU_NURBS_ERROR27 100277) 341 | (define GLU_NURBS_ERROR28 100278) 342 | (define GLU_NURBS_ERROR29 100279) 343 | (define GLU_NURBS_ERROR30 100280) 344 | (define GLU_NURBS_ERROR31 100281) 345 | (define GLU_NURBS_ERROR32 100282) 346 | (define GLU_NURBS_ERROR33 100283) 347 | (define GLU_NURBS_ERROR34 100284) 348 | (define GLU_NURBS_ERROR35 100285) 349 | (define GLU_NURBS_ERROR36 100286) 350 | (define GLU_NURBS_ERROR37 100287) 351 | ;;;; NurbsProperty 352 | (define GLU_AUTO_LOAD_MATRIX 100200) 353 | (define GLU_CULLING 100201) 354 | (define GLU_SAMPLING_TOLERANCE 100203) 355 | (define GLU_DISPLAY_MODE 100204) 356 | (define GLU_PARAMETRIC_TOLERANCE 100202) 357 | (define GLU_SAMPLING_METHOD 100205) 358 | (define GLU_U_STEP 100206) 359 | (define GLU_V_STEP 100207) 360 | (define GLU_NURBS_MODE 100160) 361 | (define GLU_NURBS_MODE_EXT 100160) 362 | (define GLU_NURBS_TESSELLATOR 100161) 363 | (define GLU_NURBS_TESSELLATOR_EXT 100161) 364 | (define GLU_NURBS_RENDERER 100162) 365 | (define GLU_NURBS_RENDERER_EXT 100162) 366 | ;;;; NurbsSampling 367 | (define GLU_OBJECT_PARAMETRIC_ERROR 100208) 368 | (define GLU_OBJECT_PARAMETRIC_ERROR_EXT 100208) 369 | (define GLU_OBJECT_PATH_LENGTH 100209) 370 | (define GLU_OBJECT_PATH_LENGTH_EXT 100209) 371 | (define GLU_PATH_LENGTH 100215) 372 | (define GLU_PARAMETRIC_ERROR 100216) 373 | (define GLU_DOMAIN_DISTANCE 100217) 374 | ;;;; NurbsTrim 375 | (define GLU_MAP1_TRIM_2 100210) 376 | (define GLU_MAP1_TRIM_3 100211) 377 | ;;;; QuadricDrawStyle 378 | (define GLU_POINT 100010) 379 | (define GLU_LINE 100011) 380 | (define GLU_FILL 100012) 381 | (define GLU_SILHOUETTE 100013) 382 | ;;;; QuadricCallback 383 | ;;;; GLU_ERROR 384 | ;;;; QuadricNormal 385 | (define GLU_SMOOTH 100000) 386 | (define GLU_FLAT 100001) 387 | (define GLU_NONE 100002) 388 | ;;;; QuadricOrientation 389 | (define GLU_OUTSIDE 100020) 390 | (define GLU_INSIDE 100021) 391 | ;;;; TessCallback 392 | (define GLU_TESS_BEGIN 100100) 393 | (define GLU_BEGIN 100100) 394 | (define GLU_TESS_VERTEX 100101) 395 | (define GLU_VERTEX 100101) 396 | (define GLU_TESS_END 100102) 397 | (define GLU_END 100102) 398 | (define GLU_TESS_ERROR 100103) 399 | (define GLU_TESS_EDGE_FLAG 100104) 400 | (define GLU_EDGE_FLAG 100104) 401 | (define GLU_TESS_COMBINE 100105) 402 | (define GLU_TESS_BEGIN_DATA 100106) 403 | (define GLU_TESS_VERTEX_DATA 100107) 404 | (define GLU_TESS_END_DATA 100108) 405 | (define GLU_TESS_ERROR_DATA 100109) 406 | (define GLU_TESS_EDGE_FLAG_DATA 100110) 407 | (define GLU_TESS_COMBINE_DATA 100111) 408 | ;;;; TessContour 409 | (define GLU_CW 100120) 410 | (define GLU_CCW 100121) 411 | (define GLU_INTERIOR 100122) 412 | (define GLU_EXTERIOR 100123) 413 | (define GLU_UNKNOWN 100124) 414 | ;;;; TessProperty 415 | (define GLU_TESS_WINDING_RULE 100140) 416 | (define GLU_TESS_BOUNDARY_ONLY 100141) 417 | (define GLU_TESS_TOLERANCE 100142) 418 | ;;;; TessError 419 | (define GLU_TESS_ERROR1 100151) 420 | (define GLU_TESS_ERROR2 100152) 421 | (define GLU_TESS_ERROR3 100153) 422 | (define GLU_TESS_ERROR4 100154) 423 | (define GLU_TESS_ERROR5 100155) 424 | (define GLU_TESS_ERROR6 100156) 425 | (define GLU_TESS_ERROR7 100157) 426 | (define GLU_TESS_ERROR8 100158) 427 | (define GLU_TESS_MISSING_BEGIN_POLYGON 100151) 428 | (define GLU_TESS_MISSING_BEGIN_CONTOUR 100152) 429 | (define GLU_TESS_MISSING_END_POLYGON 100153) 430 | (define GLU_TESS_MISSING_END_CONTOUR 100154) 431 | (define GLU_TESS_COORD_TOO_LARGE 100155) 432 | (define GLU_TESS_NEED_COMBINE_CALLBACK 100156) 433 | ;;;; TessWinding 434 | (define GLU_TESS_WINDING_ODD 100130) 435 | (define GLU_TESS_WINDING_NONZERO 100131) 436 | (define GLU_TESS_WINDING_POSITIVE 100132) 437 | (define GLU_TESS_WINDING_NEGATIVE 100133) 438 | (define GLU_TESS_WINDING_ABS_GEQ_TWO 100134) 439 | (define GLU_TESS_MAX_COORD 1.0e150) 440 | 441 | ;; void gluBeginCurve (GLUnurbs* nurb) 442 | (define-function void gluBeginCurve (void*)) 443 | 444 | ;; void gluBeginPolygon (GLUtesselator* tess) 445 | (define-function void gluBeginPolygon (void*)) 446 | 447 | ;; void gluBeginSurface (GLUnurbs* nurb) 448 | (define-function void gluBeginSurface (void*)) 449 | 450 | ;; void gluBeginTrim (GLUnurbs* nurb) 451 | (define-function void gluBeginTrim (void*)) 452 | 453 | ;; GLint gluBuild1DMipmapLevels (GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, GLint level, GLint base, GLint max, const void* data) 454 | (define-function int gluBuild1DMipmapLevels (unsigned-int int int unsigned-int unsigned-int int int int void*)) 455 | 456 | ;; GLint gluBuild1DMipmaps (GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, const void* data) 457 | (define-function int gluBuild1DMipmaps (unsigned-int int int unsigned-int unsigned-int void*)) 458 | 459 | ;; GLint gluBuild2DMipmapLevels (GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, GLint level, GLint base, GLint max, const void* data) 460 | (define-function int gluBuild2DMipmapLevels (unsigned-int int int int unsigned-int unsigned-int int int int void*)) 461 | 462 | ;; GLint gluBuild2DMipmaps (GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, const void* data) 463 | (define-function int gluBuild2DMipmaps (unsigned-int int int int unsigned-int unsigned-int void*)) 464 | 465 | ;; GLint gluBuild3DMipmapLevels (GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, GLint level, GLint base, GLint max, const void* data) 466 | (define-function int gluBuild3DMipmapLevels (unsigned-int int int int int unsigned-int unsigned-int int int int void*)) 467 | 468 | ;; GLint gluBuild3DMipmaps (GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, const void* data) 469 | (define-function int gluBuild3DMipmaps (unsigned-int int int int int unsigned-int unsigned-int void*)) 470 | 471 | ;; GLboolean gluCheckExtension (const GLubyte* extName, const GLubyte* extString) 472 | 473 | (define-function unsigned-8 gluCheckExtension (void* void*)) 474 | 475 | ;; void gluCylinder (GLUquadric* quad, GLdouble base, GLdouble top, GLdouble height, GLint slices, GLint stacks) 476 | (define-function void gluCylinder (void* double double double int int)) 477 | 478 | ;; void gluDeleteNurbsRenderer (GLUnurbs* nurb) 479 | (define-function void gluDeleteNurbsRenderer (void*)) 480 | 481 | ;; void gluDeleteQuadric (GLUquadric* quad) 482 | (define-function void gluDeleteQuadric (void*)) 483 | 484 | ;; void gluDeleteTess (GLUtesselator* tess) 485 | (define-function void gluDeleteTess (void*)) 486 | 487 | ;; void gluDisk (GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops) 488 | (define-function void gluDisk (void* double double int int)) 489 | 490 | ;; void gluEndCurve (GLUnurbs* nurb) 491 | (define-function void gluEndCurve (void*)) 492 | 493 | ;; void gluEndPolygon (GLUtesselator* tess) 494 | (define-function void gluEndPolygon (void*)) 495 | 496 | ;; void gluEndSurface (GLUnurbs* nurb) 497 | (define-function void gluEndSurface (void*)) 498 | 499 | ;; void gluEndTrim (GLUnurbs* nurb) 500 | (define-function void gluEndTrim (void*)) 501 | 502 | ;; const GLubyte* gluErrorString (GLenum error) 503 | (define-function void* gluErrorString (unsigned-int)) 504 | 505 | ;; void gluGetNurbsProperty (GLUnurbs* nurb, GLenum property, GLfloat* data) 506 | (define-function void gluGetNurbsProperty (void* unsigned-int void*)) 507 | 508 | ;; const GLubyte* gluGetString (GLenum name) 509 | (define-function void* gluGetString (unsigned-int)) 510 | 511 | ;; void gluGetTessProperty (GLUtesselator* tess, GLenum which, GLdouble* data) 512 | (define-function void gluGetTessProperty (void* unsigned-int void*)) 513 | 514 | ;; void gluLoadSamplingMatrices (GLUnurbs* nurb, const GLfloat* model, const GLfloat* perspective, const GLint* view) 515 | (define-function void gluLoadSamplingMatrices (void* void* void* void*)) 516 | 517 | ;; void gluLookAt (GLdouble eyeX, GLdouble eyeY, GLdouble eyeZ, GLdouble centerX, GLdouble centerY, GLdouble centerZ, GLdouble upX, GLdouble upY, GLdouble upZ) 518 | (define-function void gluLookAt (double double double double double double double double double)) 519 | 520 | ;; GLUnurbs* gluNewNurbsRenderer (void) 521 | (define-function void* gluNewNurbsRenderer ()) 522 | 523 | ;; GLUquadric* gluNewQuadric (void) 524 | (define-function void* gluNewQuadric ()) 525 | 526 | ;; GLUtesselator* gluNewTess (void) 527 | (define-function void* gluNewTess ()) 528 | 529 | ;; void gluNextContour (GLUtesselator* tess, GLenum type) 530 | (define-function void gluNextContour (void* unsigned-int)) 531 | 532 | ;; void gluNurbsCallbackData (GLUnurbs* nurb, GLvoid* userData) 533 | (define-function void gluNurbsCallbackData (void* void*)) 534 | 535 | ;; void gluNurbsCallbackDataEXT (GLUnurbs* nurb, GLvoid* userData) 536 | (define-function void gluNurbsCallbackDataEXT (void* void*)) 537 | 538 | ;; void gluNurbsCurve (GLUnurbs* nurb, GLint knotCount, GLfloat* knots, GLint stride, GLfloat* control, GLint order, GLenum type) 539 | (define-function void gluNurbsCurve (void* int void* int void* int unsigned-int)) 540 | 541 | ;; void gluNurbsProperty (GLUnurbs* nurb, GLenum property, GLfloat value) 542 | (define-function void gluNurbsProperty (void* unsigned-int float)) 543 | 544 | ;; void gluNurbsSurface (GLUnurbs* nurb, GLint sKnotCount, GLfloat* sKnots, GLint tKnotCount, GLfloat* tKnots, GLint sStride, GLint tStride, GLfloat* control, GLint sOrder, GLint tOrder, GLenum type) 545 | (define-function void gluNurbsSurface (void* int void* int void* int int void* int int unsigned-int)) 546 | 547 | ;; void gluOrtho2D (GLdouble left, GLdouble right, GLdouble bottom, GLdouble top) 548 | (define-function void gluOrtho2D (double double double double)) 549 | 550 | ;; void gluPartialDisk (GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops, GLdouble start, GLdouble sweep) 551 | (define-function void gluPartialDisk (void* double double int int double double)) 552 | 553 | ;; void gluPerspective (GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar) 554 | (define-function void gluPerspective (double double double double)) 555 | 556 | ;; void gluPickMatrix (GLdouble x, GLdouble y, GLdouble delX, GLdouble delY, GLint *viewport) 557 | (define-function void gluPickMatrix (double double double double int)) 558 | 559 | ;; GLint gluProject (GLdouble objX, GLdouble objY, GLdouble objZ, const GLdouble* model, const GLdouble* proj, const GLint *view, GLdouble* winX, GLdouble* winY, GLdouble* winZ) 560 | (define-function int gluProject (double double double void* void* int void* void* void*)) 561 | 562 | ;; void gluPwlCurve (GLUnurbs* nurb, GLint count, GLfloat* data, GLint stride, GLenum type) 563 | (define-function void gluPwlCurve (void* int void* int unsigned-int)) 564 | 565 | ;; void gluQuadricDrawStyle (GLUquadric* quad, GLenum draw) 566 | (define-function void gluQuadricDrawStyle (void* unsigned-int)) 567 | 568 | ;; void gluQuadricNormals (GLUquadric* quad, GLenum normal) 569 | (define-function void gluQuadricNormals (void* unsigned-int)) 570 | 571 | ;; void gluQuadricOrientation (GLUquadric* quad, GLenum orientation) 572 | (define-function void gluQuadricOrientation (void* unsigned-int)) 573 | 574 | ;; void gluQuadricTexture (GLUquadric* quad, GLboolean texture) 575 | (define-function void gluQuadricTexture (void* unsigned-8)) 576 | 577 | ;; GLint gluScaleImage (GLenum format, GLsizei wIn, GLsizei hIn, GLenum typeIn, const void* dataIn, GLsizei wOut, GLsizei hOut, GLenum typeOut, GLvoid* dataOut) 578 | (define-function int gluScaleImage (unsigned-int int int unsigned-int void* int int unsigned-int void*)) 579 | 580 | ;; void gluSphere (GLUquadric* quad, GLdouble radius, GLint slices, GLint stacks) 581 | (define-function void gluSphere (void* double int int)) 582 | 583 | ;; void gluTessBeginContour (GLUtesselator* tess) 584 | (define-function void gluTessBeginContour (void*)) 585 | 586 | ;; void gluTessBeginPolygon (GLUtesselator* tess, GLvoid* data) 587 | (define-function void gluTessBeginPolygon (void* void*)) 588 | 589 | ;; void gluTessEndContour (GLUtesselator* tess) 590 | (define-function void gluTessEndContour (void*)) 591 | 592 | ;; void gluTessEndPolygon (GLUtesselator* tess) 593 | (define-function void gluTessEndPolygon (void*)) 594 | 595 | ;; void gluTessNormal (GLUtesselator* tess, GLdouble valueX, GLdouble valueY, GLdouble valueZ) 596 | (define-function void gluTessNormal (void* double double double)) 597 | 598 | ;; void gluTessProperty (GLUtesselator* tess, GLenum which, GLdouble data) 599 | (define-function void gluTessProperty (void* unsigned-int double)) 600 | 601 | ;; void gluTessVertex (GLUtesselator* tess, GLdouble* location, GLvoid* data) 602 | (define-function void gluTessVertex (void* void* void*)) 603 | 604 | ;; GLint gluUnProject (GLdouble winX, GLdouble winY, GLdouble winZ, const GLdouble* model, const GLdouble* proj, const GLint *view, GLdouble* objX, GLdouble* objY, GLdouble* objZ) 605 | (define-function int gluUnProject (double double double void* void* int void* void* void*)) 606 | 607 | ;; GLint gluUnProject4 (GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble clipW, const GLdouble* model, const GLdouble* proj, const GLint *view, GLdouble nearVal, GLdouble farVal, GLdouble* objX, GLdouble* objY, GLdouble* objZ, GLdouble* objW) 608 | (define-function int gluUnProject4 (double double double double void* void* int double double void* void* void* void*)) 609 | 610 | ;; void gluNurbsCallback (GLUnurbs* nurb, GLenum which, _GLUfuncptr CallBackFunc) 611 | 612 | ;; (define gluNurbsCallback 613 | ;; (let ((thunk (c-function lib lib-name void __stdcall gluNurbsCallback (void* unsigned-int void*))) 614 | ;; (alist `((,GLU_NURBS_BEGIN int) 615 | ;; (,GLU_NURBS_VERTEX float) 616 | ;; (,GLU_NURBS_NORMAL float) 617 | ;; (,GLU_NURBS_COLOR float) 618 | ;; (,GLU_NURBS_TEXTURE_COORD float) 619 | ;; (,GLU_NURBS_END) 620 | ;; (,GLU_NURBS_BEGIN_DATA int void*) 621 | ;; (,GLU_NURBS_VERTEX_DATA float void*) 622 | ;; (,GLU_NURBS_NORMAL_DATA float void*) 623 | ;; (,GLU_NURBS_COLOR_DATA float void*) 624 | ;; (,GLU_NURBS_TEXTURE_COORD_DATA float void*) 625 | ;; (,GLU_NURBS_END_DATA void*) 626 | ;; (,GLU_NURBS_ERROR int)))) 627 | ;; (lambda (nurb which callback) 628 | ;; (if (procedure? callback) 629 | ;; (let ((lst (assv which alist))) 630 | ;; (or lst (assertion-violation 'gluNurbsCallback "invalid value in argument 2" (list nurb which callback))) 631 | ;; (thunk nurb which (make-stdcall-callback 'void (cdr lst) callback))) 632 | ;; (thunk nurb which callback))))) 633 | 634 | ;; void gluQuadricCallback (GLUquadric* quad, GLenum which, _GLUfuncptr CallBackFunc) 635 | 636 | ;; (define gluQuadricCallback 637 | ;; (let ((thunk (c-function lib lib-name void __stdcall gluQuadricCallback (void* unsigned-int void*)))) 638 | ;; (lambda (quad which callback) 639 | ;; (or (eqv? which GLU_ERROR) 640 | ;; (assertion-violation 'gluQuadricCallback "invalid value in argument 2" (list quad which callback))) 641 | ;; (if (procedure? callback) 642 | ;; (thunk quad which (make-stdcall-callback 'void '(unsigned-int) callback)) 643 | ;; (thunk quad which callback))))) 644 | 645 | ;; void gluTessCallback (GLUtesselator* tess, GLenum which, _GLUfuncptr CallBackFunc) 646 | ;; (define gluTessCallback 647 | ;; (let ((thunk (c-function lib lib-name void __stdcall gluTessCallback (void* unsigned-int void*))) 648 | ;; (alist `((,GLU_TESS_BEGIN unsigned-int) 649 | ;; (,GLU_TESS_BEGIN_DATA unsigned-int void*) 650 | ;; (,GLU_TESS_EDGE_FLAG uint8_t) 651 | ;; (,GLU_TESS_EDGE_FLAG_DATA uint8_t void*) 652 | ;; (,GLU_TESS_VERTEX void*) 653 | ;; (,GLU_TESS_VERTEX_DATA void* void*) 654 | ;; (,GLU_TESS_END) 655 | ;; (,GLU_TESS_END_DATA void*) 656 | ;; (,GLU_TESS_COMBINE void* void* void* void*) 657 | ;; (,GLU_TESS_COMBINE_DATA void* void* void* void* void*) 658 | ;; (,GLU_TESS_ERROR unsigned-int) 659 | ;; (,GLU_TESS_ERROR_DATA unsigned-int void*)))) 660 | ;; (lambda (tess which callback) 661 | ;; (if (procedure? callback) 662 | ;; (let ((lst (assv which alist))) 663 | ;; (or lst (assertion-violation 'gluTessCallback "invalid value in argument 2" (list tess which callback))) 664 | ;; (thunk tess which (make-stdcall-callback 'void (cdr lst) callback))) 665 | ;; (thunk tess which callback))))) 666 | 667 | ) ;[end] 668 | -------------------------------------------------------------------------------- /glut.sls: -------------------------------------------------------------------------------- 1 | 2 | ;;; Ypsilon Scheme System 3 | ;;; Copyright (c) 2004-2009 Y.FUJITA / LittleWing Company Limited. 4 | ;;; See license.txt for terms and conditions of use. 5 | 6 | ;;; Ported to Chez Scheme by Ed Cavazos (wayo.cavazos@gmail.com) 7 | 8 | (library (glut) 9 | (export GLUT_RGB 10 | GLUT_RGBA 11 | GLUT_INDEX 12 | GLUT_SINGLE 13 | GLUT_DOUBLE 14 | GLUT_ACCUM 15 | GLUT_ALPHA 16 | GLUT_DEPTH 17 | GLUT_STENCIL 18 | GLUT_MULTISAMPLE 19 | GLUT_STEREO 20 | GLUT_LUMINANCE 21 | GLUT_NO_RECOVERY 22 | GLUT_LEFT_BUTTON 23 | GLUT_MIDDLE_BUTTON 24 | GLUT_RIGHT_BUTTON 25 | GLUT_DOWN 26 | GLUT_UP 27 | GLUT_KEY_F1 28 | GLUT_KEY_F2 29 | GLUT_KEY_F3 30 | GLUT_KEY_F4 31 | GLUT_KEY_F5 32 | GLUT_KEY_F6 33 | GLUT_KEY_F7 34 | GLUT_KEY_F8 35 | GLUT_KEY_F9 36 | GLUT_KEY_F10 37 | GLUT_KEY_F11 38 | GLUT_KEY_F12 39 | GLUT_KEY_LEFT 40 | GLUT_KEY_UP 41 | GLUT_KEY_RIGHT 42 | GLUT_KEY_DOWN 43 | GLUT_KEY_PAGE_UP 44 | GLUT_KEY_PAGE_DOWN 45 | GLUT_KEY_HOME 46 | GLUT_KEY_END 47 | GLUT_KEY_INSERT 48 | GLUT_LEFT 49 | GLUT_ENTERED 50 | GLUT_MENU_NOT_IN_USE 51 | GLUT_MENU_IN_USE 52 | GLUT_NOT_VISIBLE 53 | GLUT_VISIBLE 54 | GLUT_HIDDEN 55 | GLUT_FULLY_RETAINED 56 | GLUT_PARTIALLY_RETAINED 57 | GLUT_FULLY_COVERED 58 | GLUT_RED 59 | GLUT_GREEN 60 | GLUT_BLUE 61 | GLUT_NORMAL 62 | GLUT_OVERLAY 63 | glutInit 64 | glutInitDisplayString 65 | glutInitDisplayMode 66 | glutInitWindowPosition 67 | glutInitWindowSize 68 | glutMainLoop 69 | glutCreateWindow 70 | glutCreateSubWindow 71 | glutDestroyWindow 72 | glutPostRedisplay 73 | glutPostWindowRedisplay 74 | glutSwapBuffers 75 | glutGetWindow 76 | glutSetWindow 77 | glutSetWindowTitle 78 | glutSetIconTitle 79 | glutPositionWindow 80 | glutReshapeWindow 81 | glutPopWindow 82 | glutPushWindow 83 | glutIconifyWindow 84 | glutShowWindow 85 | glutHideWindow 86 | glutFullScreen 87 | glutSetCursor 88 | glutWarpPointer 89 | glutEstablishOverlay 90 | glutRemoveOverlay 91 | glutUseLayer 92 | glutPostOverlayRedisplay 93 | glutPostWindowOverlayRedisplay 94 | glutShowOverlay 95 | glutHideOverlay 96 | glutCreateMenu 97 | glutDestroyMenu 98 | glutGetMenu 99 | glutSetMenu 100 | glutAddMenuEntry 101 | glutAddSubMenu 102 | glutChangeToMenuEntry 103 | glutChangeToSubMenu 104 | glutRemoveMenuItem 105 | glutAttachMenu 106 | glutDetachMenu 107 | glutDisplayFunc 108 | glutReshapeFunc 109 | glutKeyboardFunc 110 | glutMouseFunc 111 | glutMotionFunc 112 | glutPassiveMotionFunc 113 | glutEntryFunc 114 | glutVisibilityFunc 115 | glutIdleFunc 116 | glutTimerFunc 117 | glutMenuStateFunc 118 | glutSpecialFunc 119 | glutSpaceballMotionFunc 120 | glutSpaceballRotateFunc 121 | glutSpaceballButtonFunc 122 | glutButtonBoxFunc 123 | glutDialsFunc 124 | glutTabletMotionFunc 125 | glutTabletButtonFunc 126 | glutMenuStatusFunc 127 | glutOverlayDisplayFunc 128 | glutWindowStatusFunc 129 | glutKeyboardUpFunc 130 | glutSpecialUpFunc 131 | glutJoystickFunc 132 | glutSetColor 133 | glutGetColor 134 | glutCopyColormap 135 | glutGet 136 | glutDeviceGet 137 | glutExtensionSupported 138 | glutGetModifiers 139 | glutLayerGet 140 | glutGetProcAddress 141 | glutBitmapCharacter 142 | glutBitmapWidth 143 | glutStrokeCharacter 144 | glutStrokeWidth 145 | glutBitmapLength 146 | glutStrokeLength 147 | glutWireSphere 148 | glutSolidSphere 149 | glutWireCone 150 | glutSolidCone 151 | glutWireCube 152 | glutSolidCube 153 | glutWireTorus 154 | glutSolidTorus 155 | glutWireDodecahedron 156 | glutSolidDodecahedron 157 | glutWireTeapot 158 | glutSolidTeapot 159 | glutWireOctahedron 160 | glutSolidOctahedron 161 | glutWireTetrahedron 162 | glutSolidTetrahedron 163 | glutWireIcosahedron 164 | glutSolidIcosahedron 165 | glutVideoResizeGet 166 | glutSetupVideoResizing 167 | glutStopVideoResizing 168 | glutVideoResize 169 | glutVideoPan 170 | glutReportErrors 171 | glutIgnoreKeyRepeat 172 | glutSetKeyRepeat 173 | glutForceJoystickFunc 174 | glutGameModeString 175 | glutEnterGameMode 176 | glutLeaveGameMode 177 | glutGameModeGet) 178 | 179 | (import (chezscheme)) 180 | 181 | (define lib-name 182 | (case (machine-type) 183 | ((i3osx ti3osx) (load-shared-object "GLUT.framework/GLUT")) ; OSX x86 184 | ((a6osx ta6osx) (load-shared-object "GLUT.framework/GLUT")) ; OSX x86_64 185 | ((i3nt ti3nt) (load-shared-object "glut32.dll")) ; Windows x86 186 | ((a6nt ta6nt) (load-shared-object "glut64.dll")) ; Windows x86_64 187 | ((i3le ti3le) (load-shared-object "libglut.so.3")) ; Linux x86 188 | ((a6le ta6le) (load-shared-object "libglut.so.3")) ; Linux x86_64 189 | ((i3ob ti3ob) (begin 190 | (load-shared-object "libXmu.so.10.0") 191 | (load-shared-object "libGLU.so.7.0") 192 | (load-shared-object "libglut.so.3.7"))) ; OpenBSD x86 193 | ((a6ob ta6ob) (begin 194 | (load-shared-object "libXmu.so.10.0") 195 | (load-shared-object "libGLU.so.7.0") 196 | (load-shared-object "libglut.so.3.7"))) ; OpenBSD x86_64 197 | ((i3fb ti3fb) "libglut.so") ; FreeBSD x86 198 | ((a6fb ta6fb) "libglut.so") ; FreeBSD x86_64 199 | (else 200 | (assertion-violation #f "can not locate GLUT library, unknown operating system")))) 201 | 202 | ;; Display mode bit masks. 203 | (define GLUT_RGB 0) 204 | (define GLUT_RGBA GLUT_RGB) 205 | (define GLUT_INDEX 1) 206 | (define GLUT_SINGLE 0) 207 | (define GLUT_DOUBLE 2) 208 | (define GLUT_ACCUM 4) 209 | (define GLUT_ALPHA 8) 210 | (define GLUT_DEPTH 16) 211 | (define GLUT_STENCIL 32) 212 | (define GLUT_MULTISAMPLE 128) 213 | (define GLUT_STEREO 256) 214 | (define GLUT_LUMINANCE 512) 215 | (define GLUT_NO_RECOVERY 1024) 216 | 217 | ;; Mouse buttons. 218 | (define GLUT_LEFT_BUTTON 0) 219 | (define GLUT_MIDDLE_BUTTON 1) 220 | (define GLUT_RIGHT_BUTTON 2) 221 | 222 | ;; Mouse button state. 223 | (define GLUT_DOWN 0) 224 | (define GLUT_UP 1) 225 | 226 | ;; function keys 227 | (define GLUT_KEY_F1 1) 228 | (define GLUT_KEY_F2 2) 229 | (define GLUT_KEY_F3 3) 230 | (define GLUT_KEY_F4 4) 231 | (define GLUT_KEY_F5 5) 232 | (define GLUT_KEY_F6 6) 233 | (define GLUT_KEY_F7 7) 234 | (define GLUT_KEY_F8 8) 235 | (define GLUT_KEY_F9 9) 236 | (define GLUT_KEY_F10 10) 237 | (define GLUT_KEY_F11 11) 238 | (define GLUT_KEY_F12 12) 239 | 240 | ;; directional keys 241 | (define GLUT_KEY_LEFT 100) 242 | (define GLUT_KEY_UP 101) 243 | (define GLUT_KEY_RIGHT 102) 244 | (define GLUT_KEY_DOWN 103) 245 | (define GLUT_KEY_PAGE_UP 104) 246 | (define GLUT_KEY_PAGE_DOWN 105) 247 | (define GLUT_KEY_HOME 106) 248 | (define GLUT_KEY_END 107) 249 | (define GLUT_KEY_INSERT 108) 250 | 251 | ;; Entry/exit state. 252 | (define GLUT_LEFT 0) 253 | (define GLUT_ENTERED 1) 254 | 255 | ;; Menu usage state. 256 | (define GLUT_MENU_NOT_IN_USE 0) 257 | (define GLUT_MENU_IN_USE 1) 258 | 259 | ;; Visibility state. 260 | (define GLUT_NOT_VISIBLE 0) 261 | (define GLUT_VISIBLE 1) 262 | 263 | ;; Window status state. 264 | (define GLUT_HIDDEN 0) 265 | (define GLUT_FULLY_RETAINED 1) 266 | (define GLUT_PARTIALLY_RETAINED 2) 267 | (define GLUT_FULLY_COVERED 3) 268 | 269 | ;; Color index component selection values. 270 | (define GLUT_RED 0) 271 | (define GLUT_GREEN 1) 272 | (define GLUT_BLUE 2) 273 | 274 | ;; Layers for use. 275 | (define GLUT_NORMAL 0) 276 | (define GLUT_OVERLAY 1) 277 | 278 | ;; (define-syntax define-function 279 | ;; (syntax-rules () 280 | ;; ((_ ret name args) 281 | ;; (define name 282 | ;; (c-function libGLUT "GLUT library" ret __stdcall name args))))) 283 | 284 | (define-syntax define-function 285 | (syntax-rules () 286 | ((_ ret name args) 287 | (define name 288 | (foreign-procedure (symbol->string 'name) args ret))))) 289 | 290 | (define-syntax define-function/single-callback 291 | (syntax-rules (callback) 292 | ((_ ret name ((callback c-ret c-params))) 293 | (define name 294 | (let ((f (foreign-procedure (symbol->string 'name) (void*) ret))) 295 | (lambda (proc) 296 | (let ((code (foreign-callable proc c-params c-ret))) 297 | (lock-object code) 298 | (f (foreign-callable-entry-point code))))))))) 299 | 300 | ;; void glutInit(int *argcp, char **argv) 301 | ;; (define-function void glutInit ([int] [char*])) 302 | 303 | ;; (define glutInit 304 | ;; (if on-windows 305 | ;; (lambda (a1 a2) 306 | ;; #;(c-argument 'glutInit 1 [int] a1) 307 | ;; #;(c-argument 'glutInit 2 [char*] a2) 308 | ;; ((c-function libGLUT "GLUT library" void __stdcall __glutInitWithExit ([int] [char*] [c-callback void (int)])) 309 | ;; a1 a2 (lambda (n) (exit n)))) 310 | ;; (c-function libGLUT "GLUT library" void __stdcall glutInit ([int] [char*])))) 311 | 312 | ;; (define glutInit 313 | ;; (foreign-procedure "glutInit" (u8* u8*) void)) 314 | 315 | ;; This version ignores it's arguments. 316 | 317 | (define glutInit 318 | (let ((f (foreign-procedure "glutInit" (u8* u8*) void))) 319 | (lambda (a b) 320 | (f (bytevector 0 0 0 0) 321 | (bytevector 0))))) 322 | 323 | ;; void glutInitDisplayString(const char *string) 324 | (define-function void glutInitDisplayString (string)) 325 | 326 | ;; void glutInitDisplayMode(unsigned int mode) 327 | (define-function void glutInitDisplayMode (int)) 328 | 329 | ;; void glutInitWindowPosition(int x, int y) 330 | (define-function void glutInitWindowPosition (int int)) 331 | 332 | ;; void glutInitWindowSize(int width, int height) 333 | (define-function void glutInitWindowSize (int int)) 334 | 335 | ;; void glutMainLoop(void) 336 | (define-function void glutMainLoop ()) 337 | 338 | ;; int glutCreateWindow(const char *title) 339 | (define-function int glutCreateWindow (string)) 340 | 341 | ;; int glutCreateSubWindow(int win, int x, int y, int width, int height) 342 | (define-function int glutCreateSubWindow (int int int int int)) 343 | 344 | ;; void glutDestroyWindow(int win) 345 | (define-function void glutDestroyWindow (int)) 346 | 347 | ;; void glutPostRedisplay(void) 348 | (define-function void glutPostRedisplay ()) 349 | 350 | ;; void glutPostWindowRedisplay(int win) 351 | (define-function void glutPostWindowRedisplay (int)) 352 | 353 | ;; void glutSwapBuffers(void) 354 | (define-function void glutSwapBuffers ()) 355 | 356 | ;; int glutGetWindow(void) 357 | (define-function int glutGetWindow ()) 358 | 359 | ;; void glutSetWindow(int win) 360 | (define-function void glutSetWindow (int)) 361 | 362 | ;; void glutSetWindowTitle(const char *title) 363 | (define-function void glutSetWindowTitle (string)) 364 | 365 | ;; void glutSetIconTitle(const char *title) 366 | (define-function void glutSetIconTitle (string)) 367 | 368 | ;; void glutPositionWindow(int x, int y) 369 | (define-function void glutPositionWindow (int int)) 370 | 371 | ;; void glutReshapeWindow(int width, int height) 372 | (define-function void glutReshapeWindow (int int)) 373 | 374 | ;; void glutPopWindow(void) 375 | (define-function void glutPopWindow ()) 376 | 377 | ;; void glutPushWindow(void) 378 | (define-function void glutPushWindow ()) 379 | 380 | ;; void glutIconifyWindow(void) 381 | (define-function void glutIconifyWindow ()) 382 | 383 | ;; void glutShowWindow(void) 384 | (define-function void glutShowWindow ()) 385 | 386 | ;; void glutHideWindow(void) 387 | (define-function void glutHideWindow ()) 388 | 389 | ;; void glutFullScreen(void) 390 | (define-function void glutFullScreen ()) 391 | 392 | ;; void glutSetCursor(int cursor) 393 | (define-function void glutSetCursor (int)) 394 | 395 | ;; void glutWarpPointer(int x, int y) 396 | (define-function void glutWarpPointer (int int)) 397 | 398 | ;; void glutEstablishOverlay(void) 399 | (define-function void glutEstablishOverlay ()) 400 | 401 | ;; void glutRemoveOverlay(void) 402 | (define-function void glutRemoveOverlay ()) 403 | 404 | ;; void glutUseLayer(GLenum layer) 405 | (define-function void glutUseLayer (int)) 406 | 407 | ;; void glutPostOverlayRedisplay(void) 408 | (define-function void glutPostOverlayRedisplay ()) 409 | 410 | ;; void glutPostWindowOverlayRedisplay(int win) 411 | (define-function void glutPostWindowOverlayRedisplay (int)) 412 | 413 | ;; void glutShowOverlay(void) 414 | (define-function void glutShowOverlay ()) 415 | 416 | ;; void glutHideOverlay(void) 417 | (define-function void glutHideOverlay ()) 418 | 419 | ;; int glutCreateMenu(void (*)(int)) 420 | 421 | ;; (define-function void glutCreateMenu ([c-callback void (int)])) 422 | 423 | (define-function/single-callback void glutCreateMenu ((callback void (int)))) 424 | 425 | ;; void glutDestroyMenu(int menu) 426 | (define-function void glutDestroyMenu (int)) 427 | 428 | ;; int glutGetMenu(void) 429 | (define-function int glutGetMenu ()) 430 | 431 | ;; void glutSetMenu(int menu) 432 | (define-function void glutSetMenu (int)) 433 | 434 | ;; void glutAddMenuEntry(const char *label, int value) 435 | (define-function void glutAddMenuEntry (string int)) 436 | 437 | ;; void glutAddSubMenu(const char *label, int submenu) 438 | (define-function void glutAddSubMenu (string int)) 439 | 440 | ;; void glutChangeToMenuEntry(int item, const char *label, int value) 441 | (define-function void glutChangeToMenuEntry (int string int)) 442 | 443 | ;; void glutChangeToSubMenu(int item, const char *label, int submenu) 444 | (define-function void glutChangeToSubMenu (int string int)) 445 | 446 | ;; void glutRemoveMenuItem(int item) 447 | (define-function void glutRemoveMenuItem (int)) 448 | 449 | ;; void glutAttachMenu(int button) 450 | (define-function void glutAttachMenu (int)) 451 | 452 | ;; void glutDetachMenu(int button) 453 | (define-function void glutDetachMenu (int)) 454 | 455 | ;; void glutDisplayFunc(void (*func)(void)) 456 | ;; (define-function void glutDisplayFunc ([c-callback void ()])) 457 | 458 | (define-function/single-callback void glutDisplayFunc ((callback void ()))) 459 | 460 | ;; void glutReshapeFunc(void (*func)(int width, int height)) 461 | ;; (define-function void glutReshapeFunc ([c-callback void (int int)])) 462 | 463 | (define-function/single-callback void glutReshapeFunc ([callback void (int int)])) 464 | 465 | ;; void glutKeyboardFunc(void (*func)(unsigned char key, int x, int y)) 466 | (define-function/single-callback void glutKeyboardFunc ([callback void (int int int)])) 467 | 468 | ;; void glutMouseFunc(void (*func)(int button, int state, int x, int y)) 469 | (define-function/single-callback void glutMouseFunc ([callback void (int int int int)])) 470 | 471 | ;; void glutMotionFunc(void (*func)(int x, int y)) 472 | (define-function/single-callback void glutMotionFunc ([callback void (int int)])) 473 | 474 | ;; void glutPassiveMotionFunc(void (*func)(int x, int y)) 475 | (define-function/single-callback void glutPassiveMotionFunc ([callback void (int int)])) 476 | 477 | ;; void glutEntryFunc(void (*func)(int state)) 478 | (define-function/single-callback void glutEntryFunc ([callback void (int)])) 479 | 480 | ;; void glutVisibilityFunc(void (*func)(int state)) 481 | (define-function/single-callback void glutVisibilityFunc ([callback void (int)])) 482 | 483 | ;; void glutIdleFunc(void (*func)(void)) 484 | (define-function/single-callback void glutIdleFunc ([callback void ()])) 485 | 486 | ;; void glutTimerFunc(unsigned int millis, void (*func)(int value), int value) 487 | ;; (define-function void glutTimerFunc (int [c-callback void (int)] int)) 488 | 489 | (define glutTimerFunc 490 | (let ((f (foreign-procedure "glutTimerFunc" (unsigned-int int int) void))) 491 | (lambda (millis proc value) 492 | (let ((code (foreign-callable proc (int) void))) 493 | (lock-object code) 494 | (f millis 495 | (foreign-callable-entry-point code) 496 | value))))) 497 | 498 | ;; void glutMenuStateFunc(void (*func)(int state)) 499 | (define-function/single-callback void glutMenuStateFunc ([callback void (int)])) 500 | 501 | ;; void glutSpecialFunc(void (*func)(int key, int x, int y)) 502 | (define-function/single-callback void glutSpecialFunc ([callback void (int int int)])) 503 | 504 | ;; void glutSpaceballMotionFunc(void (*func)(int x, int y, int z)) 505 | (define-function/single-callback void glutSpaceballMotionFunc ([callback void (int int int)])) 506 | 507 | ;; void glutSpaceballRotateFunc(void (*func)(int x, int y, int z)) 508 | (define-function/single-callback void glutSpaceballRotateFunc ([callback void (int int int)])) 509 | 510 | ;; void glutSpaceballButtonFunc(void (*func)(int button, int state)) 511 | (define-function/single-callback void glutSpaceballButtonFunc ([callback void (int int)])) 512 | 513 | ;; void glutButtonBoxFunc(void (*func)(int button, int state)) 514 | (define-function/single-callback void glutButtonBoxFunc ([callback void (int int)])) 515 | 516 | ;; void glutDialsFunc(void (*func)(int dial, int value)) 517 | (define-function/single-callback void glutDialsFunc ([callback void (int int)])) 518 | 519 | ;; void glutTabletMotionFunc(void (*func)(int x, int y)) 520 | (define-function/single-callback void glutTabletMotionFunc ([callback void (int int)])) 521 | 522 | ;; void glutTabletButtonFunc(void (*func)(int button, int state, int x, int y)) 523 | (define-function/single-callback void glutTabletButtonFunc ([callback void (int int int int)])) 524 | 525 | ;; void glutMenuStatusFunc(void (*func)(int status, int x, int y)) 526 | (define-function/single-callback void glutMenuStatusFunc ([callback void (int int int)])) 527 | 528 | ;; void glutOverlayDisplayFunc(void (*func)(void)) 529 | (define-function/single-callback void glutOverlayDisplayFunc ([callback void ()])) 530 | 531 | ;; void glutWindowStatusFunc(void (*func)(int state)) 532 | (define-function/single-callback void glutWindowStatusFunc ([callback void (int)])) 533 | 534 | ;; void glutKeyboardUpFunc(void (*func)(unsigned char key, int x, int y)) 535 | (define-function/single-callback void glutKeyboardUpFunc ([callback void (int int int)])) 536 | 537 | ;; void glutSpecialUpFunc(void (*func)(int key, int x, int y)) 538 | (define-function/single-callback void glutSpecialUpFunc ([callback void (int int int)])) 539 | 540 | ;; void glutJoystickFunc(void (*func)(unsigned int buttonMask, int x, int y, int z), int pollInterval) 541 | ;; (define-function void glutJoystickFunc ([c-callback void (int int int int)] int)) 542 | 543 | (define glutJoystickFunc 544 | (let ((f (foreign-procedure "glutJoystickFunc" (int int) void))) 545 | (lambda (proc poll-interval) 546 | (let ((code (foreign-callable proc (unsigned-int int int int) void))) 547 | (lock-object code) 548 | (f (foreign-callable-entry-point code) 549 | poll-interval))))) 550 | 551 | ;; void glutSetColor(int, GLfloat red, GLfloat green, GLfloat blue) 552 | (define-function void glutSetColor (int float float float)) 553 | 554 | ;; GLfloat glutGetColor(int ndx, int component) 555 | (define-function double glutGetColor (int int)) 556 | 557 | ;; void glutCopyColormap(int win) 558 | (define-function void glutCopyColormap (int)) 559 | 560 | ;; int glutGet(GLenum type) 561 | (define-function int glutGet (int)) 562 | 563 | ;; int glutDeviceGet(GLenum type) 564 | (define-function int glutDeviceGet (int)) 565 | 566 | ;; int glutExtensionSupported(const char *name) 567 | (define-function int glutExtensionSupported (string)) 568 | 569 | ;; int glutGetModifiers(void) 570 | (define-function int glutGetModifiers ()) 571 | 572 | ;; int glutLayerGet(GLenum type) 573 | (define-function int glutLayerGet (int)) 574 | 575 | ;; void * glutGetProcAddress(const char *procName) 576 | (define-function void* glutGetProcAddress (string)) 577 | 578 | ;; void glutBitmapCharacter(void *font, int character) 579 | (define-function void* glutBitmapCharacter (void* int)) 580 | 581 | ;; int glutBitmapWidth(void *font, int character) 582 | (define-function int glutBitmapWidth (void* int)) 583 | 584 | ;; void glutStrokeCharacter(void *font, int character) 585 | (define-function void glutStrokeCharacter (void* int)) 586 | 587 | ;; int glutStrokeWidth(void *font, int character) 588 | (define-function int glutStrokeWidth (void* int)) 589 | 590 | ;; int glutBitmapLength(void *font, const unsigned char *string) 591 | (define-function int glutBitmapLength (void* string)) 592 | 593 | ;; int glutStrokeLength(void *font, const unsigned char *string) 594 | (define-function int glutStrokeLength (void* string)) 595 | 596 | ;; void glutWireSphere(GLdouble radius, GLint slices, GLint stacks) 597 | (define-function int glutWireSphere (double int int)) 598 | 599 | ;; void glutSolidSphere(GLdouble radius, GLint slices, GLint stacks) 600 | (define-function void glutSolidSphere (double int int)) 601 | 602 | ;; void glutWireCone(GLdouble base, GLdouble height, GLint slices, GLint stacks) 603 | (define-function void glutWireCone (double double int int)) 604 | 605 | ;; void glutSolidCone(GLdouble base, GLdouble height, GLint slices, GLint stacks) 606 | (define-function void glutSolidCone (double double int int)) 607 | 608 | ;; void glutWireCube(GLdouble size) 609 | (define-function void glutWireCube (double)) 610 | 611 | ;; void glutSolidCube(GLdouble size) 612 | (define-function void glutSolidCube (double)) 613 | 614 | ;; void glutWireTorus(GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings) 615 | (define-function void glutWireTorus (double double int int)) 616 | 617 | ;; void glutSolidTorus(GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings) 618 | (define-function void glutSolidTorus (double double int int)) 619 | 620 | ;; void glutWireDodecahedron(void) 621 | (define-function void glutWireDodecahedron ()) 622 | 623 | ;; void glutSolidDodecahedron(void) 624 | (define-function void glutSolidDodecahedron ()) 625 | 626 | ;; void glutWireTeapot(GLdouble size) 627 | (define-function void glutWireTeapot (double)) 628 | 629 | ;; void glutSolidTeapot(GLdouble size) 630 | (define-function void glutSolidTeapot (double)) 631 | 632 | ;; void glutWireOctahedron(void) 633 | (define-function void glutWireOctahedron ()) 634 | 635 | ;; void glutSolidOctahedron(void) 636 | (define-function void glutSolidOctahedron ()) 637 | 638 | ;; void glutWireTetrahedron(void) 639 | (define-function void glutWireTetrahedron ()) 640 | 641 | ;; void glutSolidTetrahedron(void) 642 | (define-function void glutSolidTetrahedron ()) 643 | 644 | ;; void glutWireIcosahedron(void) 645 | (define-function void glutWireIcosahedron ()) 646 | 647 | ;; void glutSolidIcosahedron(void) 648 | (define-function void glutSolidIcosahedron ()) 649 | 650 | ;; int glutVideoResizeGet(GLenum param) 651 | (define-function int glutVideoResizeGet ()) 652 | 653 | ;; void glutSetupVideoResizing(void) 654 | (define-function int glutSetupVideoResizing ()) 655 | 656 | ;; void glutStopVideoResizing(void) 657 | (define-function void glutStopVideoResizing ()) 658 | 659 | ;; void glutVideoResize(int x, int y, int width, int height) 660 | (define-function void glutVideoResize (int int int int)) 661 | 662 | ;; void glutVideoPan(int x, int y, int width, int height) 663 | (define-function void glutVideoPan (int int int int)) 664 | 665 | ;; void glutReportErrors(void) 666 | (define-function void glutReportErrors ()) 667 | 668 | ;; void glutIgnoreKeyRepeat(int ignore) 669 | (define-function void glutIgnoreKeyRepeat (int)) 670 | 671 | ;; void glutSetKeyRepeat(int repeatMode) 672 | (define-function void glutSetKeyRepeat (int)) 673 | 674 | ;; void glutForceJoystickFunc(void) 675 | (define-function void glutForceJoystickFunc ()) 676 | 677 | ;; void glutGameModeString(const char *string) 678 | (define-function void glutGameModeString (string)) 679 | 680 | ;; int glutEnterGameMode(void) 681 | (define-function int glutEnterGameMode ()) 682 | 683 | ;; void glutLeaveGameMode(void) 684 | (define-function void glutLeaveGameMode ()) 685 | 686 | ;; int glutGameModeGet(GLenum mode) 687 | (define-function int glutGameModeGet (int)) 688 | 689 | ) 690 | --------------------------------------------------------------------------------