ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/Client.xs
(Generate patch)

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.78 by root, Fri May 12 01:47:03 2006 UTC vs.
Revision 1.102 by root, Sat Jun 3 23:47:46 2006 UTC

1#ifdef _WIN32 1#ifdef _WIN32
2# define _WIN32_WINNT 0x0500 // needed to get win2000 api calls
2# include <malloc.h> 3# include <malloc.h>
4# include <windows.h>
3# pragma warning(disable:4244) 5# pragma warning(disable:4244)
4#endif 6#endif
5 7
6#include "EXTERN.h" 8#include "EXTERN.h"
7#include "perl.h" 9#include "perl.h"
8#include "XSUB.h" 10#include "XSUB.h"
9 11
12#include <math.h>
10#include <string.h> 13#include <string.h>
11#include <stdio.h> 14#include <stdio.h>
12 15
13#include <SDL.h> 16#include <SDL.h>
14#include <SDL_endian.h> 17#include <SDL_endian.h>
… …
81 84
82static void 85static void
83substitute_func (FcPattern *pattern, gpointer data) 86substitute_func (FcPattern *pattern, gpointer data)
84{ 87{
85 FcPatternAddBool (pattern, FC_HINTING , 1); 88 FcPatternAddBool (pattern, FC_HINTING , 1);
89#ifdef _WIN32
90 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
91#else
86 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 92 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
93#endif
87} 94}
88 95
89static void 96static void
90layout_update_font (CFClient__Layout self) 97layout_update_font (CFClient__Layout self)
91{ 98{
… …
404# undef const_iv 411# undef const_iv
405 }; 412 };
406 413
407 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 414 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
408 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 415 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
416}
409 417
418void
419pango_init ()
420 CODE:
421{
422 // delayed, so it can pick up new fonts added by AddFontResourceEx
410 ft2_fontmap = pango_ft2_font_map_new (); 423 ft2_fontmap = pango_ft2_font_map_new ();
411 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 424 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0);
412 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap); 425 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap);
413 426
414 cairo_fontmap = pango_cairo_font_map_get_default (); 427 cairo_fontmap = pango_cairo_font_map_get_default ();
415 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap); 428 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
416} 429}
417 430
418int 431int
419SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 432SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
420 433
… …
430 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 443 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
431 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 444 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
432 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 445 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
433 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 446 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
434 447
448 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
449 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16);
450
435 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 451 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
436 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 452 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
437 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 453 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
438 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 454 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
439 455
440 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 456 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
441 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
442 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
443 457
444 SDL_EnableUNICODE (1); 458 SDL_EnableUNICODE (1);
445 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL); 459 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
446 460
447 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 461 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
… …
456 470
457 ++m; 471 ++m;
458 } 472 }
459} 473}
460 474
475char *
476SDL_GetError ()
477
461int 478int
462SDL_SetVideoMode (int w, int h, int fullscreen) 479SDL_SetVideoMode (int w, int h, int fullscreen)
463 CODE: 480 CODE:
464 RETVAL = !!SDL_SetVideoMode ( 481 RETVAL = !!SDL_SetVideoMode (
465 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 482 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
… …
468 OUTPUT: 485 OUTPUT:
469 RETVAL 486 RETVAL
470 487
471void 488void
472SDL_GL_SwapBuffers () 489SDL_GL_SwapBuffers ()
490
491char *
492SDL_GetKeyName (int sym)
473 493
474void 494void
475SDL_PollEvent () 495SDL_PollEvent ()
476 PPCODE: 496 PPCODE:
477{ 497{
… …
496 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 516 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
497 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 517 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
498 break; 518 break;
499 519
500 case SDL_MOUSEMOTION: 520 case SDL_MOUSEMOTION:
521 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
522
501 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 523 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
502 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 524 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
503 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 525 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
504 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 526 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
505 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 527 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
506 break; 528 break;
507 529
508 case SDL_MOUSEBUTTONDOWN: 530 case SDL_MOUSEBUTTONDOWN:
509 case SDL_MOUSEBUTTONUP: 531 case SDL_MOUSEBUTTONUP:
532 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
533
510 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 534 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
511 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 535 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
512 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 536 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
513 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 537 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
514 break; 538 break;
… …
541 CODE: 565 CODE:
542#ifndef _WIN32 566#ifndef _WIN32
543 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 567 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
544#endif 568#endif
545 569
546char *
547gl_version ()
548 CODE:
549 RETVAL = (char *)glGetString (GL_VERSION);
550 OUTPUT:
551 RETVAL
552
553char *
554gl_extensions ()
555 CODE:
556 RETVAL = (char *)glGetString (GL_EXTENSIONS);
557 OUTPUT:
558 RETVAL
559
560void 570void
561add_font (char *file) 571add_font (char *file)
562 CODE: 572 CODE:
563 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 573 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
574#ifdef _WIN32
575 // cairo... sigh... requires win2000
576 AddFontResourceEx (file, FR_PRIVATE, 0);
577#endif
564 578
565void 579void
566load_image_inline (SV *image_) 580load_image_inline (SV *image_)
567 ALIAS: 581 ALIAS:
568 load_image_file = 1 582 load_image_file = 1
… …
652} 666}
653 667
654void 668void
655error (char *message) 669error (char *message)
656 CODE: 670 CODE:
671 fprintf (stderr, "ERROR: %s\n", message);
657#ifdef _WIN32 672#ifdef _WIN32
658 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 673 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR);
659#else
660 fprintf (stderr, "ERROR: %s\n", message);
661#endif 674#endif
662 675
663void 676void
664fatal (char *message) 677fatal (char *message)
665 CODE: 678 CODE:
679 fprintf (stderr, "FATAL: %s\n", message);
666#ifdef _WIN32 680#ifdef _WIN32
667 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 681 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
668#else
669 fprintf (stderr, "FATAL: %s\n", message);
670#endif 682#endif
671 exit (1); 683 exit (1);
672 684
673MODULE = CFClient PACKAGE = CFClient::Font 685MODULE = CFClient PACKAGE = CFClient::Font
674 686
… …
697MODULE = CFClient PACKAGE = CFClient::Layout 709MODULE = CFClient PACKAGE = CFClient::Layout
698 710
699CFClient::Layout 711CFClient::Layout
700new (SV *class, int rgba = 0) 712new (SV *class, int rgba = 0)
701 CODE: 713 CODE:
714#if _WIN32
715 //rgba = 0;//D make stext nicer, breaks TextView
716#endif
702 New (0, RETVAL, 1, struct cf_layout); 717 New (0, RETVAL, 1, struct cf_layout);
703 718
704 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 719 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
705 RETVAL->rgba = rgba; 720 RETVAL->rgba = rgba;
706 RETVAL->r = 1.; 721 RETVAL->r = 1.;
… …
786set_width (CFClient::Layout self, int max_width = -1) 801set_width (CFClient::Layout self, int max_width = -1)
787 CODE: 802 CODE:
788 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 803 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
789 804
790void 805void
806set_indent (CFClient::Layout self, int indent)
807 CODE:
808 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
809
810void
811set_spacing (CFClient::Layout self, int spacing)
812 CODE:
813 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
814
815void
816set_ellipsise (CFClient::Layout self, int ellipsise)
817 CODE:
818 pango_layout_set_ellipsize (self->pl,
819 ellipsise == 1 ? PANGO_ELLIPSIZE_START
820 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
821 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
822 : PANGO_ELLIPSIZE_NONE
823 );
824
825void
826set_single_paragraph_mode (CFClient::Layout self, int spm)
827 CODE:
828 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
829
830void
791size (CFClient::Layout self) 831size (CFClient::Layout self)
792 PPCODE: 832 PPCODE:
793{ 833{
794 int w, h; 834 int w, h;
795 835
… …
861 901
862 while (p < e) 902 while (p < e)
863 { 903 {
864 uint32_t rgba = *p; 904 uint32_t rgba = *p;
865 rgba = (rgba >> 24) | (rgba << 8); 905 rgba = (rgba >> 24) | (rgba << 8);
906#if 0
907#ifdef _WIN32
908 {//D
909 uint8_t r = rgba >> 24;
910 uint8_t g = rgba >> 16;
911 uint8_t b = rgba >> 8;
912 uint8_t a = rgba >> 0;
913
914 rgba = (rgba & 0xffffff00) | a;
915 }
916#endif
917#endif
866 rgba = SDL_SwapBE32 (rgba); 918 rgba = SDL_SwapBE32 (rgba);
867 *p++ = rgba; 919 *p++ = rgba;
868 } 920 }
869 } 921 }
870 922
… …
915{ 967{
916 HV *hv = (HV *)SvRV (self); 968 HV *hv = (HV *)SvRV (self);
917 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 969 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
918 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 970 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
919 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 971 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
920 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
921 972
922 if (items < 5) 973 if (items < 5)
923 { 974 {
924 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 975 w = SvNV (*hv_fetch (hv, "w", 1, 1));
925 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 976 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
927 978
928 if (ix) 979 if (ix)
929 { 980 {
930 glEnable (GL_BLEND); 981 glEnable (GL_BLEND);
931 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 982 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
983 glEnable (GL_ALPHA_TEST);
984 glAlphaFunc (GL_GREATER, 0.01f);
932 } 985 }
933 986
934 glBindTexture (GL_TEXTURE_2D, name); 987 glBindTexture (GL_TEXTURE_2D, name);
935
936 if (wrap_mode)
937 {
938 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
939 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
940 }
941 988
942 glBegin (GL_QUADS); 989 glBegin (GL_QUADS);
943 glTexCoord2f (0, 0); glVertex2f (x , y ); 990 glTexCoord2f (0, 0); glVertex2f (x , y );
944 glTexCoord2f (0, t); glVertex2f (x , y + h); 991 glTexCoord2f (0, t); glVertex2f (x , y + h);
945 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 992 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
946 glTexCoord2f (s, 0); glVertex2f (x + w, y ); 993 glTexCoord2f (s, 0); glVertex2f (x + w, y );
947 glEnd (); 994 glEnd ();
948 995
949 if (ix) 996 if (ix)
997 {
998 glDisable (GL_ALPHA_TEST);
950 glDisable (GL_BLEND); 999 glDisable (GL_BLEND);
1000 }
951} 1001}
952 1002
953MODULE = CFClient PACKAGE = CFClient::Map 1003MODULE = CFClient PACKAGE = CFClient::Map
954 1004
955CFClient::Map 1005CFClient::Map
… …
1019 tex->r = r; 1069 tex->r = r;
1020 tex->g = g; 1070 tex->g = g;
1021 tex->b = b; 1071 tex->b = b;
1022 tex->a = a; 1072 tex->a = a;
1023 } 1073 }
1074
1075 // somewhat hackish, but for textures that require it, it really
1076 // improves the look, and most others don't suffer.
1077 glBindTexture (GL_TEXTURE_2D, name);
1078 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
1079 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1080 // use uglier nearest interpolation because linear suffers
1081 // from transparent color bleeding and ugly wrapping effects.
1082 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1024} 1083}
1025 1084
1026int 1085int
1027ox (CFClient::Map self) 1086ox (CFClient::Map self)
1028 ALIAS: 1087 ALIAS:
1029 oy = 1 1088 oy = 1
1089 x = 2
1090 y = 3
1091 w = 4
1092 h = 5
1030 CODE: 1093 CODE:
1031 switch (ix) 1094 switch (ix)
1032 { 1095 {
1033 case 0: RETVAL = self->ox; break; 1096 case 0: RETVAL = self->ox; break;
1034 case 1: RETVAL = self->oy; break; 1097 case 1: RETVAL = self->oy; break;
1098 case 2: RETVAL = self->x; break;
1099 case 3: RETVAL = self->y; break;
1100 case 4: RETVAL = self->w; break;
1101 case 5: RETVAL = self->h; break;
1035 } 1102 }
1036 OUTPUT: 1103 OUTPUT:
1037 RETVAL 1104 RETVAL
1038 1105
1039void 1106void
… …
1466 const_iv (GL_COLOR_MATERIAL), 1533 const_iv (GL_COLOR_MATERIAL),
1467 const_iv (GL_SMOOTH), 1534 const_iv (GL_SMOOTH),
1468 const_iv (GL_FLAT), 1535 const_iv (GL_FLAT),
1469 const_iv (GL_DITHER), 1536 const_iv (GL_DITHER),
1470 const_iv (GL_BLEND), 1537 const_iv (GL_BLEND),
1538 const_iv (GL_CULL_FACE),
1471 const_iv (GL_SCISSOR_TEST), 1539 const_iv (GL_SCISSOR_TEST),
1540 const_iv (GL_DEPTH_TEST),
1541 const_iv (GL_ALPHA_TEST),
1542 const_iv (GL_NORMALIZE),
1543 const_iv (GL_RESCALE_NORMAL),
1472 const_iv (GL_AND), 1544 const_iv (GL_AND),
1473 const_iv (GL_ONE), 1545 const_iv (GL_ONE),
1474 const_iv (GL_ZERO), 1546 const_iv (GL_ZERO),
1475 const_iv (GL_SRC_ALPHA), 1547 const_iv (GL_SRC_ALPHA),
1476 const_iv (GL_SRC_ALPHA_SATURATE), 1548 const_iv (GL_SRC_ALPHA_SATURATE),
1477 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1549 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1478 const_iv (GL_ONE_MINUS_DST_ALPHA), 1550 const_iv (GL_ONE_MINUS_DST_ALPHA),
1479 const_iv (GL_RGB), 1551 const_iv (GL_RGB),
1480 const_iv (GL_RGBA), 1552 const_iv (GL_RGBA),
1481 const_iv (GL_UNSIGNED_BYTE), 1553 const_iv (GL_UNSIGNED_BYTE),
1554 const_iv (GL_UNSIGNED_SHORT),
1555 const_iv (GL_UNSIGNED_INT),
1482 const_iv (GL_ALPHA), 1556 const_iv (GL_ALPHA),
1557 const_iv (GL_INTENSITY),
1483 const_iv (GL_LUMINANCE), 1558 const_iv (GL_LUMINANCE),
1559 const_iv (GL_LUMINANCE_ALPHA),
1484 const_iv (GL_FLOAT), 1560 const_iv (GL_FLOAT),
1485 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 1561 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1486 const_iv (GL_COMPILE), 1562 const_iv (GL_COMPILE),
1487 const_iv (GL_TEXTURE_1D), 1563 const_iv (GL_TEXTURE_1D),
1488 const_iv (GL_TEXTURE_2D), 1564 const_iv (GL_TEXTURE_2D),
… …
1490 const_iv (GL_TEXTURE_MAG_FILTER), 1566 const_iv (GL_TEXTURE_MAG_FILTER),
1491 const_iv (GL_TEXTURE_MIN_FILTER), 1567 const_iv (GL_TEXTURE_MIN_FILTER),
1492 const_iv (GL_TEXTURE_ENV_MODE), 1568 const_iv (GL_TEXTURE_ENV_MODE),
1493 const_iv (GL_TEXTURE_WRAP_S), 1569 const_iv (GL_TEXTURE_WRAP_S),
1494 const_iv (GL_TEXTURE_WRAP_T), 1570 const_iv (GL_TEXTURE_WRAP_T),
1571 const_iv (GL_REPEAT),
1495 const_iv (GL_CLAMP), 1572 const_iv (GL_CLAMP),
1496 const_iv (GL_REPEAT), 1573 const_iv (GL_CLAMP_TO_EDGE),
1497 const_iv (GL_NEAREST), 1574 const_iv (GL_NEAREST),
1498 const_iv (GL_LINEAR), 1575 const_iv (GL_LINEAR),
1499 const_iv (GL_NEAREST_MIPMAP_NEAREST), 1576 const_iv (GL_NEAREST_MIPMAP_NEAREST),
1500 const_iv (GL_LINEAR_MIPMAP_NEAREST), 1577 const_iv (GL_LINEAR_MIPMAP_NEAREST),
1501 const_iv (GL_NEAREST_MIPMAP_LINEAR), 1578 const_iv (GL_NEAREST_MIPMAP_LINEAR),
1502 const_iv (GL_LINEAR_MIPMAP_LINEAR), 1579 const_iv (GL_LINEAR_MIPMAP_LINEAR),
1503 const_iv (GL_GENERATE_MIPMAP), 1580 const_iv (GL_GENERATE_MIPMAP),
1504 const_iv (GL_MODULATE), 1581 const_iv (GL_MODULATE),
1505 const_iv (GL_DECAL), 1582 const_iv (GL_DECAL),
1506 const_iv (GL_REPLACE), 1583 const_iv (GL_REPLACE),
1584 const_iv (GL_DEPTH_BUFFER_BIT),
1507 const_iv (GL_COLOR_BUFFER_BIT), 1585 const_iv (GL_COLOR_BUFFER_BIT),
1508 const_iv (GL_PROJECTION), 1586 const_iv (GL_PROJECTION),
1509 const_iv (GL_MODELVIEW), 1587 const_iv (GL_MODELVIEW),
1510 const_iv (GL_COLOR_LOGIC_OP), 1588 const_iv (GL_COLOR_LOGIC_OP),
1511 const_iv (GL_SEPARABLE_2D), 1589 const_iv (GL_SEPARABLE_2D),
1512 const_iv (GL_CONVOLUTION_2D), 1590 const_iv (GL_CONVOLUTION_2D),
1513 const_iv (GL_CONVOLUTION_BORDER_MODE), 1591 const_iv (GL_CONVOLUTION_BORDER_MODE),
1514 const_iv (GL_CONSTANT_BORDER), 1592 const_iv (GL_CONSTANT_BORDER),
1515 const_iv (GL_LINES), 1593 const_iv (GL_LINES),
1594 const_iv (GL_LINE_LOOP),
1516 const_iv (GL_QUADS), 1595 const_iv (GL_QUADS),
1517 const_iv (GL_LINE_LOOP), 1596 const_iv (GL_QUAD_STRIP),
1597 const_iv (GL_TRIANGLES),
1598 const_iv (GL_TRIANGLE_STRIP),
1599 const_iv (GL_TRIANGLE_FAN),
1518 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 1600 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
1519 const_iv (GL_FASTEST), 1601 const_iv (GL_FASTEST),
1602 const_iv (GL_V2F),
1603 const_iv (GL_V3F),
1604 const_iv (GL_T2F_V3F),
1605 const_iv (GL_T2F_N3F_V3F),
1520# undef const_iv 1606# undef const_iv
1521 }; 1607 };
1522 1608
1523 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1609 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1524 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1610 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1525} 1611}
1526 1612
1613char *
1614gl_vendor ()
1615 CODE:
1616 RETVAL = (char *)glGetString (GL_VENDOR);
1617 OUTPUT:
1618 RETVAL
1619
1620char *
1621gl_version ()
1622 CODE:
1623 RETVAL = (char *)glGetString (GL_VERSION);
1624 OUTPUT:
1625 RETVAL
1626
1627char *
1628gl_extensions ()
1629 CODE:
1630 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1631 OUTPUT:
1632 RETVAL
1633
1527int glGetError () 1634int glGetError ()
1528 1635
1529void glClear (int mask) 1636void glClear (int mask)
1530 1637
1531void glClearColor (float r, float g, float b, float a = 1.0) 1638void glClearColor (float r, float g, float b, float a = 1.0)
… …
1539 1646
1540void glHint (int target, int mode) 1647void glHint (int target, int mode)
1541 1648
1542void glBlendFunc (int sfactor, int dfactor) 1649void glBlendFunc (int sfactor, int dfactor)
1543 1650
1651void glDepthMask (int flag)
1652
1544void glLogicOp (int opcode) 1653void glLogicOp (int opcode)
1545 1654
1546void glColorMask (int red, int green, int blue, int alpha) 1655void glColorMask (int red, int green, int blue, int alpha)
1547 1656
1548void glMatrixMode (int mode) 1657void glMatrixMode (int mode)
… …
1551 1660
1552void glPopMatrix () 1661void glPopMatrix ()
1553 1662
1554void glLoadIdentity () 1663void glLoadIdentity ()
1555 1664
1556# near and far are due to microsofts buggy c compiler 1665# near_ and far_ are due to microsofts buggy "c" compiler
1666void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1667
1668# near_ and far_ are due to microsofts buggy "c" compiler
1557void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 1669void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
1558 1670
1559void glViewport (int x, int y, int width, int height) 1671void glViewport (int x, int y, int width, int height)
1560 1672
1561void glScissor (int x, int y, int width, int height) 1673void glScissor (int x, int y, int width, int height)
… …
1577void glEnd () 1689void glEnd ()
1578 1690
1579void glColor (float r, float g, float b, float a = 1.0) 1691void glColor (float r, float g, float b, float a = 1.0)
1580 PROTOTYPE: @ 1692 PROTOTYPE: @
1581 CODE: 1693 CODE:
1582 // 255.999 is close enough to correctness (256 and clamp) 1694 // microsoft visual "c" rounds instead of truncating...
1583 glColor4ub (r * 255.999, g * 255.999, b * 255.999, a * 255.999); 1695 glColor4ub (MIN ((int)(r * 256.f), 255),
1696 MIN ((int)(g * 256.f), 255),
1697 MIN ((int)(b * 256.f), 255),
1698 MIN ((int)(a * 256.f), 255));
1699
1700void glInterleavedArrays (int format, int stride, char *data)
1701
1702void glDrawElements (int mode, int count, int type, char *indices)
1703
1704# 1.2 void glDrawRangeElements (int mode, int start, int end
1705
1706void glRasterPos (float x, float y, float z = 0.)
1707 CODE:
1708 glRasterPos3f (0, 0, z);
1709 glBitmap (0, 0, 0, 0, x, y, 0);
1584 1710
1585void glVertex (float x, float y, float z = 0.) 1711void glVertex (float x, float y, float z = 0.)
1586 CODE: 1712 CODE:
1587 glVertex3f (x, y, z); 1713 glVertex3f (x, y, z);
1588 1714
… …
1616 1742
1617void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 1743void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1618 1744
1619void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 1745void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1620 1746
1621void glRasterPos (int x, int y) 1747void glDrawPixels (int width, int height, int format, int type, char *pixels)
1622 CODE:
1623 glRasterPos2i (x, y);
1624 1748
1625void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 1749void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
1626 1750
1627int glGenTexture () 1751int glGenTexture ()
1628 CODE: 1752 CODE:
… …
1655 1779
1656void glEndList () 1780void glEndList ()
1657 1781
1658void glCallList (int list) 1782void glCallList (int list)
1659 1783
1784

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines