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.95 by root, Wed May 24 01:46:53 2006 UTC vs.
Revision 1.112 by root, Mon Jun 12 14:55:41 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)
1101 } 1108 }
1102 1109
1103 // somewhat hackish, but for textures that require it, it really 1110 // somewhat hackish, but for textures that require it, it really
1104 // improves the look, and most others don't suffer. 1111 // improves the look, and most others don't suffer.
1105 glBindTexture (GL_TEXTURE_2D, name); 1112 glBindTexture (GL_TEXTURE_2D, name);
1106 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); 1113 //glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
1107 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); 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);
1108} 1118}
1109 1119
1110int 1120int
1111ox (CFClient::Map self) 1121ox (CFClient::Map self)
1112 ALIAS: 1122 ALIAS:
1113 oy = 1 1123 oy = 1
1124 x = 2
1125 y = 3
1126 w = 4
1127 h = 5
1114 CODE: 1128 CODE:
1115 switch (ix) 1129 switch (ix)
1116 { 1130 {
1117 case 0: RETVAL = self->ox; break; 1131 case 0: RETVAL = self->ox; break;
1118 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;
1119 } 1137 }
1120 OUTPUT: 1138 OUTPUT:
1121 RETVAL 1139 RETVAL
1122 1140
1123void 1141void
1560 const_iv (GL_RESCALE_NORMAL), 1578 const_iv (GL_RESCALE_NORMAL),
1561 const_iv (GL_AND), 1579 const_iv (GL_AND),
1562 const_iv (GL_ONE), 1580 const_iv (GL_ONE),
1563 const_iv (GL_ZERO), 1581 const_iv (GL_ZERO),
1564 const_iv (GL_SRC_ALPHA), 1582 const_iv (GL_SRC_ALPHA),
1565 const_iv (GL_SRC_ALPHA_SATURATE), 1583 const_iv (GL_DST_ALPHA),
1566 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1584 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1567 const_iv (GL_ONE_MINUS_DST_ALPHA), 1585 const_iv (GL_ONE_MINUS_DST_ALPHA),
1586 const_iv (GL_SRC_ALPHA_SATURATE),
1568 const_iv (GL_RGB), 1587 const_iv (GL_RGB),
1569 const_iv (GL_RGBA), 1588 const_iv (GL_RGBA),
1570 const_iv (GL_UNSIGNED_BYTE), 1589 const_iv (GL_UNSIGNED_BYTE),
1571 const_iv (GL_UNSIGNED_SHORT), 1590 const_iv (GL_UNSIGNED_SHORT),
1572 const_iv (GL_UNSIGNED_INT), 1591 const_iv (GL_UNSIGNED_INT),
1583 const_iv (GL_TEXTURE_MAG_FILTER), 1602 const_iv (GL_TEXTURE_MAG_FILTER),
1584 const_iv (GL_TEXTURE_MIN_FILTER), 1603 const_iv (GL_TEXTURE_MIN_FILTER),
1585 const_iv (GL_TEXTURE_ENV_MODE), 1604 const_iv (GL_TEXTURE_ENV_MODE),
1586 const_iv (GL_TEXTURE_WRAP_S), 1605 const_iv (GL_TEXTURE_WRAP_S),
1587 const_iv (GL_TEXTURE_WRAP_T), 1606 const_iv (GL_TEXTURE_WRAP_T),
1607 const_iv (GL_REPEAT),
1588 const_iv (GL_CLAMP), 1608 const_iv (GL_CLAMP),
1589 const_iv (GL_REPEAT), 1609 const_iv (GL_CLAMP_TO_EDGE),
1590 const_iv (GL_NEAREST), 1610 const_iv (GL_NEAREST),
1591 const_iv (GL_LINEAR), 1611 const_iv (GL_LINEAR),
1592 const_iv (GL_NEAREST_MIPMAP_NEAREST), 1612 const_iv (GL_NEAREST_MIPMAP_NEAREST),
1593 const_iv (GL_LINEAR_MIPMAP_NEAREST), 1613 const_iv (GL_LINEAR_MIPMAP_NEAREST),
1594 const_iv (GL_NEAREST_MIPMAP_LINEAR), 1614 const_iv (GL_NEAREST_MIPMAP_LINEAR),
1624 1644
1625 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; )
1626 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1646 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1627} 1647}
1628 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
1629int glGetError () 1670int glGetError ()
1630 1671
1631void glClear (int mask) 1672void glClear (int mask)
1632 1673
1633void glClearColor (float r, float g, float b, float a = 1.0) 1674void glClearColor (float r, float g, float b, float a = 1.0)
1640void glShadeModel (int mode) 1681void glShadeModel (int mode)
1641 1682
1642void glHint (int target, int mode) 1683void glHint (int target, int mode)
1643 1684
1644void 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);
1645 1690
1646void glDepthMask (int flag) 1691void glDepthMask (int flag)
1647 1692
1648void glLogicOp (int opcode) 1693void glLogicOp (int opcode)
1649 1694
1683 1728
1684void glEnd () 1729void glEnd ()
1685 1730
1686void glColor (float r, float g, float b, float a = 1.0) 1731void glColor (float r, float g, float b, float a = 1.0)
1687 PROTOTYPE: @ 1732 PROTOTYPE: @
1733 ALIAS:
1734 glColor_premultiply = 1
1688 CODE: 1735 CODE:
1736 if (ix)
1737 {
1738 r *= a;
1739 g *= a;
1740 b *= a;
1741 }
1689 // microsoft visual "c" rounds instead of truncating... 1742 // microsoft visual "c" rounds instead of truncating...
1690 glColor4ub (MIN ((int)(r * 255.f), 255), 1743 glColor4ub (MIN ((int)(r * 256.f), 255),
1691 MIN ((int)(g * 255.f), 255), 1744 MIN ((int)(g * 256.f), 255),
1692 MIN ((int)(b * 255.f), 255), 1745 MIN ((int)(b * 256.f), 255),
1693 MIN ((int)(a * 255.f), 255)); 1746 MIN ((int)(a * 256.f), 255));
1694 1747
1695void glInterleavedArrays (int format, int stride, char *data) 1748void glInterleavedArrays (int format, int stride, char *data)
1696 1749
1697void glDrawElements (int mode, int count, int type, char *indices) 1750void glDrawElements (int mode, int count, int type, char *indices)
1698 1751
1721 1774
1722void glBindTexture (int target, int name) 1775void glBindTexture (int target, int name)
1723 1776
1724void glConvolutionParameter (int target, int pname, float params) 1777void glConvolutionParameter (int target, int pname, float params)
1725 CODE: 1778 CODE:
1726 GL_CALL (PFNGLCONVOLUTIONPARAMETERFEXTPROC, glConvolutionParameterf, (target, pname, params)); 1779 if (gl.ConvolutionParameterf)
1780 gl.ConvolutionParameterf (target, pname, params);
1727 1781
1728void 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)
1729 CODE: 1783 CODE:
1730 GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D, 1784 if (gl.ConvolutionFilter2D)
1731 (target, internalformat, width, height, format, type, data)); 1785 gl.ConvolutionFilter2D (target, internalformat, width, height, format, type, data);
1732 1786
1733void 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)
1734 CODE: 1788 CODE:
1735 GL_CALL (PFNGLSEPARABLEFILTER2DEXTPROC, glSeparableFilter2D, 1789 if (gl.SeparableFilter2D)
1736 (target, internalformat, width, height, format, type, row, column)); 1790 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
1737 1791
1738void 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)
1739 1793
1740void 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)
1741 1795

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines