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.223 by root, Sat Aug 11 11:07:08 2007 UTC vs.
Revision 1.242 by root, Wed Dec 26 21:03:21 2007 UTC

… …
120 120
121#include "pango-font.c" 121#include "pango-font.c"
122#include "pango-fontmap.c" 122#include "pango-fontmap.c"
123#include "pango-render.c" 123#include "pango-render.c"
124 124
125typedef IV CFPlus__Channel; 125typedef IV DC__Channel;
126typedef SDL_RWops *CFPlus__RW; 126typedef SDL_RWops *DC__RW;
127typedef Mix_Chunk *CFPlus__MixChunk; 127typedef Mix_Chunk *DC__MixChunk;
128typedef Mix_Music *CFPlus__MixMusic; 128typedef Mix_Music *DC__MixMusic;
129 129
130typedef PangoFontDescription *CFPlus__Font; 130typedef PangoFontDescription *DC__Font;
131 131
132static int 132static int
133shape_attr_p (PangoLayoutRun *run) 133shape_attr_p (PangoLayoutRun *run)
134{ 134{
135 GSList *attrs = run->item->analysis.extra_attrs; 135 GSList *attrs = run->item->analysis.extra_attrs;
… …
149 149
150typedef struct cf_layout { 150typedef struct cf_layout {
151 PangoLayout *pl; 151 PangoLayout *pl;
152 float r, g, b, a; // default color for rgba mode 152 float r, g, b, a; // default color for rgba mode
153 int base_height; 153 int base_height;
154 CFPlus__Font font; 154 DC__Font font;
155 rc_t *rc;
155} *CFPlus__Layout; 156} *DC__Layout;
156 157
157static CFPlus__Font default_font; 158static DC__Font default_font;
158static PangoContext *opengl_context; 159static PangoContext *opengl_context;
159static PangoFontMap *opengl_fontmap; 160static PangoFontMap *opengl_fontmap;
160 161
161static void 162static void
162substitute_func (FcPattern *pattern, gpointer data) 163substitute_func (FcPattern *pattern, gpointer data)
… …
167#endif 168#endif
168 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 169 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
169} 170}
170 171
171static void 172static void
172layout_update_font (CFPlus__Layout self) 173layout_update_font (DC__Layout self)
173{ 174{
174 /* use a random scale factor to account for unknown descenders, 0.8 works 175 /* use a random scale factor to account for unknown descenders, 0.8 works
175 * reasonably well with bitstream vera 176 * reasonably well with bitstream vera
176 */ 177 */
177 PangoFontDescription *font = self->font ? self->font : default_font; 178 PangoFontDescription *font = self->font ? self->font : default_font;
… …
181 182
182 pango_layout_set_font_description (self->pl, font); 183 pango_layout_set_font_description (self->pl, font);
183} 184}
184 185
185static void 186static void
186layout_get_pixel_size (CFPlus__Layout self, int *w, int *h) 187layout_get_pixel_size (DC__Layout self, int *w, int *h)
187{ 188{
188 PangoRectangle rect; 189 PangoRectangle rect;
189 190
190 // get_pixel_* wrongly rounds down 191 // get_pixel_* wrongly rounds down
191 pango_layout_get_extents (self->pl, 0, &rect); 192 pango_layout_get_extents (self->pl, 0, &rect);
… …
202 203
203typedef uint16_t tileid; 204typedef uint16_t tileid;
204typedef uint16_t faceid; 205typedef uint16_t faceid;
205 206
206typedef struct { 207typedef struct {
207 int name; 208 GLuint name;
208 int w, h; 209 int w, h;
209 float s, t; 210 float s, t;
210 uint8_t r, g, b, a; 211 uint8_t r, g, b, a;
211 tileid smoothtile; 212 tileid smoothtile;
212 uint8_t smoothlevel; 213 uint8_t smoothlevel;
… …
230 int faces; tileid *face2tile; // [faceid] 231 int faces; tileid *face2tile; // [faceid]
231 int texs; maptex *tex; // [tileid] 232 int texs; maptex *tex; // [tileid]
232 233
233 int32_t rows; 234 int32_t rows;
234 maprow *row; 235 maprow *row;
235} *CFPlus__Map; 236} *DC__Map;
236 237
237static char * 238static char *
238prepend (char *ptr, int sze, int inc) 239prepend (char *ptr, int sze, int inc)
239{ 240{
240 char *p; 241 char *p;
… …
278 self->texs *= 2; 279 self->texs *= 2;
279 } 280 }
280} 281}
281 282
282static maprow * 283static maprow *
283map_get_row (CFPlus__Map self, int y) 284map_get_row (DC__Map self, int y)
284{ 285{
285 if (0 > y) 286 if (0 > y)
286 { 287 {
287 int extend = - y + MAP_EXTEND_Y; 288 int extend = - y + MAP_EXTEND_Y;
288 Prepend (maprow, self->row, self->rows, extend); 289 Prepend (maprow, self->row, self->rows, extend);
… …
326 327
327 return row->col + (x - row->c0); 328 return row->col + (x - row->c0);
328} 329}
329 330
330static mapcell * 331static mapcell *
331map_get_cell (CFPlus__Map self, int x, int y) 332map_get_cell (DC__Map self, int x, int y)
332{ 333{
333 return row_get_cell (map_get_row (self, y), x); 334 return row_get_cell (map_get_row (self, y), x);
334} 335}
335 336
336static void 337static void
337map_clear (CFPlus__Map self) 338map_clear (DC__Map self)
338{ 339{
339 int r; 340 int r;
340 341
341 for (r = 0; r < self->rows; r++) 342 for (r = 0; r < self->rows; r++)
342 Safefree (self->row[r].col); 343 Safefree (self->row[r].col);
… …
350 self->row = 0; 351 self->row = 0;
351 self->rows = 0; 352 self->rows = 0;
352} 353}
353 354
354static void 355static void
355map_blank (CFPlus__Map self, int x0, int y0, int w, int h) 356map_blank (DC__Map self, int x0, int y0, int w, int h)
356{ 357{
357 int x, y; 358 int x, y;
358 maprow *row; 359 maprow *row;
359 mapcell *cell; 360 mapcell *cell;
360 361
… …
439 n |= n >> 16; 440 n |= n >> 16;
440 441
441 return n + 1; 442 return n + 1;
442} 443}
443 444
445static unsigned int
446popcount (unsigned int n)
447{
448 n -= (n >> 1) & 0x55555555U;
449 n = ((n >> 2) & 0x33333333U) + (n & 0x33333333U);
450 n = ((n >> 4) + n) & 0x0f0f0f0fU;
451 n *= 0x01010101U;
452
453 return n >> 24;
454}
455
444/* SDL should provide this, really. */ 456/* SDL should provide this, really. */
445#define SDLK_MODIFIER_MIN 300 457#define SDLK_MODIFIER_MIN 300
446#define SDLK_MODIFIER_MAX 314 458#define SDLK_MODIFIER_MAX 314
447 459
448/******************************************************************************/ 460/******************************************************************************/
… …
486 return 0; 498 return 0;
487 499
488 return 1; 500 return 1;
489} 501}
490 502
491MODULE = CFPlus PACKAGE = CFPlus 503MODULE = Deliantra::Client PACKAGE = DC
492 504
493PROTOTYPES: ENABLE 505PROTOTYPES: ENABLE
494 506
495BOOT: 507BOOT:
496{ 508{
497 HV *stash = gv_stashpv ("CFPlus", 1); 509 HV *stash = gv_stashpv ("DC", 1);
498 static const struct { 510 static const struct {
499 const char *name; 511 const char *name;
500 IV iv; 512 IV iv;
501 } *civ, const_iv[] = { 513 } *civ, const_iv[] = {
502# define const_iv(name) { # name, (IV)name } 514# define const_iv(name) { # name, (IV)name }
… …
524 536
525 const_iv (SDL_APPINPUTFOCUS), 537 const_iv (SDL_APPINPUTFOCUS),
526 const_iv (SDL_APPMOUSEFOCUS), 538 const_iv (SDL_APPMOUSEFOCUS),
527 const_iv (SDL_APPACTIVE), 539 const_iv (SDL_APPACTIVE),
528 540
541 const_iv (SDLK_FIRST),
542 const_iv (SDLK_LAST),
529 const_iv (SDLK_KP0), 543 const_iv (SDLK_KP0),
530 const_iv (SDLK_KP1), 544 const_iv (SDLK_KP1),
531 const_iv (SDLK_KP2), 545 const_iv (SDLK_KP2),
532 const_iv (SDLK_KP3), 546 const_iv (SDLK_KP3),
533 const_iv (SDLK_KP4), 547 const_iv (SDLK_KP4),
… …
605 const_iv (KMOD_LMETA), 619 const_iv (KMOD_LMETA),
606 const_iv (KMOD_RMETA), 620 const_iv (KMOD_RMETA),
607 const_iv (KMOD_NUM), 621 const_iv (KMOD_NUM),
608 const_iv (KMOD_CAPS), 622 const_iv (KMOD_CAPS),
609 const_iv (KMOD_MODE), 623 const_iv (KMOD_MODE),
624
625 const_iv (MIX_DEFAULT_FORMAT),
610# undef const_iv 626# undef const_iv
611 }; 627 };
612 628
613 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 629 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
614 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 630 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
… …
631 RETVAL 647 RETVAL
632 648
633NV floor (NV x) 649NV floor (NV x)
634 650
635NV ceil (NV x) 651NV ceil (NV x)
652
653IV minpot (UV n)
654
655IV popcount (UV n)
636 656
637void 657void
638pango_init () 658pango_init ()
639 CODE: 659 CODE:
640{ 660{
… …
680 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 700 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
681 701
682 if (m && m != (SDL_Rect **)-1) 702 if (m && m != (SDL_Rect **)-1)
683 while (*m) 703 while (*m)
684 { 704 {
685 if ((*m)->w >= 640 && (*m)->h >= 480) 705 if ((*m)->w >= 800 && (*m)->h >= 600)
686 { 706 {
687 AV *av = newAV (); 707 AV *av = newAV ();
688 av_push (av, newSViv ((*m)->w)); 708 av_push (av, newSViv ((*m)->w));
689 av_push (av, newSViv ((*m)->h)); 709 av_push (av, newSViv ((*m)->h));
690 av_push (av, newSViv (rgb)); 710 av_push (av, newSViv (rgb));
… …
714 734
715 if (RETVAL) 735 if (RETVAL)
716 { 736 {
717 av_clear (texture_av); 737 av_clear (texture_av);
718 738
719 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 739 SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
720#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 740#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
721#include "glfunc.h" 741#include "glfunc.h"
722#undef GL_FUNC 742#undef GL_FUNC
723 } 743 }
724} 744}
… …
805 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 825 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
806 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 826 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
807 break; 827 break;
808 } 828 }
809 829
810 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1)))); 830 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("DC::UI::Event", 1))));
811 } 831 }
812} 832}
813 833
814int 834int
815Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024) 835Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
816 POSTCALL: 836 POSTCALL:
817 Mix_HookMusicFinished (music_finished); 837 Mix_HookMusicFinished (music_finished);
818 Mix_ChannelFinished (channel_finished); 838 Mix_ChannelFinished (channel_finished);
839
840void
841Mix_QuerySpec ()
842 PPCODE:
843{
844 int freq, channels;
845 Uint16 format;
846
847 if (Mix_QuerySpec (&freq, &format, &channels))
848 {
849 EXTEND (SP, 3);
850 PUSHs (sv_2mortal (newSViv (freq)));
851 PUSHs (sv_2mortal (newSViv (format)));
852 PUSHs (sv_2mortal (newSViv (channels)));
853 }
854}
819 855
820void 856void
821Mix_CloseAudio () 857Mix_CloseAudio ()
822 858
823int 859int
… …
957void 993void
958error (char *message) 994error (char *message)
959 CODE: 995 CODE:
960 fprintf (stderr, "ERROR: %s\n", message); 996 fprintf (stderr, "ERROR: %s\n", message);
961#ifdef _WIN32 997#ifdef _WIN32
962 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR); 998 MessageBox (0, message, "Deliantra Client Error", MB_OK | MB_ICONERROR);
963#endif 999#endif
964 1000
965void 1001void
966fatal (char *message) 1002fatal (char *message)
967 CODE: 1003 CODE:
968 fprintf (stderr, "FATAL: %s\n", message); 1004 fprintf (stderr, "FATAL: %s\n", message);
969#ifdef _WIN32 1005#ifdef _WIN32
970 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 1006 MessageBox (0, message, "Deliantra Client Fatal Error", MB_OK | MB_ICONERROR);
971#endif 1007#endif
972 _exit (1); 1008 _exit (1);
973 1009
974void 1010void
975_exit (int retval = 0) 1011_exit (int retval = 0)
… …
987#if DEBUG 1023#if DEBUG
988 VALGRIND_DO_LEAK_CHECK; 1024 VALGRIND_DO_LEAK_CHECK;
989#endif 1025#endif
990} 1026}
991 1027
992MODULE = CFPlus PACKAGE = CFPlus::Font 1028MODULE = Deliantra::Client PACKAGE = DC::Font
993 1029
994PROTOTYPES: DISABLE 1030PROTOTYPES: DISABLE
995 1031
996CFPlus::Font 1032DC::Font
997new_from_file (SV *class, char *path, int id = 0) 1033new_from_file (SV *class, char *path, int id = 0)
998 CODE: 1034 CODE:
999{ 1035{
1000 int count; 1036 int count;
1001 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1037 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
… …
1004} 1040}
1005 OUTPUT: 1041 OUTPUT:
1006 RETVAL 1042 RETVAL
1007 1043
1008void 1044void
1009DESTROY (CFPlus::Font self) 1045DESTROY (DC::Font self)
1010 CODE: 1046 CODE:
1011 pango_font_description_free (self); 1047 pango_font_description_free (self);
1012 1048
1013void 1049void
1014make_default (CFPlus::Font self) 1050make_default (DC::Font self)
1015 PROTOTYPE: $ 1051 PROTOTYPE: $
1016 CODE: 1052 CODE:
1017 default_font = self; 1053 default_font = self;
1018 1054
1019MODULE = CFPlus PACKAGE = CFPlus::Layout 1055MODULE = Deliantra::Client PACKAGE = DC::Layout
1020 1056
1021PROTOTYPES: DISABLE 1057PROTOTYPES: DISABLE
1022 1058
1023void 1059void
1024reset_glyph_cache () 1060glyph_cache_backup ()
1025 PROTOTYPE: 1061 PROTOTYPE:
1026 CODE: 1062 CODE:
1063 tc_backup ();
1064
1065void
1066glyph_cache_restore ()
1067 PROTOTYPE:
1068 CODE:
1027 tc_clear (); 1069 tc_restore ();
1028 1070
1029CFPlus::Layout 1071DC::Layout
1030new (SV *class) 1072new (SV *class)
1031 CODE: 1073 CODE:
1032 New (0, RETVAL, 1, struct cf_layout); 1074 New (0, RETVAL, 1, struct cf_layout);
1033 1075
1034 RETVAL->pl = pango_layout_new (opengl_context); 1076 RETVAL->pl = pango_layout_new (opengl_context);
… …
1036 RETVAL->g = 1.; 1078 RETVAL->g = 1.;
1037 RETVAL->b = 1.; 1079 RETVAL->b = 1.;
1038 RETVAL->a = 1.; 1080 RETVAL->a = 1.;
1039 RETVAL->base_height = MIN_FONT_HEIGHT; 1081 RETVAL->base_height = MIN_FONT_HEIGHT;
1040 RETVAL->font = 0; 1082 RETVAL->font = 0;
1083 RETVAL->rc = rc_alloc ();
1041 1084
1042 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 1085 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
1043 layout_update_font (RETVAL); 1086 layout_update_font (RETVAL);
1044 OUTPUT: 1087 OUTPUT:
1045 RETVAL 1088 RETVAL
1046 1089
1047void 1090void
1048DESTROY (CFPlus::Layout self) 1091DESTROY (DC::Layout self)
1049 CODE: 1092 CODE:
1050 g_object_unref (self->pl); 1093 g_object_unref (self->pl);
1094 rc_free (self->rc);
1051 Safefree (self); 1095 Safefree (self);
1052 1096
1053void 1097void
1054set_text (CFPlus::Layout self, SV *text_) 1098set_text (DC::Layout self, SV *text_)
1055 CODE: 1099 CODE:
1056{ 1100{
1057 STRLEN textlen; 1101 STRLEN textlen;
1058 char *text = SvPVutf8 (text_, textlen); 1102 char *text = SvPVutf8 (text_, textlen);
1059 1103
1060 pango_layout_set_text (self->pl, text, textlen); 1104 pango_layout_set_text (self->pl, text, textlen);
1061} 1105}
1062 1106
1063void 1107void
1064set_markup (CFPlus::Layout self, SV *text_) 1108set_markup (DC::Layout self, SV *text_)
1065 CODE: 1109 CODE:
1066{ 1110{
1067 STRLEN textlen; 1111 STRLEN textlen;
1068 char *text = SvPVutf8 (text_, textlen); 1112 char *text = SvPVutf8 (text_, textlen);
1069 1113
1070 pango_layout_set_markup (self->pl, text, textlen); 1114 pango_layout_set_markup (self->pl, text, textlen);
1071} 1115}
1072 1116
1073void 1117void
1074set_shapes (CFPlus::Layout self, ...) 1118set_shapes (DC::Layout self, ...)
1075 CODE: 1119 CODE:
1076{ 1120{
1077 PangoAttrList *attrs = 0; 1121 PangoAttrList *attrs = 0;
1078 const char *text = pango_layout_get_text (self->pl); 1122 const char *text = pango_layout_get_text (self->pl);
1079 const char *pos = text; 1123 const char *pos = text;
… …
1114 if (attrs) 1158 if (attrs)
1115 pango_layout_set_attributes (self->pl, attrs); 1159 pango_layout_set_attributes (self->pl, attrs);
1116} 1160}
1117 1161
1118void 1162void
1119get_shapes (CFPlus::Layout self) 1163get_shapes (DC::Layout self)
1120 PPCODE: 1164 PPCODE:
1121{ 1165{
1122 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1166 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1123 1167
1124 do 1168 do
… …
1139 1183
1140 pango_layout_iter_free (iter); 1184 pango_layout_iter_free (iter);
1141} 1185}
1142 1186
1143int 1187int
1144has_wrapped (CFPlus::Layout self) 1188has_wrapped (DC::Layout self)
1145 CODE: 1189 CODE:
1146{ 1190{
1147 int lines = 1; 1191 int lines = 1;
1148 const char *text = pango_layout_get_text (self->pl); 1192 const char *text = pango_layout_get_text (self->pl);
1149 1193
… …
1154} 1198}
1155 OUTPUT: 1199 OUTPUT:
1156 RETVAL 1200 RETVAL
1157 1201
1158SV * 1202SV *
1159get_text (CFPlus::Layout self) 1203get_text (DC::Layout self)
1160 CODE: 1204 CODE:
1161 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1205 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
1162 sv_utf8_decode (RETVAL); 1206 sv_utf8_decode (RETVAL);
1163 OUTPUT: 1207 OUTPUT:
1164 RETVAL 1208 RETVAL
1165 1209
1166void 1210void
1167set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.) 1211set_foreground (DC::Layout self, float r, float g, float b, float a = 1.)
1168 CODE: 1212 CODE:
1169 self->r = r; 1213 self->r = r;
1170 self->g = g; 1214 self->g = g;
1171 self->b = b; 1215 self->b = b;
1172 self->a = a; 1216 self->a = a;
1173 1217
1174void 1218void
1175set_font (CFPlus::Layout self, CFPlus::Font font = 0) 1219set_font (DC::Layout self, DC::Font font = 0)
1176 CODE: 1220 CODE:
1177 if (self->font != font) 1221 if (self->font != font)
1178 { 1222 {
1179 self->font = font; 1223 self->font = font;
1180 layout_update_font (self); 1224 layout_update_font (self);
1181 } 1225 }
1182 1226
1183void 1227void
1184set_height (CFPlus::Layout self, int base_height) 1228set_height (DC::Layout self, int base_height)
1185 CODE: 1229 CODE:
1186 if (self->base_height != base_height) 1230 if (self->base_height != base_height)
1187 { 1231 {
1188 self->base_height = base_height; 1232 self->base_height = base_height;
1189 layout_update_font (self); 1233 layout_update_font (self);
1190 } 1234 }
1191 1235
1192void 1236void
1193set_width (CFPlus::Layout self, int max_width = -1) 1237set_width (DC::Layout self, int max_width = -1)
1194 CODE: 1238 CODE:
1195 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1239 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
1196 1240
1197void 1241void
1198set_indent (CFPlus::Layout self, int indent) 1242set_indent (DC::Layout self, int indent)
1199 CODE: 1243 CODE:
1200 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1244 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
1201 1245
1202void 1246void
1203set_spacing (CFPlus::Layout self, int spacing) 1247set_spacing (DC::Layout self, int spacing)
1204 CODE: 1248 CODE:
1205 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1249 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
1206 1250
1207void 1251void
1208set_ellipsise (CFPlus::Layout self, int ellipsise) 1252set_ellipsise (DC::Layout self, int ellipsise)
1209 CODE: 1253 CODE:
1210 pango_layout_set_ellipsize (self->pl, 1254 pango_layout_set_ellipsize (self->pl,
1211 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1255 ellipsise == 1 ? PANGO_ELLIPSIZE_START
1212 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1256 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
1213 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1257 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
1214 : PANGO_ELLIPSIZE_NONE 1258 : PANGO_ELLIPSIZE_NONE
1215 ); 1259 );
1216 1260
1217void 1261void
1218set_single_paragraph_mode (CFPlus::Layout self, int spm) 1262set_single_paragraph_mode (DC::Layout self, int spm)
1219 CODE: 1263 CODE:
1220 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1264 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
1221 1265
1222void 1266void
1223size (CFPlus::Layout self) 1267size (DC::Layout self)
1224 PPCODE: 1268 PPCODE:
1225{ 1269{
1226 int w, h; 1270 int w, h;
1227 1271
1228 layout_get_pixel_size (self, &w, &h); 1272 layout_get_pixel_size (self, &w, &h);
… …
1231 PUSHs (sv_2mortal (newSViv (w))); 1275 PUSHs (sv_2mortal (newSViv (w)));
1232 PUSHs (sv_2mortal (newSViv (h))); 1276 PUSHs (sv_2mortal (newSViv (h)));
1233} 1277}
1234 1278
1235int 1279int
1236descent (CFPlus::Layout self) 1280descent (DC::Layout self)
1237 CODE: 1281 CODE:
1238{ 1282{
1239 PangoRectangle rect; 1283 PangoRectangle rect;
1240 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0); 1284 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1241 pango_layout_line_get_pixel_extents (line, 0, &rect); 1285 pango_layout_line_get_pixel_extents (line, 0, &rect);
… …
1243} 1287}
1244 OUTPUT: 1288 OUTPUT:
1245 RETVAL 1289 RETVAL
1246 1290
1247int 1291int
1248xy_to_index (CFPlus::Layout self, int x, int y) 1292xy_to_index (DC::Layout self, int x, int y)
1249 CODE: 1293 CODE:
1250{ 1294{
1251 int index, trailing; 1295 int index, trailing;
1252 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1296 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
1253 RETVAL = index + trailing; 1297 RETVAL = index + trailing;
1254} 1298}
1255 OUTPUT: 1299 OUTPUT:
1256 RETVAL 1300 RETVAL
1257 1301
1258void 1302void
1259cursor_pos (CFPlus::Layout self, int index) 1303cursor_pos (DC::Layout self, int index)
1260 PPCODE: 1304 PPCODE:
1261{ 1305{
1262 PangoRectangle strong_pos; 1306 PangoRectangle strong_pos;
1263 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1307 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
1264 1308
… …
1267 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1311 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
1268 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1312 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
1269} 1313}
1270 1314
1271void 1315void
1272index_to_line_x (CFPlus::Layout self, int index, int trailing = 0) 1316index_to_line_x (DC::Layout self, int index, int trailing = 0)
1273 PPCODE: 1317 PPCODE:
1274{ 1318{
1275 int line, x; 1319 int line, x;
1276 1320
1277 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x); 1321 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
… …
1281 PUSHs (sv_2mortal (newSViv (line - 1))); 1325 PUSHs (sv_2mortal (newSViv (line - 1)));
1282 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE))); 1326 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1283} 1327}
1284 1328
1285void 1329void
1286line_x_to_index (CFPlus::Layout self, int line, int x) 1330line_x_to_index (DC::Layout self, int line, int x)
1287 PPCODE: 1331 PPCODE:
1288{ 1332{
1289 PangoLayoutLine *lp; 1333 PangoLayoutLine *lp;
1290 int index, trailing; 1334 int index, trailing;
1291 1335
… …
1306 PUSHs (sv_2mortal (newSViv (trailing))); 1350 PUSHs (sv_2mortal (newSViv (trailing)));
1307 } 1351 }
1308} 1352}
1309 1353
1310void 1354void
1311render (CFPlus::Layout self, float x, float y, int flags = 0) 1355render (DC::Layout self, float x, float y, int flags = 0)
1312 PPCODE: 1356 CODE:
1357 rc_clear (self->rc);
1313 pango_opengl_render_layout_subpixel ( 1358 pango_opengl_render_layout_subpixel (
1314 self->pl, 1359 self->pl,
1360 self->rc,
1315 x * PANGO_SCALE, y * PANGO_SCALE, 1361 x * PANGO_SCALE, y * PANGO_SCALE,
1316 self->r, self->g, self->b, self->a, 1362 self->r, self->g, self->b, self->a,
1317 flags 1363 flags
1318 ); 1364 );
1365 // we assume that context_change actually clears/frees stuff
1366 // and does not do any recomputation...
1367 pango_layout_context_changed (self->pl);
1319 1368
1320MODULE = CFPlus PACKAGE = CFPlus::Texture 1369void
1370draw (DC::Layout self)
1371 CODE:
1372{
1373 glEnable (GL_TEXTURE_2D);
1374 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1375 glEnable (GL_BLEND);
1376 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1377 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1378 glEnable (GL_ALPHA_TEST);
1379 glAlphaFunc (GL_GREATER, 7.f / 255.f);
1380
1381 rc_draw (self->rc);
1382
1383 glDisable (GL_ALPHA_TEST);
1384 glDisable (GL_BLEND);
1385 glDisable (GL_TEXTURE_2D);
1386}
1387
1388MODULE = Deliantra::Client PACKAGE = DC::Texture
1321 1389
1322PROTOTYPES: ENABLE 1390PROTOTYPES: ENABLE
1323
1324int minpot (int n)
1325 1391
1326void 1392void
1327pad (SV *data_, int ow, int oh, int nw, int nh) 1393pad (SV *data_, int ow, int oh, int nw, int nh)
1328 CODE: 1394 CODE:
1329{ 1395{
… …
1406 RETVAL = width > 0; 1472 RETVAL = width > 0;
1407} 1473}
1408 OUTPUT: 1474 OUTPUT:
1409 RETVAL 1475 RETVAL
1410 1476
1411MODULE = CFPlus PACKAGE = CFPlus::Map 1477MODULE = Deliantra::Client PACKAGE = DC::Map
1412 1478
1413PROTOTYPES: DISABLE 1479PROTOTYPES: DISABLE
1414 1480
1415CFPlus::Map 1481DC::Map
1416new (SV *class) 1482new (SV *class)
1417 CODE: 1483 CODE:
1418 New (0, RETVAL, 1, struct map); 1484 New (0, RETVAL, 1, struct map);
1419 RETVAL->x = 0; 1485 RETVAL->x = 0;
1420 RETVAL->y = 0; 1486 RETVAL->y = 0;
… …
1428 RETVAL->row = 0; 1494 RETVAL->row = 0;
1429 OUTPUT: 1495 OUTPUT:
1430 RETVAL 1496 RETVAL
1431 1497
1432void 1498void
1433DESTROY (CFPlus::Map self) 1499DESTROY (DC::Map self)
1434 CODE: 1500 CODE:
1435{ 1501{
1436 map_clear (self); 1502 map_clear (self);
1437 Safefree (self->face2tile); 1503 Safefree (self->face2tile);
1438 Safefree (self->tex); 1504 Safefree (self->tex);
1439 Safefree (self); 1505 Safefree (self);
1440} 1506}
1441 1507
1442void 1508void
1443resize (CFPlus::Map self, int map_width, int map_height) 1509resize (DC::Map self, int map_width, int map_height)
1444 CODE: 1510 CODE:
1445 self->w = map_width; 1511 self->w = map_width;
1446 self->h = map_height; 1512 self->h = map_height;
1447 1513
1448void 1514void
1449clear (CFPlus::Map self) 1515clear (DC::Map self)
1450 CODE: 1516 CODE:
1451 map_clear (self); 1517 map_clear (self);
1452 1518
1453void 1519void
1454set_tileid (CFPlus::Map self, int face, int tile) 1520set_tileid (DC::Map self, int face, int tile)
1455 CODE: 1521 CODE:
1456{ 1522{
1457 need_facenum (self, face); self->face2tile [face] = tile; 1523 need_facenum (self, face); self->face2tile [face] = tile;
1458 need_texid (self, tile); 1524 need_texid (self, tile);
1459} 1525}
1460 1526
1461void 1527void
1462set_smooth (CFPlus::Map self, int face, int smooth, int level) 1528set_smooth (DC::Map self, int face, int smooth, int level)
1463 CODE: 1529 CODE:
1464{ 1530{
1465 tileid texid; 1531 tileid texid;
1466 maptex *tex; 1532 maptex *tex;
1467 1533
… …
1480 tex->smoothtile = self->face2tile [smooth]; 1546 tex->smoothtile = self->face2tile [smooth];
1481 tex->smoothlevel = level; 1547 tex->smoothlevel = level;
1482} 1548}
1483 1549
1484void 1550void
1485set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a) 1551set_texture (DC::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1486 CODE: 1552 CODE:
1487{ 1553{
1488 need_texid (self, texid); 1554 need_texid (self, texid);
1489 1555
1490 { 1556 {
… …
1510 // from transparent color bleeding and ugly wrapping effects. 1576 // from transparent color bleeding and ugly wrapping effects.
1511 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1577 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1512} 1578}
1513 1579
1514int 1580int
1515ox (CFPlus::Map self) 1581ox (DC::Map self)
1516 ALIAS: 1582 ALIAS:
1517 oy = 1 1583 oy = 1
1518 x = 2 1584 x = 2
1519 y = 3 1585 y = 3
1520 w = 4 1586 w = 4
… …
1531 } 1597 }
1532 OUTPUT: 1598 OUTPUT:
1533 RETVAL 1599 RETVAL
1534 1600
1535void 1601void
1536scroll (CFPlus::Map self, int dx, int dy) 1602scroll (DC::Map self, int dx, int dy)
1537 CODE: 1603 CODE:
1538{ 1604{
1539 if (dx > 0) 1605 if (dx > 0)
1540 map_blank (self, self->x, self->y, dx, self->h); 1606 map_blank (self, self->x, self->y, dx, self->h);
1541 else if (dx < 0) 1607 else if (dx < 0)
… …
1557 self->y += MAP_EXTEND_Y; 1623 self->y += MAP_EXTEND_Y;
1558 } 1624 }
1559} 1625}
1560 1626
1561SV * 1627SV *
1562map1a_update (CFPlus::Map self, SV *data_, int extmap) 1628map1a_update (DC::Map self, SV *data_, int extmap)
1563 CODE: 1629 CODE:
1564{ 1630{
1565 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1631 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1566 uint8_t *data_end = (uint8_t *)SvEND (data_); 1632 uint8_t *data_end = (uint8_t *)SvEND (data_);
1567 mapcell *cell; 1633 mapcell *cell;
… …
1656} 1722}
1657 OUTPUT: 1723 OUTPUT:
1658 RETVAL 1724 RETVAL
1659 1725
1660SV * 1726SV *
1661mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 1727mapmap (DC::Map self, int x0, int y0, int w, int h)
1662 CODE: 1728 CODE:
1663{ 1729{
1664 int x1, x; 1730 int x1, x;
1665 int y1, y; 1731 int y1, y;
1666 int z; 1732 int z;
… …
1711} 1777}
1712 OUTPUT: 1778 OUTPUT:
1713 RETVAL 1779 RETVAL
1714 1780
1715void 1781void
1716draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T) 1782draw (DC::Map self, int mx, int my, int sw, int sh, int T)
1717 CODE: 1783 CODE:
1718{ 1784{
1719 int x, y, z; 1785 int x, y, z;
1720 1786
1721 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ()); 1787 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1722 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level 1788 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1723 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k) 1789 static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1724 smooth_key skey; 1790 smooth_key skey;
1725 1791
1726 rc_t *rc = rc_alloc (); 1792 rc_t *rc = rc_alloc ();
1727 rc_key_t key; 1793 rc_key_t key;
1728 rc_array_t *arr; 1794 rc_array_t *arr;
… …
1790 if (tile) 1856 if (tile)
1791 { 1857 {
1792 maptex tex = self->tex [tile]; 1858 maptex tex = self->tex [tile];
1793 int px, py; 1859 int px, py;
1794 1860
1795 // suppressing texture state switches here
1796 // is only moderately effective, but worth the extra effort
1797 if (key.texname != tex.name) 1861 if (key.texname != tex.name)
1798 { 1862 {
1799 if (!tex.name) 1863 if (!tex.name)
1800 tex = self->tex [2]; /* missing, replace by noface */ 1864 tex = self->tex [2]; /* missing, replace by noface */
1801 1865
… …
1876 } 1940 }
1877 } 1941 }
1878 } 1942 }
1879 } 1943 }
1880 1944
1945 rc_draw (rc);
1946 rc_clear (rc);
1947
1881 // go through all smoothlevels, lowest to highest, then draw. 1948 // go through all smoothlevels, lowest to highest, then draw.
1882 // this is basically counting sort 1949 // this is basically counting sort
1883 { 1950 {
1884 int w, b; 1951 int w, b;
1885 1952
1953 glEnable (GL_TEXTURE_2D);
1954 glBegin (GL_QUADS);
1886 for (w = 0; w < 256 / 32; ++w) 1955 for (w = 0; w < 256 / 32; ++w)
1887 { 1956 {
1888 uint32_t smask = smooth_level [w]; 1957 uint32_t smask = smooth_level [w];
1889 if (smask) 1958 if (smask)
1890 for (b = 0; b < 32; ++b) 1959 for (b = 0; b < 32; ++b)
… …
1915 { 1984 {
1916 // this time avoiding texture state changes 1985 // this time avoiding texture state changes
1917 // save gobs of state changes. 1986 // save gobs of state changes.
1918 if (key.texname != tex.name) 1987 if (key.texname != tex.name)
1919 { 1988 {
1989 glEnd ();
1920 key.texname = tex.name; 1990 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1921 arr = rc_array (rc, &key); 1991 glBegin (GL_QUADS);
1922 } 1992 }
1923 1993
1924 if (border) 1994 if (border)
1925 { 1995 {
1926 float ox = border * dx; 1996 float ox = border * dx;
1927 1997
1928 rc_t2f_v3f (arr, ox , 0.f , px , py , 0); 1998 glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
1929 rc_t2f_v3f (arr, ox , dy , px , py + T, 0); 1999 glTexCoord2f (ox , dy ); glVertex2i (px , py + T);
1930 rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0); 2000 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);
1931 rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0); 2001 glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );
1932 } 2002 }
1933 2003
1934 if (corner) 2004 if (corner)
1935 { 2005 {
1936 float ox = corner * dx; 2006 float ox = corner * dx;
1937 2007
1938 rc_t2f_v3f (arr, ox , dy , px , py , 0); 2008 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1939 rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0); 2009 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1940 rc_t2f_v3f (arr, ox + dx, dy * 2.f, px + T, py + T, 0); 2010 glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);
1941 rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0); 2011 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
1942 } 2012 }
1943 } 2013 }
1944 } 2014 }
1945 } 2015 }
1946 } 2016 }
1947 } 2017 }
2018
2019 glEnd ();
2020 glDisable (GL_TEXTURE_2D);
2021 key.texname = -1;
1948 } 2022 }
1949 2023
1950 hv_clear (smooth); 2024 hv_clear (smooth);
1951 rc_draw (rc);
1952 rc_clear (rc);
1953 } 2025 }
1954 2026
1955 glDisable (GL_BLEND); 2027 glDisable (GL_BLEND);
1956 rc_free (rc); 2028 rc_free (rc);
1957 2029
… …
1986 } 2058 }
1987 } 2059 }
1988} 2060}
1989 2061
1990void 2062void
1991draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data) 2063draw_magicmap (DC::Map self, int dx, int dy, int w, int h, unsigned char *data)
1992 CODE: 2064 CODE:
1993{ 2065{
1994 static float color[16][3] = { 2066 static float color[16][3] = {
1995 { 0.00F, 0.00F, 0.00F }, 2067 { 0.00F, 0.00F, 0.00F },
1996 { 1.00F, 1.00F, 1.00F }, 2068 { 1.00F, 1.00F, 1.00F },
… …
2046 glDisable (GL_BLEND); 2118 glDisable (GL_BLEND);
2047 glDisable (GL_TEXTURE_2D); 2119 glDisable (GL_TEXTURE_2D);
2048} 2120}
2049 2121
2050void 2122void
2051fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh) 2123fow_texture (DC::Map self, int mx, int my, int sw, int sh)
2052 PPCODE: 2124 PPCODE:
2053{ 2125{
2054 int x, y; 2126 int x, y;
2055 int sw1 = sw + 2; 2127 int sw1 = sw + 2;
2056 int sh1 = sh + 2; 2128 int sh1 = sh + 2;
… …
2127 PUSHs (sv_2mortal (newSViv (sh3))); 2199 PUSHs (sv_2mortal (newSViv (sh3)));
2128 PUSHs (darkness3_sv); 2200 PUSHs (darkness3_sv);
2129} 2201}
2130 2202
2131SV * 2203SV *
2132get_rect (CFPlus::Map self, int x0, int y0, int w, int h) 2204get_rect (DC::Map self, int x0, int y0, int w, int h)
2133 CODE: 2205 CODE:
2134{ 2206{
2135 int x, y, x1, y1; 2207 int x, y, x1, y1;
2136 SV *data_sv = newSV (w * h * 7 + 5); 2208 SV *data_sv = newSV (w * h * 7 + 5);
2137 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2209 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
2202} 2274}
2203 OUTPUT: 2275 OUTPUT:
2204 RETVAL 2276 RETVAL
2205 2277
2206void 2278void
2207set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data) 2279set_rect (DC::Map self, int x0, int y0, uint8_t *data)
2208 PPCODE: 2280 PPCODE:
2209{ 2281{
2210 int x, y, z; 2282 int x, y, z;
2211 int w, h; 2283 int w, h;
2212 int x1, y1; 2284 int x1, y1;
2213 2285
2214 if (*data++ != 0) 2286 if (*data++ != 0)
2215 return; /* version mismatch */ 2287 XSRETURN_EMPTY; /* version mismatch */
2216 2288
2217 w = *data++ << 8; w |= *data++; 2289 w = *data++ << 8; w |= *data++;
2218 h = *data++ << 8; h |= *data++; 2290 h = *data++ << 8; h |= *data++;
2219 2291
2220 // we need to do this 'cause we don't keep an absolute coord system for rows 2292 // we need to do this 'cause we don't keep an absolute coord system for rows
… …
2265 } 2337 }
2266 } 2338 }
2267 } 2339 }
2268} 2340}
2269 2341
2270MODULE = CFPlus PACKAGE = CFPlus::RW 2342MODULE = Deliantra::Client PACKAGE = DC::RW
2271 2343
2272CFPlus::RW 2344DC::RW
2273new (SV *class, SV *data_sv) 2345new (SV *class, SV *data_sv)
2274 CODE: 2346 CODE:
2275{ 2347{
2276 STRLEN datalen; 2348 STRLEN datalen;
2277 char *data = SvPVbyte (data_sv, datalen); 2349 char *data = SvPVbyte (data_sv, datalen);
… …
2279 RETVAL = SDL_RWFromConstMem (data, datalen); 2351 RETVAL = SDL_RWFromConstMem (data, datalen);
2280} 2352}
2281 OUTPUT: 2353 OUTPUT:
2282 RETVAL 2354 RETVAL
2283 2355
2284CFPlus::RW 2356DC::RW
2285new_from_file (SV *class, const char *path, const char *mode = "rb") 2357new_from_file (SV *class, const char *path, const char *mode = "rb")
2286 CODE: 2358 CODE:
2287 RETVAL = SDL_RWFromFile (path, mode); 2359 RETVAL = SDL_RWFromFile (path, mode);
2288 OUTPUT: 2360 OUTPUT:
2289 RETVAL 2361 RETVAL
2290 2362
2291# fails on win32: 2363# fails on win32:
2292# CFPlus.xs(2268) : error C2059: syntax error : '(' 2364# dc.xs(2268) : error C2059: syntax error : '('
2293#void 2365#void
2294#close (CFPlus::RW self) 2366#close (DC::RW self)
2295# CODE: 2367# CODE:
2296# (self->(close)) (self); 2368# (self->(close)) (self);
2297 2369
2298MODULE = CFPlus PACKAGE = CFPlus::Channel 2370MODULE = Deliantra::Client PACKAGE = DC::Channel
2299 2371
2300PROTOTYPES: DISABLE 2372PROTOTYPES: DISABLE
2301 2373
2302CFPlus::Channel 2374DC::Channel
2303find () 2375find ()
2304 CODE: 2376 CODE:
2305{ 2377{
2306 RETVAL = Mix_GroupAvailable (-1); 2378 RETVAL = Mix_GroupAvailable (-1);
2307 2379
… …
2320} 2392}
2321 OUTPUT: 2393 OUTPUT:
2322 RETVAL 2394 RETVAL
2323 2395
2324void 2396void
2325halt (CFPlus::Channel self) 2397halt (DC::Channel self)
2326 CODE: 2398 CODE:
2327 Mix_HaltChannel (self); 2399 Mix_HaltChannel (self);
2328 2400
2329void 2401void
2330expire (CFPlus::Channel self, int ticks = -1) 2402expire (DC::Channel self, int ticks = -1)
2331 CODE: 2403 CODE:
2332 Mix_ExpireChannel (self, ticks); 2404 Mix_ExpireChannel (self, ticks);
2333 2405
2334void 2406void
2335fade_out (CFPlus::Channel self, int ticks = -1) 2407fade_out (DC::Channel self, int ticks = -1)
2336 CODE: 2408 CODE:
2337 Mix_FadeOutChannel (self, ticks); 2409 Mix_FadeOutChannel (self, ticks);
2338 2410
2339int 2411int
2340volume (CFPlus::Channel self, int volume) 2412volume (DC::Channel self, int volume)
2341 CODE: 2413 CODE:
2342 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128)); 2414 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2343 OUTPUT: 2415 OUTPUT:
2344 RETVAL 2416 RETVAL
2345 2417
2346void 2418void
2347unregister_all_effects (CFPlus::Channel self) 2419unregister_all_effects (DC::Channel self)
2348 CODE: 2420 CODE:
2349 Mix_UnregisterAllEffects (self); 2421 Mix_UnregisterAllEffects (self);
2350 2422
2351void 2423void
2352set_panning (CFPlus::Channel self, int left, int right) 2424set_panning (DC::Channel self, int left, int right)
2353 CODE: 2425 CODE:
2354 left = CLAMP (left , 0, 255); 2426 left = CLAMP (left , 0, 255);
2355 right = CLAMP (right, 0, 255); 2427 right = CLAMP (right, 0, 255);
2356 Mix_SetPanning (self, left, right); 2428 Mix_SetPanning (self, left, right);
2357 2429
2358void 2430void
2359set_distance (CFPlus::Channel self, int distance) 2431set_distance (DC::Channel self, int distance)
2360 CODE: 2432 CODE:
2361 Mix_SetDistance (self, CLAMP (distance, 0, 255)); 2433 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2362 2434
2363void 2435void
2364set_position (CFPlus::Channel self, int angle, int distance) 2436set_position (DC::Channel self, int angle, int distance)
2365 CODE: 2437 CODE:
2366 2438
2367void 2439void
2368set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance) 2440set_position_r (DC::Channel self, int dx, int dy, int maxdistance)
2369 CODE: 2441 CODE:
2370{ 2442{
2371 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance)); 2443 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2372 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI); 2444 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2373 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255)); 2445 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2374} 2446}
2375 2447
2376void 2448void
2377set_reverse_stereo (CFPlus::Channel self, int flip) 2449set_reverse_stereo (DC::Channel self, int flip)
2378 CODE: 2450 CODE:
2379 Mix_SetReverseStereo (self, flip); 2451 Mix_SetReverseStereo (self, flip);
2380 2452
2381MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2453MODULE = Deliantra::Client PACKAGE = DC::MixChunk
2382 2454
2383PROTOTYPES: DISABLE 2455PROTOTYPES: DISABLE
2384 2456
2385CFPlus::MixChunk 2457DC::MixChunk
2386new (SV *class, CFPlus::RW rwops) 2458new (SV *class, DC::RW rwops)
2387 CODE: 2459 CODE:
2388 RETVAL = Mix_LoadWAV_RW (rwops, 1); 2460 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2389 OUTPUT: 2461 OUTPUT:
2390 RETVAL 2462 RETVAL
2391 2463
2392void 2464void
2393DESTROY (CFPlus::MixChunk self) 2465DESTROY (DC::MixChunk self)
2394 CODE: 2466 CODE:
2395 Mix_FreeChunk (self); 2467 Mix_FreeChunk (self);
2396 2468
2397int 2469int
2398volume (CFPlus::MixChunk self, int volume = -1) 2470volume (DC::MixChunk self, int volume = -1)
2399 CODE: 2471 CODE:
2400 if (items > 1) 2472 if (items > 1)
2401 volume = CLAMP (volume, 0, 128); 2473 volume = CLAMP (volume, 0, 128);
2402 RETVAL = Mix_VolumeChunk (self, volume); 2474 RETVAL = Mix_VolumeChunk (self, volume);
2403 OUTPUT: 2475 OUTPUT:
2404 RETVAL 2476 RETVAL
2405 2477
2406CFPlus::Channel 2478DC::Channel
2407play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1) 2479play (DC::MixChunk self, DC::Channel channel = -1, int loops = 0, int ticks = -1)
2408 CODE: 2480 CODE:
2409{ 2481{
2410 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2482 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2411 2483
2412 if (RETVAL < 0) 2484 if (RETVAL < 0)
… …
2419 } 2491 }
2420} 2492}
2421 OUTPUT: 2493 OUTPUT:
2422 RETVAL 2494 RETVAL
2423 2495
2424MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2496MODULE = Deliantra::Client PACKAGE = DC::MixMusic
2425 2497
2426int 2498int
2427volume (int volume = -1) 2499volume (int volume = -1)
2428 PROTOTYPE: ;$ 2500 PROTOTYPE: ;$
2429 CODE: 2501 CODE:
… …
2441void 2513void
2442halt () 2514halt ()
2443 CODE: 2515 CODE:
2444 Mix_HaltMusic (); 2516 Mix_HaltMusic ();
2445 2517
2446CFPlus::MixMusic 2518DC::MixMusic
2447new (SV *class, CFPlus::RW rwops) 2519new (SV *class, DC::RW rwops)
2448 CODE: 2520 CODE:
2449 RETVAL = Mix_LoadMUS_RW (rwops); 2521 RETVAL = Mix_LoadMUS_RW (rwops);
2450 OUTPUT: 2522 OUTPUT:
2451 RETVAL 2523 RETVAL
2452 2524
2453void 2525void
2454DESTROY (CFPlus::MixMusic self) 2526DESTROY (DC::MixMusic self)
2455 CODE: 2527 CODE:
2456 Mix_FreeMusic (self); 2528 Mix_FreeMusic (self);
2457 2529
2458int 2530int
2459play (CFPlus::MixMusic self, int loops = -1) 2531play (DC::MixMusic self, int loops = -1)
2460 CODE: 2532 CODE:
2461 RETVAL = Mix_PlayMusic (self, loops); 2533 RETVAL = Mix_PlayMusic (self, loops);
2462 OUTPUT: 2534 OUTPUT:
2463 RETVAL 2535 RETVAL
2464 2536
2465void 2537void
2466fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) 2538fade_in_pos (DC::MixMusic self, int loops, int ms, double position)
2467 CODE: 2539 CODE:
2468 Mix_FadeInMusicPos (self, loops, ms, position); 2540 Mix_FadeInMusicPos (self, loops, ms, position);
2469 2541
2470MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2542MODULE = Deliantra::Client PACKAGE = DC::OpenGL
2471 2543
2472PROTOTYPES: ENABLE 2544PROTOTYPES: ENABLE
2473 2545
2474BOOT: 2546BOOT:
2475{ 2547{
2476 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1); 2548 HV *stash = gv_stashpv ("DC::OpenGL", 1);
2477 static const struct { 2549 static const struct {
2478 const char *name; 2550 const char *name;
2479 IV iv; 2551 IV iv;
2480 } *civ, const_iv[] = { 2552 } *civ, const_iv[] = {
2481# define const_iv(name) { # name, (IV)name } 2553# define const_iv(name) { # name, (IV)name }
… …
2516 const_iv (GL_INTENSITY), 2588 const_iv (GL_INTENSITY),
2517 const_iv (GL_LUMINANCE), 2589 const_iv (GL_LUMINANCE),
2518 const_iv (GL_LUMINANCE_ALPHA), 2590 const_iv (GL_LUMINANCE_ALPHA),
2519 const_iv (GL_FLOAT), 2591 const_iv (GL_FLOAT),
2520 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2592 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
2593 const_iv (GL_COMPRESSED_ALPHA_ARB),
2594 const_iv (GL_COMPRESSED_LUMINANCE_ARB),
2595 const_iv (GL_COMPRESSED_LUMINANCE_ALPHA_ARB),
2596 const_iv (GL_COMPRESSED_INTENSITY_ARB),
2597 const_iv (GL_COMPRESSED_RGB_ARB),
2598 const_iv (GL_COMPRESSED_RGBA_ARB),
2521 const_iv (GL_COMPILE), 2599 const_iv (GL_COMPILE),
2522 const_iv (GL_PROXY_TEXTURE_1D), 2600 const_iv (GL_PROXY_TEXTURE_1D),
2523 const_iv (GL_PROXY_TEXTURE_2D), 2601 const_iv (GL_PROXY_TEXTURE_2D),
2524 const_iv (GL_TEXTURE_1D), 2602 const_iv (GL_TEXTURE_1D),
2525 const_iv (GL_TEXTURE_2D), 2603 const_iv (GL_TEXTURE_2D),
… …
2564 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2642 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2565 const_iv (GL_POINT_SMOOTH_HINT), 2643 const_iv (GL_POINT_SMOOTH_HINT),
2566 const_iv (GL_LINE_SMOOTH_HINT), 2644 const_iv (GL_LINE_SMOOTH_HINT),
2567 const_iv (GL_POLYGON_SMOOTH_HINT), 2645 const_iv (GL_POLYGON_SMOOTH_HINT),
2568 const_iv (GL_GENERATE_MIPMAP_HINT), 2646 const_iv (GL_GENERATE_MIPMAP_HINT),
2647 const_iv (GL_TEXTURE_COMPRESSION_HINT),
2569 const_iv (GL_FASTEST), 2648 const_iv (GL_FASTEST),
2570 const_iv (GL_DONT_CARE), 2649 const_iv (GL_DONT_CARE),
2571 const_iv (GL_NICEST), 2650 const_iv (GL_NICEST),
2572 const_iv (GL_V2F), 2651 const_iv (GL_V2F),
2573 const_iv (GL_V3F), 2652 const_iv (GL_V3F),
… …
2581 2660
2582 texture_av = newAV (); 2661 texture_av = newAV ();
2583 AvREAL_off (texture_av); 2662 AvREAL_off (texture_av);
2584} 2663}
2585 2664
2665void
2666disable_GL_EXT_blend_func_separate ()
2667 CODE:
2668 gl.BlendFuncSeparate = 0;
2669 gl.BlendFuncSeparateEXT = 0;
2670
2586char * 2671char *
2587gl_vendor () 2672gl_vendor ()
2588 CODE: 2673 CODE:
2589 RETVAL = (char *)glGetString (GL_VENDOR); 2674 RETVAL = (char *)glGetString (GL_VENDOR);
2590 OUTPUT: 2675 OUTPUT:
… …
2711 2796
2712void glRect (float x1, float y1, float x2, float y2) 2797void glRect (float x1, float y1, float x2, float y2)
2713 CODE: 2798 CODE:
2714 glRectf (x1, y1, x2, y2); 2799 glRectf (x1, y1, x2, y2);
2715 2800
2801void glRect_lineloop (float x1, float y1, float x2, float y2)
2802 CODE:
2803 glBegin (GL_LINE_LOOP);
2804 glVertex2f (x1, y1);
2805 glVertex2f (x2, y1);
2806 glVertex2f (x2, y2);
2807 glVertex2f (x1, y2);
2808 glEnd ();
2809
2716PROTOTYPES: ENABLE 2810PROTOTYPES: ENABLE
2717 2811
2718void glBegin (int mode) 2812void glBegin (int mode)
2719 2813
2720void glEnd () 2814void glEnd ()
… …
2788 2882
2789void glEndList () 2883void glEndList ()
2790 2884
2791void glCallList (int list) 2885void glCallList (int list)
2792 2886
2793MODULE = CFPlus PACKAGE = CFPlus::UI::Base 2887MODULE = Deliantra::Client PACKAGE = DC::UI::Base
2794 2888
2795PROTOTYPES: DISABLE 2889PROTOTYPES: DISABLE
2796 2890
2797void 2891void
2798find_widget (SV *self, NV x, NV y) 2892find_widget (SV *self, NV x, NV y)
… …
2802 XPUSHs (self); 2896 XPUSHs (self);
2803} 2897}
2804 2898
2805BOOT: 2899BOOT:
2806{ 2900{
2807 hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV); 2901 hover_gv = gv_fetchpv ("DC::UI::HOVER", 1, SVt_NV);
2808 2902
2809 draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV); 2903 draw_x_gv = gv_fetchpv ("DC::UI::Base::draw_x", 1, SVt_NV);
2810 draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV); 2904 draw_y_gv = gv_fetchpv ("DC::UI::Base::draw_y", 1, SVt_NV);
2811 draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV); 2905 draw_w_gv = gv_fetchpv ("DC::UI::Base::draw_w", 1, SVt_NV);
2812 draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV); 2906 draw_h_gv = gv_fetchpv ("DC::UI::Base::draw_h", 1, SVt_NV);
2813} 2907}
2814 2908
2815void 2909void
2816draw (SV *self) 2910draw (SV *self)
2817 CODE: 2911 CODE:
… …
2821 NV x, y, w, h; 2915 NV x, y, w, h;
2822 SV *draw_x_sv = GvSV (draw_x_gv); 2916 SV *draw_x_sv = GvSV (draw_x_gv);
2823 SV *draw_y_sv = GvSV (draw_y_gv); 2917 SV *draw_y_sv = GvSV (draw_y_gv);
2824 SV *draw_w_sv = GvSV (draw_w_gv); 2918 SV *draw_w_sv = GvSV (draw_w_gv);
2825 SV *draw_h_sv = GvSV (draw_h_gv); 2919 SV *draw_h_sv = GvSV (draw_h_gv);
2826 SV *hover;
2827 double draw_x, draw_y, draw_w, draw_h; 2920 double draw_x, draw_y;
2828 2921
2829 if (!SvROK (self)) 2922 if (!SvROK (self))
2830 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self)); 2923 croak ("DC::Base::draw: %s not a reference", SvPV_nolen (self));
2831 2924
2832 hv = (HV *)SvRV (self); 2925 hv = (HV *)SvRV (self);
2833 2926
2834 if (SvTYPE (hv) != SVt_PVHV) 2927 if (SvTYPE (hv) != SVt_PVHV)
2835 croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self)); 2928 croak ("DC::Base::draw: %s not a hashref", SvPV_nolen (self));
2836 2929
2837 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.; 2930 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2838 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.; 2931 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2839 2932
2840 if (!h || !w) 2933 if (!h || !w)
… …
2860 { 2953 {
2861 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0); 2954 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2862 2955
2863 if (svp && SvTRUE (*svp)) 2956 if (svp && SvTRUE (*svp))
2864 { 2957 {
2865 glColor4f (1*0.2f, 0.8*0.2f, 0.5*0.2f, 0.2f); 2958 glColor4f (1.0f * 0.2f, 0.8f * 0.2f, 0.5f * 0.2f, 0.2f);
2866 glEnable (GL_BLEND); 2959 glEnable (GL_BLEND);
2867 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 2960 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2868 glBegin (GL_QUADS); 2961 glBegin (GL_QUADS);
2869 glVertex2f (0, 0); 2962 glVertex2f (0, 0);
2870 glVertex2f (w, 0); 2963 glVertex2f (w, 0);
… …
2873 glEnd (); 2966 glEnd ();
2874 glDisable (GL_BLEND); 2967 glDisable (GL_BLEND);
2875 } 2968 }
2876 } 2969 }
2877#if 0 2970#if 0
2878 if ($ENV{CFPLUS_DEBUG} & 1) { 2971 // draw borders, for debugging
2879 glPushMatrix; 2972 glPushMatrix ();
2880 glColor 1, 1, 0, 1; 2973 glColor4f (1., 1., 0., 1.);
2881 glTranslate 0.375, 0.375; 2974 glTranslatef (.5, .5, 0.);
2882 glBegin GL_LINE_LOOP; 2975 glBegin (GL_LINE_LOOP);
2883 glVertex 0 , 0; 2976 glVertex2f (0 , 0);
2884 glVertex $self->{w} - 1, 0; 2977 glVertex2f (w - 1, 0);
2885 glVertex $self->{w} - 1, $self->{h} - 1; 2978 glVertex2f (w - 1, h - 1);
2886 glVertex 0 , $self->{h} - 1; 2979 glVertex2f (0 , h - 1);
2887 glEnd; 2980 glEnd ();
2888 glPopMatrix; 2981 glPopMatrix ();
2889 #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2890 }
2891#endif 2982#endif
2892 PUSHMARK (SP); 2983 PUSHMARK (SP);
2893 XPUSHs (self); 2984 XPUSHs (self);
2894 PUTBACK; 2985 PUTBACK;
2895 call_method ("_draw", G_VOID | G_DISCARD); 2986 call_method ("_draw", G_VOID | G_DISCARD);

Diff Legend

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