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.72 by root, Fri May 5 19:10:16 2006 UTC vs.
Revision 1.83 by root, Mon May 15 00:25:14 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>
5# pragma warning(disable:4244)
3#endif 6#endif
4 7
5#include "EXTERN.h" 8#include "EXTERN.h"
6#include "perl.h" 9#include "perl.h"
7#include "XSUB.h" 10#include "XSUB.h"
8 11
12#include <math.h>
9#include <string.h> 13#include <string.h>
10#include <stdio.h> 14#include <stdio.h>
11 15
12#include <SDL.h> 16#include <SDL.h>
17#include <SDL_endian.h>
13#include <SDL_image.h> 18#include <SDL_image.h>
14#include <SDL_mixer.h> 19#include <SDL_mixer.h>
15#include <SDL_opengl.h> 20#include <SDL_opengl.h>
16 21
17#include <glib/gmacros.h> 22#include <glib/gmacros.h>
18 23
19#include <pango/pango.h> 24#include <pango/pango.h>
20#include <pango/pangofc-fontmap.h> 25#include <pango/pangofc-fontmap.h>
21#include <pango/pangoft2.h> 26#include <pango/pangoft2.h>
27#include <pango/pangocairo.h>
22 28
23#ifndef _WIN32 29#ifndef _WIN32
24# include <sys/types.h> 30# include <sys/types.h>
25# include <sys/socket.h> 31# include <sys/socket.h>
26# include <netinet/in.h> 32# include <netinet/in.h>
… …
63typedef Mix_Music *CFClient__MixMusic; 69typedef Mix_Music *CFClient__MixMusic;
64 70
65typedef PangoFontDescription *CFClient__Font; 71typedef PangoFontDescription *CFClient__Font;
66 72
67typedef struct cf_layout { 73typedef struct cf_layout {
68 PangoLayout *pl; 74 PangoLayout *pl; // either derived from a cairo or ft2 context
75 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
76 float r, g, b, a; // default color for rgba mode
69 int base_height; 77 int base_height;
70 CFClient__Font font; 78 CFClient__Font font;
71} *CFClient__Layout; 79} *CFClient__Layout;
72 80
73static CFClient__Font default_font; 81static CFClient__Font default_font;
74static PangoContext *context; 82static PangoContext *ft2_context, *cairo_context;
75static PangoFontMap *fontmap; 83static PangoFontMap *ft2_fontmap, *cairo_fontmap;
76 84
77static void 85static void
78substitute_func (FcPattern *pattern, gpointer data) 86substitute_func (FcPattern *pattern, gpointer data)
79{ 87{
80 FcPatternAddBool (pattern, FC_HINTING , 1); 88 FcPatternAddBool (pattern, FC_HINTING , 1);
89#ifdef _WIN32
90 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
91#else
81 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 92 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
93#endif
82} 94}
83 95
84static void 96static void
85layout_update_font (CFClient__Layout self) 97layout_update_font (CFClient__Layout self)
86{ 98{
… …
98static void 110static void
99layout_get_pixel_size (CFClient__Layout self, int *w, int *h) 111layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
100{ 112{
101 pango_layout_get_pixel_size (self->pl, w, h); 113 pango_layout_get_pixel_size (self->pl, w, h);
102 114
103 *w = (*w + 3) & ~3;
104 if (!*w) *w = 1; 115 if (!*w) *w = 1;
105 if (!*h) *h = 1; 116 if (!*h) *h = 1;
117
118 *w = (*w + 3) & ~3;
106} 119}
107 120
108typedef uint16_t mapface; 121typedef uint16_t mapface;
109 122
110typedef struct { 123typedef struct {
… …
258 } 271 }
259 } 272 }
260} 273}
261 274
262static void 275static void
263music_finished () 276music_finished (void)
264{ 277{
265 SDL_UserEvent ev; 278 SDL_UserEvent ev;
266 279
267 ev.type = SDL_USEREVENT; 280 ev.type = SDL_USEREVENT;
268 ev.code = 0; 281 ev.code = 0;
… …
277{ 290{
278 SDL_UserEvent ev; 291 SDL_UserEvent ev;
279 292
280 ev.type = SDL_USEREVENT; 293 ev.type = SDL_USEREVENT;
281 ev.code = 1; 294 ev.code = 1;
282 ev.data1 = (void *)channel; 295 ev.data1 = (void *)(long)channel;
283 ev.data2 = 0; 296 ev.data2 = 0;
284 297
285 SDL_PushEvent ((SDL_Event *)&ev); 298 SDL_PushEvent ((SDL_Event *)&ev);
286} 299}
287 300
… …
398# undef const_iv 411# undef const_iv
399 }; 412 };
400 413
401 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; )
402 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 415 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
416}
403 417
418void
419pango_init ()
420 CODE:
421{
422 // delayed, so it can pick up new fonts added by AddFontResourceEx
404 fontmap = pango_ft2_font_map_new (); 423 ft2_fontmap = pango_ft2_font_map_new ();
405 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0); 424 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0);
406 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 425 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap);
426
427 cairo_fontmap = pango_cairo_font_map_get_default ();
428 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
407} 429}
408 430
409int 431int
410SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 432SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
411 433
… …
514 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 536 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
515 } 537 }
516} 538}
517 539
518int 540int
519Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512) 541Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048)
520 POSTCALL: 542 POSTCALL:
521 Mix_HookMusicFinished (music_finished); 543 Mix_HookMusicFinished (music_finished);
522 Mix_ChannelFinished (channel_finished); 544 Mix_ChannelFinished (channel_finished);
523 545
524void 546void
… …
550 572
551void 573void
552add_font (char *file) 574add_font (char *file)
553 CODE: 575 CODE:
554 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 576 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
577#ifdef _WIN32
578 // cairo... sigh... requires win2000
579 AddFontResourceEx (file, FR_PRIVATE, 0);
580#endif
555 581
556void 582void
557load_image_inline (SV *image_) 583load_image_inline (SV *image_)
558 ALIAS: 584 ALIAS:
559 load_image_file = 1 585 load_image_file = 1
… …
686 default_font = self; 712 default_font = self;
687 713
688MODULE = CFClient PACKAGE = CFClient::Layout 714MODULE = CFClient PACKAGE = CFClient::Layout
689 715
690CFClient::Layout 716CFClient::Layout
691new (SV *class, int base_height = MIN_FONT_HEIGHT) 717new (SV *class, int rgba = 0)
692 CODE: 718 CODE:
693 New (0, RETVAL, 1, struct cf_layout); 719 New (0, RETVAL, 1, struct cf_layout);
694 RETVAL->pl = pango_layout_new (context); 720
695 RETVAL->base_height = base_height; 721 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
722 RETVAL->rgba = rgba;
723 RETVAL->r = 1.;
724 RETVAL->g = 1.;
725 RETVAL->b = 1.;
726 RETVAL->a = 1.;
727 RETVAL->base_height = MIN_FONT_HEIGHT;
696 RETVAL->font = 0; 728 RETVAL->font = 0;
729
697 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 730 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
698 pango_layout_set_font_description (RETVAL->pl, default_font); 731 layout_update_font (RETVAL);
699 OUTPUT: 732 OUTPUT:
700 RETVAL 733 RETVAL
701 734
702void 735void
703DESTROY (CFClient::Layout self) 736DESTROY (CFClient::Layout self)
704 CODE: 737 CODE:
705 g_object_unref (self->pl); 738 g_object_unref (self->pl);
706 Safefree (self); 739 Safefree (self);
707 740
741int
742is_rgba (CFClient::Layout self)
743 CODE:
744 RETVAL = self->rgba;
745 OUTPUT:
746 RETVAL
747
708void 748void
709set_text (CFClient::Layout self, SV *text_) 749set_text (CFClient::Layout self, SV *text_)
710 CODE: 750 CODE:
711{ 751{
712 STRLEN textlen; 752 STRLEN textlen;
… …
730 CODE: 770 CODE:
731 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 771 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
732 SvUTF8_on (RETVAL); 772 SvUTF8_on (RETVAL);
733 OUTPUT: 773 OUTPUT:
734 RETVAL 774 RETVAL
775
776void
777set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.)
778 CODE:
779 self->r = r;
780 self->g = g;
781 self->b = b;
782 self->a = a;
735 783
736void 784void
737set_font (CFClient::Layout self, CFClient::Font font = 0) 785set_font (CFClient::Layout self, CFClient::Font font = 0)
738 CODE: 786 CODE:
739 if (self->font != font) 787 if (self->font != font)
… …
797render (CFClient::Layout self) 845render (CFClient::Layout self)
798 PPCODE: 846 PPCODE:
799{ 847{
800 SV *retval; 848 SV *retval;
801 int w, h; 849 int w, h;
802 FT_Bitmap bitmap;
803 850
804 layout_get_pixel_size (self, &w, &h); 851 layout_get_pixel_size (self, &w, &h);
805 852
853 if (self->rgba)
854 {
855 cairo_surface_t *surface;
856 cairo_t *cairo;
857
858 retval = newSV (w * h * 4);
859 SvPOK_only (retval);
860 SvCUR_set (retval, w * h * 4);
861
862 memset (SvPVX (retval), 0, w * h * 4);
863
864 surface = cairo_image_surface_create_for_data (
865 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
866 cairo = cairo_create (surface);
867 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
868
869 pango_cairo_show_layout (cairo, self->pl);
870
871 cairo_destroy (cairo);
872 cairo_surface_destroy (surface);
873
874 // what a mess, and its premultiplied, too :(
875 {
876 uint32_t *p = (uint32_t *)SvPVX (retval);
877 uint32_t *e = p + w * h;
878
879 while (p < e)
880 {
881 uint32_t rgba = *p;
882 rgba = (rgba >> 24) | (rgba << 8);
883 rgba = SDL_SwapBE32 (rgba);
884 *p++ = rgba;
885 }
886 }
887
888 EXTEND (SP, 5);
889 PUSHs (sv_2mortal (newSViv (w)));
890 PUSHs (sv_2mortal (newSViv (h)));
891 PUSHs (sv_2mortal (retval));
892 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
893 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
894 }
895 else
896 {
897 FT_Bitmap bitmap;
898
806 retval = newSV (w * h); 899 retval = newSV (w * h);
807 SvPOK_only (retval); 900 SvPOK_only (retval);
808 SvCUR_set (retval, w * h); 901 SvCUR_set (retval, w * h);
809 902
810 bitmap.rows = h; 903 bitmap.rows = h;
811 bitmap.width = w; 904 bitmap.width = w;
812 bitmap.pitch = w; 905 bitmap.pitch = w;
813 bitmap.buffer = (unsigned char*)SvPVX (retval); 906 bitmap.buffer = (unsigned char*)SvPVX (retval);
814 bitmap.num_grays = 256; 907 bitmap.num_grays = 256;
815 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 908 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
816 909
817 memset (bitmap.buffer, 0, w * h); 910 memset (bitmap.buffer, 0, w * h);
818 911
819 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 912 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
820 913
821 EXTEND (SP, 3); 914 EXTEND (SP, 5);
822 PUSHs (sv_2mortal (newSViv (w))); 915 PUSHs (sv_2mortal (newSViv (w)));
823 PUSHs (sv_2mortal (newSViv (h))); 916 PUSHs (sv_2mortal (newSViv (h)));
824 PUSHs (sv_2mortal (retval)); 917 PUSHs (sv_2mortal (retval));
918 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
919 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
920 }
825} 921}
826 922
827MODULE = CFClient PACKAGE = CFClient::Texture 923MODULE = CFClient PACKAGE = CFClient::Texture
828 924
829void 925void
830draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 926draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
831 PROTOTYPE: $$$;$$ 927 PROTOTYPE: $$$;$$
928 ALIAS:
929 draw_quad_alpha = 1
930 draw_quad_alpha_premultiplied = 2
832 CODE: 931 CODE:
833{ 932{
834 HV *hv = (HV *)SvRV (self); 933 HV *hv = (HV *)SvRV (self);
835 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 934 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
836 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 935 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
… …
841 { 940 {
842 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 941 w = SvNV (*hv_fetch (hv, "w", 1, 1));
843 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 942 h = SvNV (*hv_fetch (hv, "h", 1, 1));
844 } 943 }
845 944
945 if (ix)
946 {
947 glEnable (GL_BLEND);
948 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
949 }
950
846 glBindTexture (GL_TEXTURE_2D, name); 951 glBindTexture (GL_TEXTURE_2D, name);
952
847 if (wrap_mode) { 953 if (wrap_mode)
954 {
848 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); 955 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
849 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); 956 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
850 } 957 }
958
851 glBegin (GL_QUADS); 959 glBegin (GL_QUADS);
852 glTexCoord2f (0, 0); glVertex2f (x , y ); 960 glTexCoord2f (0, 0); glVertex2f (x , y );
853 glTexCoord2f (0, t); glVertex2f (x , y + h); 961 glTexCoord2f (0, t); glVertex2f (x , y + h);
854 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 962 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
855 glTexCoord2f (s, 0); glVertex2f (x + w, y ); 963 glTexCoord2f (s, 0); glVertex2f (x + w, y );
856 glEnd (); 964 glEnd ();
965
966 if (ix)
967 glDisable (GL_BLEND);
857} 968}
858 969
859MODULE = CFClient PACKAGE = CFClient::Map 970MODULE = CFClient PACKAGE = CFClient::Map
860 971
861CFClient::Map 972CFClient::Map
… …
1384 const_iv (GL_ONE_MINUS_DST_ALPHA), 1495 const_iv (GL_ONE_MINUS_DST_ALPHA),
1385 const_iv (GL_RGB), 1496 const_iv (GL_RGB),
1386 const_iv (GL_RGBA), 1497 const_iv (GL_RGBA),
1387 const_iv (GL_UNSIGNED_BYTE), 1498 const_iv (GL_UNSIGNED_BYTE),
1388 const_iv (GL_ALPHA), 1499 const_iv (GL_ALPHA),
1500 const_iv (GL_LUMINANCE),
1389 const_iv (GL_FLOAT), 1501 const_iv (GL_FLOAT),
1390 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 1502 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1391 const_iv (GL_COMPILE), 1503 const_iv (GL_COMPILE),
1392 const_iv (GL_TEXTURE_1D), 1504 const_iv (GL_TEXTURE_1D),
1393 const_iv (GL_TEXTURE_2D), 1505 const_iv (GL_TEXTURE_2D),
… …
1482void glEnd () 1594void glEnd ()
1483 1595
1484void glColor (float r, float g, float b, float a = 1.0) 1596void glColor (float r, float g, float b, float a = 1.0)
1485 PROTOTYPE: @ 1597 PROTOTYPE: @
1486 CODE: 1598 CODE:
1487 glColor4ub (r * 255., g * 255., b * 255., a * 255.); 1599 glColor4ub (MIN ((int)(r * 255.f), 255),
1600 MIN ((int)(g * 255.f), 255),
1601 MIN ((int)(b * 255.f), 255),
1602 MIN ((int)(a * 255.f), 255));
1488 1603
1489void glVertex (float x, float y, float z = 0.) 1604void glVertex (float x, float y, float z = 0.)
1490 CODE: 1605 CODE:
1491 glVertex3f (x, y, z); 1606 glVertex3f (x, y, z);
1492 1607

Diff Legend

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