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.79 by root, Sun May 14 22:24:14 2006 UTC vs.
Revision 1.99 by root, Mon May 29 02:11:03 2006 UTC

… …
7 7
8#include "EXTERN.h" 8#include "EXTERN.h"
9#include "perl.h" 9#include "perl.h"
10#include "XSUB.h" 10#include "XSUB.h"
11 11
12#include <math.h>
12#include <string.h> 13#include <string.h>
13#include <stdio.h> 14#include <stdio.h>
14 15
15#include <SDL.h> 16#include <SDL.h>
16#include <SDL_endian.h> 17#include <SDL_endian.h>
… …
83 84
84static void 85static void
85substitute_func (FcPattern *pattern, gpointer data) 86substitute_func (FcPattern *pattern, gpointer data)
86{ 87{
87 FcPatternAddBool (pattern, FC_HINTING , 1); 88 FcPatternAddBool (pattern, FC_HINTING , 1);
89#ifdef _WIN32
88 FcPatternAddBool (pattern, FC_AUTOHINT, 1); 90 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
91#else
92 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
93#endif
89} 94}
90 95
91static void 96static void
92layout_update_font (CFClient__Layout self) 97layout_update_font (CFClient__Layout self)
93{ 98{
… …
438 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 443 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
439 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 444 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
440 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 445 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
441 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 446 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
442 447
448 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
449 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16);
450
443 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 451 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
444 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 452 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
445 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 453 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
446 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 454 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
447 455
448 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 456 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
449 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
450 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
451 457
452 SDL_EnableUNICODE (1); 458 SDL_EnableUNICODE (1);
453 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL); 459 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
454 460
455 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 461 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
… …
464 470
465 ++m; 471 ++m;
466 } 472 }
467} 473}
468 474
475char *
476SDL_GetError ()
477
469int 478int
470SDL_SetVideoMode (int w, int h, int fullscreen) 479SDL_SetVideoMode (int w, int h, int fullscreen)
471 CODE: 480 CODE:
472 RETVAL = !!SDL_SetVideoMode ( 481 RETVAL = !!SDL_SetVideoMode (
473 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 482 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
… …
476 OUTPUT: 485 OUTPUT:
477 RETVAL 486 RETVAL
478 487
479void 488void
480SDL_GL_SwapBuffers () 489SDL_GL_SwapBuffers ()
490
491char *
492SDL_GetKeyName (int sym)
481 493
482void 494void
483SDL_PollEvent () 495SDL_PollEvent ()
484 PPCODE: 496 PPCODE:
485{ 497{
… …
504 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 516 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
505 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 517 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
506 break; 518 break;
507 519
508 case SDL_MOUSEMOTION: 520 case SDL_MOUSEMOTION:
521 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
522
509 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 523 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
510 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 524 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
511 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 525 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
512 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 526 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
513 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 527 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
514 break; 528 break;
515 529
516 case SDL_MOUSEBUTTONDOWN: 530 case SDL_MOUSEBUTTONDOWN:
517 case SDL_MOUSEBUTTONUP: 531 case SDL_MOUSEBUTTONUP:
532 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
533
518 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 534 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
519 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 535 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
520 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 536 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
521 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 537 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
522 break; 538 break;
… …
548lowdelay (int fd, int val = 1) 564lowdelay (int fd, int val = 1)
549 CODE: 565 CODE:
550#ifndef _WIN32 566#ifndef _WIN32
551 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 567 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
552#endif 568#endif
553
554char *
555gl_version ()
556 CODE:
557 RETVAL = (char *)glGetString (GL_VERSION);
558 OUTPUT:
559 RETVAL
560
561char *
562gl_extensions ()
563 CODE:
564 RETVAL = (char *)glGetString (GL_EXTENSIONS);
565 OUTPUT:
566 RETVAL
567 569
568void 570void
569add_font (char *file) 571add_font (char *file)
570 CODE: 572 CODE:
571 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 573 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
… …
664} 666}
665 667
666void 668void
667error (char *message) 669error (char *message)
668 CODE: 670 CODE:
671 fprintf (stderr, "ERROR: %s\n", message);
669#ifdef _WIN32 672#ifdef _WIN32
670 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 673 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR);
671#else
672 fprintf (stderr, "ERROR: %s\n", message);
673#endif 674#endif
674 675
675void 676void
676fatal (char *message) 677fatal (char *message)
677 CODE: 678 CODE:
679 fprintf (stderr, "FATAL: %s\n", message);
678#ifdef _WIN32 680#ifdef _WIN32
679 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 681 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
680#else
681 fprintf (stderr, "FATAL: %s\n", message);
682#endif 682#endif
683 exit (1); 683 exit (1);
684 684
685MODULE = CFClient PACKAGE = CFClient::Font 685MODULE = CFClient PACKAGE = CFClient::Font
686 686
… …
709MODULE = CFClient PACKAGE = CFClient::Layout 709MODULE = CFClient PACKAGE = CFClient::Layout
710 710
711CFClient::Layout 711CFClient::Layout
712new (SV *class, int rgba = 0) 712new (SV *class, int rgba = 0)
713 CODE: 713 CODE:
714#if _WIN32
715 //rgba = 0;//D make stext nicer, breaks TextView
716#endif
714 New (0, RETVAL, 1, struct cf_layout); 717 New (0, RETVAL, 1, struct cf_layout);
715 718
716 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 719 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
717 RETVAL->rgba = rgba; 720 RETVAL->rgba = rgba;
718 RETVAL->r = 1.; 721 RETVAL->r = 1.;
… …
798set_width (CFClient::Layout self, int max_width = -1) 801set_width (CFClient::Layout self, int max_width = -1)
799 CODE: 802 CODE:
800 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);
801 804
802void 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
803size (CFClient::Layout self) 831size (CFClient::Layout self)
804 PPCODE: 832 PPCODE:
805{ 833{
806 int w, h; 834 int w, h;
807 835
… …
873 901
874 while (p < e) 902 while (p < e)
875 { 903 {
876 uint32_t rgba = *p; 904 uint32_t rgba = *p;
877 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
878 rgba = SDL_SwapBE32 (rgba); 918 rgba = SDL_SwapBE32 (rgba);
879 *p++ = rgba; 919 *p++ = rgba;
880 } 920 }
881 } 921 }
882 922
… …
927{ 967{
928 HV *hv = (HV *)SvRV (self); 968 HV *hv = (HV *)SvRV (self);
929 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 969 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
930 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 970 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
931 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 971 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
932 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
933 972
934 if (items < 5) 973 if (items < 5)
935 { 974 {
936 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 975 w = SvNV (*hv_fetch (hv, "w", 1, 1));
937 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 976 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
939 978
940 if (ix) 979 if (ix)
941 { 980 {
942 glEnable (GL_BLEND); 981 glEnable (GL_BLEND);
943 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);
944 } 985 }
945 986
946 glBindTexture (GL_TEXTURE_2D, name); 987 glBindTexture (GL_TEXTURE_2D, name);
947
948 if (wrap_mode)
949 {
950 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
951 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
952 }
953 988
954 glBegin (GL_QUADS); 989 glBegin (GL_QUADS);
955 glTexCoord2f (0, 0); glVertex2f (x , y ); 990 glTexCoord2f (0, 0); glVertex2f (x , y );
956 glTexCoord2f (0, t); glVertex2f (x , y + h); 991 glTexCoord2f (0, t); glVertex2f (x , y + h);
957 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 992 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
958 glTexCoord2f (s, 0); glVertex2f (x + w, y ); 993 glTexCoord2f (s, 0); glVertex2f (x + w, y );
959 glEnd (); 994 glEnd ();
960 995
961 if (ix) 996 if (ix)
997 {
998 glDisable (GL_ALPHA_TEST);
962 glDisable (GL_BLEND); 999 glDisable (GL_BLEND);
1000 }
963} 1001}
964 1002
965MODULE = CFClient PACKAGE = CFClient::Map 1003MODULE = CFClient PACKAGE = CFClient::Map
966 1004
967CFClient::Map 1005CFClient::Map
… …
1031 tex->r = r; 1069 tex->r = r;
1032 tex->g = g; 1070 tex->g = g;
1033 tex->b = b; 1071 tex->b = b;
1034 tex->a = a; 1072 tex->a = a;
1035 } 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);
1036} 1083}
1037 1084
1038int 1085int
1039ox (CFClient::Map self) 1086ox (CFClient::Map self)
1040 ALIAS: 1087 ALIAS:
… …
1478 const_iv (GL_COLOR_MATERIAL), 1525 const_iv (GL_COLOR_MATERIAL),
1479 const_iv (GL_SMOOTH), 1526 const_iv (GL_SMOOTH),
1480 const_iv (GL_FLAT), 1527 const_iv (GL_FLAT),
1481 const_iv (GL_DITHER), 1528 const_iv (GL_DITHER),
1482 const_iv (GL_BLEND), 1529 const_iv (GL_BLEND),
1530 const_iv (GL_CULL_FACE),
1483 const_iv (GL_SCISSOR_TEST), 1531 const_iv (GL_SCISSOR_TEST),
1532 const_iv (GL_DEPTH_TEST),
1533 const_iv (GL_ALPHA_TEST),
1534 const_iv (GL_NORMALIZE),
1535 const_iv (GL_RESCALE_NORMAL),
1484 const_iv (GL_AND), 1536 const_iv (GL_AND),
1485 const_iv (GL_ONE), 1537 const_iv (GL_ONE),
1486 const_iv (GL_ZERO), 1538 const_iv (GL_ZERO),
1487 const_iv (GL_SRC_ALPHA), 1539 const_iv (GL_SRC_ALPHA),
1488 const_iv (GL_SRC_ALPHA_SATURATE), 1540 const_iv (GL_SRC_ALPHA_SATURATE),
1489 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1541 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1490 const_iv (GL_ONE_MINUS_DST_ALPHA), 1542 const_iv (GL_ONE_MINUS_DST_ALPHA),
1491 const_iv (GL_RGB), 1543 const_iv (GL_RGB),
1492 const_iv (GL_RGBA), 1544 const_iv (GL_RGBA),
1493 const_iv (GL_UNSIGNED_BYTE), 1545 const_iv (GL_UNSIGNED_BYTE),
1546 const_iv (GL_UNSIGNED_SHORT),
1547 const_iv (GL_UNSIGNED_INT),
1494 const_iv (GL_ALPHA), 1548 const_iv (GL_ALPHA),
1549 const_iv (GL_INTENSITY),
1495 const_iv (GL_LUMINANCE), 1550 const_iv (GL_LUMINANCE),
1551 const_iv (GL_LUMINANCE_ALPHA),
1496 const_iv (GL_FLOAT), 1552 const_iv (GL_FLOAT),
1497 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 1553 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1498 const_iv (GL_COMPILE), 1554 const_iv (GL_COMPILE),
1499 const_iv (GL_TEXTURE_1D), 1555 const_iv (GL_TEXTURE_1D),
1500 const_iv (GL_TEXTURE_2D), 1556 const_iv (GL_TEXTURE_2D),
… …
1502 const_iv (GL_TEXTURE_MAG_FILTER), 1558 const_iv (GL_TEXTURE_MAG_FILTER),
1503 const_iv (GL_TEXTURE_MIN_FILTER), 1559 const_iv (GL_TEXTURE_MIN_FILTER),
1504 const_iv (GL_TEXTURE_ENV_MODE), 1560 const_iv (GL_TEXTURE_ENV_MODE),
1505 const_iv (GL_TEXTURE_WRAP_S), 1561 const_iv (GL_TEXTURE_WRAP_S),
1506 const_iv (GL_TEXTURE_WRAP_T), 1562 const_iv (GL_TEXTURE_WRAP_T),
1563 const_iv (GL_REPEAT),
1507 const_iv (GL_CLAMP), 1564 const_iv (GL_CLAMP),
1508 const_iv (GL_REPEAT), 1565 const_iv (GL_CLAMP_TO_EDGE),
1509 const_iv (GL_NEAREST), 1566 const_iv (GL_NEAREST),
1510 const_iv (GL_LINEAR), 1567 const_iv (GL_LINEAR),
1511 const_iv (GL_NEAREST_MIPMAP_NEAREST), 1568 const_iv (GL_NEAREST_MIPMAP_NEAREST),
1512 const_iv (GL_LINEAR_MIPMAP_NEAREST), 1569 const_iv (GL_LINEAR_MIPMAP_NEAREST),
1513 const_iv (GL_NEAREST_MIPMAP_LINEAR), 1570 const_iv (GL_NEAREST_MIPMAP_LINEAR),
1514 const_iv (GL_LINEAR_MIPMAP_LINEAR), 1571 const_iv (GL_LINEAR_MIPMAP_LINEAR),
1515 const_iv (GL_GENERATE_MIPMAP), 1572 const_iv (GL_GENERATE_MIPMAP),
1516 const_iv (GL_MODULATE), 1573 const_iv (GL_MODULATE),
1517 const_iv (GL_DECAL), 1574 const_iv (GL_DECAL),
1518 const_iv (GL_REPLACE), 1575 const_iv (GL_REPLACE),
1576 const_iv (GL_DEPTH_BUFFER_BIT),
1519 const_iv (GL_COLOR_BUFFER_BIT), 1577 const_iv (GL_COLOR_BUFFER_BIT),
1520 const_iv (GL_PROJECTION), 1578 const_iv (GL_PROJECTION),
1521 const_iv (GL_MODELVIEW), 1579 const_iv (GL_MODELVIEW),
1522 const_iv (GL_COLOR_LOGIC_OP), 1580 const_iv (GL_COLOR_LOGIC_OP),
1523 const_iv (GL_SEPARABLE_2D), 1581 const_iv (GL_SEPARABLE_2D),
1524 const_iv (GL_CONVOLUTION_2D), 1582 const_iv (GL_CONVOLUTION_2D),
1525 const_iv (GL_CONVOLUTION_BORDER_MODE), 1583 const_iv (GL_CONVOLUTION_BORDER_MODE),
1526 const_iv (GL_CONSTANT_BORDER), 1584 const_iv (GL_CONSTANT_BORDER),
1527 const_iv (GL_LINES), 1585 const_iv (GL_LINES),
1586 const_iv (GL_LINE_LOOP),
1528 const_iv (GL_QUADS), 1587 const_iv (GL_QUADS),
1529 const_iv (GL_LINE_LOOP), 1588 const_iv (GL_QUAD_STRIP),
1589 const_iv (GL_TRIANGLES),
1590 const_iv (GL_TRIANGLE_STRIP),
1591 const_iv (GL_TRIANGLE_FAN),
1530 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 1592 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
1531 const_iv (GL_FASTEST), 1593 const_iv (GL_FASTEST),
1594 const_iv (GL_V2F),
1595 const_iv (GL_V3F),
1596 const_iv (GL_T2F_V3F),
1597 const_iv (GL_T2F_N3F_V3F),
1532# undef const_iv 1598# undef const_iv
1533 }; 1599 };
1534 1600
1535 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1601 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1536 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1602 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1537} 1603}
1538 1604
1605char *
1606gl_vendor ()
1607 CODE:
1608 RETVAL = (char *)glGetString (GL_VENDOR);
1609 OUTPUT:
1610 RETVAL
1611
1612char *
1613gl_version ()
1614 CODE:
1615 RETVAL = (char *)glGetString (GL_VERSION);
1616 OUTPUT:
1617 RETVAL
1618
1619char *
1620gl_extensions ()
1621 CODE:
1622 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1623 OUTPUT:
1624 RETVAL
1625
1539int glGetError () 1626int glGetError ()
1540 1627
1541void glClear (int mask) 1628void glClear (int mask)
1542 1629
1543void glClearColor (float r, float g, float b, float a = 1.0) 1630void glClearColor (float r, float g, float b, float a = 1.0)
… …
1551 1638
1552void glHint (int target, int mode) 1639void glHint (int target, int mode)
1553 1640
1554void glBlendFunc (int sfactor, int dfactor) 1641void glBlendFunc (int sfactor, int dfactor)
1555 1642
1643void glDepthMask (int flag)
1644
1556void glLogicOp (int opcode) 1645void glLogicOp (int opcode)
1557 1646
1558void glColorMask (int red, int green, int blue, int alpha) 1647void glColorMask (int red, int green, int blue, int alpha)
1559 1648
1560void glMatrixMode (int mode) 1649void glMatrixMode (int mode)
… …
1563 1652
1564void glPopMatrix () 1653void glPopMatrix ()
1565 1654
1566void glLoadIdentity () 1655void glLoadIdentity ()
1567 1656
1568# near and far are due to microsofts buggy c compiler 1657# near_ and far_ are due to microsofts buggy "c" compiler
1658void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1659
1660# near_ and far_ are due to microsofts buggy "c" compiler
1569void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 1661void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
1570 1662
1571void glViewport (int x, int y, int width, int height) 1663void glViewport (int x, int y, int width, int height)
1572 1664
1573void glScissor (int x, int y, int width, int height) 1665void glScissor (int x, int y, int width, int height)
… …
1589void glEnd () 1681void glEnd ()
1590 1682
1591void glColor (float r, float g, float b, float a = 1.0) 1683void glColor (float r, float g, float b, float a = 1.0)
1592 PROTOTYPE: @ 1684 PROTOTYPE: @
1593 CODE: 1685 CODE:
1594 // 255.999 is close enough to correctness (256 and clamp) 1686 // microsoft visual "c" rounds instead of truncating...
1595 glColor4ub (r * 255.999, g * 255.999, b * 255.999, a * 255.999); 1687 glColor4ub (MIN ((int)(r * 255.f), 255),
1688 MIN ((int)(g * 255.f), 255),
1689 MIN ((int)(b * 255.f), 255),
1690 MIN ((int)(a * 255.f), 255));
1691
1692void glInterleavedArrays (int format, int stride, char *data)
1693
1694void glDrawElements (int mode, int count, int type, char *indices)
1695
1696# 1.2 void glDrawRangeElements (int mode, int start, int end
1697
1698void glRasterPos (float x, float y, float z = 0.)
1699 CODE:
1700 glRasterPos3f (0, 0, z);
1701 glBitmap (0, 0, 0, 0, x, y, 0);
1596 1702
1597void glVertex (float x, float y, float z = 0.) 1703void glVertex (float x, float y, float z = 0.)
1598 CODE: 1704 CODE:
1599 glVertex3f (x, y, z); 1705 glVertex3f (x, y, z);
1600 1706
… …
1628 1734
1629void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 1735void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1630 1736
1631void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 1737void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1632 1738
1633void glRasterPos (int x, int y) 1739void glDrawPixels (int width, int height, int format, int type, char *pixels)
1634 CODE:
1635 glRasterPos2i (x, y);
1636 1740
1637void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 1741void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
1638 1742
1639int glGenTexture () 1743int glGenTexture ()
1640 CODE: 1744 CODE:
… …
1667 1771
1668void glEndList () 1772void glEndList ()
1669 1773
1670void glCallList (int list) 1774void glCallList (int list)
1671 1775
1776

Diff Legend

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