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.94 by root, Tue May 23 18:57:35 2006 UTC vs.
Revision 1.111 by root, Mon Jun 12 13:26:14 2006 UTC

10#include "XSUB.h" 10#include "XSUB.h"
11 11
12#include <math.h> 12#include <math.h>
13#include <string.h> 13#include <string.h>
14#include <stdio.h> 14#include <stdio.h>
15#include <stdlib.h>
15 16
16#include <SDL.h> 17#include <SDL.h>
17#include <SDL_endian.h> 18#include <SDL_endian.h>
18#include <SDL_image.h> 19#include <SDL_image.h>
19#include <SDL_mixer.h> 20#include <SDL_mixer.h>
48#define MAP_EXTEND_X 32 49#define MAP_EXTEND_X 32
49#define MAP_EXTEND_Y 512 50#define MAP_EXTEND_Y 512
50 51
51#define MIN_FONT_HEIGHT 10 52#define MIN_FONT_HEIGHT 10
52 53
53#define GL_CALL(type,func,args) \ 54static struct
54 { \ 55{
55 static int init_; \ 56#define GL_FUNC(ptr,name) ptr name;
56 static type fptr_; \ 57#include "glfunc.h"
57 \ 58#undef GL_FUNC
58 if (!init_) \ 59} gl;
59 { \ 60
60 init_ = 1; \ 61static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
61 fptr_ = (type)SDL_GL_GetProcAddress (# func); \ 62{
62 } \ 63 if (gl.BlendFuncSeparate)
63 \ 64 gl.BlendFuncSeparate (sa, da, saa, daa);
64 if (fptr_) \ 65 else if (gl.BlendFuncSeparateEXT)
65 fptr_ args; \ 66 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
66 } 67 else
68 glBlendFunc (sa, da);
69}
67 70
68typedef Mix_Chunk *CFClient__MixChunk; 71typedef Mix_Chunk *CFClient__MixChunk;
69typedef Mix_Music *CFClient__MixMusic; 72typedef Mix_Music *CFClient__MixMusic;
70 73
71typedef PangoFontDescription *CFClient__Font; 74typedef PangoFontDescription *CFClient__Font;
83static PangoFontMap *ft2_fontmap, *cairo_fontmap; 86static PangoFontMap *ft2_fontmap, *cairo_fontmap;
84 87
85static void 88static void
86substitute_func (FcPattern *pattern, gpointer data) 89substitute_func (FcPattern *pattern, gpointer data)
87{ 90{
88 FcPatternAddBool (pattern, FC_HINTING , 1); 91 FcPatternAddBool (pattern, FC_HINTING, 1);
92#ifdef FC_HINT_STYLE
93 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);
94#endif
89#ifdef _WIN32 95#ifdef _WIN32
90 FcPatternAddBool (pattern, FC_AUTOHINT, 1); 96 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
91#else 97#else
92 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 98 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
93#endif 99#endif
416} 422}
417 423
418void 424void
419pango_init () 425pango_init ()
420 CODE: 426 CODE:
421{
422 // delayed, so it can pick up new fonts added by AddFontResourceEx 427 // delayed, so it can pick up new fonts added by AddFontResourceEx
428{
429 {
423 ft2_fontmap = pango_ft2_font_map_new (); 430 ft2_fontmap = pango_ft2_font_map_new ();
424 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 431 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0);
425 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap); 432 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap);
426 433 }
434 {
435 cairo_font_options_t *fopt = cairo_font_options_create ();
427 cairo_fontmap = pango_cairo_font_map_get_default (); 436 cairo_fontmap = pango_cairo_font_map_get_default ();
428 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap); 437 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
438#ifdef _WIN32
439 // cairo looks like shit eaten twice on windows
440 cairo_font_options_set_antialias (fopt, CAIRO_ANTIALIAS_NONE);
441#else
442 cairo_font_options_set_antialias (fopt, CAIRO_ANTIALIAS_GRAY);
443#endif
444 cairo_font_options_set_hint_style (fopt, CAIRO_HINT_STYLE_FULL);
445 cairo_font_options_set_hint_metrics (fopt, CAIRO_HINT_METRICS_ON);
446 pango_cairo_context_set_font_options (cairo_context, fopt);
447 cairo_font_options_destroy (fopt);
448 }
429} 449}
430 450
431int 451int
432SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 452SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
433 453
479SDL_SetVideoMode (int w, int h, int fullscreen) 499SDL_SetVideoMode (int w, int h, int fullscreen)
480 CODE: 500 CODE:
481 RETVAL = !!SDL_SetVideoMode ( 501 RETVAL = !!SDL_SetVideoMode (
482 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 502 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
483 ); 503 );
504 if (RETVAL)
505 {
484 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 506 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
507# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
508# include "glfunc.h"
509# undef GL_FUNC
510 }
485 OUTPUT: 511 OUTPUT:
486 RETVAL 512 RETVAL
487 513
488void 514void
489SDL_GL_SwapBuffers () 515SDL_GL_SwapBuffers ()
564lowdelay (int fd, int val = 1) 590lowdelay (int fd, int val = 1)
565 CODE: 591 CODE:
566#ifndef _WIN32 592#ifndef _WIN32
567 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 593 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
568#endif 594#endif
569
570char *
571gl_vendor ()
572 CODE:
573 RETVAL = (char *)glGetString (GL_VENDOR);
574 OUTPUT:
575 RETVAL
576
577char *
578gl_version ()
579 CODE:
580 RETVAL = (char *)glGetString (GL_VERSION);
581 OUTPUT:
582 RETVAL
583
584char *
585gl_extensions ()
586 CODE:
587 RETVAL = (char *)glGetString (GL_EXTENSIONS);
588 OUTPUT:
589 RETVAL
590 595
591void 596void
592add_font (char *file) 597add_font (char *file)
593 CODE: 598 CODE:
594 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 599 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
699 CODE: 704 CODE:
700 fprintf (stderr, "FATAL: %s\n", message); 705 fprintf (stderr, "FATAL: %s\n", message);
701#ifdef _WIN32 706#ifdef _WIN32
702 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 707 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
703#endif 708#endif
704 exit (1); 709 _Exit (1);
710
711void
712_exit (int retval)
713 CODE:
714 _Exit (retval);
705 715
706MODULE = CFClient PACKAGE = CFClient::Font 716MODULE = CFClient PACKAGE = CFClient::Font
707 717
708CFClient::Font 718CFClient::Font
709new_from_file (SV *class, char *path, int id = 0) 719new_from_file (SV *class, char *path, int id = 0)
730MODULE = CFClient PACKAGE = CFClient::Layout 740MODULE = CFClient PACKAGE = CFClient::Layout
731 741
732CFClient::Layout 742CFClient::Layout
733new (SV *class, int rgba = 0) 743new (SV *class, int rgba = 0)
734 CODE: 744 CODE:
735#if _WIN32
736 rgba = 0;//D
737#endif
738 New (0, RETVAL, 1, struct cf_layout); 745 New (0, RETVAL, 1, struct cf_layout);
739 746
740 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 747 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
741 RETVAL->rgba = rgba; 748 RETVAL->rgba = rgba;
742 RETVAL->r = 1.; 749 RETVAL->r = 1.;
786 793
787SV * 794SV *
788get_text (CFClient::Layout self) 795get_text (CFClient::Layout self)
789 CODE: 796 CODE:
790 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 797 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
791 SvUTF8_on (RETVAL); 798 sv_utf8_decode (RETVAL);
792 OUTPUT: 799 OUTPUT:
793 RETVAL 800 RETVAL
794 801
795void 802void
796set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.) 803set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.)
988{ 995{
989 HV *hv = (HV *)SvRV (self); 996 HV *hv = (HV *)SvRV (self);
990 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 997 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
991 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 998 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
992 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 999 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
993 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
994 1000
995 if (items < 5) 1001 if (items < 5)
996 { 1002 {
997 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1003 w = SvNV (*hv_fetch (hv, "w", 1, 1));
998 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1004 h = SvNV (*hv_fetch (hv, "h", 1, 1));
999 } 1005 }
1000 1006
1001 if (ix) 1007 if (ix)
1002 { 1008 {
1003 glEnable (GL_BLEND); 1009 glEnable (GL_BLEND);
1010
1011 if (ix == 2)
1004 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 1012 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
1013 else
1014 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1015 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1016
1005 glEnable (GL_ALPHA_TEST); 1017 glEnable (GL_ALPHA_TEST);
1006 glAlphaFunc (GL_GREATER, 0.01f); 1018 glAlphaFunc (GL_GREATER, 0.01f);
1007 } 1019 }
1008 1020
1009 glBindTexture (GL_TEXTURE_2D, name); 1021 glBindTexture (GL_TEXTURE_2D, name);
1010
1011 if (wrap_mode)
1012 {
1013 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
1014 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
1015 }
1016 1022
1017 glBegin (GL_QUADS); 1023 glBegin (GL_QUADS);
1018 glTexCoord2f (0, 0); glVertex2f (x , y ); 1024 glTexCoord2f (0, 0); glVertex2f (x , y );
1019 glTexCoord2f (0, t); glVertex2f (x , y + h); 1025 glTexCoord2f (0, t); glVertex2f (x , y + h);
1020 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 1026 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
1053DESTROY (CFClient::Map self) 1059DESTROY (CFClient::Map self)
1054 CODE: 1060 CODE:
1055{ 1061{
1056 map_clear (self); 1062 map_clear (self);
1057 Safefree (self->face); 1063 Safefree (self->face);
1064 Safefree (self->tex);
1058 Safefree (self); 1065 Safefree (self);
1059} 1066}
1060 1067
1061void 1068void
1062clear (CFClient::Map self) 1069clear (CFClient::Map self)
1097 tex->r = r; 1104 tex->r = r;
1098 tex->g = g; 1105 tex->g = g;
1099 tex->b = b; 1106 tex->b = b;
1100 tex->a = a; 1107 tex->a = a;
1101 } 1108 }
1109
1110 // somewhat hackish, but for textures that require it, it really
1111 // improves the look, and most others don't suffer.
1112 glBindTexture (GL_TEXTURE_2D, name);
1113 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
1114 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1115 // use uglier nearest interpolation because linear suffers
1116 // from transparent color bleeding and ugly wrapping effects.
1117 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1102} 1118}
1103 1119
1104int 1120int
1105ox (CFClient::Map self) 1121ox (CFClient::Map self)
1106 ALIAS: 1122 ALIAS:
1107 oy = 1 1123 oy = 1
1124 x = 2
1125 y = 3
1126 w = 4
1127 h = 5
1108 CODE: 1128 CODE:
1109 switch (ix) 1129 switch (ix)
1110 { 1130 {
1111 case 0: RETVAL = self->ox; break; 1131 case 0: RETVAL = self->ox; break;
1112 case 1: RETVAL = self->oy; break; 1132 case 1: RETVAL = self->oy; break;
1133 case 2: RETVAL = self->x; break;
1134 case 3: RETVAL = self->y; break;
1135 case 4: RETVAL = self->w; break;
1136 case 5: RETVAL = self->h; break;
1113 } 1137 }
1114 OUTPUT: 1138 OUTPUT:
1115 RETVAL 1139 RETVAL
1116 1140
1117void 1141void
1554 const_iv (GL_RESCALE_NORMAL), 1578 const_iv (GL_RESCALE_NORMAL),
1555 const_iv (GL_AND), 1579 const_iv (GL_AND),
1556 const_iv (GL_ONE), 1580 const_iv (GL_ONE),
1557 const_iv (GL_ZERO), 1581 const_iv (GL_ZERO),
1558 const_iv (GL_SRC_ALPHA), 1582 const_iv (GL_SRC_ALPHA),
1559 const_iv (GL_SRC_ALPHA_SATURATE), 1583 const_iv (GL_DST_ALPHA),
1560 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1584 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1561 const_iv (GL_ONE_MINUS_DST_ALPHA), 1585 const_iv (GL_ONE_MINUS_DST_ALPHA),
1586 const_iv (GL_SRC_ALPHA_SATURATE),
1562 const_iv (GL_RGB), 1587 const_iv (GL_RGB),
1563 const_iv (GL_RGBA), 1588 const_iv (GL_RGBA),
1564 const_iv (GL_UNSIGNED_BYTE), 1589 const_iv (GL_UNSIGNED_BYTE),
1565 const_iv (GL_UNSIGNED_SHORT), 1590 const_iv (GL_UNSIGNED_SHORT),
1566 const_iv (GL_UNSIGNED_INT), 1591 const_iv (GL_UNSIGNED_INT),
1577 const_iv (GL_TEXTURE_MAG_FILTER), 1602 const_iv (GL_TEXTURE_MAG_FILTER),
1578 const_iv (GL_TEXTURE_MIN_FILTER), 1603 const_iv (GL_TEXTURE_MIN_FILTER),
1579 const_iv (GL_TEXTURE_ENV_MODE), 1604 const_iv (GL_TEXTURE_ENV_MODE),
1580 const_iv (GL_TEXTURE_WRAP_S), 1605 const_iv (GL_TEXTURE_WRAP_S),
1581 const_iv (GL_TEXTURE_WRAP_T), 1606 const_iv (GL_TEXTURE_WRAP_T),
1607 const_iv (GL_REPEAT),
1582 const_iv (GL_CLAMP), 1608 const_iv (GL_CLAMP),
1583 const_iv (GL_REPEAT), 1609 const_iv (GL_CLAMP_TO_EDGE),
1584 const_iv (GL_NEAREST), 1610 const_iv (GL_NEAREST),
1585 const_iv (GL_LINEAR), 1611 const_iv (GL_LINEAR),
1586 const_iv (GL_NEAREST_MIPMAP_NEAREST), 1612 const_iv (GL_NEAREST_MIPMAP_NEAREST),
1587 const_iv (GL_LINEAR_MIPMAP_NEAREST), 1613 const_iv (GL_LINEAR_MIPMAP_NEAREST),
1588 const_iv (GL_NEAREST_MIPMAP_LINEAR), 1614 const_iv (GL_NEAREST_MIPMAP_LINEAR),
1618 1644
1619 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1645 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1620 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1646 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1621} 1647}
1622 1648
1649char *
1650gl_vendor ()
1651 CODE:
1652 RETVAL = (char *)glGetString (GL_VENDOR);
1653 OUTPUT:
1654 RETVAL
1655
1656char *
1657gl_version ()
1658 CODE:
1659 RETVAL = (char *)glGetString (GL_VERSION);
1660 OUTPUT:
1661 RETVAL
1662
1663char *
1664gl_extensions ()
1665 CODE:
1666 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1667 OUTPUT:
1668 RETVAL
1669
1623int glGetError () 1670int glGetError ()
1624 1671
1625void glClear (int mask) 1672void glClear (int mask)
1626 1673
1627void glClearColor (float r, float g, float b, float a = 1.0) 1674void glClearColor (float r, float g, float b, float a = 1.0)
1634void glShadeModel (int mode) 1681void glShadeModel (int mode)
1635 1682
1636void glHint (int target, int mode) 1683void glHint (int target, int mode)
1637 1684
1638void glBlendFunc (int sfactor, int dfactor) 1685void glBlendFunc (int sfactor, int dfactor)
1686
1687void glBlendFuncSeparate (int sa, int da, int saa, int daa)
1688 CODE:
1689 gl_BlendFuncSeparate (sa, da, saa, daa);
1639 1690
1640void glDepthMask (int flag) 1691void glDepthMask (int flag)
1641 1692
1642void glLogicOp (int opcode) 1693void glLogicOp (int opcode)
1643 1694
1677 1728
1678void glEnd () 1729void glEnd ()
1679 1730
1680void glColor (float r, float g, float b, float a = 1.0) 1731void glColor (float r, float g, float b, float a = 1.0)
1681 PROTOTYPE: @ 1732 PROTOTYPE: @
1733 ALIAS:
1734 glColor_premultiply = 1
1682 CODE: 1735 CODE:
1736 if (ix)
1737 {
1738 r *= a;
1739 g *= a;
1740 b *= a;
1741 }
1683 // microsoft visual "c" rounds instead of truncating... 1742 // microsoft visual "c" rounds instead of truncating...
1684 glColor4ub (MIN ((int)(r * 255.f), 255), 1743 glColor4ub (MIN ((int)(r * 256.f), 255),
1685 MIN ((int)(g * 255.f), 255), 1744 MIN ((int)(g * 256.f), 255),
1686 MIN ((int)(b * 255.f), 255), 1745 MIN ((int)(b * 256.f), 255),
1687 MIN ((int)(a * 255.f), 255)); 1746 MIN ((int)(a * 256.f), 255));
1688 1747
1689void glInterleavedArrays (int format, int stride, char *data) 1748void glInterleavedArrays (int format, int stride, char *data)
1690 1749
1691void glDrawElements (int mode, int count, int type, char *indices) 1750void glDrawElements (int mode, int count, int type, char *indices)
1692 1751
1715 1774
1716void glBindTexture (int target, int name) 1775void glBindTexture (int target, int name)
1717 1776
1718void glConvolutionParameter (int target, int pname, float params) 1777void glConvolutionParameter (int target, int pname, float params)
1719 CODE: 1778 CODE:
1720 GL_CALL (PFNGLCONVOLUTIONPARAMETERFEXTPROC, glConvolutionParameterf, (target, pname, params)); 1779 if (gl.ConvolutionParameterf)
1780 gl.ConvolutionParameterf (target, pname, params);
1721 1781
1722void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data) 1782void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
1723 CODE: 1783 CODE:
1724 GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D, 1784 if (gl.ConvolutionFilter2D)
1725 (target, internalformat, width, height, format, type, data)); 1785 gl.ConvolutionFilter2D (target, internalformat, width, height, format, type, data);
1726 1786
1727void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column) 1787void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column)
1728 CODE: 1788 CODE:
1729 GL_CALL (PFNGLSEPARABLEFILTER2DEXTPROC, glSeparableFilter2D, 1789 if (gl.SeparableFilter2D)
1730 (target, internalformat, width, height, format, type, row, column)); 1790 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
1731 1791
1732void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 1792void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1733 1793
1734void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 1794void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1735 1795

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines