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.225 by root, Sat Aug 11 12:07:54 2007 UTC vs.
Revision 1.241 by root, Wed Dec 26 20:46:39 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 rc_t *rc;
156} *CFPlus__Layout; 156} *dc__Layout;
157 157
158static CFPlus__Font default_font; 158static dc__Font default_font;
159static PangoContext *opengl_context; 159static PangoContext *opengl_context;
160static PangoFontMap *opengl_fontmap; 160static PangoFontMap *opengl_fontmap;
161 161
162static void 162static void
163substitute_func (FcPattern *pattern, gpointer data) 163substitute_func (FcPattern *pattern, gpointer data)
… …
168#endif 168#endif
169 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 169 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
170} 170}
171 171
172static void 172static void
173layout_update_font (CFPlus__Layout self) 173layout_update_font (dc__Layout self)
174{ 174{
175 /* 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
176 * reasonably well with bitstream vera 176 * reasonably well with bitstream vera
177 */ 177 */
178 PangoFontDescription *font = self->font ? self->font : default_font; 178 PangoFontDescription *font = self->font ? self->font : default_font;
… …
182 182
183 pango_layout_set_font_description (self->pl, font); 183 pango_layout_set_font_description (self->pl, font);
184} 184}
185 185
186static void 186static void
187layout_get_pixel_size (CFPlus__Layout self, int *w, int *h) 187layout_get_pixel_size (dc__Layout self, int *w, int *h)
188{ 188{
189 PangoRectangle rect; 189 PangoRectangle rect;
190 190
191 // get_pixel_* wrongly rounds down 191 // get_pixel_* wrongly rounds down
192 pango_layout_get_extents (self->pl, 0, &rect); 192 pango_layout_get_extents (self->pl, 0, &rect);
… …
203 203
204typedef uint16_t tileid; 204typedef uint16_t tileid;
205typedef uint16_t faceid; 205typedef uint16_t faceid;
206 206
207typedef struct { 207typedef struct {
208 int name; 208 GLuint name;
209 int w, h; 209 int w, h;
210 float s, t; 210 float s, t;
211 uint8_t r, g, b, a; 211 uint8_t r, g, b, a;
212 tileid smoothtile; 212 tileid smoothtile;
213 uint8_t smoothlevel; 213 uint8_t smoothlevel;
… …
231 int faces; tileid *face2tile; // [faceid] 231 int faces; tileid *face2tile; // [faceid]
232 int texs; maptex *tex; // [tileid] 232 int texs; maptex *tex; // [tileid]
233 233
234 int32_t rows; 234 int32_t rows;
235 maprow *row; 235 maprow *row;
236} *CFPlus__Map; 236} *dc__Map;
237 237
238static char * 238static char *
239prepend (char *ptr, int sze, int inc) 239prepend (char *ptr, int sze, int inc)
240{ 240{
241 char *p; 241 char *p;
… …
279 self->texs *= 2; 279 self->texs *= 2;
280 } 280 }
281} 281}
282 282
283static maprow * 283static maprow *
284map_get_row (CFPlus__Map self, int y) 284map_get_row (dc__Map self, int y)
285{ 285{
286 if (0 > y) 286 if (0 > y)
287 { 287 {
288 int extend = - y + MAP_EXTEND_Y; 288 int extend = - y + MAP_EXTEND_Y;
289 Prepend (maprow, self->row, self->rows, extend); 289 Prepend (maprow, self->row, self->rows, extend);
… …
327 327
328 return row->col + (x - row->c0); 328 return row->col + (x - row->c0);
329} 329}
330 330
331static mapcell * 331static mapcell *
332map_get_cell (CFPlus__Map self, int x, int y) 332map_get_cell (dc__Map self, int x, int y)
333{ 333{
334 return row_get_cell (map_get_row (self, y), x); 334 return row_get_cell (map_get_row (self, y), x);
335} 335}
336 336
337static void 337static void
338map_clear (CFPlus__Map self) 338map_clear (dc__Map self)
339{ 339{
340 int r; 340 int r;
341 341
342 for (r = 0; r < self->rows; r++) 342 for (r = 0; r < self->rows; r++)
343 Safefree (self->row[r].col); 343 Safefree (self->row[r].col);
… …
351 self->row = 0; 351 self->row = 0;
352 self->rows = 0; 352 self->rows = 0;
353} 353}
354 354
355static void 355static void
356map_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)
357{ 357{
358 int x, y; 358 int x, y;
359 maprow *row; 359 maprow *row;
360 mapcell *cell; 360 mapcell *cell;
361 361
… …
440 n |= n >> 16; 440 n |= n >> 16;
441 441
442 return n + 1; 442 return n + 1;
443} 443}
444 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
445/* SDL should provide this, really. */ 456/* SDL should provide this, really. */
446#define SDLK_MODIFIER_MIN 300 457#define SDLK_MODIFIER_MIN 300
447#define SDLK_MODIFIER_MAX 314 458#define SDLK_MODIFIER_MAX 314
448 459
449/******************************************************************************/ 460/******************************************************************************/
… …
487 return 0; 498 return 0;
488 499
489 return 1; 500 return 1;
490} 501}
491 502
492MODULE = CFPlus PACKAGE = CFPlus 503MODULE = Deliantra::Client PACKAGE = dc
493 504
494PROTOTYPES: ENABLE 505PROTOTYPES: ENABLE
495 506
496BOOT: 507BOOT:
497{ 508{
498 HV *stash = gv_stashpv ("CFPlus", 1); 509 HV *stash = gv_stashpv ("dc", 1);
499 static const struct { 510 static const struct {
500 const char *name; 511 const char *name;
501 IV iv; 512 IV iv;
502 } *civ, const_iv[] = { 513 } *civ, const_iv[] = {
503# define const_iv(name) { # name, (IV)name } 514# define const_iv(name) { # name, (IV)name }
… …
525 536
526 const_iv (SDL_APPINPUTFOCUS), 537 const_iv (SDL_APPINPUTFOCUS),
527 const_iv (SDL_APPMOUSEFOCUS), 538 const_iv (SDL_APPMOUSEFOCUS),
528 const_iv (SDL_APPACTIVE), 539 const_iv (SDL_APPACTIVE),
529 540
541 const_iv (SDLK_FIRST),
542 const_iv (SDLK_LAST),
530 const_iv (SDLK_KP0), 543 const_iv (SDLK_KP0),
531 const_iv (SDLK_KP1), 544 const_iv (SDLK_KP1),
532 const_iv (SDLK_KP2), 545 const_iv (SDLK_KP2),
533 const_iv (SDLK_KP3), 546 const_iv (SDLK_KP3),
534 const_iv (SDLK_KP4), 547 const_iv (SDLK_KP4),
… …
606 const_iv (KMOD_LMETA), 619 const_iv (KMOD_LMETA),
607 const_iv (KMOD_RMETA), 620 const_iv (KMOD_RMETA),
608 const_iv (KMOD_NUM), 621 const_iv (KMOD_NUM),
609 const_iv (KMOD_CAPS), 622 const_iv (KMOD_CAPS),
610 const_iv (KMOD_MODE), 623 const_iv (KMOD_MODE),
624
625 const_iv (MIX_DEFAULT_FORMAT),
611# undef const_iv 626# undef const_iv
612 }; 627 };
613 628
614 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; )
615 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 630 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
… …
632 RETVAL 647 RETVAL
633 648
634NV floor (NV x) 649NV floor (NV x)
635 650
636NV ceil (NV x) 651NV ceil (NV x)
652
653IV minpot (UV n)
654
655IV popcount (UV n)
637 656
638void 657void
639pango_init () 658pango_init ()
640 CODE: 659 CODE:
641{ 660{
… …
681 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 700 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
682 701
683 if (m && m != (SDL_Rect **)-1) 702 if (m && m != (SDL_Rect **)-1)
684 while (*m) 703 while (*m)
685 { 704 {
686 if ((*m)->w >= 640 && (*m)->h >= 480) 705 if ((*m)->w >= 800 && (*m)->h >= 600)
687 { 706 {
688 AV *av = newAV (); 707 AV *av = newAV ();
689 av_push (av, newSViv ((*m)->w)); 708 av_push (av, newSViv ((*m)->w));
690 av_push (av, newSViv ((*m)->h)); 709 av_push (av, newSViv ((*m)->h));
691 av_push (av, newSViv (rgb)); 710 av_push (av, newSViv (rgb));
… …
715 734
716 if (RETVAL) 735 if (RETVAL)
717 { 736 {
718 av_clear (texture_av); 737 av_clear (texture_av);
719 738
720 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 739 SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
721#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);
722#include "glfunc.h" 741#include "glfunc.h"
723#undef GL_FUNC 742#undef GL_FUNC
724 } 743 }
725} 744}
… …
806 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 825 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
807 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 826 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
808 break; 827 break;
809 } 828 }
810 829
811 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))));
812 } 831 }
813} 832}
814 833
815int 834int
816Mix_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)
817 POSTCALL: 836 POSTCALL:
818 Mix_HookMusicFinished (music_finished); 837 Mix_HookMusicFinished (music_finished);
819 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}
820 855
821void 856void
822Mix_CloseAudio () 857Mix_CloseAudio ()
823 858
824int 859int
… …
958void 993void
959error (char *message) 994error (char *message)
960 CODE: 995 CODE:
961 fprintf (stderr, "ERROR: %s\n", message); 996 fprintf (stderr, "ERROR: %s\n", message);
962#ifdef _WIN32 997#ifdef _WIN32
963 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR); 998 MessageBox (0, message, "Deliantra Client Error", MB_OK | MB_ICONERROR);
964#endif 999#endif
965 1000
966void 1001void
967fatal (char *message) 1002fatal (char *message)
968 CODE: 1003 CODE:
969 fprintf (stderr, "FATAL: %s\n", message); 1004 fprintf (stderr, "FATAL: %s\n", message);
970#ifdef _WIN32 1005#ifdef _WIN32
971 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 1006 MessageBox (0, message, "Deliantra Client Fatal Error", MB_OK | MB_ICONERROR);
972#endif 1007#endif
973 _exit (1); 1008 _exit (1);
974 1009
975void 1010void
976_exit (int retval = 0) 1011_exit (int retval = 0)
… …
988#if DEBUG 1023#if DEBUG
989 VALGRIND_DO_LEAK_CHECK; 1024 VALGRIND_DO_LEAK_CHECK;
990#endif 1025#endif
991} 1026}
992 1027
993MODULE = CFPlus PACKAGE = CFPlus::Font 1028MODULE = Deliantra::Client PACKAGE = dc::Font
994 1029
995PROTOTYPES: DISABLE 1030PROTOTYPES: DISABLE
996 1031
997CFPlus::Font 1032dc::Font
998new_from_file (SV *class, char *path, int id = 0) 1033new_from_file (SV *class, char *path, int id = 0)
999 CODE: 1034 CODE:
1000{ 1035{
1001 int count; 1036 int count;
1002 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1037 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
… …
1005} 1040}
1006 OUTPUT: 1041 OUTPUT:
1007 RETVAL 1042 RETVAL
1008 1043
1009void 1044void
1010DESTROY (CFPlus::Font self) 1045DESTROY (dc::Font self)
1011 CODE: 1046 CODE:
1012 pango_font_description_free (self); 1047 pango_font_description_free (self);
1013 1048
1014void 1049void
1015make_default (CFPlus::Font self) 1050make_default (dc::Font self)
1016 PROTOTYPE: $ 1051 PROTOTYPE: $
1017 CODE: 1052 CODE:
1018 default_font = self; 1053 default_font = self;
1019 1054
1020MODULE = CFPlus PACKAGE = CFPlus::Layout 1055MODULE = Deliantra::Client PACKAGE = dc::Layout
1021 1056
1022PROTOTYPES: DISABLE 1057PROTOTYPES: DISABLE
1023 1058
1024void 1059void
1025reset_glyph_cache () 1060glyph_cache_backup ()
1026 PROTOTYPE: 1061 PROTOTYPE:
1027 CODE: 1062 CODE:
1063 tc_backup ();
1064
1065void
1066glyph_cache_restore ()
1067 PROTOTYPE:
1068 CODE:
1028 tc_clear (); 1069 tc_restore ();
1029 1070
1030CFPlus::Layout 1071dc::Layout
1031new (SV *class) 1072new (SV *class)
1032 CODE: 1073 CODE:
1033 New (0, RETVAL, 1, struct cf_layout); 1074 New (0, RETVAL, 1, struct cf_layout);
1034 1075
1035 RETVAL->pl = pango_layout_new (opengl_context); 1076 RETVAL->pl = pango_layout_new (opengl_context);
… …
1045 layout_update_font (RETVAL); 1086 layout_update_font (RETVAL);
1046 OUTPUT: 1087 OUTPUT:
1047 RETVAL 1088 RETVAL
1048 1089
1049void 1090void
1050DESTROY (CFPlus::Layout self) 1091DESTROY (dc::Layout self)
1051 CODE: 1092 CODE:
1052 g_object_unref (self->pl); 1093 g_object_unref (self->pl);
1053 rc_free (self->rc); 1094 rc_free (self->rc);
1054 Safefree (self); 1095 Safefree (self);
1055 1096
1056void 1097void
1057set_text (CFPlus::Layout self, SV *text_) 1098set_text (dc::Layout self, SV *text_)
1058 CODE: 1099 CODE:
1059{ 1100{
1060 STRLEN textlen; 1101 STRLEN textlen;
1061 char *text = SvPVutf8 (text_, textlen); 1102 char *text = SvPVutf8 (text_, textlen);
1062 1103
1063 pango_layout_set_text (self->pl, text, textlen); 1104 pango_layout_set_text (self->pl, text, textlen);
1064} 1105}
1065 1106
1066void 1107void
1067set_markup (CFPlus::Layout self, SV *text_) 1108set_markup (dc::Layout self, SV *text_)
1068 CODE: 1109 CODE:
1069{ 1110{
1070 STRLEN textlen; 1111 STRLEN textlen;
1071 char *text = SvPVutf8 (text_, textlen); 1112 char *text = SvPVutf8 (text_, textlen);
1072 1113
1073 pango_layout_set_markup (self->pl, text, textlen); 1114 pango_layout_set_markup (self->pl, text, textlen);
1074} 1115}
1075 1116
1076void 1117void
1077set_shapes (CFPlus::Layout self, ...) 1118set_shapes (dc::Layout self, ...)
1078 CODE: 1119 CODE:
1079{ 1120{
1080 PangoAttrList *attrs = 0; 1121 PangoAttrList *attrs = 0;
1081 const char *text = pango_layout_get_text (self->pl); 1122 const char *text = pango_layout_get_text (self->pl);
1082 const char *pos = text; 1123 const char *pos = text;
… …
1117 if (attrs) 1158 if (attrs)
1118 pango_layout_set_attributes (self->pl, attrs); 1159 pango_layout_set_attributes (self->pl, attrs);
1119} 1160}
1120 1161
1121void 1162void
1122get_shapes (CFPlus::Layout self) 1163get_shapes (dc::Layout self)
1123 PPCODE: 1164 PPCODE:
1124{ 1165{
1125 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1166 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1126 1167
1127 do 1168 do
… …
1142 1183
1143 pango_layout_iter_free (iter); 1184 pango_layout_iter_free (iter);
1144} 1185}
1145 1186
1146int 1187int
1147has_wrapped (CFPlus::Layout self) 1188has_wrapped (dc::Layout self)
1148 CODE: 1189 CODE:
1149{ 1190{
1150 int lines = 1; 1191 int lines = 1;
1151 const char *text = pango_layout_get_text (self->pl); 1192 const char *text = pango_layout_get_text (self->pl);
1152 1193
… …
1157} 1198}
1158 OUTPUT: 1199 OUTPUT:
1159 RETVAL 1200 RETVAL
1160 1201
1161SV * 1202SV *
1162get_text (CFPlus::Layout self) 1203get_text (dc::Layout self)
1163 CODE: 1204 CODE:
1164 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1205 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
1165 sv_utf8_decode (RETVAL); 1206 sv_utf8_decode (RETVAL);
1166 OUTPUT: 1207 OUTPUT:
1167 RETVAL 1208 RETVAL
1168 1209
1169void 1210void
1170set_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.)
1171 CODE: 1212 CODE:
1172 self->r = r; 1213 self->r = r;
1173 self->g = g; 1214 self->g = g;
1174 self->b = b; 1215 self->b = b;
1175 self->a = a; 1216 self->a = a;
1176 1217
1177void 1218void
1178set_font (CFPlus::Layout self, CFPlus::Font font = 0) 1219set_font (dc::Layout self, dc::Font font = 0)
1179 CODE: 1220 CODE:
1180 if (self->font != font) 1221 if (self->font != font)
1181 { 1222 {
1182 self->font = font; 1223 self->font = font;
1183 layout_update_font (self); 1224 layout_update_font (self);
1184 } 1225 }
1185 1226
1186void 1227void
1187set_height (CFPlus::Layout self, int base_height) 1228set_height (dc::Layout self, int base_height)
1188 CODE: 1229 CODE:
1189 if (self->base_height != base_height) 1230 if (self->base_height != base_height)
1190 { 1231 {
1191 self->base_height = base_height; 1232 self->base_height = base_height;
1192 layout_update_font (self); 1233 layout_update_font (self);
1193 } 1234 }
1194 1235
1195void 1236void
1196set_width (CFPlus::Layout self, int max_width = -1) 1237set_width (dc::Layout self, int max_width = -1)
1197 CODE: 1238 CODE:
1198 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);
1199 1240
1200void 1241void
1201set_indent (CFPlus::Layout self, int indent) 1242set_indent (dc::Layout self, int indent)
1202 CODE: 1243 CODE:
1203 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1244 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
1204 1245
1205void 1246void
1206set_spacing (CFPlus::Layout self, int spacing) 1247set_spacing (dc::Layout self, int spacing)
1207 CODE: 1248 CODE:
1208 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1249 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
1209 1250
1210void 1251void
1211set_ellipsise (CFPlus::Layout self, int ellipsise) 1252set_ellipsise (dc::Layout self, int ellipsise)
1212 CODE: 1253 CODE:
1213 pango_layout_set_ellipsize (self->pl, 1254 pango_layout_set_ellipsize (self->pl,
1214 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1255 ellipsise == 1 ? PANGO_ELLIPSIZE_START
1215 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1256 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
1216 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1257 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
1217 : PANGO_ELLIPSIZE_NONE 1258 : PANGO_ELLIPSIZE_NONE
1218 ); 1259 );
1219 1260
1220void 1261void
1221set_single_paragraph_mode (CFPlus::Layout self, int spm) 1262set_single_paragraph_mode (dc::Layout self, int spm)
1222 CODE: 1263 CODE:
1223 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1264 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
1224 1265
1225void 1266void
1226size (CFPlus::Layout self) 1267size (dc::Layout self)
1227 PPCODE: 1268 PPCODE:
1228{ 1269{
1229 int w, h; 1270 int w, h;
1230 1271
1231 layout_get_pixel_size (self, &w, &h); 1272 layout_get_pixel_size (self, &w, &h);
… …
1234 PUSHs (sv_2mortal (newSViv (w))); 1275 PUSHs (sv_2mortal (newSViv (w)));
1235 PUSHs (sv_2mortal (newSViv (h))); 1276 PUSHs (sv_2mortal (newSViv (h)));
1236} 1277}
1237 1278
1238int 1279int
1239descent (CFPlus::Layout self) 1280descent (dc::Layout self)
1240 CODE: 1281 CODE:
1241{ 1282{
1242 PangoRectangle rect; 1283 PangoRectangle rect;
1243 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0); 1284 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1244 pango_layout_line_get_pixel_extents (line, 0, &rect); 1285 pango_layout_line_get_pixel_extents (line, 0, &rect);
… …
1246} 1287}
1247 OUTPUT: 1288 OUTPUT:
1248 RETVAL 1289 RETVAL
1249 1290
1250int 1291int
1251xy_to_index (CFPlus::Layout self, int x, int y) 1292xy_to_index (dc::Layout self, int x, int y)
1252 CODE: 1293 CODE:
1253{ 1294{
1254 int index, trailing; 1295 int index, trailing;
1255 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);
1256 RETVAL = index + trailing; 1297 RETVAL = index + trailing;
1257} 1298}
1258 OUTPUT: 1299 OUTPUT:
1259 RETVAL 1300 RETVAL
1260 1301
1261void 1302void
1262cursor_pos (CFPlus::Layout self, int index) 1303cursor_pos (dc::Layout self, int index)
1263 PPCODE: 1304 PPCODE:
1264{ 1305{
1265 PangoRectangle strong_pos; 1306 PangoRectangle strong_pos;
1266 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1307 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
1267 1308
… …
1270 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1311 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
1271 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1312 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
1272} 1313}
1273 1314
1274void 1315void
1275index_to_line_x (CFPlus::Layout self, int index, int trailing = 0) 1316index_to_line_x (dc::Layout self, int index, int trailing = 0)
1276 PPCODE: 1317 PPCODE:
1277{ 1318{
1278 int line, x; 1319 int line, x;
1279 1320
1280 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);
… …
1284 PUSHs (sv_2mortal (newSViv (line - 1))); 1325 PUSHs (sv_2mortal (newSViv (line - 1)));
1285 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE))); 1326 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1286} 1327}
1287 1328
1288void 1329void
1289line_x_to_index (CFPlus::Layout self, int line, int x) 1330line_x_to_index (dc::Layout self, int line, int x)
1290 PPCODE: 1331 PPCODE:
1291{ 1332{
1292 PangoLayoutLine *lp; 1333 PangoLayoutLine *lp;
1293 int index, trailing; 1334 int index, trailing;
1294 1335
… …
1309 PUSHs (sv_2mortal (newSViv (trailing))); 1350 PUSHs (sv_2mortal (newSViv (trailing)));
1310 } 1351 }
1311} 1352}
1312 1353
1313void 1354void
1314render (CFPlus::Layout self, float x, float y, int flags = 0) 1355render (dc::Layout self, float x, float y, int flags = 0)
1315 CODE: 1356 CODE:
1316 rc_clear (self->rc); 1357 rc_clear (self->rc);
1317 pango_opengl_render_layout_subpixel ( 1358 pango_opengl_render_layout_subpixel (
1318 self->pl, 1359 self->pl,
1319 self->rc, 1360 self->rc,
… …
1324 // we assume that context_change actually clears/frees stuff 1365 // we assume that context_change actually clears/frees stuff
1325 // and does not do any recomputation... 1366 // and does not do any recomputation...
1326 pango_layout_context_changed (self->pl); 1367 pango_layout_context_changed (self->pl);
1327 1368
1328void 1369void
1329draw (CFPlus::Layout self) 1370draw (dc::Layout self)
1330 CODE: 1371 CODE:
1331{ 1372{
1332 glEnable (GL_TEXTURE_2D); 1373 glEnable (GL_TEXTURE_2D);
1333 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE); 1374 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1334 glEnable (GL_BLEND); 1375 glEnable (GL_BLEND);
… …
1342 glDisable (GL_ALPHA_TEST); 1383 glDisable (GL_ALPHA_TEST);
1343 glDisable (GL_BLEND); 1384 glDisable (GL_BLEND);
1344 glDisable (GL_TEXTURE_2D); 1385 glDisable (GL_TEXTURE_2D);
1345} 1386}
1346 1387
1347MODULE = CFPlus PACKAGE = CFPlus::Texture 1388MODULE = Deliantra::Client PACKAGE = dc::Texture
1348 1389
1349PROTOTYPES: ENABLE 1390PROTOTYPES: ENABLE
1350
1351int minpot (int n)
1352 1391
1353void 1392void
1354pad (SV *data_, int ow, int oh, int nw, int nh) 1393pad (SV *data_, int ow, int oh, int nw, int nh)
1355 CODE: 1394 CODE:
1356{ 1395{
… …
1433 RETVAL = width > 0; 1472 RETVAL = width > 0;
1434} 1473}
1435 OUTPUT: 1474 OUTPUT:
1436 RETVAL 1475 RETVAL
1437 1476
1438MODULE = CFPlus PACKAGE = CFPlus::Map 1477MODULE = Deliantra::Client PACKAGE = dc::Map
1439 1478
1440PROTOTYPES: DISABLE 1479PROTOTYPES: DISABLE
1441 1480
1442CFPlus::Map 1481dc::Map
1443new (SV *class) 1482new (SV *class)
1444 CODE: 1483 CODE:
1445 New (0, RETVAL, 1, struct map); 1484 New (0, RETVAL, 1, struct map);
1446 RETVAL->x = 0; 1485 RETVAL->x = 0;
1447 RETVAL->y = 0; 1486 RETVAL->y = 0;
… …
1455 RETVAL->row = 0; 1494 RETVAL->row = 0;
1456 OUTPUT: 1495 OUTPUT:
1457 RETVAL 1496 RETVAL
1458 1497
1459void 1498void
1460DESTROY (CFPlus::Map self) 1499DESTROY (dc::Map self)
1461 CODE: 1500 CODE:
1462{ 1501{
1463 map_clear (self); 1502 map_clear (self);
1464 Safefree (self->face2tile); 1503 Safefree (self->face2tile);
1465 Safefree (self->tex); 1504 Safefree (self->tex);
1466 Safefree (self); 1505 Safefree (self);
1467} 1506}
1468 1507
1469void 1508void
1470resize (CFPlus::Map self, int map_width, int map_height) 1509resize (dc::Map self, int map_width, int map_height)
1471 CODE: 1510 CODE:
1472 self->w = map_width; 1511 self->w = map_width;
1473 self->h = map_height; 1512 self->h = map_height;
1474 1513
1475void 1514void
1476clear (CFPlus::Map self) 1515clear (dc::Map self)
1477 CODE: 1516 CODE:
1478 map_clear (self); 1517 map_clear (self);
1479 1518
1480void 1519void
1481set_tileid (CFPlus::Map self, int face, int tile) 1520set_tileid (dc::Map self, int face, int tile)
1482 CODE: 1521 CODE:
1483{ 1522{
1484 need_facenum (self, face); self->face2tile [face] = tile; 1523 need_facenum (self, face); self->face2tile [face] = tile;
1485 need_texid (self, tile); 1524 need_texid (self, tile);
1486} 1525}
1487 1526
1488void 1527void
1489set_smooth (CFPlus::Map self, int face, int smooth, int level) 1528set_smooth (dc::Map self, int face, int smooth, int level)
1490 CODE: 1529 CODE:
1491{ 1530{
1492 tileid texid; 1531 tileid texid;
1493 maptex *tex; 1532 maptex *tex;
1494 1533
… …
1507 tex->smoothtile = self->face2tile [smooth]; 1546 tex->smoothtile = self->face2tile [smooth];
1508 tex->smoothlevel = level; 1547 tex->smoothlevel = level;
1509} 1548}
1510 1549
1511void 1550void
1512set_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)
1513 CODE: 1552 CODE:
1514{ 1553{
1515 need_texid (self, texid); 1554 need_texid (self, texid);
1516 1555
1517 { 1556 {
… …
1537 // from transparent color bleeding and ugly wrapping effects. 1576 // from transparent color bleeding and ugly wrapping effects.
1538 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1577 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1539} 1578}
1540 1579
1541int 1580int
1542ox (CFPlus::Map self) 1581ox (dc::Map self)
1543 ALIAS: 1582 ALIAS:
1544 oy = 1 1583 oy = 1
1545 x = 2 1584 x = 2
1546 y = 3 1585 y = 3
1547 w = 4 1586 w = 4
… …
1558 } 1597 }
1559 OUTPUT: 1598 OUTPUT:
1560 RETVAL 1599 RETVAL
1561 1600
1562void 1601void
1563scroll (CFPlus::Map self, int dx, int dy) 1602scroll (dc::Map self, int dx, int dy)
1564 CODE: 1603 CODE:
1565{ 1604{
1566 if (dx > 0) 1605 if (dx > 0)
1567 map_blank (self, self->x, self->y, dx, self->h); 1606 map_blank (self, self->x, self->y, dx, self->h);
1568 else if (dx < 0) 1607 else if (dx < 0)
… …
1584 self->y += MAP_EXTEND_Y; 1623 self->y += MAP_EXTEND_Y;
1585 } 1624 }
1586} 1625}
1587 1626
1588SV * 1627SV *
1589map1a_update (CFPlus::Map self, SV *data_, int extmap) 1628map1a_update (dc::Map self, SV *data_, int extmap)
1590 CODE: 1629 CODE:
1591{ 1630{
1592 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1631 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1593 uint8_t *data_end = (uint8_t *)SvEND (data_); 1632 uint8_t *data_end = (uint8_t *)SvEND (data_);
1594 mapcell *cell; 1633 mapcell *cell;
… …
1683} 1722}
1684 OUTPUT: 1723 OUTPUT:
1685 RETVAL 1724 RETVAL
1686 1725
1687SV * 1726SV *
1688mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 1727mapmap (dc::Map self, int x0, int y0, int w, int h)
1689 CODE: 1728 CODE:
1690{ 1729{
1691 int x1, x; 1730 int x1, x;
1692 int y1, y; 1731 int y1, y;
1693 int z; 1732 int z;
… …
1738} 1777}
1739 OUTPUT: 1778 OUTPUT:
1740 RETVAL 1779 RETVAL
1741 1780
1742void 1781void
1743draw (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)
1744 CODE: 1783 CODE:
1745{ 1784{
1746 int x, y, z; 1785 int x, y, z;
1747 1786
1748 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ()); 1787 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1749 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
1750 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)
1751 smooth_key skey; 1790 smooth_key skey;
1752 1791
1753 rc_t *rc = rc_alloc (); 1792 rc_t *rc = rc_alloc ();
1754 rc_key_t key; 1793 rc_key_t key;
1755 rc_array_t *arr; 1794 rc_array_t *arr;
… …
1817 if (tile) 1856 if (tile)
1818 { 1857 {
1819 maptex tex = self->tex [tile]; 1858 maptex tex = self->tex [tile];
1820 int px, py; 1859 int px, py;
1821 1860
1822 // suppressing texture state switches here
1823 // is only moderately effective, but worth the extra effort
1824 if (key.texname != tex.name) 1861 if (key.texname != tex.name)
1825 { 1862 {
1826 if (!tex.name) 1863 if (!tex.name)
1827 tex = self->tex [2]; /* missing, replace by noface */ 1864 tex = self->tex [2]; /* missing, replace by noface */
1828 1865
… …
1911 // go through all smoothlevels, lowest to highest, then draw. 1948 // go through all smoothlevels, lowest to highest, then draw.
1912 // this is basically counting sort 1949 // this is basically counting sort
1913 { 1950 {
1914 int w, b; 1951 int w, b;
1915 1952
1953 glEnable (GL_TEXTURE_2D);
1954 glBegin (GL_QUADS);
1916 for (w = 0; w < 256 / 32; ++w) 1955 for (w = 0; w < 256 / 32; ++w)
1917 { 1956 {
1918 uint32_t smask = smooth_level [w]; 1957 uint32_t smask = smooth_level [w];
1919 if (smask) 1958 if (smask)
1920 for (b = 0; b < 32; ++b) 1959 for (b = 0; b < 32; ++b)
… …
1945 { 1984 {
1946 // this time avoiding texture state changes 1985 // this time avoiding texture state changes
1947 // save gobs of state changes. 1986 // save gobs of state changes.
1948 if (key.texname != tex.name) 1987 if (key.texname != tex.name)
1949 { 1988 {
1989 glEnd ();
1950 key.texname = tex.name; 1990 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1951 arr = rc_array (rc, &key); 1991 glBegin (GL_QUADS);
1952 } 1992 }
1953 1993
1954 if (border) 1994 if (border)
1955 { 1995 {
1956 float ox = border * dx; 1996 float ox = border * dx;
1957 1997
1958 rc_t2f_v3f (arr, ox , 0.f , px , py , 0); 1998 glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
1959 rc_t2f_v3f (arr, ox , dy , px , py + T, 0); 1999 glTexCoord2f (ox , dy ); glVertex2i (px , py + T);
1960 rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0); 2000 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);
1961 rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0); 2001 glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );
1962 } 2002 }
1963 2003
1964 if (corner) 2004 if (corner)
1965 { 2005 {
1966 float ox = corner * dx; 2006 float ox = corner * dx;
1967 2007
1968 rc_t2f_v3f (arr, ox , dy , px , py , 0); 2008 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1969 rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0); 2009 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1970 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);
1971 rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0); 2011 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
1972 } 2012 }
1973 } 2013 }
1974 } 2014 }
1975 } 2015 }
1976 } 2016 }
1977 } 2017 }
2018
2019 glEnd ();
2020 glDisable (GL_TEXTURE_2D);
2021 key.texname = -1;
1978 } 2022 }
1979 2023
1980 hv_clear (smooth); 2024 hv_clear (smooth);
1981 rc_draw (rc);
1982 rc_clear (rc);
1983 } 2025 }
1984 2026
1985 glDisable (GL_BLEND); 2027 glDisable (GL_BLEND);
1986 rc_free (rc); 2028 rc_free (rc);
1987 2029
… …
2016 } 2058 }
2017 } 2059 }
2018} 2060}
2019 2061
2020void 2062void
2021draw_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)
2022 CODE: 2064 CODE:
2023{ 2065{
2024 static float color[16][3] = { 2066 static float color[16][3] = {
2025 { 0.00F, 0.00F, 0.00F }, 2067 { 0.00F, 0.00F, 0.00F },
2026 { 1.00F, 1.00F, 1.00F }, 2068 { 1.00F, 1.00F, 1.00F },
… …
2076 glDisable (GL_BLEND); 2118 glDisable (GL_BLEND);
2077 glDisable (GL_TEXTURE_2D); 2119 glDisable (GL_TEXTURE_2D);
2078} 2120}
2079 2121
2080void 2122void
2081fow_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)
2082 PPCODE: 2124 PPCODE:
2083{ 2125{
2084 int x, y; 2126 int x, y;
2085 int sw1 = sw + 2; 2127 int sw1 = sw + 2;
2086 int sh1 = sh + 2; 2128 int sh1 = sh + 2;
… …
2157 PUSHs (sv_2mortal (newSViv (sh3))); 2199 PUSHs (sv_2mortal (newSViv (sh3)));
2158 PUSHs (darkness3_sv); 2200 PUSHs (darkness3_sv);
2159} 2201}
2160 2202
2161SV * 2203SV *
2162get_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)
2163 CODE: 2205 CODE:
2164{ 2206{
2165 int x, y, x1, y1; 2207 int x, y, x1, y1;
2166 SV *data_sv = newSV (w * h * 7 + 5); 2208 SV *data_sv = newSV (w * h * 7 + 5);
2167 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2209 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
2232} 2274}
2233 OUTPUT: 2275 OUTPUT:
2234 RETVAL 2276 RETVAL
2235 2277
2236void 2278void
2237set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data) 2279set_rect (dc::Map self, int x0, int y0, uint8_t *data)
2238 PPCODE: 2280 PPCODE:
2239{ 2281{
2240 int x, y, z; 2282 int x, y, z;
2241 int w, h; 2283 int w, h;
2242 int x1, y1; 2284 int x1, y1;
2243 2285
2244 if (*data++ != 0) 2286 if (*data++ != 0)
2245 return; /* version mismatch */ 2287 XSRETURN_EMPTY; /* version mismatch */
2246 2288
2247 w = *data++ << 8; w |= *data++; 2289 w = *data++ << 8; w |= *data++;
2248 h = *data++ << 8; h |= *data++; 2290 h = *data++ << 8; h |= *data++;
2249 2291
2250 // 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
… …
2295 } 2337 }
2296 } 2338 }
2297 } 2339 }
2298} 2340}
2299 2341
2300MODULE = CFPlus PACKAGE = CFPlus::RW 2342MODULE = Deliantra::Client PACKAGE = dc::RW
2301 2343
2302CFPlus::RW 2344dc::RW
2303new (SV *class, SV *data_sv) 2345new (SV *class, SV *data_sv)
2304 CODE: 2346 CODE:
2305{ 2347{
2306 STRLEN datalen; 2348 STRLEN datalen;
2307 char *data = SvPVbyte (data_sv, datalen); 2349 char *data = SvPVbyte (data_sv, datalen);
… …
2309 RETVAL = SDL_RWFromConstMem (data, datalen); 2351 RETVAL = SDL_RWFromConstMem (data, datalen);
2310} 2352}
2311 OUTPUT: 2353 OUTPUT:
2312 RETVAL 2354 RETVAL
2313 2355
2314CFPlus::RW 2356dc::RW
2315new_from_file (SV *class, const char *path, const char *mode = "rb") 2357new_from_file (SV *class, const char *path, const char *mode = "rb")
2316 CODE: 2358 CODE:
2317 RETVAL = SDL_RWFromFile (path, mode); 2359 RETVAL = SDL_RWFromFile (path, mode);
2318 OUTPUT: 2360 OUTPUT:
2319 RETVAL 2361 RETVAL
2320 2362
2321# fails on win32: 2363# fails on win32:
2322# CFPlus.xs(2268) : error C2059: syntax error : '(' 2364# dc.xs(2268) : error C2059: syntax error : '('
2323#void 2365#void
2324#close (CFPlus::RW self) 2366#close (dc::RW self)
2325# CODE: 2367# CODE:
2326# (self->(close)) (self); 2368# (self->(close)) (self);
2327 2369
2328MODULE = CFPlus PACKAGE = CFPlus::Channel 2370MODULE = Deliantra::Client PACKAGE = dc::Channel
2329 2371
2330PROTOTYPES: DISABLE 2372PROTOTYPES: DISABLE
2331 2373
2332CFPlus::Channel 2374dc::Channel
2333find () 2375find ()
2334 CODE: 2376 CODE:
2335{ 2377{
2336 RETVAL = Mix_GroupAvailable (-1); 2378 RETVAL = Mix_GroupAvailable (-1);
2337 2379
… …
2350} 2392}
2351 OUTPUT: 2393 OUTPUT:
2352 RETVAL 2394 RETVAL
2353 2395
2354void 2396void
2355halt (CFPlus::Channel self) 2397halt (dc::Channel self)
2356 CODE: 2398 CODE:
2357 Mix_HaltChannel (self); 2399 Mix_HaltChannel (self);
2358 2400
2359void 2401void
2360expire (CFPlus::Channel self, int ticks = -1) 2402expire (dc::Channel self, int ticks = -1)
2361 CODE: 2403 CODE:
2362 Mix_ExpireChannel (self, ticks); 2404 Mix_ExpireChannel (self, ticks);
2363 2405
2364void 2406void
2365fade_out (CFPlus::Channel self, int ticks = -1) 2407fade_out (dc::Channel self, int ticks = -1)
2366 CODE: 2408 CODE:
2367 Mix_FadeOutChannel (self, ticks); 2409 Mix_FadeOutChannel (self, ticks);
2368 2410
2369int 2411int
2370volume (CFPlus::Channel self, int volume) 2412volume (dc::Channel self, int volume)
2371 CODE: 2413 CODE:
2372 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128)); 2414 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2373 OUTPUT: 2415 OUTPUT:
2374 RETVAL 2416 RETVAL
2375 2417
2376void 2418void
2377unregister_all_effects (CFPlus::Channel self) 2419unregister_all_effects (dc::Channel self)
2378 CODE: 2420 CODE:
2379 Mix_UnregisterAllEffects (self); 2421 Mix_UnregisterAllEffects (self);
2380 2422
2381void 2423void
2382set_panning (CFPlus::Channel self, int left, int right) 2424set_panning (dc::Channel self, int left, int right)
2383 CODE: 2425 CODE:
2384 left = CLAMP (left , 0, 255); 2426 left = CLAMP (left , 0, 255);
2385 right = CLAMP (right, 0, 255); 2427 right = CLAMP (right, 0, 255);
2386 Mix_SetPanning (self, left, right); 2428 Mix_SetPanning (self, left, right);
2387 2429
2388void 2430void
2389set_distance (CFPlus::Channel self, int distance) 2431set_distance (dc::Channel self, int distance)
2390 CODE: 2432 CODE:
2391 Mix_SetDistance (self, CLAMP (distance, 0, 255)); 2433 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2392 2434
2393void 2435void
2394set_position (CFPlus::Channel self, int angle, int distance) 2436set_position (dc::Channel self, int angle, int distance)
2395 CODE: 2437 CODE:
2396 2438
2397void 2439void
2398set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance) 2440set_position_r (dc::Channel self, int dx, int dy, int maxdistance)
2399 CODE: 2441 CODE:
2400{ 2442{
2401 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));
2402 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);
2403 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255)); 2445 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2404} 2446}
2405 2447
2406void 2448void
2407set_reverse_stereo (CFPlus::Channel self, int flip) 2449set_reverse_stereo (dc::Channel self, int flip)
2408 CODE: 2450 CODE:
2409 Mix_SetReverseStereo (self, flip); 2451 Mix_SetReverseStereo (self, flip);
2410 2452
2411MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2453MODULE = Deliantra::Client PACKAGE = dc::MixChunk
2412 2454
2413PROTOTYPES: DISABLE 2455PROTOTYPES: DISABLE
2414 2456
2415CFPlus::MixChunk 2457dc::MixChunk
2416new (SV *class, CFPlus::RW rwops) 2458new (SV *class, dc::RW rwops)
2417 CODE: 2459 CODE:
2418 RETVAL = Mix_LoadWAV_RW (rwops, 1); 2460 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2419 OUTPUT: 2461 OUTPUT:
2420 RETVAL 2462 RETVAL
2421 2463
2422void 2464void
2423DESTROY (CFPlus::MixChunk self) 2465DESTROY (dc::MixChunk self)
2424 CODE: 2466 CODE:
2425 Mix_FreeChunk (self); 2467 Mix_FreeChunk (self);
2426 2468
2427int 2469int
2428volume (CFPlus::MixChunk self, int volume = -1) 2470volume (dc::MixChunk self, int volume = -1)
2429 CODE: 2471 CODE:
2430 if (items > 1) 2472 if (items > 1)
2431 volume = CLAMP (volume, 0, 128); 2473 volume = CLAMP (volume, 0, 128);
2432 RETVAL = Mix_VolumeChunk (self, volume); 2474 RETVAL = Mix_VolumeChunk (self, volume);
2433 OUTPUT: 2475 OUTPUT:
2434 RETVAL 2476 RETVAL
2435 2477
2436CFPlus::Channel 2478dc::Channel
2437play (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)
2438 CODE: 2480 CODE:
2439{ 2481{
2440 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2482 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2441 2483
2442 if (RETVAL < 0) 2484 if (RETVAL < 0)
… …
2449 } 2491 }
2450} 2492}
2451 OUTPUT: 2493 OUTPUT:
2452 RETVAL 2494 RETVAL
2453 2495
2454MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2496MODULE = Deliantra::Client PACKAGE = dc::MixMusic
2455 2497
2456int 2498int
2457volume (int volume = -1) 2499volume (int volume = -1)
2458 PROTOTYPE: ;$ 2500 PROTOTYPE: ;$
2459 CODE: 2501 CODE:
… …
2471void 2513void
2472halt () 2514halt ()
2473 CODE: 2515 CODE:
2474 Mix_HaltMusic (); 2516 Mix_HaltMusic ();
2475 2517
2476CFPlus::MixMusic 2518dc::MixMusic
2477new (SV *class, CFPlus::RW rwops) 2519new (SV *class, dc::RW rwops)
2478 CODE: 2520 CODE:
2479 RETVAL = Mix_LoadMUS_RW (rwops); 2521 RETVAL = Mix_LoadMUS_RW (rwops);
2480 OUTPUT: 2522 OUTPUT:
2481 RETVAL 2523 RETVAL
2482 2524
2483void 2525void
2484DESTROY (CFPlus::MixMusic self) 2526DESTROY (dc::MixMusic self)
2485 CODE: 2527 CODE:
2486 Mix_FreeMusic (self); 2528 Mix_FreeMusic (self);
2487 2529
2488int 2530int
2489play (CFPlus::MixMusic self, int loops = -1) 2531play (dc::MixMusic self, int loops = -1)
2490 CODE: 2532 CODE:
2491 RETVAL = Mix_PlayMusic (self, loops); 2533 RETVAL = Mix_PlayMusic (self, loops);
2492 OUTPUT: 2534 OUTPUT:
2493 RETVAL 2535 RETVAL
2494 2536
2495void 2537void
2496fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) 2538fade_in_pos (dc::MixMusic self, int loops, int ms, double position)
2497 CODE: 2539 CODE:
2498 Mix_FadeInMusicPos (self, loops, ms, position); 2540 Mix_FadeInMusicPos (self, loops, ms, position);
2499 2541
2500MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2542MODULE = Deliantra::Client PACKAGE = dc::OpenGL
2501 2543
2502PROTOTYPES: ENABLE 2544PROTOTYPES: ENABLE
2503 2545
2504BOOT: 2546BOOT:
2505{ 2547{
2506 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1); 2548 HV *stash = gv_stashpv ("dc::OpenGL", 1);
2507 static const struct { 2549 static const struct {
2508 const char *name; 2550 const char *name;
2509 IV iv; 2551 IV iv;
2510 } *civ, const_iv[] = { 2552 } *civ, const_iv[] = {
2511# define const_iv(name) { # name, (IV)name } 2553# define const_iv(name) { # name, (IV)name }
… …
2546 const_iv (GL_INTENSITY), 2588 const_iv (GL_INTENSITY),
2547 const_iv (GL_LUMINANCE), 2589 const_iv (GL_LUMINANCE),
2548 const_iv (GL_LUMINANCE_ALPHA), 2590 const_iv (GL_LUMINANCE_ALPHA),
2549 const_iv (GL_FLOAT), 2591 const_iv (GL_FLOAT),
2550 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),
2551 const_iv (GL_COMPILE), 2599 const_iv (GL_COMPILE),
2552 const_iv (GL_PROXY_TEXTURE_1D), 2600 const_iv (GL_PROXY_TEXTURE_1D),
2553 const_iv (GL_PROXY_TEXTURE_2D), 2601 const_iv (GL_PROXY_TEXTURE_2D),
2554 const_iv (GL_TEXTURE_1D), 2602 const_iv (GL_TEXTURE_1D),
2555 const_iv (GL_TEXTURE_2D), 2603 const_iv (GL_TEXTURE_2D),
… …
2594 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2642 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2595 const_iv (GL_POINT_SMOOTH_HINT), 2643 const_iv (GL_POINT_SMOOTH_HINT),
2596 const_iv (GL_LINE_SMOOTH_HINT), 2644 const_iv (GL_LINE_SMOOTH_HINT),
2597 const_iv (GL_POLYGON_SMOOTH_HINT), 2645 const_iv (GL_POLYGON_SMOOTH_HINT),
2598 const_iv (GL_GENERATE_MIPMAP_HINT), 2646 const_iv (GL_GENERATE_MIPMAP_HINT),
2647 const_iv (GL_TEXTURE_COMPRESSION_HINT),
2599 const_iv (GL_FASTEST), 2648 const_iv (GL_FASTEST),
2600 const_iv (GL_DONT_CARE), 2649 const_iv (GL_DONT_CARE),
2601 const_iv (GL_NICEST), 2650 const_iv (GL_NICEST),
2602 const_iv (GL_V2F), 2651 const_iv (GL_V2F),
2603 const_iv (GL_V3F), 2652 const_iv (GL_V3F),
… …
2611 2660
2612 texture_av = newAV (); 2661 texture_av = newAV ();
2613 AvREAL_off (texture_av); 2662 AvREAL_off (texture_av);
2614} 2663}
2615 2664
2665void
2666disable_GL_EXT_blend_func_separate ()
2667 CODE:
2668 gl.BlendFuncSeparate = 0;
2669 gl.BlendFuncSeparateEXT = 0;
2670
2616char * 2671char *
2617gl_vendor () 2672gl_vendor ()
2618 CODE: 2673 CODE:
2619 RETVAL = (char *)glGetString (GL_VENDOR); 2674 RETVAL = (char *)glGetString (GL_VENDOR);
2620 OUTPUT: 2675 OUTPUT:
… …
2741 2796
2742void glRect (float x1, float y1, float x2, float y2) 2797void glRect (float x1, float y1, float x2, float y2)
2743 CODE: 2798 CODE:
2744 glRectf (x1, y1, x2, y2); 2799 glRectf (x1, y1, x2, y2);
2745 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
2746PROTOTYPES: ENABLE 2810PROTOTYPES: ENABLE
2747 2811
2748void glBegin (int mode) 2812void glBegin (int mode)
2749 2813
2750void glEnd () 2814void glEnd ()
… …
2818 2882
2819void glEndList () 2883void glEndList ()
2820 2884
2821void glCallList (int list) 2885void glCallList (int list)
2822 2886
2823MODULE = CFPlus PACKAGE = CFPlus::UI::Base 2887MODULE = Deliantra::Client PACKAGE = dc::UI::Base
2824 2888
2825PROTOTYPES: DISABLE 2889PROTOTYPES: DISABLE
2826 2890
2827void 2891void
2828find_widget (SV *self, NV x, NV y) 2892find_widget (SV *self, NV x, NV y)
… …
2832 XPUSHs (self); 2896 XPUSHs (self);
2833} 2897}
2834 2898
2835BOOT: 2899BOOT:
2836{ 2900{
2837 hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV); 2901 hover_gv = gv_fetchpv ("dc::UI::HOVER", 1, SVt_NV);
2838 2902
2839 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);
2840 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);
2841 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);
2842 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);
2843} 2907}
2844 2908
2845void 2909void
2846draw (SV *self) 2910draw (SV *self)
2847 CODE: 2911 CODE:
… …
2851 NV x, y, w, h; 2915 NV x, y, w, h;
2852 SV *draw_x_sv = GvSV (draw_x_gv); 2916 SV *draw_x_sv = GvSV (draw_x_gv);
2853 SV *draw_y_sv = GvSV (draw_y_gv); 2917 SV *draw_y_sv = GvSV (draw_y_gv);
2854 SV *draw_w_sv = GvSV (draw_w_gv); 2918 SV *draw_w_sv = GvSV (draw_w_gv);
2855 SV *draw_h_sv = GvSV (draw_h_gv); 2919 SV *draw_h_sv = GvSV (draw_h_gv);
2856 SV *hover;
2857 double draw_x, draw_y, draw_w, draw_h; 2920 double draw_x, draw_y;
2858 2921
2859 if (!SvROK (self)) 2922 if (!SvROK (self))
2860 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self)); 2923 croak ("dc::Base::draw: %s not a reference", SvPV_nolen (self));
2861 2924
2862 hv = (HV *)SvRV (self); 2925 hv = (HV *)SvRV (self);
2863 2926
2864 if (SvTYPE (hv) != SVt_PVHV) 2927 if (SvTYPE (hv) != SVt_PVHV)
2865 croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self)); 2928 croak ("dc::Base::draw: %s not a hashref", SvPV_nolen (self));
2866 2929
2867 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.;
2868 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.;
2869 2932
2870 if (!h || !w) 2933 if (!h || !w)
… …
2890 { 2953 {
2891 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0); 2954 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2892 2955
2893 if (svp && SvTRUE (*svp)) 2956 if (svp && SvTRUE (*svp))
2894 { 2957 {
2895 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);
2896 glEnable (GL_BLEND); 2959 glEnable (GL_BLEND);
2897 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 2960 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2898 glBegin (GL_QUADS); 2961 glBegin (GL_QUADS);
2899 glVertex2f (0, 0); 2962 glVertex2f (0, 0);
2900 glVertex2f (w, 0); 2963 glVertex2f (w, 0);
… …
2903 glEnd (); 2966 glEnd ();
2904 glDisable (GL_BLEND); 2967 glDisable (GL_BLEND);
2905 } 2968 }
2906 } 2969 }
2907#if 0 2970#if 0
2908 if ($ENV{CFPLUS_DEBUG} & 1) { 2971 // draw borders, for debugging
2909 glPushMatrix; 2972 glPushMatrix ();
2910 glColor 1, 1, 0, 1; 2973 glColor4f (1., 1., 0., 1.);
2911 glTranslate 0.375, 0.375; 2974 glTranslatef (.5, .5, 0.);
2912 glBegin GL_LINE_LOOP; 2975 glBegin (GL_LINE_LOOP);
2913 glVertex 0 , 0; 2976 glVertex2f (0 , 0);
2914 glVertex $self->{w} - 1, 0; 2977 glVertex2f (w - 1, 0);
2915 glVertex $self->{w} - 1, $self->{h} - 1; 2978 glVertex2f (w - 1, h - 1);
2916 glVertex 0 , $self->{h} - 1; 2979 glVertex2f (0 , h - 1);
2917 glEnd; 2980 glEnd ();
2918 glPopMatrix; 2981 glPopMatrix ();
2919 #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2920 }
2921#endif 2982#endif
2922 PUSHMARK (SP); 2983 PUSHMARK (SP);
2923 XPUSHs (self); 2984 XPUSHs (self);
2924 PUTBACK; 2985 PUTBACK;
2925 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