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

Diff Legend

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