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.70 by root, Sun Apr 30 09:21:47 2006 UTC vs.
Revision 1.79 by root, Sun May 14 22:24: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
9#include <string.h> 12#include <string.h>
10#include <stdio.h> 13#include <stdio.h>
11 14
12#include <SDL.h> 15#include <SDL.h>
16#include <SDL_endian.h>
13#include <SDL_image.h> 17#include <SDL_image.h>
14#include <SDL_mixer.h> 18#include <SDL_mixer.h>
15#include <SDL_opengl.h> 19#include <SDL_opengl.h>
16 20
17#include <glib/gmacros.h> 21#include <glib/gmacros.h>
18 22
19#include <pango/pango.h> 23#include <pango/pango.h>
20#include <pango/pangofc-fontmap.h> 24#include <pango/pangofc-fontmap.h>
21#include <pango/pangoft2.h> 25#include <pango/pangoft2.h>
26#include <pango/pangocairo.h>
22 27
23#ifndef _WIN32 28#ifndef _WIN32
24# include <sys/types.h> 29# include <sys/types.h>
25# include <sys/socket.h> 30# include <sys/socket.h>
26# include <netinet/in.h> 31# include <netinet/in.h>
… …
63typedef Mix_Music *CFClient__MixMusic; 68typedef Mix_Music *CFClient__MixMusic;
64 69
65typedef PangoFontDescription *CFClient__Font; 70typedef PangoFontDescription *CFClient__Font;
66 71
67typedef struct cf_layout { 72typedef struct cf_layout {
68 PangoLayout *pl; 73 PangoLayout *pl; // either derived from a cairo or ft2 context
74 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
75 float r, g, b, a; // default color for rgba mode
69 int base_height; 76 int base_height;
70 CFClient__Font font; 77 CFClient__Font font;
71} *CFClient__Layout; 78} *CFClient__Layout;
72 79
73static CFClient__Font default_font; 80static CFClient__Font default_font;
74static PangoContext *context; 81static PangoContext *ft2_context, *cairo_context;
75static PangoFontMap *fontmap; 82static PangoFontMap *ft2_fontmap, *cairo_fontmap;
76 83
77static void 84static void
78substitute_func (FcPattern *pattern, gpointer data) 85substitute_func (FcPattern *pattern, gpointer data)
79{ 86{
80 FcPatternAddBool (pattern, FC_HINTING , 1); 87 FcPatternAddBool (pattern, FC_HINTING , 1);
81 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 88 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
82} 89}
83 90
84static void 91static void
85layout_update_font (CFClient__Layout self) 92layout_update_font (CFClient__Layout self)
86{ 93{
… …
98static void 105static void
99layout_get_pixel_size (CFClient__Layout self, int *w, int *h) 106layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
100{ 107{
101 pango_layout_get_pixel_size (self->pl, w, h); 108 pango_layout_get_pixel_size (self->pl, w, h);
102 109
103 *w = (*w + 3) & ~3;
104 if (!*w) *w = 1; 110 if (!*w) *w = 1;
105 if (!*h) *h = 1; 111 if (!*h) *h = 1;
112
113 *w = (*w + 3) & ~3;
106} 114}
107 115
108typedef uint16_t mapface; 116typedef uint16_t mapface;
109 117
110typedef struct { 118typedef struct {
… …
258 } 266 }
259 } 267 }
260} 268}
261 269
262static void 270static void
263music_finished () 271music_finished (void)
264{ 272{
265 SDL_UserEvent ev; 273 SDL_UserEvent ev;
266 274
267 ev.type = SDL_USEREVENT; 275 ev.type = SDL_USEREVENT;
268 ev.code = 0; 276 ev.code = 0;
269 ev.data1 = 0; 277 ev.data1 = 0;
278 ev.data2 = 0;
279
280 SDL_PushEvent ((SDL_Event *)&ev);
281}
282
283static void
284channel_finished (int channel)
285{
286 SDL_UserEvent ev;
287
288 ev.type = SDL_USEREVENT;
289 ev.code = 1;
290 ev.data1 = (void *)(long)channel;
270 ev.data2 = 0; 291 ev.data2 = 0;
271 292
272 SDL_PushEvent ((SDL_Event *)&ev); 293 SDL_PushEvent ((SDL_Event *)&ev);
273} 294}
274 295
… …
385# undef const_iv 406# undef const_iv
386 }; 407 };
387 408
388 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 409 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
389 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 410 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
411}
390 412
413void
414pango_init ()
415 CODE:
416{
417 // delayed, so it can pick up new fonts added by AddFontResourceEx
391 fontmap = pango_ft2_font_map_new (); 418 ft2_fontmap = pango_ft2_font_map_new ();
392 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0); 419 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0);
393 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 420 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap);
421
422 cairo_fontmap = pango_cairo_font_map_get_default ();
423 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
394} 424}
395 425
396int 426int
397SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 427SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
398 428
… …
488 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 518 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
489 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 519 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
490 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 520 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
491 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 521 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
492 break; 522 break;
523
524 case SDL_USEREVENT:
525 hv_store (hv, "code", 4, newSViv (ev.user.code), 0);
526 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
527 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
528 break;
493 } 529 }
494 530
495 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 531 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
496 } 532 }
497} 533}
498 534
499int 535int
500Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512) 536Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048)
501 POSTCALL: 537 POSTCALL:
502 Mix_HookMusicFinished (music_finished); 538 Mix_HookMusicFinished (music_finished);
539 Mix_ChannelFinished (channel_finished);
503 540
504void 541void
505Mix_CloseAudio () 542Mix_CloseAudio ()
506 543
507int 544int
… …
530 567
531void 568void
532add_font (char *file) 569add_font (char *file)
533 CODE: 570 CODE:
534 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 571 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
572#ifdef _WIN32
573 // cairo... sigh... requires win2000
574 AddFontResourceEx (file, FR_PRIVATE, 0);
575#endif
535 576
536void 577void
537load_image_inline (SV *image_) 578load_image_inline (SV *image_)
538 ALIAS: 579 ALIAS:
539 load_image_file = 1 580 load_image_file = 1
… …
666 default_font = self; 707 default_font = self;
667 708
668MODULE = CFClient PACKAGE = CFClient::Layout 709MODULE = CFClient PACKAGE = CFClient::Layout
669 710
670CFClient::Layout 711CFClient::Layout
671new (SV *class, int base_height = MIN_FONT_HEIGHT) 712new (SV *class, int rgba = 0)
672 CODE: 713 CODE:
673 New (0, RETVAL, 1, struct cf_layout); 714 New (0, RETVAL, 1, struct cf_layout);
674 RETVAL->pl = pango_layout_new (context); 715
675 RETVAL->base_height = base_height; 716 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
717 RETVAL->rgba = rgba;
718 RETVAL->r = 1.;
719 RETVAL->g = 1.;
720 RETVAL->b = 1.;
721 RETVAL->a = 1.;
722 RETVAL->base_height = MIN_FONT_HEIGHT;
676 RETVAL->font = 0; 723 RETVAL->font = 0;
724
677 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 725 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
678 pango_layout_set_font_description (RETVAL->pl, default_font); 726 layout_update_font (RETVAL);
679 OUTPUT: 727 OUTPUT:
680 RETVAL 728 RETVAL
681 729
682void 730void
683DESTROY (CFClient::Layout self) 731DESTROY (CFClient::Layout self)
684 CODE: 732 CODE:
685 g_object_unref (self->pl); 733 g_object_unref (self->pl);
686 Safefree (self); 734 Safefree (self);
687 735
736int
737is_rgba (CFClient::Layout self)
738 CODE:
739 RETVAL = self->rgba;
740 OUTPUT:
741 RETVAL
742
688void 743void
689set_text (CFClient::Layout self, SV *text_) 744set_text (CFClient::Layout self, SV *text_)
690 CODE: 745 CODE:
691{ 746{
692 STRLEN textlen; 747 STRLEN textlen;
… …
710 CODE: 765 CODE:
711 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 766 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
712 SvUTF8_on (RETVAL); 767 SvUTF8_on (RETVAL);
713 OUTPUT: 768 OUTPUT:
714 RETVAL 769 RETVAL
770
771void
772set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.)
773 CODE:
774 self->r = r;
775 self->g = g;
776 self->b = b;
777 self->a = a;
715 778
716void 779void
717set_font (CFClient::Layout self, CFClient::Font font = 0) 780set_font (CFClient::Layout self, CFClient::Font font = 0)
718 CODE: 781 CODE:
719 if (self->font != font) 782 if (self->font != font)
… …
777render (CFClient::Layout self) 840render (CFClient::Layout self)
778 PPCODE: 841 PPCODE:
779{ 842{
780 SV *retval; 843 SV *retval;
781 int w, h; 844 int w, h;
782 FT_Bitmap bitmap;
783 845
784 layout_get_pixel_size (self, &w, &h); 846 layout_get_pixel_size (self, &w, &h);
785 847
848 if (self->rgba)
849 {
850 cairo_surface_t *surface;
851 cairo_t *cairo;
852
853 retval = newSV (w * h * 4);
854 SvPOK_only (retval);
855 SvCUR_set (retval, w * h * 4);
856
857 memset (SvPVX (retval), 0, w * h * 4);
858
859 surface = cairo_image_surface_create_for_data (
860 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
861 cairo = cairo_create (surface);
862 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
863
864 pango_cairo_show_layout (cairo, self->pl);
865
866 cairo_destroy (cairo);
867 cairo_surface_destroy (surface);
868
869 // what a mess, and its premultiplied, too :(
870 {
871 uint32_t *p = (uint32_t *)SvPVX (retval);
872 uint32_t *e = p + w * h;
873
874 while (p < e)
875 {
876 uint32_t rgba = *p;
877 rgba = (rgba >> 24) | (rgba << 8);
878 rgba = SDL_SwapBE32 (rgba);
879 *p++ = rgba;
880 }
881 }
882
883 EXTEND (SP, 5);
884 PUSHs (sv_2mortal (newSViv (w)));
885 PUSHs (sv_2mortal (newSViv (h)));
886 PUSHs (sv_2mortal (retval));
887 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
888 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
889 }
890 else
891 {
892 FT_Bitmap bitmap;
893
786 retval = newSV (w * h); 894 retval = newSV (w * h);
787 SvPOK_only (retval); 895 SvPOK_only (retval);
788 SvCUR_set (retval, w * h); 896 SvCUR_set (retval, w * h);
789 897
790 bitmap.rows = h; 898 bitmap.rows = h;
791 bitmap.width = w; 899 bitmap.width = w;
792 bitmap.pitch = w; 900 bitmap.pitch = w;
793 bitmap.buffer = (unsigned char*)SvPVX (retval); 901 bitmap.buffer = (unsigned char*)SvPVX (retval);
794 bitmap.num_grays = 256; 902 bitmap.num_grays = 256;
795 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 903 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
796 904
797 memset (bitmap.buffer, 0, w * h); 905 memset (bitmap.buffer, 0, w * h);
798 906
799 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 907 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
800 908
801 EXTEND (SP, 3); 909 EXTEND (SP, 5);
802 PUSHs (sv_2mortal (newSViv (w))); 910 PUSHs (sv_2mortal (newSViv (w)));
803 PUSHs (sv_2mortal (newSViv (h))); 911 PUSHs (sv_2mortal (newSViv (h)));
804 PUSHs (sv_2mortal (retval)); 912 PUSHs (sv_2mortal (retval));
913 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
914 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
915 }
805} 916}
806 917
807MODULE = CFClient PACKAGE = CFClient::Texture 918MODULE = CFClient PACKAGE = CFClient::Texture
808 919
809void 920void
810draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 921draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
811 PROTOTYPE: $$$;$$ 922 PROTOTYPE: $$$;$$
923 ALIAS:
924 draw_quad_alpha = 1
925 draw_quad_alpha_premultiplied = 2
812 CODE: 926 CODE:
813{ 927{
814 HV *hv = (HV *)SvRV (self); 928 HV *hv = (HV *)SvRV (self);
815 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 929 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
816 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 930 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
… …
821 { 935 {
822 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 936 w = SvNV (*hv_fetch (hv, "w", 1, 1));
823 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 937 h = SvNV (*hv_fetch (hv, "h", 1, 1));
824 } 938 }
825 939
940 if (ix)
941 {
942 glEnable (GL_BLEND);
943 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
944 }
945
826 glBindTexture (GL_TEXTURE_2D, name); 946 glBindTexture (GL_TEXTURE_2D, name);
947
827 if (wrap_mode) { 948 if (wrap_mode)
949 {
828 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); 950 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
829 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); 951 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
830 } 952 }
953
831 glBegin (GL_QUADS); 954 glBegin (GL_QUADS);
832 glTexCoord2f (0, 0); glVertex2f (x , y ); 955 glTexCoord2f (0, 0); glVertex2f (x , y );
833 glTexCoord2f (0, t); glVertex2f (x , y + h); 956 glTexCoord2f (0, t); glVertex2f (x , y + h);
834 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 957 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
835 glTexCoord2f (s, 0); glVertex2f (x + w, y ); 958 glTexCoord2f (s, 0); glVertex2f (x + w, y );
836 glEnd (); 959 glEnd ();
960
961 if (ix)
962 glDisable (GL_BLEND);
837} 963}
838 964
839MODULE = CFClient PACKAGE = CFClient::Map 965MODULE = CFClient PACKAGE = CFClient::Map
840 966
841CFClient::Map 967CFClient::Map
… …
1364 const_iv (GL_ONE_MINUS_DST_ALPHA), 1490 const_iv (GL_ONE_MINUS_DST_ALPHA),
1365 const_iv (GL_RGB), 1491 const_iv (GL_RGB),
1366 const_iv (GL_RGBA), 1492 const_iv (GL_RGBA),
1367 const_iv (GL_UNSIGNED_BYTE), 1493 const_iv (GL_UNSIGNED_BYTE),
1368 const_iv (GL_ALPHA), 1494 const_iv (GL_ALPHA),
1495 const_iv (GL_LUMINANCE),
1369 const_iv (GL_FLOAT), 1496 const_iv (GL_FLOAT),
1370 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 1497 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1371 const_iv (GL_COMPILE), 1498 const_iv (GL_COMPILE),
1372 const_iv (GL_TEXTURE_1D), 1499 const_iv (GL_TEXTURE_1D),
1373 const_iv (GL_TEXTURE_2D), 1500 const_iv (GL_TEXTURE_2D),
… …
1462void glEnd () 1589void glEnd ()
1463 1590
1464void glColor (float r, float g, float b, float a = 1.0) 1591void glColor (float r, float g, float b, float a = 1.0)
1465 PROTOTYPE: @ 1592 PROTOTYPE: @
1466 CODE: 1593 CODE:
1594 // 255.999 is close enough to correctness (256 and clamp)
1467 glColor4ub (r * 255., g * 255., b * 255., a * 255.); 1595 glColor4ub (r * 255.999, g * 255.999, b * 255.999, a * 255.999);
1468 1596
1469void glVertex (float x, float y, float z = 0.) 1597void glVertex (float x, float y, float z = 0.)
1470 CODE: 1598 CODE:
1471 glVertex3f (x, y, z); 1599 glVertex3f (x, y, z);
1472 1600

Diff Legend

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