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.183 by root, Fri Apr 20 16:56:08 2007 UTC vs.
Revision 1.302 by root, Tue Apr 20 10:53:11 2010 UTC

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

Diff Legend

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