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.198 by root, Sun Jul 15 21:42:02 2007 UTC vs.
Revision 1.273 by root, Wed Aug 20 13:30:02 2008 UTC

… …
17#include "perl.h" 17#include "perl.h"
18#include "XSUB.h" 18#include "XSUB.h"
19 19
20#ifdef _WIN32 20#ifdef _WIN32
21# undef pipe 21# undef pipe
22// microsoft vs. C
23# define sqrtf(x) sqrt(x)
24# define roundf(x) (int)(x)
25# define atan2f(x,y) atan2(x,y)
26# define M_PI 3.14159265f
22#endif 27#endif
23 28
24#include <assert.h> 29#include <assert.h>
25#include <math.h> 30#include <math.h>
26#include <string.h> 31#include <string.h>
27#include <stdio.h> 32#include <stdio.h>
28#include <stdlib.h> 33#include <stdlib.h>
29 34
35#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
36
30#include <SDL.h> 37#include <SDL.h>
38#include <SDL_thread.h>
31#include <SDL_endian.h> 39#include <SDL_endian.h>
32#include <SDL_image.h> 40#include <SDL_image.h>
33#include <SDL_mixer.h> 41#include <SDL_mixer.h>
34#include <SDL_opengl.h> 42#include <SDL_opengl.h>
35 43
44/* work around os x broken headers */
45#ifdef __MACOSX__
46typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha);
47#endif
48
36#define PANGO_ENABLE_BACKEND 49#define PANGO_ENABLE_BACKEND
37#define G_DISABLE_CAST_CHECKS 50#define G_DISABLE_CAST_CHECKS
38 51
39#include <glib/gmacros.h> 52#include <glib/gmacros.h>
40 53
41#include <pango/pango.h> 54#include <pango/pango.h>
55
56#ifndef PANGO_VERSION_CHECK
57# define PANGO_VERSION_CHECK(a,b,c) 0
58#endif
59
60#if !PANGO_VERSION_CHECK (1, 15, 2)
61# define pango_layout_get_line_readonly pango_layout_get_line
62# define pango_layout_get_lines_readonly pango_layout_get_lines
63# define pango_layout_iter_get_line_readonly pango_layout_iter_get_line
64# define pango_layout_iter_get_run_readonly pango_layout_iter_get_run
65#endif
42 66
43#ifndef _WIN32 67#ifndef _WIN32
44# include <sys/types.h> 68# include <sys/types.h>
45# include <sys/socket.h> 69# include <sys/socket.h>
46# include <netinet/in.h> 70# include <netinet/in.h>
47# include <netinet/tcp.h> 71# include <netinet/tcp.h>
48# include <inttypes.h> 72# include <inttypes.h>
49#endif 73#endif
50 74
75#if __GNUC__ >= 4
76# define expect(expr,value) __builtin_expect ((expr),(value))
77#else
78# define expect(expr,value) (expr)
79#endif
80
81#define expect_false(expr) expect ((expr) != 0, 0)
82#define expect_true(expr) expect ((expr) != 0, 1)
83
51#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */ 84#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
52 85
53#define FOW_DARKNESS 32 86#define FOW_DARKNESS 32
54 87
55#define MAP_EXTEND_X 32 88#define MAP_EXTEND_X 32
56#define MAP_EXTEND_Y 512 89#define MAP_EXTEND_Y 512
57 90
58#define MIN_FONT_HEIGHT 10 91#define MIN_FONT_HEIGHT 10
59 92
60#if 0 93/* mask out modifiers we are not interested in */
61# define PARACHUTE SDL_INIT_NOPARACHUTE 94#define MOD_MASK (KMOD_CTRL | KMOD_SHIFT | KMOD_ALT | KMOD_META)
62#else
63# define PARACHUTE 0
64#endif
65 95
66static AV *texture_av; 96static AV *texture_av;
67 97
68static struct 98static struct
69{ 99{
… …
106 av_push (texture_av, (SV *)(size_t)name); 136 av_push (texture_av, (SV *)(size_t)name);
107 glDeleteTextures (1, &name); 137 glDeleteTextures (1, &name);
108} 138}
109 139
110#include "texcache.c" 140#include "texcache.c"
141#include "rendercache.c"
111 142
112#include "pango-font.c" 143#include "pango-font.c"
113#include "pango-fontmap.c" 144#include "pango-fontmap.c"
114#include "pango-render.c" 145#include "pango-render.c"
115 146
147typedef IV DC__Channel;
148typedef SDL_RWops *DC__RW;
116typedef Mix_Chunk *CFPlus__MixChunk; 149typedef Mix_Chunk *DC__MixChunk;
117typedef Mix_Music *CFPlus__MixMusic; 150typedef Mix_Music *DC__MixMusic;
118 151
119typedef PangoFontDescription *CFPlus__Font; 152typedef PangoFontDescription *DC__Font;
120 153
121static int 154static int
122shape_attr_p (PangoLayoutRun *run) 155shape_attr_p (PangoLayoutRun *run)
123{ 156{
124 GSList *attrs = run->item->analysis.extra_attrs; 157 GSList *attrs = run->item->analysis.extra_attrs;
… …
138 171
139typedef struct cf_layout { 172typedef struct cf_layout {
140 PangoLayout *pl; 173 PangoLayout *pl;
141 float r, g, b, a; // default color for rgba mode 174 float r, g, b, a; // default color for rgba mode
142 int base_height; 175 int base_height;
143 CFPlus__Font font; 176 DC__Font font;
177 rc_t *rc;
144} *CFPlus__Layout; 178} *DC__Layout;
145 179
146static CFPlus__Font default_font; 180static DC__Font default_font;
147static PangoContext *opengl_context; 181static PangoContext *opengl_context;
148static PangoFontMap *opengl_fontmap; 182static PangoFontMap *opengl_fontmap;
149 183
150static void 184static void
151substitute_func (FcPattern *pattern, gpointer data) 185substitute_func (FcPattern *pattern, gpointer data)
… …
156#endif 190#endif
157 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 191 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
158} 192}
159 193
160static void 194static void
161layout_update_font (CFPlus__Layout self) 195layout_update_font (DC__Layout self)
162{ 196{
163 /* use a random scale factor to account for unknown descenders, 0.8 works 197 /* use a random scale factor to account for unknown descenders, 0.8 works
164 * reasonably well with bitstream vera 198 * reasonably well with dejavu/bistream fonts
165 */ 199 */
166 PangoFontDescription *font = self->font ? self->font : default_font; 200 PangoFontDescription *font = self->font ? self->font : default_font;
167 201
168 pango_font_description_set_absolute_size (font, 202 pango_font_description_set_absolute_size (font,
169 MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10)); 203 MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));
170 204
171 pango_layout_set_font_description (self->pl, font); 205 pango_layout_set_font_description (self->pl, font);
172} 206}
173 207
174static void 208static void
175layout_get_pixel_size (CFPlus__Layout self, int *w, int *h) 209layout_get_pixel_size (DC__Layout self, int *w, int *h)
176{ 210{
177 PangoRectangle rect; 211 PangoRectangle rect;
178 212
179 // get_pixel_* wrongly rounds down 213 // get_pixel_* wrongly rounds down
180 pango_layout_get_extents (self->pl, 0, &rect); 214 pango_layout_get_extents (self->pl, 0, &rect);
… …
191 225
192typedef uint16_t tileid; 226typedef uint16_t tileid;
193typedef uint16_t faceid; 227typedef uint16_t faceid;
194 228
195typedef struct { 229typedef struct {
196 int name; 230 GLuint name;
197 int w, h; 231 int w, h;
198 float s, t; 232 float s, t;
199 uint8_t r, g, b, a; 233 uint8_t r, g, b, a;
200 tileid smoothtile; 234 tileid smoothtile;
201 uint8_t smoothlevel; 235 uint8_t smoothlevel;
… …
219 int faces; tileid *face2tile; // [faceid] 253 int faces; tileid *face2tile; // [faceid]
220 int texs; maptex *tex; // [tileid] 254 int texs; maptex *tex; // [tileid]
221 255
222 int32_t rows; 256 int32_t rows;
223 maprow *row; 257 maprow *row;
224} *CFPlus__Map; 258} *DC__Map;
225 259
226static char * 260static char *
227prepend (char *ptr, int sze, int inc) 261prepend (char *ptr, int sze, int inc)
228{ 262{
229 char *p; 263 char *p;
… …
267 self->texs *= 2; 301 self->texs *= 2;
268 } 302 }
269} 303}
270 304
271static maprow * 305static maprow *
272map_get_row (CFPlus__Map self, int y) 306map_get_row (DC__Map self, int y)
273{ 307{
274 if (0 > y) 308 if (0 > y)
275 { 309 {
276 int extend = - y + MAP_EXTEND_Y; 310 int extend = - y + MAP_EXTEND_Y;
277 Prepend (maprow, self->row, self->rows, extend); 311 Prepend (maprow, self->row, self->rows, extend);
… …
315 349
316 return row->col + (x - row->c0); 350 return row->col + (x - row->c0);
317} 351}
318 352
319static mapcell * 353static mapcell *
320map_get_cell (CFPlus__Map self, int x, int y) 354map_get_cell (DC__Map self, int x, int y)
321{ 355{
322 return row_get_cell (map_get_row (self, y), x); 356 return row_get_cell (map_get_row (self, y), x);
323} 357}
324 358
325static void 359static void
326map_clear (CFPlus__Map self) 360map_clear (DC__Map self)
327{ 361{
328 int r; 362 int r;
329 363
330 for (r = 0; r < self->rows; r++) 364 for (r = 0; r < self->rows; r++)
331 Safefree (self->row[r].col); 365 Safefree (self->row[r].col);
… …
338 self->oy = 0; 372 self->oy = 0;
339 self->row = 0; 373 self->row = 0;
340 self->rows = 0; 374 self->rows = 0;
341} 375}
342 376
377#define CELL_CLEAR(cell) \
378 do { \
379 if ((cell)->player) \
380 (cell)->tile [2] = 0; \
381 (cell)->darkness = 0; \
382 (cell)->stat_hp = 0; \
383 (cell)->flags = 0; \
384 (cell)->player = 0; \
385 } while (0)
386
343static void 387static void
344map_blank (CFPlus__Map self, int x0, int y0, int w, int h) 388map_blank (DC__Map self, int x0, int y0, int w, int h)
345{ 389{
346 int x, y; 390 int x, y;
347 maprow *row; 391 maprow *row;
348 mapcell *cell; 392 mapcell *cell;
349 393
… …
361 if (x >= row->c1) 405 if (x >= row->c1)
362 break; 406 break;
363 407
364 cell = row->col + x - row->c0; 408 cell = row->col + x - row->c0;
365 409
366 cell->darkness = 0; 410 CELL_CLEAR (cell);
367 cell->stat_hp = 0;
368 cell->flags = 0;
369 cell->player = 0;
370 } 411 }
371 } 412 }
372} 413}
373 414
374typedef struct { 415typedef struct {
… …
428 n |= n >> 16; 469 n |= n >> 16;
429 470
430 return n + 1; 471 return n + 1;
431} 472}
432 473
474static unsigned int
475popcount (unsigned int n)
476{
477 n -= (n >> 1) & 0x55555555U;
478 n = ((n >> 2) & 0x33333333U) + (n & 0x33333333U);
479 n = ((n >> 4) + n) & 0x0f0f0f0fU;
480 n *= 0x01010101U;
481
482 return n >> 24;
483}
484
433/* SDL should provide this, really. */ 485/* SDL should provide this, really. */
434#define SDLK_MODIFIER_MIN 300 486#define SDLK_MODIFIER_MIN 300
435#define SDLK_MODIFIER_MAX 314 487#define SDLK_MODIFIER_MAX 314
436 488
437MODULE = CFPlus PACKAGE = CFPlus 489/******************************************************************************/
490
491static GV *draw_x_gv, *draw_y_gv, *draw_w_gv, *draw_h_gv;
492static GV *hover_gv;
493
494static int
495within_widget (SV *widget, NV x, NV y)
496{
497 HV *self;
498 SV **svp;
499 NV wx, ww, wy, wh;
500
501 if (!SvROK (widget))
502 return 0;
503
504 self = (HV *)SvRV (widget);
505
506 if (SvTYPE (self) != SVt_PVHV)
507 return 0;
508
509 svp = hv_fetch (self, "y", 1, 0); wy = svp ? SvNV (*svp) : 0.;
510 if (y < wy)
511 return 0;
512
513 svp = hv_fetch (self, "h", 1, 0); wh = svp ? SvNV (*svp) : 0.;
514 if (y >= wy + wh)
515 return 0;
516
517 svp = hv_fetch (self, "x", 1, 0); wx = svp ? SvNV (*svp) : 0.;
518 if (x < wx)
519 return 0;
520
521 svp = hv_fetch (self, "w", 1, 0); ww = svp ? SvNV (*svp) : 0.;
522 if (x >= wx + ww)
523 return 0;
524
525 svp = hv_fetch (self, "can_events", sizeof ("can_events") - 1, 0);
526 if (!svp || !SvTRUE (*svp))
527 return 0;
528
529 return 1;
530}
531
532static void
533deliantra_main ()
534{
535 char *argv[] = { 0 };
536 call_argv ("::main", G_DISCARD | G_VOID, argv);
537 dSP;
538}
539
540#ifdef __MACOSX__
541 /* to due surprising braindamage on the side of SDL design, we
542 * do some mind-boggling hack here: SDL requires a custom main()
543 * on OS X, so... we provide one and call the original main(), which,
544 * due to share dlibrary magic, calls -lSDLmain's main, not perl's main,
545 * and which calls our main (== SDL_main) back.
546 */
547 extern C_LINKAGE int
548 main (int argc, char *argv[])
549 {
550 deliantra_main ();
551 }
552
553 #undef main
554
555 extern C_LINKAGE int main (int argc, char *argv[]);
556
557 static void
558 SDL_braino (void)
559 {
560 char *argv[] = { "deliantra client", 0 };
561 (main) (1, argv);
562 }
563#else
564 static void
565 SDL_braino (void)
566 {
567 deliantra_main ();
568 }
569#endif
570
571MODULE = Deliantra::Client PACKAGE = DC
438 572
439PROTOTYPES: ENABLE 573PROTOTYPES: ENABLE
440 574
441BOOT: 575BOOT:
442{ 576{
443 HV *stash = gv_stashpv ("CFPlus", 1); 577 HV *stash = gv_stashpv ("DC", 1);
444 static const struct { 578 static const struct {
445 const char *name; 579 const char *name;
446 IV iv; 580 IV iv;
447 } *civ, const_iv[] = { 581 } *civ, const_iv[] = {
448# define const_iv(name) { # name, (IV)name } 582# define const_iv(name) { # name, (IV)name }
… …
470 604
471 const_iv (SDL_APPINPUTFOCUS), 605 const_iv (SDL_APPINPUTFOCUS),
472 const_iv (SDL_APPMOUSEFOCUS), 606 const_iv (SDL_APPMOUSEFOCUS),
473 const_iv (SDL_APPACTIVE), 607 const_iv (SDL_APPACTIVE),
474 608
609 const_iv (SDLK_FIRST),
610 const_iv (SDLK_LAST),
475 const_iv (SDLK_KP0), 611 const_iv (SDLK_KP0),
476 const_iv (SDLK_KP1), 612 const_iv (SDLK_KP1),
477 const_iv (SDLK_KP2), 613 const_iv (SDLK_KP2),
478 const_iv (SDLK_KP3), 614 const_iv (SDLK_KP3),
479 const_iv (SDLK_KP4), 615 const_iv (SDLK_KP4),
… …
551 const_iv (KMOD_LMETA), 687 const_iv (KMOD_LMETA),
552 const_iv (KMOD_RMETA), 688 const_iv (KMOD_RMETA),
553 const_iv (KMOD_NUM), 689 const_iv (KMOD_NUM),
554 const_iv (KMOD_CAPS), 690 const_iv (KMOD_CAPS),
555 const_iv (KMOD_MODE), 691 const_iv (KMOD_MODE),
692
693 const_iv (MIX_DEFAULT_FORMAT),
694
695 const_iv (SDL_INIT_TIMER),
696 const_iv (SDL_INIT_AUDIO),
697 const_iv (SDL_INIT_VIDEO),
698 const_iv (SDL_INIT_CDROM),
699 const_iv (SDL_INIT_JOYSTICK),
700 const_iv (SDL_INIT_EVERYTHING),
701 const_iv (SDL_INIT_NOPARACHUTE),
702 const_iv (SDL_INIT_EVENTTHREAD),
703
704 const_iv (SDL_GL_RED_SIZE),
705 const_iv (SDL_GL_GREEN_SIZE),
706 const_iv (SDL_GL_BLUE_SIZE),
707 const_iv (SDL_GL_ALPHA_SIZE),
708 const_iv (SDL_GL_DOUBLEBUFFER),
709 const_iv (SDL_GL_BUFFER_SIZE),
710 const_iv (SDL_GL_DEPTH_SIZE),
711 const_iv (SDL_GL_STENCIL_SIZE),
712 const_iv (SDL_GL_ACCUM_RED_SIZE),
713 const_iv (SDL_GL_ACCUM_GREEN_SIZE),
714 const_iv (SDL_GL_ACCUM_BLUE_SIZE),
715 const_iv (SDL_GL_ACCUM_ALPHA_SIZE),
716 const_iv (SDL_GL_STEREO),
717 const_iv (SDL_GL_MULTISAMPLEBUFFERS),
718 const_iv (SDL_GL_MULTISAMPLESAMPLES),
719 const_iv (SDL_GL_ACCELERATED_VISUAL),
720 const_iv (SDL_GL_SWAP_CONTROL),
721
722 const_iv (FOW_DARKNESS)
556# undef const_iv 723# undef const_iv
557 }; 724 };
558 725
559 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 726 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
560 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 727 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
… …
578 745
579NV floor (NV x) 746NV floor (NV x)
580 747
581NV ceil (NV x) 748NV ceil (NV x)
582 749
750IV minpot (UV n)
751
752IV popcount (UV n)
753
583void 754void
584pango_init () 755pango_init ()
585 CODE: 756 CODE:
586{ 757{
587 opengl_fontmap = pango_opengl_font_map_new (); 758 opengl_fontmap = pango_opengl_font_map_new ();
588 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0); 759 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
589 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap); 760 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
761 /*pango_context_set_font_description (opengl_context, default_font);*/
762#if PANGO_VERSION_CHECK (1, 15, 2)
763 pango_context_set_language (opengl_context, pango_language_from_string ("en"));
764 /*pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);*/
765#endif
590} 766}
591 767
592int 768char *SDL_GetError ()
593SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
594 769
595void 770void SDL_braino ()
771
772int SDL_Init (U32 flags)
773
774int SDL_InitSubSystem (U32 flags)
775
776void SDL_QuitSubSystem (U32 flags)
777
596SDL_Quit () 778void SDL_Quit ()
597 779
780int SDL_GL_SetAttribute (int attr, int value)
781
782int SDL_GL_GetAttribute (int attr)
783 CODE:
784 if (SDL_GL_GetAttribute (attr, &RETVAL))
785 XSRETURN_UNDEF;
786 OUTPUT:
787 RETVAL
788
598void 789void
599SDL_ListModes () 790SDL_ListModes (int rgb, int alpha)
600 PPCODE: 791 PPCODE:
601{ 792{
602 SDL_Rect **m; 793 SDL_Rect **m;
603 794
604 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 795 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
605 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 796 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
606 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 797 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
607 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 798 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
608 799
609 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 800 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
610 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0); 801 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE , 0);
611 802
612 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 803 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE , 0);
613 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 804 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
614 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 805 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
615 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 806 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
616 807
617 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 808 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
618#if SDL_VERSION_ATLEAST(1,2,10)
619 SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
620 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1); 809 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
621#endif
622
623 SDL_EnableUNICODE (1);
624 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
625 810
626 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 811 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
627 812
628 if (m && m != (SDL_Rect **)-1) 813 if (m && m != (SDL_Rect **)-1)
629 while (*m) 814 while (*m)
630 { 815 {
816 if ((*m)->w >= 400 && (*m)->h >= 300)
817 {
631 AV *av = newAV (); 818 AV *av = newAV ();
632 av_push (av, newSViv ((*m)->w)); 819 av_push (av, newSViv ((*m)->w));
633 av_push (av, newSViv ((*m)->h)); 820 av_push (av, newSViv ((*m)->h));
821 av_push (av, newSViv (rgb));
822 av_push (av, newSViv (alpha));
634 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 823 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
824 }
635 825
636 ++m; 826 ++m;
637 } 827 }
638} 828}
639 829
640char *
641SDL_GetError ()
642
643int 830int
644SDL_SetVideoMode (int w, int h, int fullscreen) 831SDL_SetVideoMode (int w, int h, int rgb, int alpha, int fullscreen)
645 CODE: 832 CODE:
833{
834 SDL_EnableUNICODE (1);
835 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
836
837 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
838 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
839 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
840 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
841
646 RETVAL = !!SDL_SetVideoMode ( 842 RETVAL = !!SDL_SetVideoMode (
647 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 843 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
648 ); 844 );
845
649 if (RETVAL) 846 if (RETVAL)
650 { 847 {
651 av_clear (texture_av); 848 av_clear (texture_av);
652 849
653 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 850 SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
654# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 851#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
655# include "glfunc.h" 852#include "glfunc.h"
656# undef GL_FUNC 853#undef GL_FUNC
657
658 } 854 }
855}
659 OUTPUT: 856 OUTPUT:
660 RETVAL 857 RETVAL
661 858
662void 859void
663SDL_GL_SwapBuffers () 860SDL_GL_SwapBuffers ()
… …
665char * 862char *
666SDL_GetKeyName (int sym) 863SDL_GetKeyName (int sym)
667 864
668int 865int
669SDL_GetAppState () 866SDL_GetAppState ()
867
868int
869SDL_GetModState ()
670 870
671void 871void
672poll_events () 872poll_events ()
673 PPCODE: 873 PPCODE:
674{ 874{
… …
684 { 884 {
685 case SDL_KEYDOWN: 885 case SDL_KEYDOWN:
686 case SDL_KEYUP: 886 case SDL_KEYUP:
687 hv_store (hv, "state", 5, newSViv (ev.key.state), 0); 887 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
688 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); 888 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
689 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); 889 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod & MOD_MASK), 0);
690 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */ 890 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */
691 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); 891 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
692 break; 892 break;
693 893
694 case SDL_ACTIVEEVENT: 894 case SDL_ACTIVEEVENT:
695 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 895 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
… …
713 x = ev.motion.x; 913 x = ev.motion.x;
714 y = ev.motion.y; 914 y = ev.motion.y;
715 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)); 915 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
716 } 916 }
717 917
718 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 918 hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);
719 hv_store (hv, "state", 5, newSViv (state), 0); 919 hv_store (hv, "state", 5, newSViv (state), 0);
720 hv_store (hv, "x", 1, newSViv (x), 0); 920 hv_store (hv, "x", 1, newSViv (x), 0);
721 hv_store (hv, "y", 1, newSViv (y), 0); 921 hv_store (hv, "y", 1, newSViv (y), 0);
722 hv_store (hv, "xrel", 4, newSViv (xrel), 0); 922 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
723 hv_store (hv, "yrel", 4, newSViv (yrel), 0); 923 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
724 } 924 }
725 break; 925 break;
726 926
727 case SDL_MOUSEBUTTONDOWN: 927 case SDL_MOUSEBUTTONDOWN:
728 case SDL_MOUSEBUTTONUP: 928 case SDL_MOUSEBUTTONUP:
729 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 929 hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);
730 930
731 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 931 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
732 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 932 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
733 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 933 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
734 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 934 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
… …
739 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 939 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
740 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 940 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
741 break; 941 break;
742 } 942 }
743 943
744 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1)))); 944 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("DC::UI::Event", 1))));
745 } 945 }
746} 946}
747 947
748int 948int
749Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 949Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
750 POSTCALL: 950 POSTCALL:
751 Mix_HookMusicFinished (music_finished); 951 Mix_HookMusicFinished (music_finished);
752 Mix_ChannelFinished (channel_finished); 952 Mix_ChannelFinished (channel_finished);
753 953
754void 954void
955Mix_QuerySpec ()
956 PPCODE:
957{
958 int freq, channels;
959 Uint16 format;
960
961 if (Mix_QuerySpec (&freq, &format, &channels))
962 {
963 EXTEND (SP, 3);
964 PUSHs (sv_2mortal (newSViv (freq)));
965 PUSHs (sv_2mortal (newSViv (format)));
966 PUSHs (sv_2mortal (newSViv (channels)));
967 }
968}
969
970void
755Mix_CloseAudio () 971Mix_CloseAudio ()
756 972
757int 973int
758Mix_AllocateChannels (int numchans = -1) 974Mix_AllocateChannels (int numchans = -1)
975
976const char *
977Mix_GetError ()
759 978
760void 979void
761lowdelay (int fd, int val = 1) 980lowdelay (int fd, int val = 1)
762 CODE: 981 CODE:
763 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val)); 982 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
… …
789 } 1008 }
790 } 1009 }
791#endif 1010#endif
792} 1011}
793 1012
794void 1013int
795add_font (char *file) 1014add_font (char *file)
796 CODE: 1015 CODE:
797 FcConfigAppFontAddFile (0, (const FcChar8 *)file); 1016 RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file);
1017 OUTPUT:
1018 RETVAL
798 1019
799void 1020void
800load_image_inline (SV *image_) 1021load_image_inline (SV *image_)
801 ALIAS: 1022 ALIAS:
802 load_image_file = 1 1023 load_image_file = 1
… …
805 STRLEN image_len; 1026 STRLEN image_len;
806 char *image = (char *)SvPVbyte (image_, image_len); 1027 char *image = (char *)SvPVbyte (image_, image_len);
807 SDL_Surface *surface, *surface2; 1028 SDL_Surface *surface, *surface2;
808 SDL_PixelFormat fmt; 1029 SDL_PixelFormat fmt;
809 SDL_RWops *rw = ix 1030 SDL_RWops *rw = ix
810 ? SDL_RWFromFile (image, "r") 1031 ? SDL_RWFromFile (image, "rb")
811 : SDL_RWFromConstMem (image, image_len); 1032 : SDL_RWFromConstMem (image, image_len);
812 1033
813 if (!rw) 1034 if (!rw)
814 croak ("load_image: %s", SDL_GetError ()); 1035 croak ("load_image: %s", SDL_GetError ());
815 1036
… …
888void 1109void
889error (char *message) 1110error (char *message)
890 CODE: 1111 CODE:
891 fprintf (stderr, "ERROR: %s\n", message); 1112 fprintf (stderr, "ERROR: %s\n", message);
892#ifdef _WIN32 1113#ifdef _WIN32
893 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR); 1114 MessageBox (0, message, "Deliantra Client Error", MB_OK | MB_ICONERROR);
894#endif 1115#endif
895 1116
896void 1117void
897fatal (char *message) 1118fatal (char *message)
898 CODE: 1119 CODE:
899 fprintf (stderr, "FATAL: %s\n", message); 1120 fprintf (stderr, "FATAL: %s\n", message);
900#ifdef _WIN32 1121#ifdef _WIN32
901 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 1122 MessageBox (0, message, "Deliantra Client Fatal Error", MB_OK | MB_ICONERROR);
902#endif 1123#endif
903 _exit (1); 1124 _exit (1);
904 1125
905void 1126void
906_exit (int retval = 0) 1127_exit (int retval = 0)
… …
918#if DEBUG 1139#if DEBUG
919 VALGRIND_DO_LEAK_CHECK; 1140 VALGRIND_DO_LEAK_CHECK;
920#endif 1141#endif
921} 1142}
922 1143
923MODULE = CFPlus PACKAGE = CFPlus::Font 1144MODULE = Deliantra::Client PACKAGE = DC::Font
924 1145
925CFPlus::Font 1146PROTOTYPES: DISABLE
1147
1148DC::Font
926new_from_file (SV *class, char *path, int id = 0) 1149new_from_file (SV *class, char *path, int id = 0)
927 CODE: 1150 CODE:
928{ 1151{
929 int count; 1152 int count;
930 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1153 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
… …
933} 1156}
934 OUTPUT: 1157 OUTPUT:
935 RETVAL 1158 RETVAL
936 1159
937void 1160void
938DESTROY (CFPlus::Font self) 1161DESTROY (DC::Font self)
939 CODE: 1162 CODE:
940 pango_font_description_free (self); 1163 pango_font_description_free (self);
941 1164
942void 1165void
943make_default (CFPlus::Font self) 1166make_default (DC::Font self)
1167 PROTOTYPE: $
944 CODE: 1168 CODE:
945 default_font = self; 1169 default_font = self;
946 1170
947MODULE = CFPlus PACKAGE = CFPlus::Layout 1171MODULE = Deliantra::Client PACKAGE = DC::Layout
948 1172
1173PROTOTYPES: DISABLE
1174
949void 1175void
950reset_glyph_cache () 1176glyph_cache_backup ()
1177 PROTOTYPE:
951 CODE: 1178 CODE:
1179 tc_backup ();
1180
1181void
1182glyph_cache_restore ()
1183 PROTOTYPE:
1184 CODE:
952 tc_clear (); 1185 tc_restore ();
953 1186
954CFPlus::Layout 1187DC::Layout
955new (SV *class) 1188new (SV *class)
956 CODE: 1189 CODE:
957 New (0, RETVAL, 1, struct cf_layout); 1190 New (0, RETVAL, 1, struct cf_layout);
958 1191
959 RETVAL->pl = pango_layout_new (opengl_context); 1192 RETVAL->pl = pango_layout_new (opengl_context);
… …
961 RETVAL->g = 1.; 1194 RETVAL->g = 1.;
962 RETVAL->b = 1.; 1195 RETVAL->b = 1.;
963 RETVAL->a = 1.; 1196 RETVAL->a = 1.;
964 RETVAL->base_height = MIN_FONT_HEIGHT; 1197 RETVAL->base_height = MIN_FONT_HEIGHT;
965 RETVAL->font = 0; 1198 RETVAL->font = 0;
1199 RETVAL->rc = rc_alloc ();
966 1200
967 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 1201 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
968 layout_update_font (RETVAL); 1202 layout_update_font (RETVAL);
969 OUTPUT: 1203 OUTPUT:
970 RETVAL 1204 RETVAL
971 1205
972void 1206void
973DESTROY (CFPlus::Layout self) 1207DESTROY (DC::Layout self)
974 CODE: 1208 CODE:
975 g_object_unref (self->pl); 1209 g_object_unref (self->pl);
1210 rc_free (self->rc);
976 Safefree (self); 1211 Safefree (self);
977 1212
978void 1213void
979set_text (CFPlus::Layout self, SV *text_) 1214set_text (DC::Layout self, SV *text_)
980 CODE: 1215 CODE:
981{ 1216{
982 STRLEN textlen; 1217 STRLEN textlen;
983 char *text = SvPVutf8 (text_, textlen); 1218 char *text = SvPVutf8 (text_, textlen);
984 1219
985 pango_layout_set_text (self->pl, text, textlen); 1220 pango_layout_set_text (self->pl, text, textlen);
986} 1221}
987 1222
988void 1223void
989set_markup (CFPlus::Layout self, SV *text_) 1224set_markup (DC::Layout self, SV *text_)
990 CODE: 1225 CODE:
991{ 1226{
992 STRLEN textlen; 1227 STRLEN textlen;
993 char *text = SvPVutf8 (text_, textlen); 1228 char *text = SvPVutf8 (text_, textlen);
994 1229
995 pango_layout_set_markup (self->pl, text, textlen); 1230 pango_layout_set_markup (self->pl, text, textlen);
996} 1231}
997 1232
998void 1233void
999set_shapes (CFPlus::Layout self, ...) 1234set_shapes (DC::Layout self, ...)
1000 CODE: 1235 CODE:
1001{ 1236{
1002 PangoAttrList *attrs = 0; 1237 PangoAttrList *attrs = 0;
1003 const char *text = pango_layout_get_text (self->pl); 1238 const char *text = pango_layout_get_text (self->pl);
1004 const char *pos = text; 1239 const char *pos = text;
… …
1039 if (attrs) 1274 if (attrs)
1040 pango_layout_set_attributes (self->pl, attrs); 1275 pango_layout_set_attributes (self->pl, attrs);
1041} 1276}
1042 1277
1043void 1278void
1044get_shapes (CFPlus::Layout self) 1279get_shapes (DC::Layout self)
1045 PPCODE: 1280 PPCODE:
1046{ 1281{
1047 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1282 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1048 1283
1049 do 1284 do
1050 { 1285 {
1051 PangoLayoutRun *run = pango_layout_iter_get_run (iter); 1286 PangoLayoutRun *run = pango_layout_iter_get_run_readonly (iter);
1052 1287
1053 if (run && shape_attr_p (run)) 1288 if (run && shape_attr_p (run))
1054 { 1289 {
1055 PangoRectangle extents; 1290 PangoRectangle extents;
1056 pango_layout_iter_get_run_extents (iter, 0, &extents); 1291 pango_layout_iter_get_run_extents (iter, 0, &extents);
… …
1064 1299
1065 pango_layout_iter_free (iter); 1300 pango_layout_iter_free (iter);
1066} 1301}
1067 1302
1068int 1303int
1069has_wrapped (CFPlus::Layout self) 1304has_wrapped (DC::Layout self)
1070 CODE: 1305 CODE:
1071{ 1306{
1072 int lines = 1; 1307 int lines = 1;
1073 const char *text = pango_layout_get_text (self->pl); 1308 const char *text = pango_layout_get_text (self->pl);
1074 1309
… …
1079} 1314}
1080 OUTPUT: 1315 OUTPUT:
1081 RETVAL 1316 RETVAL
1082 1317
1083SV * 1318SV *
1084get_text (CFPlus::Layout self) 1319get_text (DC::Layout self)
1085 CODE: 1320 CODE:
1086 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1321 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
1087 sv_utf8_decode (RETVAL); 1322 sv_utf8_decode (RETVAL);
1088 OUTPUT: 1323 OUTPUT:
1089 RETVAL 1324 RETVAL
1090 1325
1091void 1326void
1092set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.) 1327set_foreground (DC::Layout self, float r, float g, float b, float a = 1.)
1093 CODE: 1328 CODE:
1094 self->r = r; 1329 self->r = r;
1095 self->g = g; 1330 self->g = g;
1096 self->b = b; 1331 self->b = b;
1097 self->a = a; 1332 self->a = a;
1098 1333
1099void 1334void
1100set_font (CFPlus::Layout self, CFPlus::Font font = 0) 1335set_font (DC::Layout self, DC::Font font = 0)
1101 CODE: 1336 CODE:
1102 if (self->font != font) 1337 if (self->font != font)
1103 { 1338 {
1104 self->font = font; 1339 self->font = font;
1105 layout_update_font (self); 1340 layout_update_font (self);
1106 } 1341 }
1107 1342
1108void 1343void
1109set_height (CFPlus::Layout self, int base_height) 1344set_height (DC::Layout self, int base_height)
1110 CODE: 1345 CODE:
1111 if (self->base_height != base_height) 1346 if (self->base_height != base_height)
1112 { 1347 {
1113 self->base_height = base_height; 1348 self->base_height = base_height;
1114 layout_update_font (self); 1349 layout_update_font (self);
1115 } 1350 }
1116 1351
1117void 1352void
1118set_width (CFPlus::Layout self, int max_width = -1) 1353set_width (DC::Layout self, int max_width = -1)
1119 CODE: 1354 CODE:
1120 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1355 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
1121 1356
1122void 1357void
1123set_indent (CFPlus::Layout self, int indent) 1358set_indent (DC::Layout self, int indent)
1124 CODE: 1359 CODE:
1125 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1360 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
1126 1361
1127void 1362void
1128set_spacing (CFPlus::Layout self, int spacing) 1363set_spacing (DC::Layout self, int spacing)
1129 CODE: 1364 CODE:
1130 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1365 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
1131 1366
1132void 1367void
1133set_ellipsise (CFPlus::Layout self, int ellipsise) 1368set_ellipsise (DC::Layout self, int ellipsise)
1134 CODE: 1369 CODE:
1135 pango_layout_set_ellipsize (self->pl, 1370 pango_layout_set_ellipsize (self->pl,
1136 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1371 ellipsise == 1 ? PANGO_ELLIPSIZE_START
1137 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1372 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
1138 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1373 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
1139 : PANGO_ELLIPSIZE_NONE 1374 : PANGO_ELLIPSIZE_NONE
1140 ); 1375 );
1141 1376
1142void 1377void
1143set_single_paragraph_mode (CFPlus::Layout self, int spm) 1378set_single_paragraph_mode (DC::Layout self, int spm)
1144 CODE: 1379 CODE:
1145 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1380 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
1146 1381
1147void 1382void
1148size (CFPlus::Layout self) 1383size (DC::Layout self)
1149 PPCODE: 1384 PPCODE:
1150{ 1385{
1151 int w, h; 1386 int w, h;
1152 1387
1153 layout_get_pixel_size (self, &w, &h); 1388 layout_get_pixel_size (self, &w, &h);
… …
1156 PUSHs (sv_2mortal (newSViv (w))); 1391 PUSHs (sv_2mortal (newSViv (w)));
1157 PUSHs (sv_2mortal (newSViv (h))); 1392 PUSHs (sv_2mortal (newSViv (h)));
1158} 1393}
1159 1394
1160int 1395int
1161descent (CFPlus::Layout self) 1396descent (DC::Layout self)
1162 CODE: 1397 CODE:
1163{ 1398{
1164 PangoRectangle rect; 1399 PangoRectangle rect;
1165 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0); 1400 PangoLayoutLine *line = pango_layout_get_line_readonly (self->pl, 0);
1166 pango_layout_line_get_pixel_extents (line, 0, &rect); 1401 pango_layout_line_get_pixel_extents (line, 0, &rect);
1167 RETVAL = PANGO_DESCENT (rect); 1402 RETVAL = PANGO_DESCENT (rect);
1168} 1403}
1169 OUTPUT: 1404 OUTPUT:
1170 RETVAL 1405 RETVAL
1171 1406
1172int 1407int
1173xy_to_index (CFPlus::Layout self, int x, int y) 1408xy_to_index (DC::Layout self, int x, int y)
1174 CODE: 1409 CODE:
1175{ 1410{
1176 int index, trailing; 1411 int index, trailing;
1177 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1412 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
1178 RETVAL = index + trailing; 1413 RETVAL = index + trailing;
1179} 1414}
1180 OUTPUT: 1415 OUTPUT:
1181 RETVAL 1416 RETVAL
1182 1417
1183void 1418void
1184cursor_pos (CFPlus::Layout self, int index) 1419cursor_pos (DC::Layout self, int index)
1185 PPCODE: 1420 PPCODE:
1186{ 1421{
1187 PangoRectangle strong_pos; 1422 PangoRectangle pos;
1188 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1423 pango_layout_get_cursor_pos (self->pl, index, &pos, 0);
1189 1424
1190 EXTEND (SP, 3); 1425 EXTEND (SP, 3);
1191 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE))); 1426 PUSHs (sv_2mortal (newSViv (pos.x / PANGO_SCALE)));
1192 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1427 PUSHs (sv_2mortal (newSViv (pos.y / PANGO_SCALE)));
1193 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1428 PUSHs (sv_2mortal (newSViv (pos.height / PANGO_SCALE)));
1194} 1429}
1195 1430
1196void 1431void
1197index_to_line_x (CFPlus::Layout self, int index, int trailing = 0) 1432index_to_line_x (DC::Layout self, int index, int trailing = 0)
1198 PPCODE: 1433 PPCODE:
1199{ 1434{
1200 int line, x; 1435 int line, x;
1201 1436
1202 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x); 1437 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1438#if !PANGO_VERSION_CHECK (1, 17, 3)
1203 /* pango bug: line is between 1..numlines, not 0..numlines-1 */ 1439 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
1204 1440 --line;
1441#endif
1205 EXTEND (SP, 2); 1442 EXTEND (SP, 2);
1206 PUSHs (sv_2mortal (newSViv (line - 1))); 1443 PUSHs (sv_2mortal (newSViv (line)));
1207 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE))); 1444 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1208} 1445}
1209 1446
1210void 1447void
1211line_x_to_index (CFPlus::Layout self, int line, int x) 1448line_x_to_index (DC::Layout self, int line, int x)
1212 PPCODE: 1449 PPCODE:
1213{ 1450{
1214 PangoLayoutLine *lp; 1451 PangoLayoutLine *lp;
1215 int index, trailing; 1452 int index, trailing;
1216 1453
1217 if (line < 0) 1454 if (line < 0)
1218 XSRETURN_EMPTY; 1455 XSRETURN_EMPTY;
1219 1456
1220 if (!(lp = pango_layout_get_line (self->pl, line))) 1457 if (!(lp = pango_layout_get_line_readonly (self->pl, line)))
1221 XSRETURN_EMPTY; /* do better */ 1458 XSRETURN_EMPTY; /* do better */
1222 1459
1223 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing); 1460 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1224 1461
1225 EXTEND (SP, 2); 1462 EXTEND (SP, 2);
… …
1231 PUSHs (sv_2mortal (newSViv (trailing))); 1468 PUSHs (sv_2mortal (newSViv (trailing)));
1232 } 1469 }
1233} 1470}
1234 1471
1235void 1472void
1236render (CFPlus::Layout self, float x, float y, int flags = 0) 1473render (DC::Layout self, float x, float y, int flags = 0)
1237 PPCODE: 1474 CODE:
1475 rc_clear (self->rc);
1238 pango_opengl_render_layout_subpixel ( 1476 pango_opengl_render_layout_subpixel (
1239 self->pl, 1477 self->pl,
1478 self->rc,
1240 x * PANGO_SCALE, y * PANGO_SCALE, 1479 x * PANGO_SCALE, y * PANGO_SCALE,
1241 self->r, self->g, self->b, self->a, 1480 self->r, self->g, self->b, self->a,
1242 flags 1481 flags
1243 ); 1482 );
1483 // we assume that context_change actually clears/frees stuff
1484 // and does not do any recomputation...
1485 pango_layout_context_changed (self->pl);
1244 1486
1245MODULE = CFPlus PACKAGE = CFPlus::Texture
1246
1247void 1487void
1248pad2pot (SV *data_, SV *w_, SV *h_) 1488draw (DC::Layout self)
1249 CODE: 1489 CODE:
1250{ 1490{
1251 int ow = SvIV (w_); 1491 glEnable (GL_TEXTURE_2D);
1252 int oh = SvIV (h_); 1492 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1493 glEnable (GL_BLEND);
1494 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1495 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1496 glEnable (GL_ALPHA_TEST);
1497 glAlphaFunc (GL_GREATER, 7.f / 255.f);
1253 1498
1254 if (ow && oh) 1499 rc_draw (self->rc);
1500
1501 glDisable (GL_ALPHA_TEST);
1502 glDisable (GL_BLEND);
1503 glDisable (GL_TEXTURE_2D);
1504}
1505
1506MODULE = Deliantra::Client PACKAGE = DC::Texture
1507
1508PROTOTYPES: ENABLE
1509
1510void
1511pad (SV *data_, int ow, int oh, int nw, int nh)
1512 CODE:
1513{
1514 if ((nw != ow || nh != oh) && SvOK (data_))
1255 { 1515 {
1256 int nw = minpot (ow);
1257 int nh = minpot (oh);
1258
1259 if (nw != ow || nh != oh)
1260 {
1261 if (SvOK (data_))
1262 {
1263 STRLEN datalen; 1516 STRLEN datalen;
1264 char *data = SvPVbyte (data_, datalen); 1517 char *data = SvPVbyte (data_, datalen);
1265 int bpp = datalen / (ow * oh); 1518 int bpp = datalen / (ow * oh);
1266 SV *result_ = sv_2mortal (newSV (nw * nh * bpp)); 1519 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1267 1520
1268 SvPOK_only (result_); 1521 SvPOK_only (result_);
1269 SvCUR_set (result_, nw * nh * bpp); 1522 SvCUR_set (result_, nw * nh * bpp);
1270 1523
1271 memset (SvPVX (result_), 0, nw * nh * bpp); 1524 memset (SvPVX (result_), 0, nw * nh * bpp);
1272 while (oh--) 1525 while (oh--)
1273 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp); 1526 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1274 1527
1275 sv_setsv (data_, result_); 1528 sv_setsv (data_, result_);
1276 }
1277
1278 sv_setiv (w_, nw);
1279 sv_setiv (h_, nh);
1280 }
1281 } 1529 }
1282} 1530}
1283 1531
1284void 1532void
1285draw_quad (SV *self, float x, float y, float w = 0., float h = 0.) 1533draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
… …
1291{ 1539{
1292 HV *hv = (HV *)SvRV (self); 1540 HV *hv = (HV *)SvRV (self);
1293 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1541 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1294 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1542 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1295 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1543 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1544
1545 if (name <= 0)
1546 XSRETURN_EMPTY;
1296 1547
1297 if (items < 5) 1548 if (items < 5)
1298 { 1549 {
1299 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1550 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1300 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1551 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1328 glDisable (GL_ALPHA_TEST); 1579 glDisable (GL_ALPHA_TEST);
1329 glDisable (GL_BLEND); 1580 glDisable (GL_BLEND);
1330 } 1581 }
1331} 1582}
1332 1583
1333MODULE = CFPlus PACKAGE = CFPlus::Map 1584IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1585 CODE:
1586{
1587 GLint width;
1588 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0);
1589 glGetTexLevelParameteriv (GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, &width);
1590 RETVAL = width > 0;
1591}
1592 OUTPUT:
1593 RETVAL
1334 1594
1335CFPlus::Map 1595MODULE = Deliantra::Client PACKAGE = DC::Map
1596
1597PROTOTYPES: DISABLE
1598
1599DC::Map
1336new (SV *class) 1600new (SV *class)
1337 CODE: 1601 CODE:
1338 New (0, RETVAL, 1, struct map); 1602 New (0, RETVAL, 1, struct map);
1339 RETVAL->x = 0; 1603 RETVAL->x = 0;
1340 RETVAL->y = 0; 1604 RETVAL->y = 0;
… …
1348 RETVAL->row = 0; 1612 RETVAL->row = 0;
1349 OUTPUT: 1613 OUTPUT:
1350 RETVAL 1614 RETVAL
1351 1615
1352void 1616void
1353DESTROY (CFPlus::Map self) 1617DESTROY (DC::Map self)
1354 CODE: 1618 CODE:
1355{ 1619{
1356 map_clear (self); 1620 map_clear (self);
1357 Safefree (self->face2tile); 1621 Safefree (self->face2tile);
1358 Safefree (self->tex); 1622 Safefree (self->tex);
1359 Safefree (self); 1623 Safefree (self);
1360} 1624}
1361 1625
1362void 1626void
1363resize (CFPlus::Map self, int map_width, int map_height) 1627resize (DC::Map self, int map_width, int map_height)
1364 CODE: 1628 CODE:
1365 self->w = map_width; 1629 self->w = map_width;
1366 self->h = map_height; 1630 self->h = map_height;
1367 1631
1368void 1632void
1369clear (CFPlus::Map self) 1633clear (DC::Map self)
1370 CODE: 1634 CODE:
1371 map_clear (self); 1635 map_clear (self);
1372 1636
1373void 1637void
1374set_tileid (CFPlus::Map self, int face, int tile) 1638set_tileid (DC::Map self, int face, int tile)
1375 CODE: 1639 CODE:
1376{ 1640{
1377 need_facenum (self, face); self->face2tile [face] = tile; 1641 need_facenum (self, face); self->face2tile [face] = tile;
1378 need_texid (self, tile); 1642 need_texid (self, tile);
1379} 1643}
1380 1644
1381void 1645void
1382set_smooth (CFPlus::Map self, int face, int smooth, int level) 1646set_smooth (DC::Map self, int face, int smooth, int level)
1383 CODE: 1647 CODE:
1384{ 1648{
1385 tileid texid; 1649 tileid texid;
1386 maptex *tex; 1650 maptex *tex;
1387 1651
… …
1400 tex->smoothtile = self->face2tile [smooth]; 1664 tex->smoothtile = self->face2tile [smooth];
1401 tex->smoothlevel = level; 1665 tex->smoothlevel = level;
1402} 1666}
1403 1667
1404void 1668void
1405set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a) 1669set_texture (DC::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1406 CODE: 1670 CODE:
1407{ 1671{
1408 need_texid (self, texid); 1672 need_texid (self, texid);
1409 1673
1410 { 1674 {
… …
1430 // from transparent color bleeding and ugly wrapping effects. 1694 // from transparent color bleeding and ugly wrapping effects.
1431 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1695 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1432} 1696}
1433 1697
1434int 1698int
1435ox (CFPlus::Map self) 1699ox (DC::Map self)
1436 ALIAS: 1700 ALIAS:
1437 oy = 1 1701 oy = 1
1438 x = 2 1702 x = 2
1439 y = 3 1703 y = 3
1440 w = 4 1704 w = 4
… …
1451 } 1715 }
1452 OUTPUT: 1716 OUTPUT:
1453 RETVAL 1717 RETVAL
1454 1718
1455void 1719void
1456scroll (CFPlus::Map self, int dx, int dy) 1720scroll (DC::Map self, int dx, int dy)
1457 CODE: 1721 CODE:
1458{ 1722{
1459 if (dx > 0) 1723 if (dx > 0)
1460 map_blank (self, self->x, self->y, dx, self->h); 1724 map_blank (self, self->x, self->y, dx, self->h);
1461 else if (dx < 0) 1725 else if (dx < 0)
… …
1476 self->rows += MAP_EXTEND_Y; 1740 self->rows += MAP_EXTEND_Y;
1477 self->y += MAP_EXTEND_Y; 1741 self->y += MAP_EXTEND_Y;
1478 } 1742 }
1479} 1743}
1480 1744
1481void 1745SV *
1482map1a_update (CFPlus::Map self, SV *data_, int extmap) 1746map1a_update (DC::Map self, SV *data_, int extmap)
1483 CODE: 1747 CODE:
1484{ 1748{
1485 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1749 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1486 uint8_t *data_end = (uint8_t *)SvEND (data_); 1750 uint8_t *data_end = (uint8_t *)SvEND (data_);
1487 mapcell *cell; 1751 mapcell *cell;
1488 int x, y, flags; 1752 int x, y, z, flags;
1753 AV *missing = newAV ();
1754 RETVAL = newRV_noinc ((SV *)missing);
1489 1755
1490 while (data < data_end - 1) 1756 while (data < data_end - 1)
1491 { 1757 {
1492 flags = (data [0] << 8) + data [1]; data += 2; 1758 flags = (data [0] << 8) + data [1]; data += 2;
1493 1759
… …
1513 uint8_t ext, cmd; 1779 uint8_t ext, cmd;
1514 1780
1515 do 1781 do
1516 { 1782 {
1517 ext = *data++; 1783 ext = *data++;
1518 cmd = ext & 0x3f; 1784 cmd = ext & 0x7f;
1519 1785
1520 if (cmd < 4) 1786 if (cmd < 4)
1521 cell->darkness = 255 - ext * 64 + 1; 1787 cell->darkness = 255 - ext * 64 + 1;
1522 else if (cmd == 5) // health 1788 else if (cmd == 5) // health
1523 { 1789 {
… …
1526 } 1792 }
1527 else if (cmd == 6) // monster width 1793 else if (cmd == 6) // monster width
1528 cell->stat_width = *data++ + 1; 1794 cell->stat_width = *data++ + 1;
1529 else if (cmd == 0x47) 1795 else if (cmd == 0x47)
1530 { 1796 {
1531 if (*data == 4) 1797 if (*data == 1) cell->player = data [1];
1532 ; // decode player count 1798 else if (*data == 2) cell->player = data [2] + (data [1] << 8);
1799 else if (*data == 3) cell->player = data [3] + (data [2] << 8) + (data [1] << 16);
1800 else if (*data == 4) cell->player = data [4] + (data [3] << 8) + (data [2] << 16) + (data [1] << 24);
1533 1801
1534 data += *data + 1; 1802 data += *data + 1;
1535 } 1803 }
1536 else if (cmd == 8) // cell flags 1804 else if (cmd == 8) // cell flags
1537 cell->flags = *data++; 1805 cell->flags = *data++;
… …
1544 } 1812 }
1545 else 1813 else
1546 cell->darkness = *data++ + 1; 1814 cell->darkness = *data++ + 1;
1547 } 1815 }
1548 1816
1817 for (z = 0; z <= 2; ++z)
1549 if (flags & 4) 1818 if (flags & (4 >> z))
1550 { 1819 {
1551 faceid face = (data [0] << 8) + data [1]; data += 2; 1820 faceid face = (data [0] << 8) + data [1]; data += 2;
1552 need_facenum (self, face); 1821 need_facenum (self, face);
1553 cell->tile [0] = self->face2tile [face]; 1822 cell->tile [z] = self->face2tile [face];
1823
1824 if (cell->tile [z])
1825 {
1826 maptex *tex = self->tex + cell->tile [z];
1827 if (!tex->name)
1828 av_push (missing, newSViv (cell->tile [z]));
1829
1830 if (tex->smoothtile)
1831 {
1832 maptex *smooth = self->tex + tex->smoothtile;
1833 if (!smooth->name)
1834 av_push (missing, newSViv (tex->smoothtile));
1835 }
1836 }
1554 } 1837 }
1555
1556 if (flags & 2)
1557 {
1558 faceid face = (data [0] << 8) + data [1]; data += 2;
1559 need_facenum (self, face);
1560 cell->tile [1] = self->face2tile [face];
1561 }
1562
1563 if (flags & 1)
1564 {
1565 faceid face = (data [0] << 8) + data [1]; data += 2;
1566 need_facenum (self, face);
1567 cell->tile [2] = self->face2tile [face];
1568 }
1569 } 1838 }
1570 else 1839 else
1571 cell->darkness = 0; 1840 CELL_CLEAR (cell);
1572 } 1841 }
1573} 1842}
1843 OUTPUT:
1844 RETVAL
1574 1845
1575SV * 1846SV *
1576mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 1847mapmap (DC::Map self, int x0, int y0, int w, int h)
1577 CODE: 1848 CODE:
1578{ 1849{
1579 int x1, x; 1850 int x1, x;
1580 int y1, y; 1851 int y1, y;
1581 int z; 1852 int z;
… …
1626} 1897}
1627 OUTPUT: 1898 OUTPUT:
1628 RETVAL 1899 RETVAL
1629 1900
1630void 1901void
1631draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T) 1902draw (DC::Map self, int mx, int my, int sw, int sh, int T, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
1632 CODE: 1903 CODE:
1633{ 1904{
1905 int x, y, z;
1906
1634 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ()); 1907 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1635 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level 1908 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1636 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k) 1909 static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1637 smooth_key skey; 1910 smooth_key skey;
1638 int x, y, z; 1911 int pl_x, pl_y;
1639 int last_name; 1912 maptex pl_tex;
1913 rc_t *rc = rc_alloc ();
1914 rc_key_t key;
1915 rc_array_t *arr;
1916
1917 pl_tex.name = 0;
1640 1918
1641 // thats current max. sorry. 1919 // thats current max. sorry.
1642 if (sw > 255) sw = 255; 1920 if (sw > 255) sw = 255;
1643 if (sh > 255) sh = 255; 1921 if (sh > 255) sh = 255;
1644 1922
1645 // clear key, in case of extra padding 1923 // clear key, in case of extra padding
1646 memset (&skey, 0, sizeof (skey)); 1924 memset (&skey, 0, sizeof (skey));
1647 1925
1648 glColor4ub (255, 255, 255, 255); 1926 memset (&key, 0, sizeof (key));
1649 1927 key.r = 255;
1650 glEnable (GL_BLEND); 1928 key.g = 255;
1651 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1929 key.b = 255;
1652 glEnable (GL_TEXTURE_2D); 1930 key.a = 255;
1653 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1931 key.mode = GL_QUADS;
1654 1932 key.format = GL_T2F_V3F;
1655 glBegin (GL_QUADS); 1933 key.texname = -1;
1656
1657 last_name = 0;
1658 1934
1659 mx += self->x; 1935 mx += self->x;
1660 my += self->y; 1936 my += self->y;
1661 1937
1662 // first pass: determine smooth_max 1938 // first pass: determine smooth_max
… …
1678 MAX (self->tex [cell->tile [0]].smoothlevel, 1954 MAX (self->tex [cell->tile [0]].smoothlevel,
1679 MAX (self->tex [cell->tile [1]].smoothlevel, 1955 MAX (self->tex [cell->tile [1]].smoothlevel,
1680 self->tex [cell->tile [2]].smoothlevel)); 1956 self->tex [cell->tile [2]].smoothlevel));
1681 } 1957 }
1682 } 1958 }
1959
1960 glEnable (GL_BLEND);
1961 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1962 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1683 1963
1684 for (z = 0; z <= 2; z++) 1964 for (z = 0; z <= 2; z++)
1685 { 1965 {
1686 memset (smooth_level, 0, sizeof (smooth_level)); 1966 memset (smooth_level, 0, sizeof (smooth_level));
1687 1967
… …
1700 { 1980 {
1701 maptex tex = self->tex [tile]; 1981 maptex tex = self->tex [tile];
1702 int px = (x + 1) * T - tex.w; 1982 int px = (x + 1) * T - tex.w;
1703 int py = (y + 1) * T - tex.h; 1983 int py = (y + 1) * T - tex.h;
1704 1984
1705 // suppressing texture state switches here
1706 // is only moderately effective, but worth the extra effort
1707 if (last_name != tex.name) 1985 if (key.texname != tex.name)
1708 { 1986 {
1709 if (!tex.name) 1987 if (!tex.name)
1710 tex = self->tex [2]; /* missing, replace by noface */ 1988 tex = self->tex [2]; /* missing, replace by noface */
1711 1989
1712 glEnd (); 1990 key.texname = tex.name;
1713 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 1991 arr = rc_array (rc, &key);
1714 glBegin (GL_QUADS);
1715 } 1992 }
1716 1993
1717 glTexCoord2f (0 , 0 ); glVertex2f (px , py ); 1994 if (expect_false (cell->player == player) && expect_false (z == 2))
1718 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1719 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1720 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1721
1722 if (cell->flags && z == 2)
1723 { 1995 {
1996 pl_x = px;
1997 pl_y = py;
1998 pl_tex = tex;
1999 continue;
2000 }
2001
2002 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2003 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
2004 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
2005 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
2006
2007 if (expect_false (cell->flags) && expect_false (z == 2))
2008 {
2009 // overlays such as the speech bubble, probably more to come
1724 if (cell->flags & 1) 2010 if (cell->flags & 1)
1725 { 2011 {
1726 maptex tex = self->tex [1]; 2012 maptex tex = self->tex [1];
1727 int px = x * T + T * 2 / 32; 2013 int px = x * T + T * 2 / 32;
1728 int py = y * T - T * 6 / 32; 2014 int py = y * T - T * 6 / 32;
1729 2015
2016 if (tex.name)
1730 glEnd (); 2017 {
1731 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 2018 if (key.texname != tex.name)
2019 {
2020 key.texname = tex.name;
2021 arr = rc_array (rc, &key);
2022 }
2023
2024 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2025 rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
2026 rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
2027 rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1732 glBegin (GL_QUADS); 2028 }
1733
1734 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1735 glTexCoord2f (0 , tex.t); glVertex2f (px , py + T);
1736 glTexCoord2f (tex.s, tex.t); glVertex2f (px + T, py + T);
1737 glTexCoord2f (tex.s, 0 ); glVertex2f (px + T, py );
1738 } 2029 }
1739 } 2030 }
1740 2031
1741 // update smooth hash 2032 // update smooth hash
1742 if (tex.smoothtile) 2033 if (tex.smoothtile)
… …
1778 } 2069 }
1779 } 2070 }
1780 } 2071 }
1781 } 2072 }
1782 2073
2074 rc_draw (rc);
2075 rc_clear (rc);
2076
1783 // go through all smoothlevels, lowest to highest, then draw. 2077 // go through all smoothlevels, lowest to highest, then draw.
1784 // this is basically counting sort 2078 // this is basically counting sort
1785 { 2079 {
1786 int w, b; 2080 int w, b;
1787 2081
2082 glEnable (GL_TEXTURE_2D);
2083 glBegin (GL_QUADS);
1788 for (w = 0; w < 256 / 32; ++w) 2084 for (w = 0; w < 256 / 32; ++w)
1789 { 2085 {
1790 uint32_t smask = smooth_level [w]; 2086 uint32_t smask = smooth_level [w];
1791 if (smask) 2087 if (smask)
1792 for (b = 0; b < 32; ++b) 2088 for (b = 0; b < 32; ++b)
… …
1811 int border = bits & 15; 2107 int border = bits & 15;
1812 int corner = (bits >> 8) & ~(bits >> 4) & 15; 2108 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1813 float dx = tex.s * .0625f; // 16 images/row 2109 float dx = tex.s * .0625f; // 16 images/row
1814 float dy = tex.t * .5f ; // 2 images/column 2110 float dy = tex.t * .5f ; // 2 images/column
1815 2111
1816 // this time naively avoiding texture state changes
1817 // save gobs of state changes.
1818 if (last_name != tex.name) 2112 if (tex.name)
1819 { 2113 {
2114 // this time avoiding texture state changes
2115 // save gobs of state changes.
1820 if (!tex.name) 2116 if (key.texname != tex.name)
1821 continue; // smoothing not yet available 2117 {
1822
1823 glEnd (); 2118 glEnd ();
1824 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 2119 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1825 glBegin (GL_QUADS); 2120 glBegin (GL_QUADS);
1826 } 2121 }
1827 2122
1828 if (border) 2123 if (border)
1829 { 2124 {
1830 float ox = border * dx; 2125 float ox = border * dx;
1831 2126
1832 glTexCoord2f (ox , 0.f ); glVertex2f (px , py ); 2127 glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
1833 glTexCoord2f (ox , dy ); glVertex2f (px , py + T); 2128 glTexCoord2f (ox , dy ); glVertex2i (px , py + T);
1834 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T); 2129 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);
1835 glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py ); 2130 glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );
1836 } 2131 }
1837 2132
1838 if (corner) 2133 if (corner)
1839 { 2134 {
1840 float ox = corner * dx; 2135 float ox = corner * dx;
1841 2136
1842 glTexCoord2f (ox , dy ); glVertex2f (px , py ); 2137 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1843 glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T); 2138 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1844 glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T); 2139 glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);
1845 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py ); 2140 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
2141 }
1846 } 2142 }
1847 } 2143 }
1848 } 2144 }
1849 } 2145 }
1850 } 2146 }
2147
2148 glEnd ();
2149 glDisable (GL_TEXTURE_2D);
2150 key.texname = -1;
1851 } 2151 }
1852 2152
1853 hv_clear (smooth); 2153 hv_clear (smooth);
1854 } 2154 }
1855 2155
1856 glEnd (); 2156 if (pl_tex.name)
2157 {
2158 maptex tex = pl_tex;
2159 int px = pl_x + sdx;
2160 int py = pl_y + sdy;
1857 2161
1858 glDisable (GL_TEXTURE_2D); 2162 key.texname = tex.name;
2163 arr = rc_array (rc, &key);
2164
2165 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2166 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
2167 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
2168 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
2169
2170 rc_draw (rc);
2171 }
2172
1859 glDisable (GL_BLEND); 2173 glDisable (GL_BLEND);
2174 rc_free (rc);
1860 2175
1861 // top layer: overlays such as the health bar 2176 // top layer: overlays such as the health bar
1862 for (y = 0; y < sh; y++) 2177 for (y = 0; y < sh; y++)
1863 if (0 <= y + my && y + my < self->rows) 2178 if (0 <= y + my && y + my < self->rows)
1864 { 2179 {
… …
1889 } 2204 }
1890 } 2205 }
1891} 2206}
1892 2207
1893void 2208void
1894draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data) 2209draw_magicmap (DC::Map self, int dx, int dy, int w, int h, unsigned char *data)
1895 CODE: 2210 CODE:
1896{ 2211{
1897 static float color[16][3] = { 2212 static float color[16][3] = {
1898 { 0.00F, 0.00F, 0.00F }, 2213 { 0.00F, 0.00F, 0.00F },
1899 { 1.00F, 1.00F, 1.00F }, 2214 { 1.00F, 1.00F, 1.00F },
… …
1949 glDisable (GL_BLEND); 2264 glDisable (GL_BLEND);
1950 glDisable (GL_TEXTURE_2D); 2265 glDisable (GL_TEXTURE_2D);
1951} 2266}
1952 2267
1953void 2268void
1954fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh) 2269fow_texture (DC::Map self, int mx, int my, int sw, int sh)
1955 PPCODE: 2270 PPCODE:
1956{ 2271{
1957 int x, y; 2272 int x, y;
2273 int sw1 = sw + 2;
2274 int sh1 = sh + 2;
2275 int sh3 = sh * 3;
1958 int sw4 = (sw + 3) & ~3; 2276 int sw34 = (sw * 3 + 3) & ~3;
2277 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1959 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2278 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1960 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2279 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1961 2280
1962 memset (darkness, 255, sw4 * sh);
1963 SvPOK_only (darkness_sv); 2281 SvPOK_only (darkness3_sv);
1964 SvCUR_set (darkness_sv, sw4 * sh); 2282 SvCUR_set (darkness3_sv, sw34 * sh3);
1965 2283
1966 mx += self->x; 2284 mx += self->x - 1;
1967 my += self->y; 2285 my += self->y - 1;
1968 2286
2287 memset (darkness1, 255 - FOW_DARKNESS, sw1 * sh1);
2288
1969 for (y = 0; y < sh; y++) 2289 for (y = 0; y < sh1; y++)
1970 if (0 <= y + my && y + my < self->rows) 2290 if (0 <= y + my && y + my < self->rows)
1971 { 2291 {
1972 maprow *row = self->row + (y + my); 2292 maprow *row = self->row + (y + my);
1973 2293
1974 for (x = 0; x < sw; x++) 2294 for (x = 0; x < sw1; x++)
1975 if (row->c0 <= x + mx && x + mx < row->c1) 2295 if (row->c0 <= x + mx && x + mx < row->c1)
1976 { 2296 {
1977 mapcell *cell = row->col + (x + mx - row->c0); 2297 mapcell *cell = row->col + (x + mx - row->c0);
1978 2298
1979 darkness[y * sw4 + x] = cell->darkness 2299 darkness1 [y * sw1 + x] = cell->darkness
1980 ? 255 - (cell->darkness - 1) 2300 ? 255 - (cell->darkness - 1)
1981 : 255 - FOW_DARKNESS; 2301 : 255 - FOW_DARKNESS;
1982 } 2302 }
1983 } 2303 }
1984 2304
2305 for (y = 0; y < sh; ++y)
2306 for (x = 0; x < sw; ++x)
2307 {
2308 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2309 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2310 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2311 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2312 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2313 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2314 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2315 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2316 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
2317
2318 uint8_t r11 = (d11 + d21 + d12) / 3;
2319 uint8_t r21 = d21;
2320 uint8_t r31 = (d21 + d31 + d32) / 3;
2321
2322 uint8_t r12 = d12;
2323 uint8_t r22 = d22;
2324 uint8_t r32 = d32;
2325
2326 uint8_t r13 = (d13 + d23 + d12) / 3;
2327 uint8_t r23 = d23;
2328 uint8_t r33 = (d23 + d33 + d32) / 3;
2329
2330 darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);
2331 darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);
2332 darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);
2333 darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);
2334 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);
2335 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);
2336 darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);
2337 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);
2338 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);
2339 }
2340
2341 free (darkness1);
2342
1985 EXTEND (SP, 3); 2343 EXTEND (SP, 3);
1986 PUSHs (sv_2mortal (newSViv (sw4))); 2344 PUSHs (sv_2mortal (newSViv (sw34)));
1987 PUSHs (sv_2mortal (newSViv (sh))); 2345 PUSHs (sv_2mortal (newSViv (sh3)));
1988 PUSHs (darkness_sv); 2346 PUSHs (darkness3_sv);
1989} 2347}
1990 2348
1991SV * 2349SV *
1992get_rect (CFPlus::Map self, int x0, int y0, int w, int h) 2350get_rect (DC::Map self, int x0, int y0, int w, int h)
1993 CODE: 2351 CODE:
1994{ 2352{
1995 int x, y, x1, y1; 2353 int x, y, x1, y1;
1996 SV *data_sv = newSV (w * h * 7 + 5); 2354 SV *data_sv = newSV (w * h * 7 + 5);
1997 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2355 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
2054 else 2412 else
2055 *data++ = 0; 2413 *data++ = 0;
2056 } 2414 }
2057 } 2415 }
2058 2416
2417 /* if size is w*h + 5 then no data has been found */
2418 if (data - (uint8_t *)SvPVX (data_sv) != w * h + 5)
2419 {
2059 SvPOK_only (data_sv); 2420 SvPOK_only (data_sv);
2060 SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv)); 2421 SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
2422 }
2423
2061 RETVAL = data_sv; 2424 RETVAL = data_sv;
2062} 2425}
2063 OUTPUT: 2426 OUTPUT:
2064 RETVAL 2427 RETVAL
2065 2428
2066void 2429void
2067set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data) 2430set_rect (DC::Map self, int x0, int y0, SV *data_sv)
2068 PPCODE: 2431 PPCODE:
2069{ 2432{
2070 int x, y, z; 2433 int x, y, z;
2071 int w, h; 2434 int w, h;
2072 int x1, y1; 2435 int x1, y1;
2436 STRLEN len;
2437 uint8_t *data, *end;
2438
2439 len = SvLEN (data_sv);
2440 SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
2441 data = SvPVbyte_nolen (data_sv);
2442 end = data + len + 8;
2443
2444 if (len < 5)
2445 XSRETURN_EMPTY;
2073 2446
2074 if (*data++ != 0) 2447 if (*data++ != 0)
2075 return; /* version mismatch */ 2448 XSRETURN_EMPTY; /* version mismatch */
2076 2449
2077 w = *data++ << 8; w |= *data++; 2450 w = *data++ << 8; w |= *data++;
2078 h = *data++ << 8; h |= *data++; 2451 h = *data++ << 8; h |= *data++;
2079 2452
2080 // we need to do this 'cause we don't keep an absolute coord system for rows 2453 // we need to do this 'cause we don't keep an absolute coord system for rows
… …
2092 { 2465 {
2093 maprow *row = map_get_row (self, y); 2466 maprow *row = map_get_row (self, y);
2094 2467
2095 for (x = x0; x < x1; x++) 2468 for (x = x0; x < x1; x++)
2096 { 2469 {
2470 uint8_t flags;
2471
2472 if (data + 7 >= end)
2473 XSRETURN_EMPTY;
2474
2097 uint8_t flags = *data++; 2475 flags = *data++;
2098 2476
2099 if (flags) 2477 if (flags)
2100 { 2478 {
2101 mapcell *cell = row_get_cell (row, x); 2479 mapcell *cell = row_get_cell (row, x);
2102 tileid tile[3] = { 0, 0, 0 }; 2480 tileid tile[3] = { 0, 0, 0 };
… …
2105 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; } 2483 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
2106 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; } 2484 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
2107 2485
2108 if (cell->darkness == 0) 2486 if (cell->darkness == 0)
2109 { 2487 {
2110 cell->darkness = 0; 2488 /*cell->darkness = 0;*/
2489 EXTEND (SP, 3);
2111 2490
2112 for (z = 0; z <= 2; z++) 2491 for (z = 0; z <= 2; z++)
2113 { 2492 {
2114 tileid t = tile [z]; 2493 tileid t = tile [z];
2115 2494
2116 if (t >= self->texs || (t && !self->tex [t].name)) 2495 if (t >= self->texs || (t && !self->tex [t].name))
2117 { 2496 {
2118 XPUSHs (sv_2mortal (newSViv (t))); 2497 PUSHs (sv_2mortal (newSViv (t)));
2119 need_texid (self, t); 2498 need_texid (self, t);
2120 } 2499 }
2121 2500
2122 cell->tile [z] = t; 2501 cell->tile [z] = t;
2123 } 2502 }
… …
2125 } 2504 }
2126 } 2505 }
2127 } 2506 }
2128} 2507}
2129 2508
2130MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2509MODULE = Deliantra::Client PACKAGE = DC::RW
2131 2510
2132CFPlus::MixChunk 2511DC::RW
2133new_from_file (SV *class, char *path) 2512new (SV *class, SV *data_sv)
2134 CODE: 2513 CODE:
2135 RETVAL = Mix_LoadWAV (path); 2514{
2515 STRLEN datalen;
2516 char *data = SvPVbyte (data_sv, datalen);
2517
2518 RETVAL = SDL_RWFromConstMem (data, datalen);
2519}
2136 OUTPUT: 2520 OUTPUT:
2137 RETVAL 2521 RETVAL
2138 2522
2523DC::RW
2524new_from_file (SV *class, const char *path, const char *mode = "rb")
2525 CODE:
2526 RETVAL = SDL_RWFromFile (path, mode);
2527 OUTPUT:
2528 RETVAL
2529
2530# fails on win32:
2531# dc.xs(2268) : error C2059: syntax error : '('
2139void 2532#void
2533#close (DC::RW self)
2534# CODE:
2535# (self->(close)) (self);
2536
2537MODULE = Deliantra::Client PACKAGE = DC::Channel
2538
2539PROTOTYPES: DISABLE
2540
2541DC::Channel
2542find ()
2543 CODE:
2544{
2545 RETVAL = Mix_GroupAvailable (-1);
2546
2547 if (RETVAL < 0)
2548 {
2549 RETVAL = Mix_GroupOldest (-1);
2550
2551 if (RETVAL < 0)
2552 XSRETURN_UNDEF;
2553
2554 Mix_HaltChannel (RETVAL);
2555 }
2556
2557 Mix_UnregisterAllEffects (RETVAL);
2558 Mix_Volume (RETVAL, 128);
2559}
2560 OUTPUT:
2561 RETVAL
2562
2563void
2564halt (DC::Channel self)
2565 CODE:
2566 Mix_HaltChannel (self);
2567
2568void
2569expire (DC::Channel self, int ticks = -1)
2570 CODE:
2571 Mix_ExpireChannel (self, ticks);
2572
2573void
2574fade_out (DC::Channel self, int ticks = -1)
2575 CODE:
2576 Mix_FadeOutChannel (self, ticks);
2577
2578int
2579volume (DC::Channel self, int volume)
2580 CODE:
2581 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2582 OUTPUT:
2583 RETVAL
2584
2585void
2586unregister_all_effects (DC::Channel self)
2587 CODE:
2588 Mix_UnregisterAllEffects (self);
2589
2590void
2591set_panning (DC::Channel self, int left, int right)
2592 CODE:
2593 left = CLAMP (left , 0, 255);
2594 right = CLAMP (right, 0, 255);
2595 Mix_SetPanning (self, left, right);
2596
2597void
2598set_distance (DC::Channel self, int distance)
2599 CODE:
2600 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2601
2602void
2603set_position (DC::Channel self, int angle, int distance)
2604 CODE:
2605
2606void
2607set_position_r (DC::Channel self, int dx, int dy, int maxdistance)
2608 CODE:
2609{
2610 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2611 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2612 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2613}
2614
2615void
2616set_reverse_stereo (DC::Channel self, int flip)
2617 CODE:
2618 Mix_SetReverseStereo (self, flip);
2619
2620MODULE = Deliantra::Client PACKAGE = DC::MixChunk
2621
2622PROTOTYPES: DISABLE
2623
2624DC::MixChunk
2625new (SV *class, DC::RW rwops)
2626 CODE:
2627 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2628 OUTPUT:
2629 RETVAL
2630
2631void
2140DESTROY (CFPlus::MixChunk self) 2632DESTROY (DC::MixChunk self)
2141 CODE: 2633 CODE:
2142 Mix_FreeChunk (self); 2634 Mix_FreeChunk (self);
2143 2635
2144int 2636int
2145volume (CFPlus::MixChunk self, int volume = -1) 2637volume (DC::MixChunk self, int volume = -1)
2146 CODE: 2638 CODE:
2639 if (items > 1)
2640 volume = CLAMP (volume, 0, 128);
2147 RETVAL = Mix_VolumeChunk (self, volume); 2641 RETVAL = Mix_VolumeChunk (self, volume);
2148 OUTPUT: 2642 OUTPUT:
2149 RETVAL 2643 RETVAL
2150 2644
2151int 2645DC::Channel
2152play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2646play (DC::MixChunk self, DC::Channel channel = -1, int loops = 0, int ticks = -1)
2153 CODE: 2647 CODE:
2648{
2154 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2649 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2650
2651 if (RETVAL < 0)
2652 XSRETURN_UNDEF;
2653
2654 if (channel < 0)
2655 {
2656 Mix_UnregisterAllEffects (RETVAL);
2657 Mix_Volume (RETVAL, 128);
2658 }
2659}
2155 OUTPUT: 2660 OUTPUT:
2156 RETVAL 2661 RETVAL
2157 2662
2158MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2663MODULE = Deliantra::Client PACKAGE = DC::MixMusic
2159 2664
2160int 2665int
2161volume (int volume = -1) 2666volume (int volume = -1)
2667 PROTOTYPE: ;$
2162 CODE: 2668 CODE:
2669 if (items > 0)
2670 volume = CLAMP (volume, 0, 128);
2163 RETVAL = Mix_VolumeMusic (volume); 2671 RETVAL = Mix_VolumeMusic (volume);
2164 OUTPUT: 2672 OUTPUT:
2165 RETVAL 2673 RETVAL
2166 2674
2675void
2676fade_out (int ms)
2677 CODE:
2678 Mix_FadeOutMusic (ms);
2679
2680void
2681halt ()
2682 CODE:
2683 Mix_HaltMusic ();
2684
2685DC::MixMusic
2686new (SV *class, DC::RW rwops)
2687 CODE:
2688 RETVAL = Mix_LoadMUS_RW (rwops);
2689 OUTPUT:
2690 RETVAL
2691
2692void
2693DESTROY (DC::MixMusic self)
2694 CODE:
2695 Mix_FreeMusic (self);
2696
2167int 2697int
2168fade_out (int ms)
2169 CODE:
2170 RETVAL = Mix_FadeOutMusic (ms);
2171 OUTPUT:
2172 RETVAL
2173
2174CFPlus::MixMusic
2175new_from_file (SV *class, char *path)
2176 CODE:
2177 RETVAL = Mix_LoadMUS (path);
2178 OUTPUT:
2179 RETVAL
2180
2181void
2182DESTROY (CFPlus::MixMusic self)
2183 CODE:
2184 Mix_FreeMusic (self);
2185
2186int
2187play (CFPlus::MixMusic self, int loops = -1) 2698play (DC::MixMusic self, int loops = -1)
2188 CODE: 2699 CODE:
2189 RETVAL = Mix_PlayMusic (self, loops); 2700 RETVAL = Mix_PlayMusic (self, loops);
2190 OUTPUT: 2701 OUTPUT:
2191 RETVAL 2702 RETVAL
2192 2703
2193int 2704void
2194fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) 2705fade_in_pos (DC::MixMusic self, int loops, int ms, double position)
2195 CODE: 2706 CODE:
2196 RETVAL = Mix_FadeInMusicPos (self, loops, ms, position); 2707 Mix_FadeInMusicPos (self, loops, ms, position);
2197 OUTPUT:
2198 RETVAL
2199 2708
2200MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2709MODULE = Deliantra::Client PACKAGE = DC::OpenGL
2710
2711PROTOTYPES: ENABLE
2201 2712
2202BOOT: 2713BOOT:
2203{ 2714{
2204 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1); 2715 HV *stash = gv_stashpv ("DC::OpenGL", 1);
2205 static const struct { 2716 static const struct {
2206 const char *name; 2717 const char *name;
2207 IV iv; 2718 IV iv;
2208 } *civ, const_iv[] = { 2719 } *civ, const_iv[] = {
2209# define const_iv(name) { # name, (IV)name } 2720# define const_iv(name) { # name, (IV)name }
2721 const_iv (GL_VENDOR),
2722 const_iv (GL_VERSION),
2723 const_iv (GL_EXTENSIONS),
2210 const_iv (GL_COLOR_MATERIAL), 2724 const_iv (GL_COLOR_MATERIAL),
2211 const_iv (GL_SMOOTH), 2725 const_iv (GL_SMOOTH),
2212 const_iv (GL_FLAT), 2726 const_iv (GL_FLAT),
2213 const_iv (GL_DITHER), 2727 const_iv (GL_DITHER),
2214 const_iv (GL_BLEND), 2728 const_iv (GL_BLEND),
… …
2218 const_iv (GL_ALPHA_TEST), 2732 const_iv (GL_ALPHA_TEST),
2219 const_iv (GL_NORMALIZE), 2733 const_iv (GL_NORMALIZE),
2220 const_iv (GL_RESCALE_NORMAL), 2734 const_iv (GL_RESCALE_NORMAL),
2221 const_iv (GL_FRONT), 2735 const_iv (GL_FRONT),
2222 const_iv (GL_BACK), 2736 const_iv (GL_BACK),
2737 const_iv (GL_AUX0),
2223 const_iv (GL_AND), 2738 const_iv (GL_AND),
2224 const_iv (GL_ONE), 2739 const_iv (GL_ONE),
2225 const_iv (GL_ZERO), 2740 const_iv (GL_ZERO),
2226 const_iv (GL_SRC_ALPHA), 2741 const_iv (GL_SRC_ALPHA),
2227 const_iv (GL_DST_ALPHA), 2742 const_iv (GL_DST_ALPHA),
… …
2240 const_iv (GL_INTENSITY), 2755 const_iv (GL_INTENSITY),
2241 const_iv (GL_LUMINANCE), 2756 const_iv (GL_LUMINANCE),
2242 const_iv (GL_LUMINANCE_ALPHA), 2757 const_iv (GL_LUMINANCE_ALPHA),
2243 const_iv (GL_FLOAT), 2758 const_iv (GL_FLOAT),
2244 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2759 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
2760 const_iv (GL_COMPRESSED_ALPHA_ARB),
2761 const_iv (GL_COMPRESSED_LUMINANCE_ARB),
2762 const_iv (GL_COMPRESSED_LUMINANCE_ALPHA_ARB),
2763 const_iv (GL_COMPRESSED_INTENSITY_ARB),
2764 const_iv (GL_COMPRESSED_RGB_ARB),
2765 const_iv (GL_COMPRESSED_RGBA_ARB),
2245 const_iv (GL_COMPILE), 2766 const_iv (GL_COMPILE),
2767 const_iv (GL_PROXY_TEXTURE_1D),
2768 const_iv (GL_PROXY_TEXTURE_2D),
2246 const_iv (GL_TEXTURE_1D), 2769 const_iv (GL_TEXTURE_1D),
2247 const_iv (GL_TEXTURE_2D), 2770 const_iv (GL_TEXTURE_2D),
2248 const_iv (GL_TEXTURE_ENV), 2771 const_iv (GL_TEXTURE_ENV),
2249 const_iv (GL_TEXTURE_MAG_FILTER), 2772 const_iv (GL_TEXTURE_MAG_FILTER),
2250 const_iv (GL_TEXTURE_MIN_FILTER), 2773 const_iv (GL_TEXTURE_MIN_FILTER),
… …
2271 const_iv (GL_COLOR_LOGIC_OP), 2794 const_iv (GL_COLOR_LOGIC_OP),
2272 const_iv (GL_SEPARABLE_2D), 2795 const_iv (GL_SEPARABLE_2D),
2273 const_iv (GL_CONVOLUTION_2D), 2796 const_iv (GL_CONVOLUTION_2D),
2274 const_iv (GL_CONVOLUTION_BORDER_MODE), 2797 const_iv (GL_CONVOLUTION_BORDER_MODE),
2275 const_iv (GL_CONSTANT_BORDER), 2798 const_iv (GL_CONSTANT_BORDER),
2799 const_iv (GL_POINTS),
2276 const_iv (GL_LINES), 2800 const_iv (GL_LINES),
2277 const_iv (GL_LINE_STRIP), 2801 const_iv (GL_LINE_STRIP),
2278 const_iv (GL_LINE_LOOP), 2802 const_iv (GL_LINE_LOOP),
2279 const_iv (GL_QUADS), 2803 const_iv (GL_QUADS),
2280 const_iv (GL_QUAD_STRIP), 2804 const_iv (GL_QUAD_STRIP),
2281 const_iv (GL_TRIANGLES), 2805 const_iv (GL_TRIANGLES),
2282 const_iv (GL_TRIANGLE_STRIP), 2806 const_iv (GL_TRIANGLE_STRIP),
2283 const_iv (GL_TRIANGLE_FAN), 2807 const_iv (GL_TRIANGLE_FAN),
2808 const_iv (GL_POLYGON),
2284 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2809 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2810 const_iv (GL_POINT_SMOOTH_HINT),
2811 const_iv (GL_LINE_SMOOTH_HINT),
2812 const_iv (GL_POLYGON_SMOOTH_HINT),
2813 const_iv (GL_GENERATE_MIPMAP_HINT),
2814 const_iv (GL_TEXTURE_COMPRESSION_HINT),
2285 const_iv (GL_FASTEST), 2815 const_iv (GL_FASTEST),
2816 const_iv (GL_DONT_CARE),
2817 const_iv (GL_NICEST),
2286 const_iv (GL_V2F), 2818 const_iv (GL_V2F),
2287 const_iv (GL_V3F), 2819 const_iv (GL_V3F),
2288 const_iv (GL_T2F_V3F), 2820 const_iv (GL_T2F_V3F),
2289 const_iv (GL_T2F_N3F_V3F), 2821 const_iv (GL_T2F_N3F_V3F),
2290# undef const_iv 2822# undef const_iv
… …
2295 2827
2296 texture_av = newAV (); 2828 texture_av = newAV ();
2297 AvREAL_off (texture_av); 2829 AvREAL_off (texture_av);
2298} 2830}
2299 2831
2832void
2833disable_GL_EXT_blend_func_separate ()
2834 CODE:
2835 gl.BlendFuncSeparate = 0;
2836 gl.BlendFuncSeparateEXT = 0;
2837
2300char * 2838char *
2301gl_vendor () 2839gl_vendor ()
2302 CODE: 2840 CODE:
2303 RETVAL = (char *)glGetString (GL_VENDOR); 2841 RETVAL = (char *)glGetString (GL_VENDOR);
2304 OUTPUT: 2842 OUTPUT:
… …
2316 CODE: 2854 CODE:
2317 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2855 RETVAL = (char *)glGetString (GL_EXTENSIONS);
2318 OUTPUT: 2856 OUTPUT:
2319 RETVAL 2857 RETVAL
2320 2858
2859const char *glGetString (GLenum pname)
2860
2861GLint glGetInteger (GLenum pname)
2862 CODE:
2863 glGetIntegerv (pname, &RETVAL);
2864 OUTPUT:
2865 RETVAL
2866
2867GLdouble glGetDouble (GLenum pname)
2868 CODE:
2869 glGetDoublev (pname, &RETVAL);
2870 OUTPUT:
2871 RETVAL
2872
2321int glGetError () 2873int glGetError ()
2322 2874
2323void glFinish () 2875void glFinish ()
2324 2876
2325void glClear (int mask) 2877void glClear (int mask)
… …
2362# near_ and far_ are due to microsofts buggy "c" compiler 2914# near_ and far_ are due to microsofts buggy "c" compiler
2363void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2915void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
2364 2916
2365# near_ and far_ are due to microsofts buggy "c" compiler 2917# near_ and far_ are due to microsofts buggy "c" compiler
2366void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 2918void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
2919
2920PROTOTYPES: DISABLE
2367 2921
2368void glViewport (int x, int y, int width, int height) 2922void glViewport (int x, int y, int width, int height)
2369 2923
2370void glScissor (int x, int y, int width, int height) 2924void glScissor (int x, int y, int width, int height)
2371 2925
… …
2379 2933
2380void glRotate (float angle, float x, float y, float z) 2934void glRotate (float angle, float x, float y, float z)
2381 CODE: 2935 CODE:
2382 glRotatef (angle, x, y, z); 2936 glRotatef (angle, x, y, z);
2383 2937
2384void glBegin (int mode)
2385
2386void glEnd ()
2387
2388void glColor (float r, float g, float b, float a = 1.0) 2938void glColor (float r, float g, float b, float a = 1.0)
2389 PROTOTYPE: @
2390 ALIAS: 2939 ALIAS:
2391 glColor_premultiply = 1 2940 glColor_premultiply = 1
2392 CODE: 2941 CODE:
2393 if (ix) 2942 if (ix)
2394 { 2943 {
… …
2397 b *= a; 2946 b *= a;
2398 } 2947 }
2399 // microsoft visual "c" rounds instead of truncating... 2948 // microsoft visual "c" rounds instead of truncating...
2400 glColor4f (r, g, b, a); 2949 glColor4f (r, g, b, a);
2401 2950
2402void glInterleavedArrays (int format, int stride, char *data)
2403
2404void glDrawElements (int mode, int count, int type, char *indices)
2405
2406# 1.2 void glDrawRangeElements (int mode, int start, int end
2407
2408void glRasterPos (float x, float y, float z = 0.) 2951void glRasterPos (float x, float y, float z = 0.)
2409 CODE: 2952 CODE:
2410 glRasterPos3f (0, 0, z); 2953 glRasterPos3f (0, 0, z);
2411 glBitmap (0, 0, 0, 0, x, y, 0); 2954 glBitmap (0, 0, 0, 0, x, y, 0);
2412 2955
… …
2416 2959
2417void glTexCoord (float s, float t) 2960void glTexCoord (float s, float t)
2418 CODE: 2961 CODE:
2419 glTexCoord2f (s, t); 2962 glTexCoord2f (s, t);
2420 2963
2964void glRect (float x1, float y1, float x2, float y2)
2965 CODE:
2966 glRectf (x1, y1, x2, y2);
2967
2968void glRect_lineloop (float x1, float y1, float x2, float y2)
2969 CODE:
2970 glBegin (GL_LINE_LOOP);
2971 glVertex2f (x1, y1);
2972 glVertex2f (x2, y1);
2973 glVertex2f (x2, y2);
2974 glVertex2f (x1, y2);
2975 glEnd ();
2976
2977PROTOTYPES: ENABLE
2978
2979void glBegin (int mode)
2980
2981void glEnd ()
2982
2983void glPointSize (GLfloat size)
2984
2985void glLineWidth (GLfloat width)
2986
2987void glInterleavedArrays (int format, int stride, char *data)
2988
2989void glDrawElements (int mode, int count, int type, char *indices)
2990
2991# 1.2 void glDrawRangeElements (int mode, int start, int end
2992
2421void glTexEnv (int target, int pname, float param) 2993void glTexEnv (int target, int pname, float param)
2422 CODE: 2994 CODE:
2423 glTexEnvf (target, pname, param); 2995 glTexEnvf (target, pname, param);
2424 2996
2425void glTexParameter (int target, int pname, float param) 2997void glTexParameter (int target, int pname, float param)
… …
2441void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column) 3013void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column)
2442 CODE: 3014 CODE:
2443 if (gl.SeparableFilter2D) 3015 if (gl.SeparableFilter2D)
2444 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column); 3016 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
2445 3017
2446void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 3018void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data = 0)
2447 3019
2448void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 3020void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
2449 3021
2450void glDrawPixels (int width, int height, int format, int type, char *pixels) 3022void glDrawPixels (int width, int height, int format, int type, char *pixels)
3023
3024void glPixelZoom (float x, float y)
2451 3025
2452void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 3026void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
2453 3027
2454int glGenTexture () 3028int glGenTexture ()
2455 CODE: 3029 CODE:
… …
2475 3049
2476void glEndList () 3050void glEndList ()
2477 3051
2478void glCallList (int list) 3052void glCallList (int list)
2479 3053
3054MODULE = Deliantra::Client PACKAGE = DC::UI::Base
3055
3056PROTOTYPES: DISABLE
3057
3058void
3059find_widget (SV *self, NV x, NV y)
3060 PPCODE:
3061{
3062 if (within_widget (self, x, y))
3063 XPUSHs (self);
3064}
3065
3066BOOT:
3067{
3068 hover_gv = gv_fetchpv ("DC::UI::HOVER", 1, SVt_NV);
3069
3070 draw_x_gv = gv_fetchpv ("DC::UI::Base::draw_x", 1, SVt_NV);
3071 draw_y_gv = gv_fetchpv ("DC::UI::Base::draw_y", 1, SVt_NV);
3072 draw_w_gv = gv_fetchpv ("DC::UI::Base::draw_w", 1, SVt_NV);
3073 draw_h_gv = gv_fetchpv ("DC::UI::Base::draw_h", 1, SVt_NV);
3074}
3075
3076void
3077draw (SV *self)
3078 CODE:
3079{
3080 HV *hv;
3081 SV **svp;
3082 NV x, y, w, h;
3083 SV *draw_x_sv = GvSV (draw_x_gv);
3084 SV *draw_y_sv = GvSV (draw_y_gv);
3085 SV *draw_w_sv = GvSV (draw_w_gv);
3086 SV *draw_h_sv = GvSV (draw_h_gv);
3087 double draw_x, draw_y;
3088
3089 if (!SvROK (self))
3090 croak ("DC::Base::draw: %s not a reference", SvPV_nolen (self));
3091
3092 hv = (HV *)SvRV (self);
3093
3094 if (SvTYPE (hv) != SVt_PVHV)
3095 croak ("DC::Base::draw: %s not a hashref", SvPV_nolen (self));
3096
3097 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
3098 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
3099
3100 if (!h || !w)
3101 XSRETURN_EMPTY;
3102
3103 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
3104 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
3105
3106 draw_x = SvNV (draw_x_sv) + x;
3107 draw_y = SvNV (draw_y_sv) + y;
3108
3109 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
3110 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
3111 XSRETURN_EMPTY;
3112
3113 sv_setnv (draw_x_sv, draw_x);
3114 sv_setnv (draw_y_sv, draw_y);
3115
3116 glPushMatrix ();
3117 glTranslated (x, y, 0);
3118
3119 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
3120 {
3121 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
3122
3123 if (svp && SvTRUE (*svp))
3124 {
3125 glColor4f (1.0f * 0.2f, 0.8f * 0.2f, 0.5f * 0.2f, 0.2f);
3126 glEnable (GL_BLEND);
3127 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
3128 glBegin (GL_QUADS);
3129 glVertex2f (0, 0);
3130 glVertex2f (w, 0);
3131 glVertex2f (w, h);
3132 glVertex2f (0, h);
3133 glEnd ();
3134 glDisable (GL_BLEND);
3135 }
3136 }
3137#if 0
3138 // draw borders, for debugging
3139 glPushMatrix ();
3140 glColor4f (1., 1., 0., 1.);
3141 glTranslatef (.5, .5, 0.);
3142 glBegin (GL_LINE_LOOP);
3143 glVertex2f (0 , 0);
3144 glVertex2f (w - 1, 0);
3145 glVertex2f (w - 1, h - 1);
3146 glVertex2f (0 , h - 1);
3147 glEnd ();
3148 glPopMatrix ();
3149#endif
3150 PUSHMARK (SP);
3151 XPUSHs (self);
3152 PUTBACK;
3153 call_method ("_draw", G_VOID | G_DISCARD);
3154 SPAGAIN;
3155
3156 glPopMatrix ();
3157
3158 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
3159 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
3160}
3161

Diff Legend

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