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.199 by root, Tue Jul 17 13:53:02 2007 UTC vs.
Revision 1.310 by root, Tue Dec 27 07:23:33 2011 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 atan2f(x,y) atan2(x,y)
25# define M_PI 3.14159265f
22#endif 26#endif
23 27
24#include <assert.h> 28#include <assert.h>
25#include <math.h> 29#include <math.h>
26#include <string.h> 30#include <string.h>
27#include <stdio.h> 31#include <stdio.h>
28#include <stdlib.h> 32#include <stdlib.h>
29 33
34#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
35
30#include <SDL.h> 36#include <SDL.h>
37#include <SDL_thread.h>
31#include <SDL_endian.h> 38#include <SDL_endian.h>
32#include <SDL_image.h> 39#include <SDL_image.h>
33#include <SDL_mixer.h> 40#include <SDL_mixer.h>
34#include <SDL_opengl.h> 41#include <SDL_opengl.h>
35 42
43/* work around os x broken headers */
44#ifdef __MACOSX__
45typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha);
46typedef void (APIENTRYP PFNGLACTIVETEXTUREPROC) (GLenum texture);
47typedef void (APIENTRYP PFNGLMULTITEXCOORD2FPROC) (GLenum target, GLfloat s, GLfloat t);
48#endif
49
36#define PANGO_ENABLE_BACKEND 50#define PANGO_ENABLE_BACKEND
37#define G_DISABLE_CAST_CHECKS 51#define G_DISABLE_CAST_CHECKS
38 52
39#include <glib/gmacros.h> 53#include <glib/gmacros.h>
40 54
41#include <pango/pango.h> 55#include <pango/pango.h>
56
57#ifndef PANGO_VERSION_CHECK
58# define PANGO_VERSION_CHECK(a,b,c) 0
59#endif
60
61#if !PANGO_VERSION_CHECK (1, 15, 2)
62# define pango_layout_get_line_readonly pango_layout_get_line
63# define pango_layout_get_lines_readonly pango_layout_get_lines
64# define pango_layout_iter_get_line_readonly pango_layout_iter_get_line
65# define pango_layout_iter_get_run_readonly pango_layout_iter_get_run
66#endif
42 67
43#ifndef _WIN32 68#ifndef _WIN32
44# include <sys/types.h> 69# include <sys/types.h>
45# include <sys/socket.h> 70# include <sys/socket.h>
46# include <netinet/in.h> 71# include <netinet/in.h>
47# include <netinet/tcp.h> 72# include <netinet/tcp.h>
48# include <inttypes.h> 73# include <inttypes.h>
49#endif 74#endif
50 75
76#if __GNUC__ >= 4
77# define expect(expr,value) __builtin_expect ((expr),(value))
78#else
79# define expect(expr,value) (expr)
80#endif
81
82#define expect_false(expr) expect ((expr) != 0, 0)
83#define expect_true(expr) expect ((expr) != 0, 1)
84
51#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */ 85#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
52 86
87/* this is used as fow flag as well, so has to have a different value */
88/* then anything that is computed by incoming darkness */
53#define FOW_DARKNESS 32 89#define FOW_DARKNESS 50
90#define DARKNESS_ADJUST(n) (n)
54 91
55#define MAP_EXTEND_X 32 92#define MAP_EXTEND_X 32
56#define MAP_EXTEND_Y 512 93#define MAP_EXTEND_Y 512
57 94
58#define MIN_FONT_HEIGHT 10 95#define MIN_FONT_HEIGHT 10
59 96
60#if 0 97/* mask out modifiers we are not interested in */
61# define PARACHUTE SDL_INIT_NOPARACHUTE 98#define MOD_MASK (KMOD_CTRL | KMOD_SHIFT | KMOD_ALT | KMOD_META)
62#else 99
63# define PARACHUTE 0 100#define KMOD_LRAM 0x10000 // our extension
64#endif 101
102#define TEXID_SPEECH 1
103#define TEXID_NOFACE 2
104
105static char *
106fast_sv_grow (SV *sv, STRLEN need)
107{
108 STRLEN len = SvLEN (sv);
109 STRLEN want = SvCUR (sv) + need;
110
111 if (expect_false (len < want))
112 {
113 do
114 len *= 2;
115 while (len < want);
116
117 sv_grow (sv, len);
118 }
119
120 SvCUR_set (sv, want);
121 return SvEND (sv) - need;
122}
65 123
66static AV *texture_av; 124static AV *texture_av;
67 125
68static struct 126static struct
69{ 127{
106 av_push (texture_av, (SV *)(size_t)name); 164 av_push (texture_av, (SV *)(size_t)name);
107 glDeleteTextures (1, &name); 165 glDeleteTextures (1, &name);
108} 166}
109 167
110#include "texcache.c" 168#include "texcache.c"
169#include "rendercache.c"
111 170
112#include "pango-font.c" 171#include "pango-font.c"
113#include "pango-fontmap.c" 172#include "pango-fontmap.c"
114#include "pango-render.c" 173#include "pango-render.c"
115 174
175typedef IV DC__Channel;
176typedef SDL_RWops *DC__RW;
116typedef Mix_Chunk *CFPlus__MixChunk; 177typedef Mix_Chunk *DC__MixChunk;
117typedef Mix_Music *CFPlus__MixMusic; 178typedef Mix_Music *DC__MixMusic;
118 179
119typedef PangoFontDescription *CFPlus__Font; 180typedef PangoFontDescription *DC__Font;
120 181
121static int 182static int
122shape_attr_p (PangoLayoutRun *run) 183shape_attr_p (PangoLayoutRun *run)
123{ 184{
124 GSList *attrs = run->item->analysis.extra_attrs; 185 GSList *attrs = run->item->analysis.extra_attrs;
138 199
139typedef struct cf_layout { 200typedef struct cf_layout {
140 PangoLayout *pl; 201 PangoLayout *pl;
141 float r, g, b, a; // default color for rgba mode 202 float r, g, b, a; // default color for rgba mode
142 int base_height; 203 int base_height;
143 CFPlus__Font font; 204 DC__Font font;
205 rc_t *rc;
144} *CFPlus__Layout; 206} *DC__Layout;
145 207
146static CFPlus__Font default_font; 208static DC__Font default_font;
147static PangoContext *opengl_context; 209static PangoContext *opengl_context;
148static PangoFontMap *opengl_fontmap; 210static PangoFontMap *opengl_fontmap;
149 211
150static void 212static void
151substitute_func (FcPattern *pattern, gpointer data) 213substitute_func (FcPattern *pattern, gpointer data)
156#endif 218#endif
157 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 219 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
158} 220}
159 221
160static void 222static void
161layout_update_font (CFPlus__Layout self) 223layout_update_font (DC__Layout self)
162{ 224{
163 /* use a random scale factor to account for unknown descenders, 0.8 works 225 /* use a random scale factor to account for unknown descenders, 0.8 works
164 * reasonably well with bitstream vera 226 * reasonably well with dejavu/bistream fonts
165 */ 227 */
166 PangoFontDescription *font = self->font ? self->font : default_font; 228 PangoFontDescription *font = self->font ? self->font : default_font;
167 229
168 pango_font_description_set_absolute_size (font, 230 pango_font_description_set_absolute_size (font,
169 MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10)); 231 MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));
170 232
171 pango_layout_set_font_description (self->pl, font); 233 pango_layout_set_font_description (self->pl, font);
172} 234}
173 235
174static void 236static void
175layout_get_pixel_size (CFPlus__Layout self, int *w, int *h) 237layout_get_pixel_size (DC__Layout self, int *w, int *h)
176{ 238{
177 PangoRectangle rect; 239 PangoRectangle rect;
178 240
179 // get_pixel_* wrongly rounds down 241 // get_pixel_* wrongly rounds down
180 pango_layout_get_extents (self->pl, 0, &rect); 242 pango_layout_get_extents (self->pl, 0, &rect);
191 253
192typedef uint16_t tileid; 254typedef uint16_t tileid;
193typedef uint16_t faceid; 255typedef uint16_t faceid;
194 256
195typedef struct { 257typedef struct {
196 int name; 258 GLuint name;
197 int w, h; 259 int w, h;
198 float s, t; 260 float s, t;
199 uint8_t r, g, b, a; 261 uint8_t r, g, b, a;
200 tileid smoothtile; 262 tileid smoothtile;
201 uint8_t smoothlevel; 263 uint8_t smoothlevel;
264 uint8_t unused; /* set to zero on use */
202} maptex; 265} maptex;
203 266
204typedef struct { 267typedef struct {
205 uint32_t player; 268 uint32_t player;
206 tileid tile[3]; 269 tileid tile[3];
219 int faces; tileid *face2tile; // [faceid] 282 int faces; tileid *face2tile; // [faceid]
220 int texs; maptex *tex; // [tileid] 283 int texs; maptex *tex; // [tileid]
221 284
222 int32_t rows; 285 int32_t rows;
223 maprow *row; 286 maprow *row;
224} *CFPlus__Map; 287} *DC__Map;
225 288
226static char * 289static char *
227prepend (char *ptr, int sze, int inc) 290prepend (char *ptr, int sze, int inc)
228{ 291{
229 char *p; 292 char *p;
267 self->texs *= 2; 330 self->texs *= 2;
268 } 331 }
269} 332}
270 333
271static maprow * 334static maprow *
272map_get_row (CFPlus__Map self, int y) 335map_get_row (DC__Map self, int y)
273{ 336{
274 if (0 > y) 337 if (0 > y)
275 { 338 {
276 int extend = - y + MAP_EXTEND_Y; 339 int extend = - y + MAP_EXTEND_Y;
277 Prepend (maprow, self->row, self->rows, extend); 340 Prepend (maprow, self->row, self->rows, extend);
315 378
316 return row->col + (x - row->c0); 379 return row->col + (x - row->c0);
317} 380}
318 381
319static mapcell * 382static mapcell *
320map_get_cell (CFPlus__Map self, int x, int y) 383map_get_cell (DC__Map self, int x, int y)
321{ 384{
322 return row_get_cell (map_get_row (self, y), x); 385 return row_get_cell (map_get_row (self, y), x);
323} 386}
324 387
325static void 388static void
326map_clear (CFPlus__Map self) 389map_clear (DC__Map self)
327{ 390{
328 int r; 391 int r;
329 392
330 for (r = 0; r < self->rows; r++) 393 for (r = 0; r < self->rows; r++)
331 Safefree (self->row[r].col); 394 Safefree (self->row[r].col);
338 self->oy = 0; 401 self->oy = 0;
339 self->row = 0; 402 self->row = 0;
340 self->rows = 0; 403 self->rows = 0;
341} 404}
342 405
406#define CELL_CLEAR(cell) \
407 do { \
408 if ((cell)->player) \
409 (cell)->tile [2] = 0; \
410 (cell)->darkness = 0; \
411 (cell)->stat_hp = 0; \
412 (cell)->flags = 0; \
413 (cell)->player = 0; \
414 } while (0)
415
343static void 416static void
344map_blank (CFPlus__Map self, int x0, int y0, int w, int h) 417map_blank (DC__Map self, int x0, int y0, int w, int h)
345{ 418{
346 int x, y; 419 int x, y;
347 maprow *row; 420 maprow *row;
348 mapcell *cell; 421 mapcell *cell;
349 422
361 if (x >= row->c1) 434 if (x >= row->c1)
362 break; 435 break;
363 436
364 cell = row->col + x - row->c0; 437 cell = row->col + x - row->c0;
365 438
366 cell->darkness = 0; 439 CELL_CLEAR (cell);
367 cell->stat_hp = 0;
368 cell->flags = 0;
369 cell->player = 0;
370 } 440 }
371 } 441 }
372} 442}
373 443
374typedef struct { 444typedef struct {
409 ev.code = 1; 479 ev.code = 1;
410 ev.data1 = (void *)(long)channel; 480 ev.data1 = (void *)(long)channel;
411 ev.data2 = 0; 481 ev.data2 = 0;
412 482
413 SDL_PushEvent ((SDL_Event *)&ev); 483 SDL_PushEvent ((SDL_Event *)&ev);
484}
485
486static unsigned int
487div255 (unsigned int n)
488{
489 return (n + (n >> 8)) >> 8;
414} 490}
415 491
416static unsigned int 492static unsigned int
417minpot (unsigned int n) 493minpot (unsigned int n)
418{ 494{
428 n |= n >> 16; 504 n |= n >> 16;
429 505
430 return n + 1; 506 return n + 1;
431} 507}
432 508
509static unsigned int
510popcount (unsigned int n)
511{
512 n -= (n >> 1) & 0x55555555U;
513 n = ((n >> 2) & 0x33333333U) + (n & 0x33333333U);
514 n = ((n >> 4) + n) & 0x0f0f0f0fU;
515 n *= 0x01010101U;
516
517 return n >> 24;
518}
519
433/* SDL should provide this, really. */ 520/* SDL should provide this, really. */
434#define SDLK_MODIFIER_MIN 300 521#define SDLK_MODIFIER_MIN 300
435#define SDLK_MODIFIER_MAX 314 522#define SDLK_MODIFIER_MAX 314
436 523
437MODULE = CFPlus PACKAGE = CFPlus 524/******************************************************************************/
525
526static GV *draw_x_gv, *draw_y_gv, *draw_w_gv, *draw_h_gv;
527static GV *hover_gv;
528
529static int
530within_widget (SV *widget, NV x, NV y)
531{
532 HV *self;
533 SV **svp;
534 NV wx, ww, wy, wh;
535
536 if (!SvROK (widget))
537 return 0;
538
539 self = (HV *)SvRV (widget);
540
541 if (SvTYPE (self) != SVt_PVHV)
542 return 0;
543
544 svp = hv_fetch (self, "y", 1, 0); wy = svp ? SvNV (*svp) : 0.;
545 if (y < wy)
546 return 0;
547
548 svp = hv_fetch (self, "h", 1, 0); wh = svp ? SvNV (*svp) : 0.;
549 if (y >= wy + wh)
550 return 0;
551
552 svp = hv_fetch (self, "x", 1, 0); wx = svp ? SvNV (*svp) : 0.;
553 if (x < wx)
554 return 0;
555
556 svp = hv_fetch (self, "w", 1, 0); ww = svp ? SvNV (*svp) : 0.;
557 if (x >= wx + ww)
558 return 0;
559
560 svp = hv_fetch (self, "can_events", sizeof ("can_events") - 1, 0);
561 if (!svp || !SvTRUE (*svp))
562 return 0;
563
564 return 1;
565}
566
567/******************************************************************************/
568
569/* process keyboard modifiers */
570static int
571mod_munge (int mod)
572{
573 mod &= MOD_MASK;
574
575 if (mod & (KMOD_META | KMOD_ALT))
576 mod |= KMOD_LRAM;
577
578 return mod;
579}
580
581static void
582deliantra_main ()
583{
584 char *argv[] = { 0 };
585 call_argv ("DC::Main::main", G_DISCARD | G_VOID, argv);
586}
587
588#ifdef __MACOSX__
589 /* to due surprising braindamage on the side of SDL design, we
590 * do some mind-boggling hack here: SDL requires a custom main()
591 * on OS X, so... we provide one and call the original main(), which,
592 * due to shared library magic, calls -lSDLmain's main, not perl's main,
593 * and which calls our main (== SDL_main) back.
594 */
595 extern C_LINKAGE int
596 main (int argc, char *argv[])
597 {
598 deliantra_main ();
599 }
600
601 #undef main
602
603 extern C_LINKAGE int main (int argc, char *argv[]);
604
605 static void
606 SDL_braino (void)
607 {
608 char *argv[] = { "deliantra client", 0 };
609 (main) (1, argv);
610 }
611#else
612 static void
613 SDL_braino (void)
614 {
615 deliantra_main ();
616 }
617#endif
618
619MODULE = Deliantra::Client PACKAGE = DC
438 620
439PROTOTYPES: ENABLE 621PROTOTYPES: ENABLE
440 622
441BOOT: 623BOOT:
442{ 624{
443 HV *stash = gv_stashpv ("CFPlus", 1); 625 HV *stash = gv_stashpv ("DC", 1);
444 static const struct { 626 static const struct {
445 const char *name; 627 const char *name;
446 IV iv; 628 IV iv;
447 } *civ, const_iv[] = { 629 } *civ, const_iv[] = {
448# define const_iv(name) { # name, (IV)name } 630# define const_iv(name) { # name, (IV)name }
470 652
471 const_iv (SDL_APPINPUTFOCUS), 653 const_iv (SDL_APPINPUTFOCUS),
472 const_iv (SDL_APPMOUSEFOCUS), 654 const_iv (SDL_APPMOUSEFOCUS),
473 const_iv (SDL_APPACTIVE), 655 const_iv (SDL_APPACTIVE),
474 656
657
658 const_iv (SDLK_UNKNOWN),
659 const_iv (SDLK_FIRST),
660 const_iv (SDLK_BACKSPACE),
661 const_iv (SDLK_TAB),
662 const_iv (SDLK_CLEAR),
663 const_iv (SDLK_RETURN),
664 const_iv (SDLK_PAUSE),
665 const_iv (SDLK_ESCAPE),
666 const_iv (SDLK_SPACE),
667 const_iv (SDLK_EXCLAIM),
668 const_iv (SDLK_QUOTEDBL),
669 const_iv (SDLK_HASH),
670 const_iv (SDLK_DOLLAR),
671 const_iv (SDLK_AMPERSAND),
672 const_iv (SDLK_QUOTE),
673 const_iv (SDLK_LEFTPAREN),
674 const_iv (SDLK_RIGHTPAREN),
675 const_iv (SDLK_ASTERISK),
676 const_iv (SDLK_PLUS),
677 const_iv (SDLK_COMMA),
678 const_iv (SDLK_MINUS),
679 const_iv (SDLK_PERIOD),
680 const_iv (SDLK_SLASH),
681 const_iv (SDLK_0),
682 const_iv (SDLK_1),
683 const_iv (SDLK_2),
684 const_iv (SDLK_3),
685 const_iv (SDLK_4),
686 const_iv (SDLK_5),
687 const_iv (SDLK_6),
688 const_iv (SDLK_7),
689 const_iv (SDLK_8),
690 const_iv (SDLK_9),
691 const_iv (SDLK_COLON),
692 const_iv (SDLK_SEMICOLON),
693 const_iv (SDLK_LESS),
694 const_iv (SDLK_EQUALS),
695 const_iv (SDLK_GREATER),
696 const_iv (SDLK_QUESTION),
697 const_iv (SDLK_AT),
698
699 const_iv (SDLK_LEFTBRACKET),
700 const_iv (SDLK_BACKSLASH),
701 const_iv (SDLK_RIGHTBRACKET),
702 const_iv (SDLK_CARET),
703 const_iv (SDLK_UNDERSCORE),
704 const_iv (SDLK_BACKQUOTE),
705 const_iv (SDLK_DELETE),
706
707 const_iv (SDLK_FIRST),
708 const_iv (SDLK_LAST),
475 const_iv (SDLK_KP0), 709 const_iv (SDLK_KP0),
476 const_iv (SDLK_KP1), 710 const_iv (SDLK_KP1),
477 const_iv (SDLK_KP2), 711 const_iv (SDLK_KP2),
478 const_iv (SDLK_KP3), 712 const_iv (SDLK_KP3),
479 const_iv (SDLK_KP4), 713 const_iv (SDLK_KP4),
551 const_iv (KMOD_LMETA), 785 const_iv (KMOD_LMETA),
552 const_iv (KMOD_RMETA), 786 const_iv (KMOD_RMETA),
553 const_iv (KMOD_NUM), 787 const_iv (KMOD_NUM),
554 const_iv (KMOD_CAPS), 788 const_iv (KMOD_CAPS),
555 const_iv (KMOD_MODE), 789 const_iv (KMOD_MODE),
790
791 const_iv (KMOD_LRAM),
792
793 const_iv (MIX_DEFAULT_FORMAT),
794
795 const_iv (SDL_INIT_TIMER),
796 const_iv (SDL_INIT_AUDIO),
797 const_iv (SDL_INIT_VIDEO),
798 const_iv (SDL_INIT_CDROM),
799 const_iv (SDL_INIT_JOYSTICK),
800 const_iv (SDL_INIT_EVERYTHING),
801 const_iv (SDL_INIT_NOPARACHUTE),
802 const_iv (SDL_INIT_EVENTTHREAD),
803
804 const_iv (SDL_GL_RED_SIZE),
805 const_iv (SDL_GL_GREEN_SIZE),
806 const_iv (SDL_GL_BLUE_SIZE),
807 const_iv (SDL_GL_ALPHA_SIZE),
808 const_iv (SDL_GL_DOUBLEBUFFER),
809 const_iv (SDL_GL_BUFFER_SIZE),
810 const_iv (SDL_GL_DEPTH_SIZE),
811 const_iv (SDL_GL_STENCIL_SIZE),
812 const_iv (SDL_GL_ACCUM_RED_SIZE),
813 const_iv (SDL_GL_ACCUM_GREEN_SIZE),
814 const_iv (SDL_GL_ACCUM_BLUE_SIZE),
815 const_iv (SDL_GL_ACCUM_ALPHA_SIZE),
816 const_iv (SDL_GL_STEREO),
817 const_iv (SDL_GL_MULTISAMPLEBUFFERS),
818 const_iv (SDL_GL_MULTISAMPLESAMPLES),
819 const_iv (SDL_GL_ACCELERATED_VISUAL),
820 const_iv (SDL_GL_SWAP_CONTROL),
821
822 const_iv (FOW_DARKNESS)
556# undef const_iv 823# undef const_iv
557 }; 824 };
558 825
559 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 826 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
560 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 827 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
561 828
562 assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK); 829 assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);
563 assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE); 830 assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);
564} 831}
565 832
578 845
579NV floor (NV x) 846NV floor (NV x)
580 847
581NV ceil (NV x) 848NV ceil (NV x)
582 849
850IV minpot (UV n)
851
852IV popcount (UV n)
853
854NV distance (NV dx, NV dy)
855 CODE:
856 RETVAL = pow (dx * dx + dy * dy, 0.5);
857 OUTPUT:
858 RETVAL
859
583void 860void
584pango_init () 861pango_init ()
585 CODE: 862 CODE:
586{ 863{
587 opengl_fontmap = pango_opengl_font_map_new (); 864 opengl_fontmap = pango_opengl_font_map_new ();
588 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0); 865 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); 866 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
867 /*pango_context_set_font_description (opengl_context, default_font);*/
868#if PANGO_VERSION_CHECK (1, 15, 2)
869 pango_context_set_language (opengl_context, pango_language_from_string ("en"));
870 /*pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);*/
871#endif
590} 872}
591 873
592int 874char *SDL_GetError ()
593SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
594 875
595void 876void SDL_braino ()
877
878int SDL_Init (U32 flags)
879
880int SDL_InitSubSystem (U32 flags)
881
882void SDL_QuitSubSystem (U32 flags)
883
596SDL_Quit () 884void SDL_Quit ()
597 885
886int SDL_GL_SetAttribute (int attr, int value)
887
888int SDL_GL_GetAttribute (int attr)
889 CODE:
890 if (SDL_GL_GetAttribute (attr, &RETVAL))
891 XSRETURN_UNDEF;
892 OUTPUT:
893 RETVAL
894
598void 895void
599SDL_ListModes () 896SDL_ListModes (int rgb, int alpha)
600 PPCODE: 897 PPCODE:
601{ 898{
602 SDL_Rect **m; 899 SDL_Rect **m;
603 900
604 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 901 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
605 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 902 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
606 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 903 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
607 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 904 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
608 905
609 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 906 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
610 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0); 907 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE , 0);
611 908
612 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 909 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE , 0);
613 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 910 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
614 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 911 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
615 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 912 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
616 913
617 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 914 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); 915 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 916
626 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 917 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
627 918
628 if (m && m != (SDL_Rect **)-1) 919 if (m && m != (SDL_Rect **)-1)
629 while (*m) 920 while (*m)
630 { 921 {
922 if ((*m)->w >= 400 && (*m)->h >= 300)
923 {
631 AV *av = newAV (); 924 AV *av = newAV ();
632 av_push (av, newSViv ((*m)->w)); 925 av_push (av, newSViv ((*m)->w));
633 av_push (av, newSViv ((*m)->h)); 926 av_push (av, newSViv ((*m)->h));
927 av_push (av, newSViv (rgb));
928 av_push (av, newSViv (alpha));
634 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 929 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
930 }
635 931
636 ++m; 932 ++m;
637 } 933 }
638} 934}
639 935
640char *
641SDL_GetError ()
642
643int 936int
644SDL_SetVideoMode (int w, int h, int fullscreen) 937SDL_SetVideoMode (int w, int h, int rgb, int alpha, int fullscreen)
645 CODE: 938 CODE:
939{
940 SDL_EnableUNICODE (1);
941 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
942
943 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
944 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
945 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
946 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
947
646 RETVAL = !!SDL_SetVideoMode ( 948 RETVAL = !!SDL_SetVideoMode (
647 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 949 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
648 ); 950 );
951
649 if (RETVAL) 952 if (RETVAL)
650 { 953 {
651 av_clear (texture_av); 954 av_clear (texture_av);
652 955
653 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 956 SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
654# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 957#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
655# include "glfunc.h" 958#include "glfunc.h"
656# undef GL_FUNC 959#undef GL_FUNC
657 960
961 if (!gl.ActiveTexture ) gl.ActiveTexture = gl.ActiveTextureARB;
962 if (!gl.MultiTexCoord2f) gl.MultiTexCoord2f = gl.MultiTexCoord2fARB;
658 } 963 }
964}
659 OUTPUT: 965 OUTPUT:
660 RETVAL 966 RETVAL
661 967
662void 968void
663SDL_GL_SwapBuffers () 969SDL_GL_SwapBuffers ()
665char * 971char *
666SDL_GetKeyName (int sym) 972SDL_GetKeyName (int sym)
667 973
668int 974int
669SDL_GetAppState () 975SDL_GetAppState ()
976
977int
978SDL_GetModState ()
670 979
671void 980void
672poll_events () 981poll_events ()
673 PPCODE: 982 PPCODE:
674{ 983{
684 { 993 {
685 case SDL_KEYDOWN: 994 case SDL_KEYDOWN:
686 case SDL_KEYUP: 995 case SDL_KEYUP:
687 hv_store (hv, "state", 5, newSViv (ev.key.state), 0); 996 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
688 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); 997 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
689 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); 998 hv_store (hv, "mod", 3, newSViv (mod_munge (ev.key.keysym.mod)), 0);
690 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */ 999 hv_store (hv, "cmod", 4, newSViv (mod_munge (SDL_GetModState ())), 0); /* current mode */
691 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); 1000 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
692 break; 1001 break;
693 1002
694 case SDL_ACTIVEEVENT: 1003 case SDL_ACTIVEEVENT:
695 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 1004 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
713 x = ev.motion.x; 1022 x = ev.motion.x;
714 y = ev.motion.y; 1023 y = ev.motion.y;
715 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)); 1024 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
716 } 1025 }
717 1026
718 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 1027 hv_store (hv, "mod", 3, newSViv (mod_munge (SDL_GetModState ())), 0);
719 hv_store (hv, "state", 5, newSViv (state), 0); 1028 hv_store (hv, "state", 5, newSViv (state), 0);
720 hv_store (hv, "x", 1, newSViv (x), 0); 1029 hv_store (hv, "x", 1, newSViv (x), 0);
721 hv_store (hv, "y", 1, newSViv (y), 0); 1030 hv_store (hv, "y", 1, newSViv (y), 0);
722 hv_store (hv, "xrel", 4, newSViv (xrel), 0); 1031 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
723 hv_store (hv, "yrel", 4, newSViv (yrel), 0); 1032 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
724 } 1033 }
725 break; 1034 break;
726 1035
727 case SDL_MOUSEBUTTONDOWN: 1036 case SDL_MOUSEBUTTONDOWN:
728 case SDL_MOUSEBUTTONUP: 1037 case SDL_MOUSEBUTTONUP:
729 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 1038 hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);
730 1039
731 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 1040 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
732 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 1041 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
733 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 1042 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
734 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 1043 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
739 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 1048 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
740 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 1049 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
741 break; 1050 break;
742 } 1051 }
743 1052
744 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1)))); 1053 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("DC::UI::Event", 1))));
745 } 1054 }
746} 1055}
747 1056
1057char *
1058SDL_AudioDriverName ()
1059 CODE:
1060{
1061 char buf [256];
1062 if (!SDL_AudioDriverName (buf, sizeof (buf)))
1063 XSRETURN_UNDEF;
1064
1065 RETVAL = buf;
1066}
1067 OUTPUT:
1068 RETVAL
1069
748int 1070int
749Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 1071Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
750 POSTCALL: 1072 POSTCALL:
751 Mix_HookMusicFinished (music_finished); 1073 Mix_HookMusicFinished (music_finished);
752 Mix_ChannelFinished (channel_finished); 1074 Mix_ChannelFinished (channel_finished);
753 1075
754void 1076void
1077Mix_QuerySpec ()
1078 PPCODE:
1079{
1080 int freq, channels;
1081 Uint16 format;
1082
1083 if (Mix_QuerySpec (&freq, &format, &channels))
1084 {
1085 EXTEND (SP, 3);
1086 PUSHs (sv_2mortal (newSViv (freq)));
1087 PUSHs (sv_2mortal (newSViv (format)));
1088 PUSHs (sv_2mortal (newSViv (channels)));
1089 }
1090}
1091
1092void
755Mix_CloseAudio () 1093Mix_CloseAudio ()
756 1094
757int 1095int
758Mix_AllocateChannels (int numchans = -1) 1096Mix_AllocateChannels (int numchans = -1)
1097
1098const char *
1099Mix_GetError ()
759 1100
760void 1101void
761lowdelay (int fd, int val = 1) 1102lowdelay (int fd, int val = 1)
762 CODE: 1103 CODE:
763 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val)); 1104 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
789 } 1130 }
790 } 1131 }
791#endif 1132#endif
792} 1133}
793 1134
794void 1135int
795add_font (char *file) 1136add_font (char *file)
796 CODE: 1137 CODE:
797 FcConfigAppFontAddFile (0, (const FcChar8 *)file); 1138 RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file);
1139 OUTPUT:
1140 RETVAL
1141
1142void
1143IMG_Init (int flags = IMG_INIT_JPG | IMG_INIT_PNG)
1144
1145void
1146Mix_Init (int flags = MIX_INIT_MOD | MIX_INIT_MP3 | MIX_INIT_OGG)
798 1147
799void 1148void
800load_image_inline (SV *image_) 1149load_image_inline (SV *image_)
801 ALIAS: 1150 ALIAS:
802 load_image_file = 1 1151 load_image_file = 1
805 STRLEN image_len; 1154 STRLEN image_len;
806 char *image = (char *)SvPVbyte (image_, image_len); 1155 char *image = (char *)SvPVbyte (image_, image_len);
807 SDL_Surface *surface, *surface2; 1156 SDL_Surface *surface, *surface2;
808 SDL_PixelFormat fmt; 1157 SDL_PixelFormat fmt;
809 SDL_RWops *rw = ix 1158 SDL_RWops *rw = ix
810 ? SDL_RWFromFile (image, "r") 1159 ? SDL_RWFromFile (image, "rb")
811 : SDL_RWFromConstMem (image, image_len); 1160 : SDL_RWFromConstMem (image, image_len);
812 1161
813 if (!rw) 1162 if (!rw)
814 croak ("load_image: %s", SDL_GetError ()); 1163 croak ("load_image: %s", SDL_GetError ());
815 1164
888void 1237void
889error (char *message) 1238error (char *message)
890 CODE: 1239 CODE:
891 fprintf (stderr, "ERROR: %s\n", message); 1240 fprintf (stderr, "ERROR: %s\n", message);
892#ifdef _WIN32 1241#ifdef _WIN32
893 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR); 1242 MessageBox (0, message, "Deliantra Client Error", MB_OK | MB_ICONERROR);
894#endif 1243#endif
895 1244
896void 1245void
897fatal (char *message) 1246fatal (char *message)
898 CODE: 1247 CODE:
899 fprintf (stderr, "FATAL: %s\n", message); 1248 fprintf (stderr, "FATAL: %s\n", message);
900#ifdef _WIN32 1249#ifdef _WIN32
901 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 1250 MessageBox (0, message, "Deliantra Client Fatal Error", MB_OK | MB_ICONERROR);
902#endif 1251#endif
903 _exit (1); 1252 _exit (1);
904 1253
905void 1254void
906_exit (int retval = 0) 1255_exit (int retval = 0)
918#if DEBUG 1267#if DEBUG
919 VALGRIND_DO_LEAK_CHECK; 1268 VALGRIND_DO_LEAK_CHECK;
920#endif 1269#endif
921} 1270}
922 1271
923MODULE = CFPlus PACKAGE = CFPlus::Font 1272int
1273SvREFCNT (SV *sv)
1274 CODE:
1275 RETVAL = SvREFCNT (sv);
1276 OUTPUT:
1277 RETVAL
924 1278
925CFPlus::Font 1279MODULE = Deliantra::Client PACKAGE = DC::Font
1280
1281PROTOTYPES: DISABLE
1282
1283DC::Font
926new_from_file (SV *class, char *path, int id = 0) 1284new_from_file (SV *class, char *path, int id = 0)
927 CODE: 1285 CODE:
928{ 1286{
929 int count; 1287 int count;
930 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1288 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
933} 1291}
934 OUTPUT: 1292 OUTPUT:
935 RETVAL 1293 RETVAL
936 1294
937void 1295void
938DESTROY (CFPlus::Font self) 1296DESTROY (DC::Font self)
939 CODE: 1297 CODE:
940 pango_font_description_free (self); 1298 pango_font_description_free (self);
941 1299
942void 1300void
943make_default (CFPlus::Font self) 1301make_default (DC::Font self)
1302 PROTOTYPE: $
944 CODE: 1303 CODE:
945 default_font = self; 1304 default_font = self;
946 1305
947MODULE = CFPlus PACKAGE = CFPlus::Layout 1306MODULE = Deliantra::Client PACKAGE = DC::Layout
948 1307
1308PROTOTYPES: DISABLE
1309
949void 1310void
950reset_glyph_cache () 1311glyph_cache_backup ()
1312 PROTOTYPE:
951 CODE: 1313 CODE:
1314 tc_backup ();
1315
1316void
1317glyph_cache_restore ()
1318 PROTOTYPE:
1319 CODE:
952 tc_clear (); 1320 tc_restore ();
953 1321
954CFPlus::Layout 1322DC::Layout
955new (SV *class) 1323new (SV *class)
956 CODE: 1324 CODE:
957 New (0, RETVAL, 1, struct cf_layout); 1325 New (0, RETVAL, 1, struct cf_layout);
958 1326
959 RETVAL->pl = pango_layout_new (opengl_context); 1327 RETVAL->pl = pango_layout_new (opengl_context);
961 RETVAL->g = 1.; 1329 RETVAL->g = 1.;
962 RETVAL->b = 1.; 1330 RETVAL->b = 1.;
963 RETVAL->a = 1.; 1331 RETVAL->a = 1.;
964 RETVAL->base_height = MIN_FONT_HEIGHT; 1332 RETVAL->base_height = MIN_FONT_HEIGHT;
965 RETVAL->font = 0; 1333 RETVAL->font = 0;
1334 RETVAL->rc = rc_alloc ();
966 1335
967 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 1336 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
968 layout_update_font (RETVAL); 1337 layout_update_font (RETVAL);
969 OUTPUT: 1338 OUTPUT:
970 RETVAL 1339 RETVAL
971 1340
972void 1341void
973DESTROY (CFPlus::Layout self) 1342DESTROY (DC::Layout self)
974 CODE: 1343 CODE:
975 g_object_unref (self->pl); 1344 g_object_unref (self->pl);
1345 rc_free (self->rc);
976 Safefree (self); 1346 Safefree (self);
977 1347
978void 1348void
979set_text (CFPlus::Layout self, SV *text_) 1349set_text (DC::Layout self, SV *text_)
980 CODE: 1350 CODE:
981{ 1351{
982 STRLEN textlen; 1352 STRLEN textlen;
983 char *text = SvPVutf8 (text_, textlen); 1353 char *text = SvPVutf8 (text_, textlen);
984 1354
985 pango_layout_set_text (self->pl, text, textlen); 1355 pango_layout_set_text (self->pl, text, textlen);
986} 1356}
987 1357
988void 1358void
989set_markup (CFPlus::Layout self, SV *text_) 1359set_markup (DC::Layout self, SV *text_)
990 CODE: 1360 CODE:
991{ 1361{
992 STRLEN textlen; 1362 STRLEN textlen;
993 char *text = SvPVutf8 (text_, textlen); 1363 char *text = SvPVutf8 (text_, textlen);
994 1364
995 pango_layout_set_markup (self->pl, text, textlen); 1365 pango_layout_set_markup (self->pl, text, textlen);
996} 1366}
997 1367
998void 1368void
999set_shapes (CFPlus::Layout self, ...) 1369set_shapes (DC::Layout self, ...)
1000 CODE: 1370 CODE:
1001{ 1371{
1002 PangoAttrList *attrs = 0; 1372 PangoAttrList *attrs = 0;
1003 const char *text = pango_layout_get_text (self->pl); 1373 const char *text = pango_layout_get_text (self->pl);
1004 const char *pos = text; 1374 const char *pos = text;
1039 if (attrs) 1409 if (attrs)
1040 pango_layout_set_attributes (self->pl, attrs); 1410 pango_layout_set_attributes (self->pl, attrs);
1041} 1411}
1042 1412
1043void 1413void
1044get_shapes (CFPlus::Layout self) 1414get_shapes (DC::Layout self)
1045 PPCODE: 1415 PPCODE:
1046{ 1416{
1047 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1417 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1048 1418
1049 do 1419 do
1050 { 1420 {
1051 PangoLayoutRun *run = pango_layout_iter_get_run (iter); 1421 PangoLayoutRun *run = pango_layout_iter_get_run_readonly (iter);
1052 1422
1053 if (run && shape_attr_p (run)) 1423 if (run && shape_attr_p (run))
1054 { 1424 {
1055 PangoRectangle extents; 1425 PangoRectangle extents;
1056 pango_layout_iter_get_run_extents (iter, 0, &extents); 1426 pango_layout_iter_get_run_extents (iter, 0, &extents);
1064 1434
1065 pango_layout_iter_free (iter); 1435 pango_layout_iter_free (iter);
1066} 1436}
1067 1437
1068int 1438int
1069has_wrapped (CFPlus::Layout self) 1439has_wrapped (DC::Layout self)
1070 CODE: 1440 CODE:
1071{ 1441{
1072 int lines = 1; 1442 int lines = 1;
1073 const char *text = pango_layout_get_text (self->pl); 1443 const char *text = pango_layout_get_text (self->pl);
1074 1444
1079} 1449}
1080 OUTPUT: 1450 OUTPUT:
1081 RETVAL 1451 RETVAL
1082 1452
1083SV * 1453SV *
1084get_text (CFPlus::Layout self) 1454get_text (DC::Layout self)
1085 CODE: 1455 CODE:
1086 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1456 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
1087 sv_utf8_decode (RETVAL); 1457 sv_utf8_decode (RETVAL);
1088 OUTPUT: 1458 OUTPUT:
1089 RETVAL 1459 RETVAL
1090 1460
1091void 1461void
1092set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.) 1462set_foreground (DC::Layout self, float r, float g, float b, float a = 1.)
1093 CODE: 1463 CODE:
1094 self->r = r; 1464 self->r = r;
1095 self->g = g; 1465 self->g = g;
1096 self->b = b; 1466 self->b = b;
1097 self->a = a; 1467 self->a = a;
1098 1468
1099void 1469void
1100set_font (CFPlus::Layout self, CFPlus::Font font = 0) 1470set_font (DC::Layout self, DC::Font font = 0)
1101 CODE: 1471 CODE:
1102 if (self->font != font) 1472 if (self->font != font)
1103 { 1473 {
1104 self->font = font; 1474 self->font = font;
1105 layout_update_font (self); 1475 layout_update_font (self);
1106 } 1476 }
1107 1477
1108void 1478void
1109set_height (CFPlus::Layout self, int base_height) 1479set_height (DC::Layout self, int base_height)
1110 CODE: 1480 CODE:
1111 if (self->base_height != base_height) 1481 if (self->base_height != base_height)
1112 { 1482 {
1113 self->base_height = base_height; 1483 self->base_height = base_height;
1114 layout_update_font (self); 1484 layout_update_font (self);
1115 } 1485 }
1116 1486
1117void 1487void
1118set_width (CFPlus::Layout self, int max_width = -1) 1488set_width (DC::Layout self, int max_width = -1)
1119 CODE: 1489 CODE:
1120 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1490 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
1121 1491
1122void 1492void
1123set_indent (CFPlus::Layout self, int indent) 1493set_indent (DC::Layout self, int indent)
1124 CODE: 1494 CODE:
1125 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1495 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
1126 1496
1127void 1497void
1128set_spacing (CFPlus::Layout self, int spacing) 1498set_spacing (DC::Layout self, int spacing)
1129 CODE: 1499 CODE:
1130 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1500 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
1131 1501
1132void 1502void
1133set_ellipsise (CFPlus::Layout self, int ellipsise) 1503set_ellipsise (DC::Layout self, int ellipsise)
1134 CODE: 1504 CODE:
1135 pango_layout_set_ellipsize (self->pl, 1505 pango_layout_set_ellipsize (self->pl,
1136 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1506 ellipsise == 1 ? PANGO_ELLIPSIZE_START
1137 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1507 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
1138 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1508 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
1139 : PANGO_ELLIPSIZE_NONE 1509 : PANGO_ELLIPSIZE_NONE
1140 ); 1510 );
1141 1511
1142void 1512void
1143set_single_paragraph_mode (CFPlus::Layout self, int spm) 1513set_single_paragraph_mode (DC::Layout self, int spm)
1144 CODE: 1514 CODE:
1145 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1515 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
1146 1516
1147void 1517void
1148size (CFPlus::Layout self) 1518size (DC::Layout self)
1149 PPCODE: 1519 PPCODE:
1150{ 1520{
1151 int w, h; 1521 int w, h;
1152 1522
1153 layout_get_pixel_size (self, &w, &h); 1523 layout_get_pixel_size (self, &w, &h);
1156 PUSHs (sv_2mortal (newSViv (w))); 1526 PUSHs (sv_2mortal (newSViv (w)));
1157 PUSHs (sv_2mortal (newSViv (h))); 1527 PUSHs (sv_2mortal (newSViv (h)));
1158} 1528}
1159 1529
1160int 1530int
1161descent (CFPlus::Layout self) 1531descent (DC::Layout self)
1162 CODE: 1532 CODE:
1163{ 1533{
1164 PangoRectangle rect; 1534 PangoRectangle rect;
1165 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0); 1535 PangoLayoutLine *line = pango_layout_get_line_readonly (self->pl, 0);
1166 pango_layout_line_get_pixel_extents (line, 0, &rect); 1536 pango_layout_line_get_pixel_extents (line, 0, &rect);
1167 RETVAL = PANGO_DESCENT (rect); 1537 RETVAL = PANGO_DESCENT (rect);
1168} 1538}
1169 OUTPUT: 1539 OUTPUT:
1170 RETVAL 1540 RETVAL
1171 1541
1172int 1542int
1173xy_to_index (CFPlus::Layout self, int x, int y) 1543xy_to_index (DC::Layout self, int x, int y)
1174 CODE: 1544 CODE:
1175{ 1545{
1176 int index, trailing; 1546 int index, trailing;
1177 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1547 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
1178 RETVAL = index + trailing; 1548 RETVAL = index + trailing;
1179} 1549}
1180 OUTPUT: 1550 OUTPUT:
1181 RETVAL 1551 RETVAL
1182 1552
1183void 1553void
1184cursor_pos (CFPlus::Layout self, int index) 1554cursor_pos (DC::Layout self, int index)
1185 PPCODE: 1555 PPCODE:
1186{ 1556{
1187 PangoRectangle strong_pos; 1557 PangoRectangle pos;
1188 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1558 pango_layout_get_cursor_pos (self->pl, index, &pos, 0);
1189 1559
1190 EXTEND (SP, 3); 1560 EXTEND (SP, 3);
1191 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE))); 1561 PUSHs (sv_2mortal (newSViv (pos.x / PANGO_SCALE)));
1192 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1562 PUSHs (sv_2mortal (newSViv (pos.y / PANGO_SCALE)));
1193 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1563 PUSHs (sv_2mortal (newSViv (pos.height / PANGO_SCALE)));
1194} 1564}
1195 1565
1196void 1566void
1197index_to_line_x (CFPlus::Layout self, int index, int trailing = 0) 1567index_to_line_x (DC::Layout self, int index, int trailing = 0)
1198 PPCODE: 1568 PPCODE:
1199{ 1569{
1200 int line, x; 1570 int line, x;
1201 1571
1202 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x); 1572 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1573#if !PANGO_VERSION_CHECK (1, 17, 3)
1203 /* pango bug: line is between 1..numlines, not 0..numlines-1 */ 1574 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
1204 1575 --line;
1576#endif
1205 EXTEND (SP, 2); 1577 EXTEND (SP, 2);
1206 PUSHs (sv_2mortal (newSViv (line - 1))); 1578 PUSHs (sv_2mortal (newSViv (line)));
1207 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE))); 1579 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1208} 1580}
1209 1581
1210void 1582void
1211line_x_to_index (CFPlus::Layout self, int line, int x) 1583line_x_to_index (DC::Layout self, int line, int x)
1212 PPCODE: 1584 PPCODE:
1213{ 1585{
1214 PangoLayoutLine *lp; 1586 PangoLayoutLine *lp;
1215 int index, trailing; 1587 int index, trailing;
1216 1588
1217 if (line < 0) 1589 if (line < 0)
1218 XSRETURN_EMPTY; 1590 XSRETURN_EMPTY;
1219 1591
1220 if (!(lp = pango_layout_get_line (self->pl, line))) 1592 if (!(lp = pango_layout_get_line_readonly (self->pl, line)))
1221 XSRETURN_EMPTY; /* do better */ 1593 XSRETURN_EMPTY; /* do better */
1222 1594
1223 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing); 1595 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1224 1596
1225 EXTEND (SP, 2); 1597 EXTEND (SP, 2);
1231 PUSHs (sv_2mortal (newSViv (trailing))); 1603 PUSHs (sv_2mortal (newSViv (trailing)));
1232 } 1604 }
1233} 1605}
1234 1606
1235void 1607void
1236render (CFPlus::Layout self, float x, float y, int flags = 0) 1608render (DC::Layout self, float x, float y, int flags = 0)
1237 PPCODE: 1609 CODE:
1610 rc_clear (self->rc);
1238 pango_opengl_render_layout_subpixel ( 1611 pango_opengl_render_layout_subpixel (
1239 self->pl, 1612 self->pl,
1613 self->rc,
1240 x * PANGO_SCALE, y * PANGO_SCALE, 1614 x * PANGO_SCALE, y * PANGO_SCALE,
1241 self->r, self->g, self->b, self->a, 1615 self->r, self->g, self->b, self->a,
1242 flags 1616 flags
1243 ); 1617 );
1618 // we assume that context_change actually clears/frees stuff
1619 // and does not do any recomputation...
1620 pango_layout_context_changed (self->pl);
1244 1621
1245MODULE = CFPlus PACKAGE = CFPlus::Texture
1246
1247int minpot (int n)
1248
1249void 1622void
1250pad2pot (SV *data_, SV *w_, SV *h_) 1623draw (DC::Layout self)
1251 CODE: 1624 CODE:
1252{ 1625{
1253 int ow = SvIV (w_); 1626 glEnable (GL_TEXTURE_2D);
1254 int oh = SvIV (h_); 1627 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1628 glEnable (GL_BLEND);
1629 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1630 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1631 glEnable (GL_ALPHA_TEST);
1632 glAlphaFunc (GL_GREATER, 7.f / 255.f);
1255 1633
1256 if (ow && oh) 1634 rc_draw (self->rc);
1635
1636 glDisable (GL_ALPHA_TEST);
1637 glDisable (GL_BLEND);
1638 glDisable (GL_TEXTURE_2D);
1639}
1640
1641MODULE = Deliantra::Client PACKAGE = DC::Texture
1642
1643PROTOTYPES: ENABLE
1644
1645void
1646pad (SV *data_, int ow, int oh, int nw, int nh)
1647 CODE:
1648{
1649 if ((nw != ow || nh != oh) && SvOK (data_))
1257 { 1650 {
1258 int nw = minpot (ow);
1259 int nh = minpot (oh);
1260
1261 if (nw != ow || nh != oh)
1262 {
1263 if (SvOK (data_))
1264 {
1265 STRLEN datalen; 1651 STRLEN datalen;
1266 char *data = SvPVbyte (data_, datalen); 1652 char *data = SvPVbyte (data_, datalen);
1267 int bpp = datalen / (ow * oh); 1653 int bpp = datalen / (ow * oh);
1268 SV *result_ = sv_2mortal (newSV (nw * nh * bpp)); 1654 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1269 1655
1270 SvPOK_only (result_); 1656 SvPOK_only (result_);
1271 SvCUR_set (result_, nw * nh * bpp); 1657 SvCUR_set (result_, nw * nh * bpp);
1272 1658
1273 memset (SvPVX (result_), 0, nw * nh * bpp); 1659 memset (SvPVX (result_), 0, nw * nh * bpp);
1274 while (oh--) 1660 while (oh--)
1275 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp); 1661 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1276 1662
1277 sv_setsv (data_, result_); 1663 sv_setsv (data_, result_);
1278 }
1279
1280 sv_setiv (w_, nw);
1281 sv_setiv (h_, nh);
1282 }
1283 } 1664 }
1284} 1665}
1285 1666
1286void 1667void
1287draw_quad (SV *self, float x, float y, float w = 0., float h = 0.) 1668draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
1293{ 1674{
1294 HV *hv = (HV *)SvRV (self); 1675 HV *hv = (HV *)SvRV (self);
1295 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1676 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1296 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1677 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1297 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1678 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1679
1680 if (name <= 0)
1681 XSRETURN_EMPTY;
1298 1682
1299 if (items < 5) 1683 if (items < 5)
1300 { 1684 {
1301 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1685 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1302 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1686 h = SvNV (*hv_fetch (hv, "h", 1, 1));
1330 glDisable (GL_ALPHA_TEST); 1714 glDisable (GL_ALPHA_TEST);
1331 glDisable (GL_BLEND); 1715 glDisable (GL_BLEND);
1332 } 1716 }
1333} 1717}
1334 1718
1719void
1720draw_fow_texture (float intensity, int hidden_tex, int name1, uint8_t *data1, float s, float t, int w, int h, float blend = 0.f, int dx = 0, int dy = 0, int name2 = 0, uint8_t *data2 = data1)
1721 PROTOTYPE: @
1722 CODE:
1723{
1724 glEnable (GL_BLEND);
1725 glBlendFunc (intensity ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
1726 glEnable (GL_TEXTURE_2D);
1727 glBindTexture (GL_TEXTURE_2D, name1);
1728
1729 glColor3f (intensity, intensity, intensity);
1730 glPushMatrix ();
1731 glScalef (1./3, 1./3, 1.);
1732
1733 if (blend > 0.f)
1734 {
1735 float dx3 = dx * -3.f / w;
1736 float dy3 = dy * -3.f / h;
1737 GLfloat env_color[4] = { 0., 0., 0., blend };
1738
1739 /* interpolate the two shadow textures */
1740 /* stage 0 == rgb(glcolor) + alpha(t0) */
1741 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1742
1743 /* stage 1 == rgb(glcolor) + alpha(interpolate t0, t1, texenv) */
1744 gl.ActiveTexture (GL_TEXTURE1);
1745 glEnable (GL_TEXTURE_2D);
1746 glBindTexture (GL_TEXTURE_2D, name2);
1747 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE);
1748
1749 /* rgb == rgb(glcolor) */
1750 glTexEnvi (GL_TEXTURE_ENV, GL_COMBINE_RGB, GL_REPLACE);
1751 glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE0_RGB, GL_PRIMARY_COLOR);
1752 glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND0_RGB, GL_SRC_COLOR);
1753
1754 /* alpha = interpolate t0, t1 by env_alpha */
1755 glTexEnvfv (GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, env_color);
1756
1757 glTexEnvi (GL_TEXTURE_ENV, GL_COMBINE_ALPHA, GL_INTERPOLATE);
1758 glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE0_ALPHA, GL_TEXTURE);
1759 glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND0_ALPHA, GL_SRC_ALPHA);
1760
1761 glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE1_ALPHA, GL_PREVIOUS);
1762 glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND1_ALPHA, GL_SRC_ALPHA);
1763
1764 glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE2_ALPHA, GL_CONSTANT);
1765 glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND2_ALPHA, GL_SRC_ALPHA);
1766
1767 glBegin (GL_QUADS);
1768 gl.MultiTexCoord2f (GL_TEXTURE0, 0, 0); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 , dy3 ); glVertex2i (0, 0);
1769 gl.MultiTexCoord2f (GL_TEXTURE0, 0, t); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 , dy3 + t); glVertex2i (0, h);
1770 gl.MultiTexCoord2f (GL_TEXTURE0, s, t); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 + s, dy3 + t); glVertex2i (w, h);
1771 gl.MultiTexCoord2f (GL_TEXTURE0, s, 0); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 + s, dy3 ); glVertex2i (w, 0);
1772 glEnd ();
1773
1774 glDisable (GL_TEXTURE_2D);
1775 gl.ActiveTexture (GL_TEXTURE0);
1776 }
1777 else
1778 {
1779 /* simple blending of one texture, also opengl <1.3 path */
1780 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1781
1782 glBegin (GL_QUADS);
1783 glTexCoord2f (0, 0); glVertex2f (0, 0);
1784 glTexCoord2f (0, t); glVertex2f (0, h);
1785 glTexCoord2f (s, t); glVertex2f (w, h);
1786 glTexCoord2f (s, 0); glVertex2f (w, 0);
1787 glEnd ();
1788 }
1789
1790 /* draw ?-marks or equivalent, this is very clumsy code :/ */
1791 {
1792 int x, y;
1793 int dx3 = dx * 3;
1794 int dy3 = dy * 3;
1795
1796 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1797 glBindTexture (GL_TEXTURE_2D, hidden_tex);
1798 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1799 glTranslatef (-1., -1., 0);
1800 glBegin (GL_QUADS);
1801
1802 for (y = 1; y < h; y += 3)
1803 {
1804 int y1 = y - dy3;
1805 int y1valid = y1 >= 0 && y1 < h;
1806
1807 for (x = 1; x < w; x += 3)
1808 {
1809 int x1 = x - dx3;
1810 uint8_t h1 = data1 [x + y * w] == DARKNESS_ADJUST (255 - FOW_DARKNESS);
1811 uint8_t h2;
1812
1813 if (y1valid && x1 >= 0 && x1 < w)
1814 h2 = data2 [x1 + y1 * w] == DARKNESS_ADJUST (255 - FOW_DARKNESS);
1815 else
1816 h2 = 1; /* out of range == invisible */
1817
1818 if (h1 || h2)
1819 {
1820 float alpha = h1 == h2 ? 1.f : h1 ? 1.f - blend : blend;
1821 glColor4f (1., 1., 1., alpha);
1822
1823 glTexCoord2f (0, 0.); glVertex2i (x , y );
1824 glTexCoord2f (0, 1.); glVertex2i (x , y + 3);
1825 glTexCoord2f (1, 1.); glVertex2i (x + 3, y + 3);
1826 glTexCoord2f (1, 0.); glVertex2i (x + 3, y );
1827 }
1828 }
1829 }
1830 }
1831
1832 glEnd ();
1833
1834 glPopMatrix ();
1835
1836 glDisable (GL_TEXTURE_2D);
1837 glDisable (GL_BLEND);
1838}
1839
1335IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type) 1840IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1336 CODE: 1841 CODE:
1337{ 1842{
1338 GLint width; 1843 GLint width;
1339 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0); 1844 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0);
1341 RETVAL = width > 0; 1846 RETVAL = width > 0;
1342} 1847}
1343 OUTPUT: 1848 OUTPUT:
1344 RETVAL 1849 RETVAL
1345 1850
1346MODULE = CFPlus PACKAGE = CFPlus::Map 1851MODULE = Deliantra::Client PACKAGE = DC::Map
1347 1852
1348CFPlus::Map 1853PROTOTYPES: DISABLE
1854
1855DC::Map
1349new (SV *class) 1856new (SV *class)
1350 CODE: 1857 CODE:
1351 New (0, RETVAL, 1, struct map); 1858 New (0, RETVAL, 1, struct map);
1352 RETVAL->x = 0; 1859 RETVAL->x = 0;
1353 RETVAL->y = 0; 1860 RETVAL->y = 0;
1361 RETVAL->row = 0; 1868 RETVAL->row = 0;
1362 OUTPUT: 1869 OUTPUT:
1363 RETVAL 1870 RETVAL
1364 1871
1365void 1872void
1366DESTROY (CFPlus::Map self) 1873DESTROY (DC::Map self)
1367 CODE: 1874 CODE:
1368{ 1875{
1369 map_clear (self); 1876 map_clear (self);
1370 Safefree (self->face2tile); 1877 Safefree (self->face2tile);
1371 Safefree (self->tex); 1878 Safefree (self->tex);
1372 Safefree (self); 1879 Safefree (self);
1373} 1880}
1374 1881
1375void 1882void
1376resize (CFPlus::Map self, int map_width, int map_height) 1883resize (DC::Map self, int map_width, int map_height)
1377 CODE: 1884 CODE:
1378 self->w = map_width; 1885 self->w = map_width;
1379 self->h = map_height; 1886 self->h = map_height;
1380 1887
1381void 1888void
1382clear (CFPlus::Map self) 1889clear (DC::Map self)
1383 CODE: 1890 CODE:
1384 map_clear (self); 1891 map_clear (self);
1385 1892
1386void 1893void
1387set_tileid (CFPlus::Map self, int face, int tile) 1894set_tileid (DC::Map self, int face, int tile)
1388 CODE: 1895 CODE:
1389{ 1896{
1390 need_facenum (self, face); self->face2tile [face] = tile; 1897 need_facenum (self, face); self->face2tile [face] = tile;
1391 need_texid (self, tile); 1898 need_texid (self, tile);
1392} 1899}
1393 1900
1394void 1901void
1395set_smooth (CFPlus::Map self, int face, int smooth, int level) 1902set_smooth (DC::Map self, int face, int smooth, int level)
1396 CODE: 1903 CODE:
1397{ 1904{
1398 tileid texid; 1905 tileid texid;
1399 maptex *tex; 1906 maptex *tex;
1400 1907
1413 tex->smoothtile = self->face2tile [smooth]; 1920 tex->smoothtile = self->face2tile [smooth];
1414 tex->smoothlevel = level; 1921 tex->smoothlevel = level;
1415} 1922}
1416 1923
1417void 1924void
1418set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a) 1925set_texture (DC::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1419 CODE: 1926 CODE:
1420{ 1927{
1421 need_texid (self, texid); 1928 need_texid (self, texid);
1422 1929
1423 { 1930 {
1442 // use uglier nearest interpolation because linear suffers 1949 // use uglier nearest interpolation because linear suffers
1443 // from transparent color bleeding and ugly wrapping effects. 1950 // from transparent color bleeding and ugly wrapping effects.
1444 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1951 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1445} 1952}
1446 1953
1954void
1955expire_textures (DC::Map self, int texid, int count)
1956 PPCODE:
1957 for (; texid < self->texs && count; ++texid, --count)
1958 {
1959 maptex *tex = self->tex + texid;
1960
1961 if (tex->name)
1962 {
1963 if (tex->unused)
1964 {
1965 tex->name = 0;
1966 tex->unused = 0;
1967 XPUSHs (sv_2mortal (newSViv (texid)));
1968 }
1969 else
1970 tex->unused = 1;
1971 }
1972 }
1973
1447int 1974int
1448ox (CFPlus::Map self) 1975ox (DC::Map self)
1449 ALIAS: 1976 ALIAS:
1450 oy = 1 1977 oy = 1
1451 x = 2 1978 x = 2
1452 y = 3 1979 y = 3
1453 w = 4 1980 w = 4
1464 } 1991 }
1465 OUTPUT: 1992 OUTPUT:
1466 RETVAL 1993 RETVAL
1467 1994
1468void 1995void
1469scroll (CFPlus::Map self, int dx, int dy) 1996scroll (DC::Map self, int dx, int dy)
1470 CODE: 1997 CODE:
1471{ 1998{
1472 if (dx > 0) 1999 if (dx > 0)
1473 map_blank (self, self->x, self->y, dx, self->h); 2000 map_blank (self, self->x, self->y, dx, self->h);
1474 else if (dx < 0) 2001 else if (dx < 0)
1489 self->rows += MAP_EXTEND_Y; 2016 self->rows += MAP_EXTEND_Y;
1490 self->y += MAP_EXTEND_Y; 2017 self->y += MAP_EXTEND_Y;
1491 } 2018 }
1492} 2019}
1493 2020
1494void 2021SV *
1495map1a_update (CFPlus::Map self, SV *data_, int extmap) 2022map1a_update (DC::Map self, SV *data_, int extmap)
1496 CODE: 2023 CODE:
1497{ 2024{
1498 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 2025 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1499 uint8_t *data_end = (uint8_t *)SvEND (data_); 2026 uint8_t *data_end = (uint8_t *)SvEND (data_);
1500 mapcell *cell; 2027 mapcell *cell;
1501 int x, y, flags; 2028 int x, y, z, flags;
2029 AV *missing = newAV ();
2030 RETVAL = newRV_noinc ((SV *)missing);
1502 2031
1503 while (data < data_end - 1) 2032 while (data < data_end - 1)
1504 { 2033 {
1505 flags = (data [0] << 8) + data [1]; data += 2; 2034 flags = (data [0] << 8) + data [1]; data += 2;
1506 2035
1526 uint8_t ext, cmd; 2055 uint8_t ext, cmd;
1527 2056
1528 do 2057 do
1529 { 2058 {
1530 ext = *data++; 2059 ext = *data++;
1531 cmd = ext & 0x3f; 2060 cmd = ext & 0x7f;
1532 2061
1533 if (cmd < 4) 2062 if (cmd < 4)
1534 cell->darkness = 255 - ext * 64 + 1; 2063 cell->darkness = 255 - ext * 64 + 1; /* make sure this doesn't collide with FOW_DARKNESS */
1535 else if (cmd == 5) // health 2064 else if (cmd == 5) // health
1536 { 2065 {
1537 cell->stat_width = 1; 2066 cell->stat_width = 1;
1538 cell->stat_hp = *data++; 2067 cell->stat_hp = *data++;
1539 } 2068 }
1540 else if (cmd == 6) // monster width 2069 else if (cmd == 6) // monster width
1541 cell->stat_width = *data++ + 1; 2070 cell->stat_width = *data++ + 1;
1542 else if (cmd == 0x47) 2071 else if (cmd == 0x47)
1543 { 2072 {
1544 if (*data == 4) 2073 if (*data == 1) cell->player = data [1];
1545 ; // decode player count 2074 else if (*data == 2) cell->player = data [2] + (data [1] << 8);
2075 else if (*data == 3) cell->player = data [3] + (data [2] << 8) + (data [1] << 16);
2076 else if (*data == 4) cell->player = data [4] + (data [3] << 8) + (data [2] << 16) + (data [1] << 24);
1546 2077
1547 data += *data + 1; 2078 data += *data + 1;
1548 } 2079 }
1549 else if (cmd == 8) // cell flags 2080 else if (cmd == 8) // cell flags
1550 cell->flags = *data++; 2081 cell->flags = *data++;
1557 } 2088 }
1558 else 2089 else
1559 cell->darkness = *data++ + 1; 2090 cell->darkness = *data++ + 1;
1560 } 2091 }
1561 2092
2093 for (z = 0; z <= 2; ++z)
1562 if (flags & 4) 2094 if (flags & (4 >> z))
1563 { 2095 {
1564 faceid face = (data [0] << 8) + data [1]; data += 2; 2096 faceid face = (data [0] << 8) + data [1]; data += 2;
1565 need_facenum (self, face); 2097 need_facenum (self, face);
1566 cell->tile [0] = self->face2tile [face]; 2098 cell->tile [z] = self->face2tile [face];
2099
2100 if (cell->tile [z])
2101 {
2102 maptex *tex = self->tex + cell->tile [z];
2103 tex->unused = 0;
2104 if (!tex->name)
2105 av_push (missing, newSViv (cell->tile [z]));
2106
2107 if (tex->smoothtile)
2108 {
2109 maptex *smooth = self->tex + tex->smoothtile;
2110 smooth->unused = 0;
2111 if (!smooth->name)
2112 av_push (missing, newSViv (tex->smoothtile));
2113 }
2114 }
1567 } 2115 }
1568
1569 if (flags & 2)
1570 {
1571 faceid face = (data [0] << 8) + data [1]; data += 2;
1572 need_facenum (self, face);
1573 cell->tile [1] = self->face2tile [face];
1574 }
1575
1576 if (flags & 1)
1577 {
1578 faceid face = (data [0] << 8) + data [1]; data += 2;
1579 need_facenum (self, face);
1580 cell->tile [2] = self->face2tile [face];
1581 }
1582 } 2116 }
1583 else 2117 else
1584 cell->darkness = 0; 2118 CELL_CLEAR (cell);
1585 } 2119 }
1586} 2120}
2121 OUTPUT:
2122 RETVAL
1587 2123
1588SV * 2124SV *
1589mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 2125mapmap (DC::Map self, int x0, int y0, int w, int h)
1590 CODE: 2126 CODE:
1591{ 2127{
1592 int x1, x; 2128 int x1, x;
1593 int y1, y; 2129 int y1, y;
1594 int z; 2130 int z;
1607 ? self->row + y 2143 ? self->row + y
1608 : 0; 2144 : 0;
1609 2145
1610 for (x = x0; x < x1; x++) 2146 for (x = x0; x < x1; x++)
1611 { 2147 {
1612 int r = 32, g = 32, b = 32, a = 192; 2148 unsigned int r = 32, g = 32, b = 32, a = 192;
1613 2149
1614 if (row && row->c0 <= x && x < row->c1) 2150 if (row && row->c0 <= x && x < row->c1)
1615 { 2151 {
1616 mapcell *cell = row->col + (x - row->c0); 2152 mapcell *cell = row->col + (x - row->c0);
1617 2153
1619 { 2155 {
1620 maptex tex = self->tex [cell->tile [z]]; 2156 maptex tex = self->tex [cell->tile [z]];
1621 int a0 = 255 - tex.a; 2157 int a0 = 255 - tex.a;
1622 int a1 = tex.a; 2158 int a1 = tex.a;
1623 2159
1624 r = (r * a0 + tex.r * a1) / 255; 2160 r = div255 (r * a0 + tex.r * a1);
1625 g = (g * a0 + tex.g * a1) / 255; 2161 g = div255 (g * a0 + tex.g * a1);
1626 b = (b * a0 + tex.b * a1) / 255; 2162 b = div255 (b * a0 + tex.b * a1);
1627 a = (a * a0 + tex.a * a1) / 255; 2163 a = div255 (a * a0 + tex.a * a1);
1628 } 2164 }
1629 } 2165 }
1630 2166
1631 *map++ = (r ) 2167 *map++ = (r )
1632 | (g << 8) 2168 | (g << 8)
1639} 2175}
1640 OUTPUT: 2176 OUTPUT:
1641 RETVAL 2177 RETVAL
1642 2178
1643void 2179void
1644draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T) 2180draw (DC::Map self, int mx, int my, int sw, int sh, int Tw, int Th, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
1645 CODE: 2181 CODE:
1646{ 2182{
2183 int x, y, z;
2184
1647 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ()); 2185 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1648 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level 2186 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1649 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k) 2187 static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1650 smooth_key skey; 2188 smooth_key skey;
1651 int x, y, z; 2189 int pl_x, pl_y;
1652 int last_name; 2190 maptex pl_tex;
2191 rc_t *rc = rc_alloc ();
2192 rc_t *rc_ov = rc_alloc ();
2193 rc_key_t key;
2194 rc_array_t *arr;
1653 2195
2196 pl_tex.name = 0;
2197
1654 // thats current max. sorry. 2198 // that's current max. sorry.
1655 if (sw > 255) sw = 255; 2199 if (sw > 255) sw = 255;
1656 if (sh > 255) sh = 255; 2200 if (sh > 255) sh = 255;
1657 2201
1658 // clear key, in case of extra padding 2202 // clear key, in case of extra padding
1659 memset (&skey, 0, sizeof (skey)); 2203 memset (&skey, 0, sizeof (skey));
1660 2204
1661 glColor4ub (255, 255, 255, 255); 2205 memset (&key, 0, sizeof (key));
1662 2206 key.r = 255;
1663 glEnable (GL_BLEND); 2207 key.g = 255;
1664 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 2208 key.b = 255;
1665 glEnable (GL_TEXTURE_2D); 2209 key.a = 255;
1666 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 2210 key.mode = GL_QUADS;
1667 2211 key.format = GL_T2F_V3F;
1668 glBegin (GL_QUADS);
1669
1670 last_name = 0;
1671 2212
1672 mx += self->x; 2213 mx += self->x;
1673 my += self->y; 2214 my += self->y;
1674 2215
1675 // first pass: determine smooth_max 2216 // first pass: determine smooth_max
1692 MAX (self->tex [cell->tile [1]].smoothlevel, 2233 MAX (self->tex [cell->tile [1]].smoothlevel,
1693 self->tex [cell->tile [2]].smoothlevel)); 2234 self->tex [cell->tile [2]].smoothlevel));
1694 } 2235 }
1695 } 2236 }
1696 2237
2238 glEnable (GL_BLEND);
2239 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2240 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
2241
1697 for (z = 0; z <= 2; z++) 2242 for (z = 0; z <= 2; z++)
1698 { 2243 {
1699 memset (smooth_level, 0, sizeof (smooth_level)); 2244 memset (smooth_level, 0, sizeof (smooth_level));
2245 key.texname = -1;
1700 2246
1701 for (y = 0; y < sh; y++) 2247 for (y = 0; y < sh; y++)
1702 if (0 <= y + my && y + my < self->rows) 2248 if (0 <= y + my && y + my < self->rows)
1703 { 2249 {
1704 maprow *row = self->row + (y + my); 2250 maprow *row = self->row + (y + my);
1710 tileid tile = cell->tile [z]; 2256 tileid tile = cell->tile [z];
1711 2257
1712 if (tile) 2258 if (tile)
1713 { 2259 {
1714 maptex tex = self->tex [tile]; 2260 maptex tex = self->tex [tile];
1715 int px = (x + 1) * T - tex.w; 2261 int px, py;
1716 int py = (y + 1) * T - tex.h;
1717 2262
1718 // suppressing texture state switches here
1719 // is only moderately effective, but worth the extra effort
1720 if (last_name != tex.name) 2263 if (key.texname != tex.name)
1721 { 2264 {
2265 self->tex [tile].unused = 0;
2266
1722 if (!tex.name) 2267 if (!tex.name)
1723 tex = self->tex [2]; /* missing, replace by noface */ 2268 tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
1724 2269
1725 glEnd (); 2270 key.texname = tex.name;
1726 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 2271 arr = rc_array (rc, &key);
1727 glBegin (GL_QUADS);
1728 } 2272 }
1729 2273
1730 glTexCoord2f (0 , 0 ); glVertex2f (px , py ); 2274 px = (x + 1) * Th - tex.w;
1731 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h); 2275 py = (y + 1) * Tw - tex.h;
1732 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1733 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1734 2276
1735 if (cell->flags && z == 2) 2277 if (expect_false (cell->player == player) && expect_false (z == 2))
1736 { 2278 {
1737 if (cell->flags & 1) 2279 pl_x = px;
2280 pl_y = py;
2281 pl_tex = tex;
1738 { 2282 continue;
1739 maptex tex = self->tex [1];
1740 int px = x * T + T * 2 / 32;
1741 int py = y * T - T * 6 / 32;
1742
1743 glEnd ();
1744 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1745 glBegin (GL_QUADS);
1746
1747 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1748 glTexCoord2f (0 , tex.t); glVertex2f (px , py + T);
1749 glTexCoord2f (tex.s, tex.t); glVertex2f (px + T, py + T);
1750 glTexCoord2f (tex.s, 0 ); glVertex2f (px + T, py );
1751 }
1752 } 2283 }
2284
2285 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2286 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
2287 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
2288 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1753 2289
1754 // update smooth hash 2290 // update smooth hash
1755 if (tex.smoothtile) 2291 if (tex.smoothtile)
1756 { 2292 {
1757 skey.tile = tex.smoothtile; 2293 skey.tile = tex.smoothtile;
1788 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200); 2324 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1789 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400); 2325 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1790 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800); 2326 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1791 } 2327 }
1792 } 2328 }
2329
2330 if (expect_false (z == 2) && expect_false (cell->flags))
2331 {
2332 // overlays such as the speech bubble, probably more to come
2333 if (cell->flags & 1)
2334 {
2335 rc_key_t key_ov = key;
2336 maptex tex = self->tex [TEXID_SPEECH];
2337 rc_array_t *arr;
2338 int px = x * Tw + Tw * 2 / 32;
2339 int py = y * Th - Th * 6 / 32;
2340
2341 key_ov.texname = tex.name;
2342 arr = rc_array (rc_ov, &key_ov);
2343
2344 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2345 rc_t2f_v3f (arr, 0 , tex.t, px , py + Th, 0);
2346 rc_t2f_v3f (arr, tex.s, tex.t, px + Tw, py + Th, 0);
2347 rc_t2f_v3f (arr, tex.s, 0 , px + Tw, py , 0);
2348 }
2349 }
1793 } 2350 }
1794 } 2351 }
2352
2353 rc_draw (rc);
2354 rc_clear (rc);
1795 2355
1796 // go through all smoothlevels, lowest to highest, then draw. 2356 // go through all smoothlevels, lowest to highest, then draw.
1797 // this is basically counting sort 2357 // this is basically counting sort
1798 { 2358 {
1799 int w, b; 2359 int w, b;
1800 2360
2361 glEnable (GL_TEXTURE_2D);
2362 glBegin (GL_QUADS);
1801 for (w = 0; w < 256 / 32; ++w) 2363 for (w = 0; w < 256 / 32; ++w)
1802 { 2364 {
1803 uint32_t smask = smooth_level [w]; 2365 uint32_t smask = smooth_level [w];
1804 if (smask) 2366 if (smask)
1805 for (b = 0; b < 32; ++b) 2367 for (b = 0; b < 32; ++b)
1817 if (!(bits & 0x1000) 2379 if (!(bits & 0x1000)
1818 && skey->level == level 2380 && skey->level == level
1819 && level > smooth_max [skey->x][skey->y]) 2381 && level > smooth_max [skey->x][skey->y])
1820 { 2382 {
1821 maptex tex = self->tex [skey->tile]; 2383 maptex tex = self->tex [skey->tile];
1822 int px = (((int)skey->x) - 1) * T; 2384 int px = (((int)skey->x) - 1) * Tw;
1823 int py = (((int)skey->y) - 1) * T; 2385 int py = (((int)skey->y) - 1) * Th;
1824 int border = bits & 15; 2386 int border = bits & 15;
1825 int corner = (bits >> 8) & ~(bits >> 4) & 15; 2387 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1826 float dx = tex.s * .0625f; // 16 images/row 2388 float dx = tex.s * .0625f; // 16 images/row
1827 float dy = tex.t * .5f ; // 2 images/column 2389 float dy = tex.t * .5f ; // 2 images/column
1828 2390
1829 // this time naively avoiding texture state changes
1830 // save gobs of state changes.
1831 if (last_name != tex.name) 2391 if (tex.name)
1832 { 2392 {
2393 // this time avoiding texture state changes
2394 // save gobs of state changes.
1833 if (!tex.name) 2395 if (key.texname != tex.name)
1834 continue; // smoothing not yet available 2396 {
2397 self->tex [skey->tile].unused = 0;
1835 2398
1836 glEnd (); 2399 glEnd ();
1837 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 2400 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1838 glBegin (GL_QUADS); 2401 glBegin (GL_QUADS);
1839 } 2402 }
1840 2403
1841 if (border) 2404 if (border)
1842 { 2405 {
1843 float ox = border * dx; 2406 float ox = border * dx;
1844 2407
1845 glTexCoord2f (ox , 0.f ); glVertex2f (px , py ); 2408 glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
1846 glTexCoord2f (ox , dy ); glVertex2f (px , py + T); 2409 glTexCoord2f (ox , dy ); glVertex2i (px , py + Th);
1847 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T); 2410 glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py + Th);
1848 glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py ); 2411 glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + Tw, py );
1849 } 2412 }
1850 2413
1851 if (corner) 2414 if (corner)
1852 { 2415 {
1853 float ox = corner * dx; 2416 float ox = corner * dx;
1854 2417
1855 glTexCoord2f (ox , dy ); glVertex2f (px , py ); 2418 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1856 glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T); 2419 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + Th);
1857 glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T); 2420 glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + Tw, py + Th);
1858 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py ); 2421 glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py );
2422 }
1859 } 2423 }
1860 } 2424 }
1861 } 2425 }
1862 } 2426 }
1863 } 2427 }
2428
2429 glEnd ();
2430 glDisable (GL_TEXTURE_2D);
2431 key.texname = -1;
1864 } 2432 }
1865 2433
1866 hv_clear (smooth); 2434 hv_clear (smooth);
1867 } 2435 }
1868 2436
1869 glEnd (); 2437 if (pl_tex.name)
2438 {
2439 maptex tex = pl_tex;
2440 int px = pl_x + sdx;
2441 int py = pl_y + sdy;
1870 2442
1871 glDisable (GL_TEXTURE_2D); 2443 key.texname = tex.name;
2444 arr = rc_array (rc, &key);
2445
2446 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2447 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
2448 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
2449 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
2450
2451 rc_draw (rc);
2452 }
2453
2454 rc_draw (rc_ov);
2455 rc_clear (rc_ov);
2456
1872 glDisable (GL_BLEND); 2457 glDisable (GL_BLEND);
2458 rc_free (rc);
2459 rc_free (rc_ov);
1873 2460
1874 // top layer: overlays such as the health bar 2461 // top layer: overlays such as the health bar
1875 for (y = 0; y < sh; y++) 2462 for (y = 0; y < sh; y++)
1876 if (0 <= y + my && y + my < self->rows) 2463 if (0 <= y + my && y + my < self->rows)
1877 { 2464 {
1880 for (x = 0; x < sw; x++) 2467 for (x = 0; x < sw; x++)
1881 if (row->c0 <= x + mx && x + mx < row->c1) 2468 if (row->c0 <= x + mx && x + mx < row->c1)
1882 { 2469 {
1883 mapcell *cell = row->col + (x + mx - row->c0); 2470 mapcell *cell = row->col + (x + mx - row->c0);
1884 2471
1885 int px = x * T; 2472 int px = x * Tw;
1886 int py = y * T; 2473 int py = y * Th;
2474
2475 if (expect_false (cell->player == player))
2476 {
2477 px += sdx;
2478 py += sdy;
2479 }
1887 2480
1888 if (cell->stat_hp) 2481 if (cell->stat_hp)
1889 { 2482 {
1890 int width = cell->stat_width * T; 2483 int width = cell->stat_width * Tw;
1891 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width; 2484 int thick = (sh * Th / 32 + 27) / 28 + 1 + cell->stat_width;
1892 2485
1893 glColor3ub (0, 0, 0); 2486 glColor3ub (0, 0, 0);
1894 glRectf (px + 1, py - thick - 2, 2487 glRectf (px + 1, py - thick - 2,
1895 px + width - 1, py); 2488 px + width - 1, py);
1896 2489
1902 } 2495 }
1903 } 2496 }
1904} 2497}
1905 2498
1906void 2499void
1907draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data) 2500draw_magicmap (DC::Map self, int w, int h, unsigned char *data)
1908 CODE: 2501 CODE:
1909{ 2502{
1910 static float color[16][3] = { 2503 static float color[16][3] = {
1911 { 0.00F, 0.00F, 0.00F }, 2504 { 0.00f, 0.00f, 0.00f },
1912 { 1.00F, 1.00F, 1.00F }, 2505 { 1.00f, 1.00f, 1.00f },
1913 { 0.00F, 0.00F, 0.55F }, 2506 { 0.00f, 0.00f, 0.55f },
1914 { 1.00F, 0.00F, 0.00F }, 2507 { 1.00f, 0.00f, 0.00f },
1915 2508
1916 { 1.00F, 0.54F, 0.00F }, 2509 { 1.00f, 0.54f, 0.00f },
1917 { 0.11F, 0.56F, 1.00F }, 2510 { 0.11f, 0.56f, 1.00f },
1918 { 0.93F, 0.46F, 0.00F }, 2511 { 0.93f, 0.46f, 0.00f },
1919 { 0.18F, 0.54F, 0.34F }, 2512 { 0.18f, 0.54f, 0.34f },
1920 2513
1921 { 0.56F, 0.73F, 0.56F }, 2514 { 0.56f, 0.73f, 0.56f },
1922 { 0.80F, 0.80F, 0.80F }, 2515 { 0.80f, 0.80f, 0.80f },
1923 { 0.55F, 0.41F, 0.13F }, 2516 { 0.55f, 0.41f, 0.13f },
1924 { 0.99F, 0.77F, 0.26F }, 2517 { 0.99f, 0.77f, 0.26f },
1925 2518
1926 { 0.74F, 0.65F, 0.41F }, 2519 { 0.74f, 0.65f, 0.41f },
1927 2520
1928 { 0.00F, 1.00F, 1.00F }, 2521 { 0.00f, 1.00f, 1.00f },
1929 { 1.00F, 0.00F, 1.00F }, 2522 { 1.00f, 0.00f, 1.00f },
1930 { 1.00F, 1.00F, 0.00F }, 2523 { 1.00f, 1.00f, 0.00f },
1931 }; 2524 };
1932 2525
1933 int x, y; 2526 int x, y;
1934 2527
1935 glEnable (GL_TEXTURE_2D); 2528 glEnable (GL_TEXTURE_2D);
2529 /* GL_REPLACE would be correct, as we don't need to modulate alpha,
2530 * but the nvidia driver (185.18.14) mishandles alpha textures
2531 * and takes the colour from god knows where instead of using
2532 * Cp. MODULATE results in the same colour, but slightly different
2533 * alpha, but atcually gives us the correct colour with nvidia.
2534 */
1936 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 2535 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1937 glEnable (GL_BLEND); 2536 glEnable (GL_BLEND);
1938 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 2537 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1939 glBegin (GL_QUADS); 2538 glBegin (GL_QUADS);
1940 2539
1941 for (y = 0; y < h; y++) 2540 for (y = 0; y < h; y++)
1945 2544
1946 if (m) 2545 if (m)
1947 { 2546 {
1948 float *c = color [m & 15]; 2547 float *c = color [m & 15];
1949 2548
1950 float tx1 = m & 0x40 ? 0.5 : 0.; 2549 float tx1 = m & 0x40 ? 0.5f : 0.f;
1951 float tx2 = tx1 + 0.5; 2550 float tx2 = tx1 + 0.5f;
1952 2551
1953 glColor4f (c[0], c[1], c[2], 0.75); 2552 glColor4f (c[0], c[1], c[2], 1);
1954 glTexCoord2f (tx1, 0.); glVertex2i (x , y ); 2553 glTexCoord2f (tx1, 0.); glVertex2i (x , y );
1955 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1); 2554 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
1956 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1); 2555 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
1957 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y ); 2556 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
1958 } 2557 }
1962 glDisable (GL_BLEND); 2561 glDisable (GL_BLEND);
1963 glDisable (GL_TEXTURE_2D); 2562 glDisable (GL_TEXTURE_2D);
1964} 2563}
1965 2564
1966void 2565void
1967fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh) 2566fow_texture (DC::Map self, int mx, int my, int sw, int sh)
1968 PPCODE: 2567 PPCODE:
1969{ 2568{
1970 int x, y; 2569 int x, y;
1971 int sw4 = (sw + 3) & ~3; 2570 int sw1 = sw + 2;
2571 int sh1 = sh + 2;
2572 int sh3 = sh * 3;
2573 int sw3 = sw * 3;
1972 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2574 SV *darkness3_sv = sv_2mortal (newSV (sw3 * sh3));
1973 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2575 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1974 2576 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1975 memset (darkness, 255, sw4 * sh); 2577 memset (darkness1, 0, sw1*sh1);
2578
1976 SvPOK_only (darkness_sv); 2579 SvPOK_only (darkness3_sv);
1977 SvCUR_set (darkness_sv, sw4 * sh); 2580 SvCUR_set (darkness3_sv, sw3 * sh3);
1978 2581
1979 mx += self->x; 2582 mx += self->x - 1;
1980 my += self->y; 2583 my += self->y - 1;
1981 2584
1982 for (y = 0; y < sh; y++) 2585 for (y = 0; y < sh1; y++)
1983 if (0 <= y + my && y + my < self->rows) 2586 if (0 <= y + my && y + my < self->rows)
1984 { 2587 {
1985 maprow *row = self->row + (y + my); 2588 maprow *row = self->row + (y + my);
1986 2589
1987 for (x = 0; x < sw; x++) 2590 for (x = 0; x < sw1; x++)
1988 if (row->c0 <= x + mx && x + mx < row->c1) 2591 if (row->c0 <= x + mx && x + mx < row->c1)
1989 { 2592 {
1990 mapcell *cell = row->col + (x + mx - row->c0); 2593 mapcell *cell = row->col + (x + mx - row->c0);
1991 2594
1992 darkness[y * sw4 + x] = cell->darkness 2595 darkness1 [y * sw1 + x] = cell->darkness
1993 ? 255 - (cell->darkness - 1) 2596 ? DARKNESS_ADJUST (255 - (cell->darkness - 1))
1994 : 255 - FOW_DARKNESS; 2597 : DARKNESS_ADJUST (255 - FOW_DARKNESS);
1995 } 2598 }
1996 } 2599 }
1997 2600
2601 for (y = 0; y < sh; ++y)
2602 for (x = 0; x < sw; ++x)
2603 {
2604 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2605 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2606 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2607 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2608 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2609 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2610 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2611 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2612 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
2613
2614 uint8_t r11 = (d11 + d21 + d12) / 3;
2615 uint8_t r21 = d21;
2616 uint8_t r31 = (d21 + d31 + d32) / 3;
2617
2618 uint8_t r12 = d12;
2619 uint8_t r22 = d22;
2620 uint8_t r32 = d32;
2621
2622 uint8_t r13 = (d13 + d23 + d12) / 3;
2623 uint8_t r23 = d23;
2624 uint8_t r33 = (d23 + d33 + d32) / 3;
2625
2626 darkness3 [(y * 3 ) * sw3 + (x * 3 )] = MAX (d22, r11);
2627 darkness3 [(y * 3 ) * sw3 + (x * 3 + 1)] = MAX (d22, r21);
2628 darkness3 [(y * 3 ) * sw3 + (x * 3 + 2)] = MAX (d22, r31);
2629 darkness3 [(y * 3 + 1) * sw3 + (x * 3 )] = MAX (d22, r12);
2630 darkness3 [(y * 3 + 1) * sw3 + (x * 3 + 1)] = MAX (d22, r22); /* this MUST be == d22 */
2631 darkness3 [(y * 3 + 1) * sw3 + (x * 3 + 2)] = MAX (d22, r32);
2632 darkness3 [(y * 3 + 2) * sw3 + (x * 3 )] = MAX (d22, r13);
2633 darkness3 [(y * 3 + 2) * sw3 + (x * 3 + 1)] = MAX (d22, r23);
2634 darkness3 [(y * 3 + 2) * sw3 + (x * 3 + 2)] = MAX (d22, r33);
2635 }
2636
2637 free (darkness1);
2638
1998 EXTEND (SP, 3); 2639 EXTEND (SP, 3);
1999 PUSHs (sv_2mortal (newSViv (sw4))); 2640 PUSHs (sv_2mortal (newSViv (sw3)));
2000 PUSHs (sv_2mortal (newSViv (sh))); 2641 PUSHs (sv_2mortal (newSViv (sh3)));
2001 PUSHs (darkness_sv); 2642 PUSHs (darkness3_sv);
2002} 2643}
2003 2644
2004SV * 2645SV *
2005get_rect (CFPlus::Map self, int x0, int y0, int w, int h) 2646get_rect (DC::Map self, int x0, int y0, int w, int h)
2006 CODE: 2647 CODE:
2007{ 2648{
2008 int x, y, x1, y1; 2649 int x, y, x1, y1;
2009 SV *data_sv = newSV (w * h * 7 + 5); 2650 SV *data_sv = newSV (w * h * 7 + 5);
2010 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2651 uint8_t *data = (uint8_t *)SvPVX (data_sv);
2067 else 2708 else
2068 *data++ = 0; 2709 *data++ = 0;
2069 } 2710 }
2070 } 2711 }
2071 2712
2713 /* if size is w*h + 5 then no data has been found */
2714 if (data - (uint8_t *)SvPVX (data_sv) != w * h + 5)
2715 {
2072 SvPOK_only (data_sv); 2716 SvPOK_only (data_sv);
2073 SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv)); 2717 SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
2718 }
2719
2074 RETVAL = data_sv; 2720 RETVAL = data_sv;
2075} 2721}
2076 OUTPUT: 2722 OUTPUT:
2077 RETVAL 2723 RETVAL
2078 2724
2079void 2725void
2080set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data) 2726set_rect (DC::Map self, int x0, int y0, SV *data_sv)
2081 PPCODE: 2727 PPCODE:
2082{ 2728{
2083 int x, y, z; 2729 int x, y, z;
2084 int w, h; 2730 int w, h;
2085 int x1, y1; 2731 int x1, y1;
2732 STRLEN len;
2733 uint8_t *data, *end;
2734
2735 len = SvLEN (data_sv);
2736 SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
2737 data = SvPVbyte_nolen (data_sv);
2738 end = data + len + 8;
2739
2740 if (len < 5)
2741 XSRETURN_EMPTY;
2086 2742
2087 if (*data++ != 0) 2743 if (*data++ != 0)
2088 return; /* version mismatch */ 2744 XSRETURN_EMPTY; /* version mismatch */
2089 2745
2090 w = *data++ << 8; w |= *data++; 2746 w = *data++ << 8; w |= *data++;
2091 h = *data++ << 8; h |= *data++; 2747 h = *data++ << 8; h |= *data++;
2092 2748
2093 // we need to do this 'cause we don't keep an absolute coord system for rows 2749 // we need to do this 'cause we don't keep an absolute coord system for rows
2105 { 2761 {
2106 maprow *row = map_get_row (self, y); 2762 maprow *row = map_get_row (self, y);
2107 2763
2108 for (x = x0; x < x1; x++) 2764 for (x = x0; x < x1; x++)
2109 { 2765 {
2766 uint8_t flags;
2767
2768 if (data + 7 >= end)
2769 XSRETURN_EMPTY;
2770
2110 uint8_t flags = *data++; 2771 flags = *data++;
2111 2772
2112 if (flags) 2773 if (flags)
2113 { 2774 {
2114 mapcell *cell = row_get_cell (row, x); 2775 mapcell *cell = row_get_cell (row, x);
2115 tileid tile[3] = { 0, 0, 0 }; 2776 tileid tile[3] = { 0, 0, 0 };
2118 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; } 2779 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
2119 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; } 2780 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
2120 2781
2121 if (cell->darkness == 0) 2782 if (cell->darkness == 0)
2122 { 2783 {
2123 cell->darkness = 0; 2784 /*cell->darkness = 0;*/
2785 EXTEND (SP, 3);
2124 2786
2125 for (z = 0; z <= 2; z++) 2787 for (z = 0; z <= 2; z++)
2126 { 2788 {
2127 tileid t = tile [z]; 2789 tileid t = tile [z];
2128 2790
2129 if (t >= self->texs || (t && !self->tex [t].name)) 2791 if (t >= self->texs || (t && !self->tex [t].name))
2130 { 2792 {
2131 XPUSHs (sv_2mortal (newSViv (t))); 2793 PUSHs (sv_2mortal (newSViv (t)));
2132 need_texid (self, t); 2794 need_texid (self, t);
2133 } 2795 }
2134 2796
2135 cell->tile [z] = t; 2797 cell->tile [z] = t;
2136 } 2798 }
2138 } 2800 }
2139 } 2801 }
2140 } 2802 }
2141} 2803}
2142 2804
2143MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2805MODULE = Deliantra::Client PACKAGE = DC::RW
2144 2806
2145CFPlus::MixChunk 2807DC::RW
2146new_from_file (SV *class, char *path) 2808new (SV *class, SV *data_sv)
2147 CODE: 2809 CODE:
2148 RETVAL = Mix_LoadWAV (path); 2810{
2811 STRLEN datalen;
2812 char *data = SvPVbyte (data_sv, datalen);
2813
2814 RETVAL = SDL_RWFromConstMem (data, datalen);
2815}
2149 OUTPUT: 2816 OUTPUT:
2150 RETVAL 2817 RETVAL
2151 2818
2819DC::RW
2820new_from_file (SV *class, const char *path, const char *mode = "rb")
2821 CODE:
2822 RETVAL = SDL_RWFromFile (path, mode);
2823 OUTPUT:
2824 RETVAL
2825
2826# fails on win32:
2827# dc.xs(2268) : error C2059: syntax error : '('
2152void 2828#void
2829#close (DC::RW self)
2830# CODE:
2831# (self->(close)) (self);
2832
2833MODULE = Deliantra::Client PACKAGE = DC::Channel
2834
2835PROTOTYPES: DISABLE
2836
2837DC::Channel
2838find ()
2839 CODE:
2840{
2841 RETVAL = Mix_GroupAvailable (-1);
2842
2843 if (RETVAL < 0)
2844 {
2845 RETVAL = Mix_GroupOldest (-1);
2846
2847 if (RETVAL < 0)
2848 {
2849 // happens sometimes, maybe it just stopped playing(?)
2850 RETVAL = Mix_GroupAvailable (-1);
2851
2852 if (RETVAL < 0)
2853 XSRETURN_UNDEF;
2854 }
2855 else
2856 Mix_HaltChannel (RETVAL);
2857 }
2858
2859 Mix_UnregisterAllEffects (RETVAL);
2860 Mix_Volume (RETVAL, 128);
2861}
2862 OUTPUT:
2863 RETVAL
2864
2865void
2866halt (DC::Channel self)
2867 CODE:
2868 Mix_HaltChannel (self);
2869
2870void
2871expire (DC::Channel self, int ticks = -1)
2872 CODE:
2873 Mix_ExpireChannel (self, ticks);
2874
2875void
2876fade_out (DC::Channel self, int ticks = -1)
2877 CODE:
2878 Mix_FadeOutChannel (self, ticks);
2879
2880int
2881volume (DC::Channel self, int volume)
2882 CODE:
2883 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2884 OUTPUT:
2885 RETVAL
2886
2887void
2888unregister_all_effects (DC::Channel self)
2889 CODE:
2890 Mix_UnregisterAllEffects (self);
2891
2892void
2893set_panning (DC::Channel self, int left, int right)
2894 CODE:
2895 left = CLAMP (left , 0, 255);
2896 right = CLAMP (right, 0, 255);
2897 Mix_SetPanning (self, left, right);
2898
2899void
2900set_distance (DC::Channel self, int distance)
2901 CODE:
2902 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2903
2904void
2905set_position (DC::Channel self, int angle, int distance)
2906 CODE:
2907
2908void
2909set_position_r (DC::Channel self, int dx, int dy, int maxdistance)
2910 CODE:
2911{
2912 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2913 int angle = atan2f (dx, -dy) * 180.f / (float)M_PI + 360.f;
2914 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2915}
2916
2917void
2918set_reverse_stereo (DC::Channel self, int flip)
2919 CODE:
2920 Mix_SetReverseStereo (self, flip);
2921
2922MODULE = Deliantra::Client PACKAGE = DC::MixChunk
2923
2924PROTOTYPES: DISABLE
2925
2926void
2927decoders ()
2928 PPCODE:
2929#if SDL_MIXER_MAJOR_VERSION > 1 || SDL_MIXER_MINOR_VERSION > 2 || SDL_MIXER_PATCHLEVEL >= 10
2930 int i, num = Mix_GetNumChunkDecoders ();
2931 EXTEND (SP, num);
2932 for (i = 0; i < num; ++i)
2933 PUSHs (sv_2mortal (newSVpv (Mix_GetChunkDecoder (i), 0)));
2934#else
2935 XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));
2936#endif
2937
2938DC::MixChunk
2939new (SV *class, DC::RW rwops)
2940 CODE:
2941 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2942 OUTPUT:
2943 RETVAL
2944
2945void
2153DESTROY (CFPlus::MixChunk self) 2946DESTROY (DC::MixChunk self)
2154 CODE: 2947 CODE:
2155 Mix_FreeChunk (self); 2948 Mix_FreeChunk (self);
2156 2949
2157int 2950int
2158volume (CFPlus::MixChunk self, int volume = -1) 2951volume (DC::MixChunk self, int volume = -1)
2159 CODE: 2952 CODE:
2953 if (items > 1)
2954 volume = CLAMP (volume, 0, 128);
2160 RETVAL = Mix_VolumeChunk (self, volume); 2955 RETVAL = Mix_VolumeChunk (self, volume);
2161 OUTPUT: 2956 OUTPUT:
2162 RETVAL 2957 RETVAL
2163 2958
2164int 2959DC::Channel
2165play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2960play (DC::MixChunk self, DC::Channel channel = -1, int loops = 0, int ticks = -1)
2166 CODE: 2961 CODE:
2962{
2167 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2963 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2964
2965 if (RETVAL < 0)
2966 XSRETURN_UNDEF;
2967
2968 if (channel < 0)
2969 {
2970 Mix_UnregisterAllEffects (RETVAL);
2971 Mix_Volume (RETVAL, 128);
2972 }
2973}
2168 OUTPUT: 2974 OUTPUT:
2169 RETVAL 2975 RETVAL
2170 2976
2171MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2977MODULE = Deliantra::Client PACKAGE = DC::MixMusic
2978
2979void
2980decoders ()
2981 PPCODE:
2982#if SDL_MIXER_MAJOR_VERSION > 1 || SDL_MIXER_MINOR_VERSION > 2 || SDL_MIXER_PATCHLEVEL >= 10
2983 int i, num = Mix_GetNumMusicDecoders ();
2984 EXTEND (SP, num);
2985 for (i = 0; i < num; ++i)
2986 PUSHs (sv_2mortal (newSVpv (Mix_GetMusicDecoder (i), 0)));
2987#else
2988 XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));
2989#endif
2172 2990
2173int 2991int
2174volume (int volume = -1) 2992volume (int volume = -1)
2993 PROTOTYPE: ;$
2175 CODE: 2994 CODE:
2995 if (items > 0)
2996 volume = CLAMP (volume, 0, 128);
2176 RETVAL = Mix_VolumeMusic (volume); 2997 RETVAL = Mix_VolumeMusic (volume);
2177 OUTPUT: 2998 OUTPUT:
2178 RETVAL 2999 RETVAL
2179 3000
3001void
3002fade_out (int ms)
3003 CODE:
3004 Mix_FadeOutMusic (ms);
3005
3006void
3007halt ()
3008 CODE:
3009 Mix_HaltMusic ();
3010
2180int 3011int
2181fade_out (int ms) 3012playing ()
2182 CODE: 3013 CODE:
2183 RETVAL = Mix_FadeOutMusic (ms); 3014 RETVAL = Mix_PlayingMusic ();
2184 OUTPUT: 3015 OUTPUT:
2185 RETVAL 3016 RETVAL
2186 3017
2187CFPlus::MixMusic 3018DC::MixMusic
2188new_from_file (SV *class, char *path) 3019new (SV *class, DC::RW rwops)
2189 CODE: 3020 CODE:
2190 RETVAL = Mix_LoadMUS (path); 3021 RETVAL = Mix_LoadMUS_RW (rwops);
2191 OUTPUT: 3022 OUTPUT:
2192 RETVAL 3023 RETVAL
2193 3024
2194void 3025void
2195DESTROY (CFPlus::MixMusic self) 3026DESTROY (DC::MixMusic self)
2196 CODE: 3027 CODE:
2197 Mix_FreeMusic (self); 3028 Mix_FreeMusic (self);
2198 3029
2199int 3030int
2200play (CFPlus::MixMusic self, int loops = -1) 3031play (DC::MixMusic self, int loops = -1)
2201 CODE: 3032 CODE:
2202 RETVAL = Mix_PlayMusic (self, loops); 3033 RETVAL = Mix_PlayMusic (self, loops);
2203 OUTPUT: 3034 OUTPUT:
2204 RETVAL 3035 RETVAL
2205 3036
2206int 3037void
2207fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position) 3038fade_in_pos (DC::MixMusic self, int loops, int ms, double position)
2208 CODE: 3039 CODE:
2209 RETVAL = Mix_FadeInMusicPos (self, loops, ms, position); 3040 Mix_FadeInMusicPos (self, loops, ms, position);
2210 OUTPUT:
2211 RETVAL
2212 3041
2213MODULE = CFPlus PACKAGE = CFPlus::OpenGL 3042MODULE = Deliantra::Client PACKAGE = DC::OpenGL
3043
3044PROTOTYPES: ENABLE
2214 3045
2215BOOT: 3046BOOT:
2216{ 3047{
2217 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1); 3048 HV *stash = gv_stashpv ("DC::OpenGL", 1);
2218 static const struct { 3049 static const struct {
2219 const char *name; 3050 const char *name;
2220 IV iv; 3051 IV iv;
2221 } *civ, const_iv[] = { 3052 } *civ, const_iv[] = {
2222# define const_iv(name) { # name, (IV)name } 3053# define const_iv(name) { # name, (IV)name }
2223 const_iv (GL_VENDOR), 3054 const_iv (GL_VENDOR),
2224 const_iv (GL_VERSION), 3055 const_iv (GL_VERSION),
2225 const_iv (GL_EXTENSIONS), 3056 const_iv (GL_EXTENSIONS),
3057 const_iv (GL_MAX_TEXTURE_UNITS),
2226 const_iv (GL_COLOR_MATERIAL), 3058 const_iv (GL_COLOR_MATERIAL),
2227 const_iv (GL_SMOOTH), 3059 const_iv (GL_SMOOTH),
2228 const_iv (GL_FLAT), 3060 const_iv (GL_FLAT),
2229 const_iv (GL_DITHER), 3061 const_iv (GL_DITHER),
2230 const_iv (GL_BLEND), 3062 const_iv (GL_BLEND),
2234 const_iv (GL_ALPHA_TEST), 3066 const_iv (GL_ALPHA_TEST),
2235 const_iv (GL_NORMALIZE), 3067 const_iv (GL_NORMALIZE),
2236 const_iv (GL_RESCALE_NORMAL), 3068 const_iv (GL_RESCALE_NORMAL),
2237 const_iv (GL_FRONT), 3069 const_iv (GL_FRONT),
2238 const_iv (GL_BACK), 3070 const_iv (GL_BACK),
3071 const_iv (GL_AUX0),
2239 const_iv (GL_AND), 3072 const_iv (GL_AND),
2240 const_iv (GL_ONE), 3073 const_iv (GL_ONE),
2241 const_iv (GL_ZERO), 3074 const_iv (GL_ZERO),
2242 const_iv (GL_SRC_ALPHA), 3075 const_iv (GL_SRC_ALPHA),
2243 const_iv (GL_DST_ALPHA), 3076 const_iv (GL_DST_ALPHA),
2244 const_iv (GL_ONE_MINUS_SRC_ALPHA), 3077 const_iv (GL_ONE_MINUS_SRC_ALPHA),
2245 const_iv (GL_ONE_MINUS_DST_ALPHA), 3078 const_iv (GL_ONE_MINUS_DST_ALPHA),
3079 const_iv (GL_SRC_COLOR),
3080 const_iv (GL_DST_COLOR),
3081 const_iv (GL_ONE_MINUS_SRC_COLOR),
3082 const_iv (GL_ONE_MINUS_DST_COLOR),
2246 const_iv (GL_SRC_ALPHA_SATURATE), 3083 const_iv (GL_SRC_ALPHA_SATURATE),
2247 const_iv (GL_RGB), 3084 const_iv (GL_RGB),
2248 const_iv (GL_RGBA), 3085 const_iv (GL_RGBA),
2249 const_iv (GL_RGBA4), 3086 const_iv (GL_RGBA4),
2250 const_iv (GL_RGBA8), 3087 const_iv (GL_RGBA8),
2256 const_iv (GL_INTENSITY), 3093 const_iv (GL_INTENSITY),
2257 const_iv (GL_LUMINANCE), 3094 const_iv (GL_LUMINANCE),
2258 const_iv (GL_LUMINANCE_ALPHA), 3095 const_iv (GL_LUMINANCE_ALPHA),
2259 const_iv (GL_FLOAT), 3096 const_iv (GL_FLOAT),
2260 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 3097 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
3098 const_iv (GL_COMPRESSED_ALPHA_ARB),
3099 const_iv (GL_COMPRESSED_LUMINANCE_ARB),
3100 const_iv (GL_COMPRESSED_LUMINANCE_ALPHA_ARB),
3101 const_iv (GL_COMPRESSED_INTENSITY_ARB),
3102 const_iv (GL_COMPRESSED_RGB_ARB),
3103 const_iv (GL_COMPRESSED_RGBA_ARB),
2261 const_iv (GL_COMPILE), 3104 const_iv (GL_COMPILE),
2262 const_iv (GL_PROXY_TEXTURE_1D), 3105 const_iv (GL_PROXY_TEXTURE_1D),
2263 const_iv (GL_PROXY_TEXTURE_2D), 3106 const_iv (GL_PROXY_TEXTURE_2D),
2264 const_iv (GL_TEXTURE_1D), 3107 const_iv (GL_TEXTURE_1D),
2265 const_iv (GL_TEXTURE_2D), 3108 const_iv (GL_TEXTURE_2D),
2289 const_iv (GL_COLOR_LOGIC_OP), 3132 const_iv (GL_COLOR_LOGIC_OP),
2290 const_iv (GL_SEPARABLE_2D), 3133 const_iv (GL_SEPARABLE_2D),
2291 const_iv (GL_CONVOLUTION_2D), 3134 const_iv (GL_CONVOLUTION_2D),
2292 const_iv (GL_CONVOLUTION_BORDER_MODE), 3135 const_iv (GL_CONVOLUTION_BORDER_MODE),
2293 const_iv (GL_CONSTANT_BORDER), 3136 const_iv (GL_CONSTANT_BORDER),
3137 const_iv (GL_POINTS),
2294 const_iv (GL_LINES), 3138 const_iv (GL_LINES),
2295 const_iv (GL_LINE_STRIP), 3139 const_iv (GL_LINE_STRIP),
2296 const_iv (GL_LINE_LOOP), 3140 const_iv (GL_LINE_LOOP),
2297 const_iv (GL_QUADS), 3141 const_iv (GL_QUADS),
2298 const_iv (GL_QUAD_STRIP), 3142 const_iv (GL_QUAD_STRIP),
2299 const_iv (GL_TRIANGLES), 3143 const_iv (GL_TRIANGLES),
2300 const_iv (GL_TRIANGLE_STRIP), 3144 const_iv (GL_TRIANGLE_STRIP),
2301 const_iv (GL_TRIANGLE_FAN), 3145 const_iv (GL_TRIANGLE_FAN),
3146 const_iv (GL_POLYGON),
2302 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 3147 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
3148 const_iv (GL_POINT_SMOOTH_HINT),
3149 const_iv (GL_LINE_SMOOTH_HINT),
3150 const_iv (GL_POLYGON_SMOOTH_HINT),
3151 const_iv (GL_GENERATE_MIPMAP_HINT),
3152 const_iv (GL_TEXTURE_COMPRESSION_HINT),
2303 const_iv (GL_FASTEST), 3153 const_iv (GL_FASTEST),
3154 const_iv (GL_DONT_CARE),
3155 const_iv (GL_NICEST),
2304 const_iv (GL_V2F), 3156 const_iv (GL_V2F),
2305 const_iv (GL_V3F), 3157 const_iv (GL_V3F),
2306 const_iv (GL_T2F_V3F), 3158 const_iv (GL_T2F_V3F),
2307 const_iv (GL_T2F_N3F_V3F), 3159 const_iv (GL_T2F_N3F_V3F),
3160 const_iv (GL_FUNC_ADD),
3161 const_iv (GL_FUNC_SUBTRACT),
3162 const_iv (GL_FUNC_REVERSE_SUBTRACT),
2308# undef const_iv 3163# undef const_iv
2309 }; 3164 };
2310 3165
2311 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 3166 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
2312 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 3167 newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
2313 3168
2314 texture_av = newAV (); 3169 texture_av = newAV ();
2315 AvREAL_off (texture_av); 3170 AvREAL_off (texture_av);
2316} 3171}
3172
3173void
3174disable_GL_EXT_blend_func_separate ()
3175 CODE:
3176 gl.BlendFuncSeparate = 0;
3177 gl.BlendFuncSeparateEXT = 0;
3178
3179void
3180apple_nvidia_bug (int enable)
2317 3181
2318char * 3182char *
2319gl_vendor () 3183gl_vendor ()
2320 CODE: 3184 CODE:
2321 RETVAL = (char *)glGetString (GL_VENDOR); 3185 RETVAL = (char *)glGetString (GL_VENDOR);
2334 CODE: 3198 CODE:
2335 RETVAL = (char *)glGetString (GL_EXTENSIONS); 3199 RETVAL = (char *)glGetString (GL_EXTENSIONS);
2336 OUTPUT: 3200 OUTPUT:
2337 RETVAL 3201 RETVAL
2338 3202
2339char *glGetString (GLenum pname) 3203const char *glGetString (GLenum pname)
2340 3204
2341GLint glGetInteger (GLenum pname) 3205GLint glGetInteger (GLenum pname)
2342 CODE: 3206 CODE:
2343 glGetIntegerv (pname, &RETVAL); 3207 glGetIntegerv (pname, &RETVAL);
2344 OUTPUT: 3208 OUTPUT:
2352 3216
2353int glGetError () 3217int glGetError ()
2354 3218
2355void glFinish () 3219void glFinish ()
2356 3220
3221void glFlush ()
3222
2357void glClear (int mask) 3223void glClear (int mask)
2358 3224
2359void glClearColor (float r, float g, float b, float a = 1.0) 3225void glClearColor (float r, float g, float b, float a = 1.0)
2360 PROTOTYPE: @ 3226 PROTOTYPE: @
2361 3227
2371 3237
2372void glBlendFuncSeparate (int sa, int da, int saa, int daa) 3238void glBlendFuncSeparate (int sa, int da, int saa, int daa)
2373 CODE: 3239 CODE:
2374 gl_BlendFuncSeparate (sa, da, saa, daa); 3240 gl_BlendFuncSeparate (sa, da, saa, daa);
2375 3241
3242# void glBlendEquation (int se)
3243
2376void glDepthMask (int flag) 3244void glDepthMask (int flag)
2377 3245
2378void glLogicOp (int opcode) 3246void glLogicOp (int opcode)
2379 3247
2380void glColorMask (int red, int green, int blue, int alpha) 3248void glColorMask (int red, int green, int blue, int alpha)
2394# near_ and far_ are due to microsofts buggy "c" compiler 3262# near_ and far_ are due to microsofts buggy "c" compiler
2395void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 3263void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
2396 3264
2397# near_ and far_ are due to microsofts buggy "c" compiler 3265# near_ and far_ are due to microsofts buggy "c" compiler
2398void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 3266void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
3267
3268PROTOTYPES: DISABLE
2399 3269
2400void glViewport (int x, int y, int width, int height) 3270void glViewport (int x, int y, int width, int height)
2401 3271
2402void glScissor (int x, int y, int width, int height) 3272void glScissor (int x, int y, int width, int height)
2403 3273
2411 3281
2412void glRotate (float angle, float x, float y, float z) 3282void glRotate (float angle, float x, float y, float z)
2413 CODE: 3283 CODE:
2414 glRotatef (angle, x, y, z); 3284 glRotatef (angle, x, y, z);
2415 3285
2416void glBegin (int mode)
2417
2418void glEnd ()
2419
2420void glColor (float r, float g, float b, float a = 1.0) 3286void glColor (float r, float g, float b, float a = 1.0)
2421 PROTOTYPE: @ 3287 PROTOTYPE: @
2422 ALIAS: 3288 ALIAS:
2423 glColor_premultiply = 1 3289 glColor_premultiply = 1
2424 CODE: 3290 CODE:
2425 if (ix) 3291 if (ix)
2426 { 3292 {
2429 b *= a; 3295 b *= a;
2430 } 3296 }
2431 // microsoft visual "c" rounds instead of truncating... 3297 // microsoft visual "c" rounds instead of truncating...
2432 glColor4f (r, g, b, a); 3298 glColor4f (r, g, b, a);
2433 3299
2434void glInterleavedArrays (int format, int stride, char *data)
2435
2436void glDrawElements (int mode, int count, int type, char *indices)
2437
2438# 1.2 void glDrawRangeElements (int mode, int start, int end
2439
2440void glRasterPos (float x, float y, float z = 0.) 3300void glRasterPos (float x, float y, float z = 0.)
2441 CODE: 3301 CODE:
2442 glRasterPos3f (0, 0, z); 3302 glRasterPos3f (0, 0, z);
2443 glBitmap (0, 0, 0, 0, x, y, 0); 3303 glBitmap (0, 0, 0, 0, x, y, 0);
2444 3304
2448 3308
2449void glTexCoord (float s, float t) 3309void glTexCoord (float s, float t)
2450 CODE: 3310 CODE:
2451 glTexCoord2f (s, t); 3311 glTexCoord2f (s, t);
2452 3312
3313void glRect (float x1, float y1, float x2, float y2)
3314 CODE:
3315 glRectf (x1, y1, x2, y2);
3316
3317void glRect_lineloop (float x1, float y1, float x2, float y2)
3318 CODE:
3319 glBegin (GL_LINE_LOOP);
3320 glVertex2f (x1, y1);
3321 glVertex2f (x2, y1);
3322 glVertex2f (x2, y2);
3323 glVertex2f (x1, y2);
3324 glEnd ();
3325
3326PROTOTYPES: ENABLE
3327
3328void glBegin (int mode)
3329
3330void glEnd ()
3331
3332void glPointSize (GLfloat size)
3333
3334void glLineWidth (GLfloat width)
3335
3336void glInterleavedArrays (int format, int stride, char *data)
3337
3338void glDrawElements (int mode, int count, int type, char *indices)
3339
3340# 1.2 void glDrawRangeElements (int mode, int start, int end
3341
2453void glTexEnv (int target, int pname, float param) 3342void glTexEnv (int target, int pname, float param)
2454 CODE: 3343 CODE:
2455 glTexEnvf (target, pname, param); 3344 glTexEnvf (target, pname, param);
2456 3345
2457void glTexParameter (int target, int pname, float param) 3346void glTexParameter (int target, int pname, float param)
2473void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column) 3362void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column)
2474 CODE: 3363 CODE:
2475 if (gl.SeparableFilter2D) 3364 if (gl.SeparableFilter2D)
2476 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column); 3365 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
2477 3366
2478void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 3367void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data = 0)
2479 3368
2480void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 3369void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
2481 3370
2482void glDrawPixels (int width, int height, int format, int type, char *pixels) 3371void glDrawPixels (int width, int height, int format, int type, char *pixels)
2483 3372
2509 3398
2510void glEndList () 3399void glEndList ()
2511 3400
2512void glCallList (int list) 3401void glCallList (int list)
2513 3402
3403void c_init ()
3404 CODE:
3405 glPixelStorei (GL_PACK_ALIGNMENT , 1);
3406 glPixelStorei (GL_UNPACK_ALIGNMENT, 1);
3407
3408MODULE = Deliantra::Client PACKAGE = DC::UI::Base
3409
3410PROTOTYPES: DISABLE
3411
3412void
3413find_widget (SV *self, NV x, NV y)
3414 PPCODE:
3415{
3416 if (within_widget (self, x, y))
3417 XPUSHs (self);
3418}
3419
3420BOOT:
3421{
3422 hover_gv = gv_fetchpv ("DC::UI::HOVER", 1, SVt_NV);
3423
3424 draw_x_gv = gv_fetchpv ("DC::UI::Base::draw_x", 1, SVt_NV);
3425 draw_y_gv = gv_fetchpv ("DC::UI::Base::draw_y", 1, SVt_NV);
3426 draw_w_gv = gv_fetchpv ("DC::UI::Base::draw_w", 1, SVt_NV);
3427 draw_h_gv = gv_fetchpv ("DC::UI::Base::draw_h", 1, SVt_NV);
3428}
3429
3430void
3431draw (SV *self)
3432 CODE:
3433{
3434 HV *hv;
3435 SV **svp;
3436 NV x, y, w, h;
3437 SV *draw_x_sv = GvSV (draw_x_gv);
3438 SV *draw_y_sv = GvSV (draw_y_gv);
3439 SV *draw_w_sv = GvSV (draw_w_gv);
3440 SV *draw_h_sv = GvSV (draw_h_gv);
3441 double draw_x, draw_y;
3442
3443 if (!SvROK (self))
3444 croak ("DC::Base::draw: %s not a reference", SvPV_nolen (self));
3445
3446 hv = (HV *)SvRV (self);
3447
3448 if (SvTYPE (hv) != SVt_PVHV)
3449 croak ("DC::Base::draw: %s not a hashref", SvPV_nolen (self));
3450
3451 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
3452 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
3453
3454 if (!h || !w)
3455 XSRETURN_EMPTY;
3456
3457 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
3458 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
3459
3460 draw_x = SvNV (draw_x_sv) + x;
3461 draw_y = SvNV (draw_y_sv) + y;
3462
3463 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
3464 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
3465 XSRETURN_EMPTY;
3466
3467 sv_setnv (draw_x_sv, draw_x);
3468 sv_setnv (draw_y_sv, draw_y);
3469
3470 glPushMatrix ();
3471 glTranslated (x, y, 0);
3472
3473 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
3474 {
3475 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
3476
3477 if (svp && SvTRUE (*svp))
3478 {
3479 glColor4f (1.0f * 0.2f, 0.8f * 0.2f, 0.5f * 0.2f, 0.2f);
3480 glEnable (GL_BLEND);
3481 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
3482 glBegin (GL_QUADS);
3483 glVertex2f (0, 0);
3484 glVertex2f (w, 0);
3485 glVertex2f (w, h);
3486 glVertex2f (0, h);
3487 glEnd ();
3488 glDisable (GL_BLEND);
3489 }
3490 }
3491#if 0
3492 // draw borders, for debugging
3493 glPushMatrix ();
3494 glColor4f (1., 1., 0., 1.);
3495 glTranslatef (.5, .5, 0.);
3496 glBegin (GL_LINE_LOOP);
3497 glVertex2f (0 , 0);
3498 glVertex2f (w - 1, 0);
3499 glVertex2f (w - 1, h - 1);
3500 glVertex2f (0 , h - 1);
3501 glEnd ();
3502 glPopMatrix ();
3503#endif
3504 PUSHMARK (SP);
3505 XPUSHs (self);
3506 PUTBACK;
3507 call_method ("_draw", G_VOID | G_DISCARD);
3508 SPAGAIN;
3509
3510 glPopMatrix ();
3511
3512 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
3513 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
3514}
3515

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines