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.164 by root, Tue Nov 7 22:41:27 2006 UTC vs.
Revision 1.253 by root, Fri Dec 28 20:59:14 2007 UTC

1#ifdef _WIN32 1#ifdef _WIN32
2# define WIN32_LEAN_AND_MEAN 2# define WIN32_LEAN_AND_MEAN
3# define _WIN32_WINNT 0x0500 // needed to get win2000 api calls 3# define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls
4# include <malloc.h> 4# include <malloc.h>
5# include <windows.h> 5# include <windows.h>
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 roundf(x) (int)(x)
25# define atan2f(x,y) atan2(x,y)
26# define M_PI 3.14159265f
17#endif 27#endif
18 28
29#include <assert.h>
19#include <math.h> 30#include <math.h>
20#include <string.h> 31#include <string.h>
21#include <stdio.h> 32#include <stdio.h>
22#include <stdlib.h> 33#include <stdlib.h>
23 34
35#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
36
24#include <SDL.h> 37#include <SDL.h>
38#include <SDL_thread.h>
25#include <SDL_endian.h> 39#include <SDL_endian.h>
26#include <SDL_image.h> 40#include <SDL_image.h>
27#include <SDL_mixer.h> 41#include <SDL_mixer.h>
28#include <SDL_opengl.h> 42#include <SDL_opengl.h>
29 43
… …
31#define G_DISABLE_CAST_CHECKS 45#define G_DISABLE_CAST_CHECKS
32 46
33#include <glib/gmacros.h> 47#include <glib/gmacros.h>
34 48
35#include <pango/pango.h> 49#include <pango/pango.h>
50
51#if !(defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 15, 2))
52# define pango_layout_get_line_readonly pango_layout_get_line_readonly
53# define pango_layout_get_lines_readonly pango_layout_get_lines_readonly
54# define pango_layout_iter_get_line_readonly pango_layout_iter_get_line_readonly
55# define pango_layout_iter_get_run_readonly pango_layout_iter_get_run_readonly
56#endif
36 57
37#ifndef _WIN32 58#ifndef _WIN32
38# include <sys/types.h> 59# include <sys/types.h>
39# include <sys/socket.h> 60# include <sys/socket.h>
40# include <netinet/in.h> 61# include <netinet/in.h>
… …
49#define MAP_EXTEND_X 32 70#define MAP_EXTEND_X 32
50#define MAP_EXTEND_Y 512 71#define MAP_EXTEND_Y 512
51 72
52#define MIN_FONT_HEIGHT 10 73#define MIN_FONT_HEIGHT 10
53 74
75/* mask out modifiers we are not interested in */
76#define MOD_MASK (KMOD_CTRL | KMOD_SHIFT | KMOD_ALT | KMOD_META)
77
54#if 0 78#if 0
55# define PARACHUTE SDL_INIT_NOPARACHUTE 79# define PARACHUTE SDL_INIT_NOPARACHUTE
56#else 80#else
57# define PARACHUTE 0 81# define PARACHUTE 0
58#endif 82#endif
59 83
84static AV *texture_av;
85
60static struct 86static struct
61{ 87{
62#define GL_FUNC(ptr,name) ptr name; 88#define GL_FUNC(ptr,name) ptr name;
63#include "glfunc.h" 89#include "glfunc.h"
64#undef GL_FUNC 90#undef GL_FUNC
65} gl; 91} gl;
66 92
93static void
67static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa) 94gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
68{ 95{
69 if (gl.BlendFuncSeparate) 96 if (gl.BlendFuncSeparate)
70 gl.BlendFuncSeparate (sa, da, saa, daa); 97 gl.BlendFuncSeparate (sa, da, saa, daa);
71 else if (gl.BlendFuncSeparateEXT) 98 else if (gl.BlendFuncSeparateEXT)
72 gl.BlendFuncSeparateEXT (sa, da, saa, daa); 99 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
73 else 100 else
74 glBlendFunc (sa, da); 101 glBlendFunc (sa, da);
75} 102}
76 103
104static GLuint
105gen_texture ()
106{
107 GLuint name;
108
109 if (AvFILL (texture_av) >= 0)
110 name = (GLuint)(size_t)av_pop (texture_av);
111 else
112 glGenTextures (1, &name);
113
114 return name;
115}
116
117static void
118del_texture (GLuint name)
119{
120 /* make a half-assed attempt at returning the memory used by the texture */
121 /* textures are frequently being reused by cfplus anyway */
122 /*glBindTexture (GL_TEXTURE_2D, name);*/
123 /*glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);*/
124 av_push (texture_av, (SV *)(size_t)name);
125 glDeleteTextures (1, &name);
126}
127
77#include "texcache.c" 128#include "texcache.c"
129#include "rendercache.c"
78 130
79#include "pango-font.c" 131#include "pango-font.c"
80#include "pango-fontmap.c" 132#include "pango-fontmap.c"
81#include "pango-render.c" 133#include "pango-render.c"
82 134
135typedef IV DC__Channel;
136typedef SDL_RWops *DC__RW;
83typedef Mix_Chunk *CFPlus__MixChunk; 137typedef Mix_Chunk *DC__MixChunk;
84typedef Mix_Music *CFPlus__MixMusic; 138typedef Mix_Music *DC__MixMusic;
85 139
86typedef PangoFontDescription *CFPlus__Font; 140typedef PangoFontDescription *DC__Font;
87 141
88static int 142static int
89shape_attr_p (PangoLayoutRun *run) 143shape_attr_p (PangoLayoutRun *run)
90{ 144{
91 GSList *attrs = run->item->analysis.extra_attrs; 145 GSList *attrs = run->item->analysis.extra_attrs;
… …
105 159
106typedef struct cf_layout { 160typedef struct cf_layout {
107 PangoLayout *pl; 161 PangoLayout *pl;
108 float r, g, b, a; // default color for rgba mode 162 float r, g, b, a; // default color for rgba mode
109 int base_height; 163 int base_height;
110 CFPlus__Font font; 164 DC__Font font;
165 rc_t *rc;
111} *CFPlus__Layout; 166} *DC__Layout;
112 167
113static CFPlus__Font default_font; 168static DC__Font default_font;
114static PangoContext *opengl_context; 169static PangoContext *opengl_context;
115static PangoFontMap *opengl_fontmap; 170static PangoFontMap *opengl_fontmap;
116 171
117static void 172static void
118substitute_func (FcPattern *pattern, gpointer data) 173substitute_func (FcPattern *pattern, gpointer data)
… …
123#endif 178#endif
124 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 179 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
125} 180}
126 181
127static void 182static void
128layout_update_font (CFPlus__Layout self) 183layout_update_font (DC__Layout self)
129{ 184{
130 /* use a random scale factor to account for unknown descenders, 0.8 works 185 /* use a random scale factor to account for unknown descenders, 0.8 works
131 * reasonably well with bitstream vera 186 * reasonably well with bitstream vera
132 */ 187 */
133 PangoFontDescription *font = self->font ? self->font : default_font; 188 PangoFontDescription *font = self->font ? self->font : default_font;
… …
137 192
138 pango_layout_set_font_description (self->pl, font); 193 pango_layout_set_font_description (self->pl, font);
139} 194}
140 195
141static void 196static void
142layout_get_pixel_size (CFPlus__Layout self, int *w, int *h) 197layout_get_pixel_size (DC__Layout self, int *w, int *h)
143{ 198{
144 PangoRectangle rect; 199 PangoRectangle rect;
145 200
146 // get_pixel_* wrongly rounds down 201 // get_pixel_* wrongly rounds down
147 pango_layout_get_extents (self->pl, 0, &rect); 202 pango_layout_get_extents (self->pl, 0, &rect);
… …
154 209
155 *w = rect.width; 210 *w = rect.width;
156 *h = rect.height; 211 *h = rect.height;
157} 212}
158 213
214typedef uint16_t tileid;
159typedef uint16_t mapface; 215typedef uint16_t faceid;
160 216
161typedef struct { 217typedef struct {
162 GLint name; 218 GLuint name;
163 int w, h; 219 int w, h;
164 float s, t; 220 float s, t;
165 uint8_t r, g, b, a; 221 uint8_t r, g, b, a;
222 tileid smoothtile;
223 uint8_t smoothlevel;
166} maptex; 224} maptex;
167 225
168typedef struct { 226typedef struct {
169 uint32_t player; 227 uint32_t player;
170 mapface face[3]; 228 tileid tile[3];
171 uint16_t darkness; 229 uint16_t darkness;
172 uint8_t stat_width, stat_hp, flags; 230 uint8_t stat_width, stat_hp, flags, smoothmax;
173} mapcell; 231} mapcell;
174 232
175typedef struct { 233typedef struct {
176 int32_t c0, c1; 234 int32_t c0, c1;
177 mapcell *col; 235 mapcell *col;
178} maprow; 236} maprow;
179 237
180typedef struct map { 238typedef struct map {
181 int x, y, w, h; 239 int x, y, w, h;
182 int ox, oy; /* offset to virtual global coordinate system */ 240 int ox, oy; /* offset to virtual global coordinate system */
183 int faces; 241 int faces; tileid *face2tile; // [faceid]
184 mapface *face; 242 int texs; maptex *tex; // [tileid]
185
186 int texs;
187 maptex *tex;
188 243
189 int32_t rows; 244 int32_t rows;
190 maprow *row; 245 maprow *row;
191} *CFPlus__Map; 246} *DC__Map;
192 247
193static char * 248static char *
194prepend (char *ptr, int sze, int inc) 249prepend (char *ptr, int sze, int inc)
195{ 250{
196 char *p; 251 char *p;
… …
213} 268}
214 269
215#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 270#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
216#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 271#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
217 272
273static void
274need_facenum (struct map *self, faceid face)
275{
276 while (self->faces <= face)
277 {
278 Append (tileid, self->face2tile, self->faces, self->faces);
279 self->faces *= 2;
280 }
281}
282
283static void
284need_texid (struct map *self, int texid)
285{
286 while (self->texs <= texid)
287 {
288 Append (maptex, self->tex, self->texs, self->texs);
289 self->texs *= 2;
290 }
291}
292
218static maprow * 293static maprow *
219map_get_row (CFPlus__Map self, int y) 294map_get_row (DC__Map self, int y)
220{ 295{
221 if (0 > y) 296 if (0 > y)
222 { 297 {
223 int extend = - y + MAP_EXTEND_Y; 298 int extend = - y + MAP_EXTEND_Y;
224 Prepend (maprow, self->row, self->rows, extend); 299 Prepend (maprow, self->row, self->rows, extend);
… …
262 337
263 return row->col + (x - row->c0); 338 return row->col + (x - row->c0);
264} 339}
265 340
266static mapcell * 341static mapcell *
267map_get_cell (CFPlus__Map self, int x, int y) 342map_get_cell (DC__Map self, int x, int y)
268{ 343{
269 return row_get_cell (map_get_row (self, y), x); 344 return row_get_cell (map_get_row (self, y), x);
270} 345}
271 346
272static void 347static void
273map_clear (CFPlus__Map self) 348map_clear (DC__Map self)
274{ 349{
275 int r; 350 int r;
276 351
277 for (r = 0; r < self->rows; r++) 352 for (r = 0; r < self->rows; r++)
278 Safefree (self->row[r].col); 353 Safefree (self->row[r].col);
… …
286 self->row = 0; 361 self->row = 0;
287 self->rows = 0; 362 self->rows = 0;
288} 363}
289 364
290static void 365static void
291map_blank (CFPlus__Map self, int x0, int y0, int w, int h) 366map_blank (DC__Map self, int x0, int y0, int w, int h)
292{ 367{
293 int x, y; 368 int x, y;
294 maprow *row; 369 maprow *row;
295 mapcell *cell; 370 mapcell *cell;
296 371
… …
316 cell->player = 0; 391 cell->player = 0;
317 } 392 }
318 } 393 }
319} 394}
320 395
396typedef struct {
397 tileid tile;
398 uint8_t x, y, level;
399} smooth_key;
400
401static void
402smooth_or_bits (HV *hv, smooth_key *key, IV bits)
403{
404 SV **sv = hv_fetch (hv, (char *)key, sizeof (*key), 1);
405
406 if (SvIOK (*sv))
407 SvIV_set (*sv, SvIVX (*sv) | bits);
408 else
409 sv_setiv (*sv, bits);
410}
411
321static void 412static void
322music_finished (void) 413music_finished (void)
323{ 414{
324 SDL_UserEvent ev; 415 SDL_UserEvent ev;
325 416
… …
359 n |= n >> 16; 450 n |= n >> 16;
360 451
361 return n + 1; 452 return n + 1;
362} 453}
363 454
364MODULE = CFPlus PACKAGE = CFPlus 455static unsigned int
456popcount (unsigned int n)
457{
458 n -= (n >> 1) & 0x55555555U;
459 n = ((n >> 2) & 0x33333333U) + (n & 0x33333333U);
460 n = ((n >> 4) + n) & 0x0f0f0f0fU;
461 n *= 0x01010101U;
462
463 return n >> 24;
464}
465
466/* SDL should provide this, really. */
467#define SDLK_MODIFIER_MIN 300
468#define SDLK_MODIFIER_MAX 314
469
470/******************************************************************************/
471
472static GV *draw_x_gv, *draw_y_gv, *draw_w_gv, *draw_h_gv;
473static GV *hover_gv;
474
475static int
476within_widget (SV *widget, NV x, NV y)
477{
478 HV *self;
479 SV **svp;
480 NV wx, ww, wy, wh;
481
482 if (!SvROK (widget))
483 return 0;
484
485 self = (HV *)SvRV (widget);
486
487 if (SvTYPE (self) != SVt_PVHV)
488 return 0;
489
490 svp = hv_fetch (self, "y", 1, 0); wy = svp ? SvNV (*svp) : 0.;
491 if (y < wy)
492 return 0;
493
494 svp = hv_fetch (self, "h", 1, 0); wh = svp ? SvNV (*svp) : 0.;
495 if (y >= wy + wh)
496 return 0;
497
498 svp = hv_fetch (self, "x", 1, 0); wx = svp ? SvNV (*svp) : 0.;
499 if (x < wx)
500 return 0;
501
502 svp = hv_fetch (self, "w", 1, 0); ww = svp ? SvNV (*svp) : 0.;
503 if (x >= wx + ww)
504 return 0;
505
506 svp = hv_fetch (self, "can_events", sizeof ("can_events") - 1, 0);
507 if (!svp || !SvTRUE (*svp))
508 return 0;
509
510 return 1;
511}
512
513MODULE = Deliantra::Client PACKAGE = DC
365 514
366PROTOTYPES: ENABLE 515PROTOTYPES: ENABLE
367 516
368BOOT: 517BOOT:
369{ 518{
370 HV *stash = gv_stashpv ("CFPlus", 1); 519 HV *stash = gv_stashpv ("DC", 1);
371 static const struct { 520 static const struct {
372 const char *name; 521 const char *name;
373 IV iv; 522 IV iv;
374 } *civ, const_iv[] = { 523 } *civ, const_iv[] = {
375# define const_iv(name) { # name, (IV)name } 524# define const_iv(name) { # name, (IV)name }
525 const_iv (SDLK_MODIFIER_MIN),
526 const_iv (SDLK_MODIFIER_MAX),
527
376 const_iv (SDL_ACTIVEEVENT), 528 const_iv (SDL_ACTIVEEVENT),
377 const_iv (SDL_KEYDOWN), 529 const_iv (SDL_KEYDOWN),
378 const_iv (SDL_KEYUP), 530 const_iv (SDL_KEYUP),
379 const_iv (SDL_MOUSEMOTION), 531 const_iv (SDL_MOUSEMOTION),
380 const_iv (SDL_MOUSEBUTTONDOWN), 532 const_iv (SDL_MOUSEBUTTONDOWN),
… …
389 const_iv (SDL_EVENT_RESERVEDA), 541 const_iv (SDL_EVENT_RESERVEDA),
390 const_iv (SDL_EVENT_RESERVEDB), 542 const_iv (SDL_EVENT_RESERVEDB),
391 const_iv (SDL_VIDEORESIZE), 543 const_iv (SDL_VIDEORESIZE),
392 const_iv (SDL_VIDEOEXPOSE), 544 const_iv (SDL_VIDEOEXPOSE),
393 const_iv (SDL_USEREVENT), 545 const_iv (SDL_USEREVENT),
546
547 const_iv (SDL_APPINPUTFOCUS),
548 const_iv (SDL_APPMOUSEFOCUS),
549 const_iv (SDL_APPACTIVE),
550
551 const_iv (SDLK_FIRST),
552 const_iv (SDLK_LAST),
394 const_iv (SDLK_KP0), 553 const_iv (SDLK_KP0),
395 const_iv (SDLK_KP1), 554 const_iv (SDLK_KP1),
396 const_iv (SDLK_KP2), 555 const_iv (SDLK_KP2),
397 const_iv (SDLK_KP3), 556 const_iv (SDLK_KP3),
398 const_iv (SDLK_KP4), 557 const_iv (SDLK_KP4),
… …
453 const_iv (SDLK_BREAK), 612 const_iv (SDLK_BREAK),
454 const_iv (SDLK_MENU), 613 const_iv (SDLK_MENU),
455 const_iv (SDLK_POWER), 614 const_iv (SDLK_POWER),
456 const_iv (SDLK_EURO), 615 const_iv (SDLK_EURO),
457 const_iv (SDLK_UNDO), 616 const_iv (SDLK_UNDO),
617
458 const_iv (KMOD_NONE), 618 const_iv (KMOD_NONE),
619 const_iv (KMOD_SHIFT),
459 const_iv (KMOD_LSHIFT), 620 const_iv (KMOD_LSHIFT),
460 const_iv (KMOD_RSHIFT), 621 const_iv (KMOD_RSHIFT),
622 const_iv (KMOD_CTRL),
461 const_iv (KMOD_LCTRL), 623 const_iv (KMOD_LCTRL),
462 const_iv (KMOD_RCTRL), 624 const_iv (KMOD_RCTRL),
625 const_iv (KMOD_ALT),
463 const_iv (KMOD_LALT), 626 const_iv (KMOD_LALT),
464 const_iv (KMOD_RALT), 627 const_iv (KMOD_RALT),
628 const_iv (KMOD_META),
465 const_iv (KMOD_LMETA), 629 const_iv (KMOD_LMETA),
466 const_iv (KMOD_RMETA), 630 const_iv (KMOD_RMETA),
467 const_iv (KMOD_NUM), 631 const_iv (KMOD_NUM),
468 const_iv (KMOD_CAPS), 632 const_iv (KMOD_CAPS),
469 const_iv (KMOD_MODE), 633 const_iv (KMOD_MODE),
470 const_iv (KMOD_CTRL), 634
471 const_iv (KMOD_SHIFT), 635 const_iv (MIX_DEFAULT_FORMAT),
472 const_iv (KMOD_ALT),
473 const_iv (KMOD_META)
474# undef const_iv 636# undef const_iv
475 }; 637 };
476 638
477 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 639 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
478 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 640 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
641
642 assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);
643 assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);
479} 644}
645
646void
647weaken (SV *rv)
648 PROTOTYPE: $
649 CODE:
650 sv_rvweaken (rv);
480 651
481int 652int
482in_destruct () 653in_destruct ()
483 CODE: 654 CODE:
484 RETVAL = PL_main_cv == Nullcv; 655 RETVAL = PL_main_cv == Nullcv;
… …
487 658
488NV floor (NV x) 659NV floor (NV x)
489 660
490NV ceil (NV x) 661NV ceil (NV x)
491 662
663IV minpot (UV n)
664
665IV popcount (UV n)
666
492void 667void
493pango_init () 668pango_init ()
494 CODE: 669 CODE:
495{ 670{
496 opengl_fontmap = pango_opengl_font_map_new (); 671 opengl_fontmap = pango_opengl_font_map_new ();
497 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0); 672 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
498 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap); 673 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
674#if defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 15, 2)
675 pango_context_set_language (opengl_context, pango_language_from_string ("en"));
676 /*pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);*/
677#endif
499} 678}
679
680char *
681SDL_GetError ()
500 682
501int 683int
502SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE) 684SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
503 685
504void 686void
505SDL_Quit () 687SDL_Quit ()
506 688
507void 689void
508SDL_ListModes () 690SDL_ListModes (int rgb, int alpha)
509 PPCODE: 691 PPCODE:
510{ 692{
511 SDL_Rect **m; 693 SDL_Rect **m;
512 694
513 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 695 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
514 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 696 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
515 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 697 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
516 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 698 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
517 699
518 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 700 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
519 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0); 701 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE , 0);
520 702
521 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 703 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE , 0);
522 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 704 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
523 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 705 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
524 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 706 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
525 707
526 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 708 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
527#if SDL_VERSION_ATLEAST(1,2,10) 709#if SDL_VERSION_ATLEAST(1,2,10)
528 SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1); 710 SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
529 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1); 711 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
530#endif 712#endif
531 713
532 SDL_EnableUNICODE (1);
533 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
534
535 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 714 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
536 715
537 if (m && m != (SDL_Rect **)-1) 716 if (m && m != (SDL_Rect **)-1)
538 while (*m) 717 while (*m)
539 { 718 {
719 if ((*m)->w >= 800 && (*m)->h >= 480)
720 {
540 AV *av = newAV (); 721 AV *av = newAV ();
541 av_push (av, newSViv ((*m)->w)); 722 av_push (av, newSViv ((*m)->w));
542 av_push (av, newSViv ((*m)->h)); 723 av_push (av, newSViv ((*m)->h));
724 av_push (av, newSViv (rgb));
725 av_push (av, newSViv (alpha));
543 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 726 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
727 }
544 728
545 ++m; 729 ++m;
546 } 730 }
547} 731}
548 732
549char *
550SDL_GetError ()
551
552int 733int
553SDL_SetVideoMode (int w, int h, int fullscreen) 734SDL_SetVideoMode (int w, int h, int rgb, int alpha, int fullscreen)
554 CODE: 735 CODE:
736{
737 SDL_EnableUNICODE (1);
738 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
739
740 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
741 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
742 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
743 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
744
555 RETVAL = !!SDL_SetVideoMode ( 745 RETVAL = !!SDL_SetVideoMode (
556 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 746 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
557 ); 747 );
748
558 if (RETVAL) 749 if (RETVAL)
559 { 750 {
560 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 751 av_clear (texture_av);
752
753 SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
561# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 754#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
562# include "glfunc.h" 755#include "glfunc.h"
563# undef GL_FUNC 756#undef GL_FUNC
564 } 757 }
758}
565 OUTPUT: 759 OUTPUT:
566 RETVAL 760 RETVAL
567 761
568void 762void
569SDL_GL_SwapBuffers () 763SDL_GL_SwapBuffers ()
570 764
571char * 765char *
572SDL_GetKeyName (int sym) 766SDL_GetKeyName (int sym)
573 767
768int
769SDL_GetAppState ()
770
574void 771void
575SDL_PollEvent () 772poll_events ()
576 PPCODE: 773 PPCODE:
577{ 774{
578 SDL_Event ev; 775 SDL_Event ev;
579 776
580 while (SDL_PollEvent (&ev)) 777 SDL_PumpEvents ();
778 while (SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0)
581 { 779 {
582 HV *hv = newHV (); 780 HV *hv = newHV ();
583 hv_store (hv, "type", 4, newSViv (ev.type), 0); 781 hv_store (hv, "type", 4, newSViv (ev.type), 0);
584 782
585 switch (ev.type) 783 switch (ev.type)
586 { 784 {
587 case SDL_KEYDOWN: 785 case SDL_KEYDOWN:
588 case SDL_KEYUP: 786 case SDL_KEYUP:
589 hv_store (hv, "state", 5, newSViv (ev.key.state), 0); 787 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
590 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); 788 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
591 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); 789 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod & MOD_MASK), 0);
790 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */
592 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); 791 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
593 break; 792 break;
594 793
595 case SDL_ACTIVEEVENT: 794 case SDL_ACTIVEEVENT:
596 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 795 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
597 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 796 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
598 break; 797 break;
599 798
600 case SDL_MOUSEMOTION: 799 case SDL_MOUSEMOTION:
800 {
801 int state = ev.motion.state;
802 int x = ev.motion.x;
803 int y = ev.motion.y;
804 int xrel = ev.motion.xrel;
805 int yrel = ev.motion.yrel;
806
807 /* do simplistic event compression */
808 while (SDL_PeepEvents (&ev, 1, SDL_PEEKEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)) > 0
809 && state == ev.motion.state)
810 {
811 xrel += ev.motion.xrel;
812 yrel += ev.motion.yrel;
813 x = ev.motion.x;
814 y = ev.motion.y;
815 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
816 }
817
601 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 818 hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);
602
603 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 819 hv_store (hv, "state", 5, newSViv (state), 0);
604 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 820 hv_store (hv, "x", 1, newSViv (x), 0);
605 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 821 hv_store (hv, "y", 1, newSViv (y), 0);
606 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 822 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
607 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 823 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
824 }
608 break; 825 break;
609 826
610 case SDL_MOUSEBUTTONDOWN: 827 case SDL_MOUSEBUTTONDOWN:
611 case SDL_MOUSEBUTTONUP: 828 case SDL_MOUSEBUTTONUP:
612 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 829 hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);
613 830
614 hv_store (hv, "button", 6, newSViv (ev.button.button), 0); 831 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
615 hv_store (hv, "state", 5, newSViv (ev.button.state), 0); 832 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
616 hv_store (hv, "x", 1, newSViv (ev.button.x), 0); 833 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
617 hv_store (hv, "y", 1, newSViv (ev.button.y), 0); 834 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
… …
622 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 839 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
623 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 840 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
624 break; 841 break;
625 } 842 }
626 843
627 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1)))); 844 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("DC::UI::Event", 1))));
628 } 845 }
629} 846}
630 847
631int 848int
632Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 849Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
633 POSTCALL: 850 POSTCALL:
634 Mix_HookMusicFinished (music_finished); 851 Mix_HookMusicFinished (music_finished);
635 Mix_ChannelFinished (channel_finished); 852 Mix_ChannelFinished (channel_finished);
636 853
637void 854void
855Mix_QuerySpec ()
856 PPCODE:
857{
858 int freq, channels;
859 Uint16 format;
860
861 if (Mix_QuerySpec (&freq, &format, &channels))
862 {
863 EXTEND (SP, 3);
864 PUSHs (sv_2mortal (newSViv (freq)));
865 PUSHs (sv_2mortal (newSViv (format)));
866 PUSHs (sv_2mortal (newSViv (channels)));
867 }
868}
869
870void
638Mix_CloseAudio () 871Mix_CloseAudio ()
639 872
640int 873int
641Mix_AllocateChannels (int numchans = -1) 874Mix_AllocateChannels (int numchans = -1)
642 875
876const char *
877Mix_GetError ()
878
643void 879void
644lowdelay (int fd, int val = 1) 880lowdelay (int fd, int val = 1)
645 CODE: 881 CODE:
646#ifndef _WIN32
647 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 882 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
648#endif
649 883
650void 884void
651win32_proxy_info () 885win32_proxy_info ()
652 PPCODE: 886 PPCODE:
653{ 887{
… …
690 STRLEN image_len; 924 STRLEN image_len;
691 char *image = (char *)SvPVbyte (image_, image_len); 925 char *image = (char *)SvPVbyte (image_, image_len);
692 SDL_Surface *surface, *surface2; 926 SDL_Surface *surface, *surface2;
693 SDL_PixelFormat fmt; 927 SDL_PixelFormat fmt;
694 SDL_RWops *rw = ix 928 SDL_RWops *rw = ix
695 ? SDL_RWFromFile (image, "r") 929 ? SDL_RWFromFile (image, "rb")
696 : SDL_RWFromConstMem (image, image_len); 930 : SDL_RWFromConstMem (image, image_len);
697 931
698 if (!rw) 932 if (!rw)
699 croak ("load_image: %s", SDL_GetError ()); 933 croak ("load_image: %s", SDL_GetError ());
700 934
… …
773void 1007void
774error (char *message) 1008error (char *message)
775 CODE: 1009 CODE:
776 fprintf (stderr, "ERROR: %s\n", message); 1010 fprintf (stderr, "ERROR: %s\n", message);
777#ifdef _WIN32 1011#ifdef _WIN32
778 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR); 1012 MessageBox (0, message, "Deliantra Client Error", MB_OK | MB_ICONERROR);
779#endif 1013#endif
780 1014
781void 1015void
782fatal (char *message) 1016fatal (char *message)
783 CODE: 1017 CODE:
784 fprintf (stderr, "FATAL: %s\n", message); 1018 fprintf (stderr, "FATAL: %s\n", message);
785#ifdef _WIN32 1019#ifdef _WIN32
786 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 1020 MessageBox (0, message, "Deliantra Client Fatal Error", MB_OK | MB_ICONERROR);
787#endif 1021#endif
788 _exit (1); 1022 _exit (1);
789 1023
790void 1024void
791_exit (int retval = 0) 1025_exit (int retval = 0)
… …
794 ExitThread (retval); // unclean, please beam me up 1028 ExitThread (retval); // unclean, please beam me up
795#else 1029#else
796 _exit (retval); 1030 _exit (retval);
797#endif 1031#endif
798 1032
799MODULE = CFPlus PACKAGE = CFPlus::Font 1033void
1034debug ()
1035 CODE:
1036{
1037#if DEBUG
1038 VALGRIND_DO_LEAK_CHECK;
1039#endif
1040}
800 1041
801CFPlus::Font 1042MODULE = Deliantra::Client PACKAGE = DC::Font
1043
1044PROTOTYPES: DISABLE
1045
1046DC::Font
802new_from_file (SV *class, char *path, int id = 0) 1047new_from_file (SV *class, char *path, int id = 0)
803 CODE: 1048 CODE:
804{ 1049{
805 int count; 1050 int count;
806 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1051 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
… …
809} 1054}
810 OUTPUT: 1055 OUTPUT:
811 RETVAL 1056 RETVAL
812 1057
813void 1058void
814DESTROY (CFPlus::Font self) 1059DESTROY (DC::Font self)
815 CODE: 1060 CODE:
816 pango_font_description_free (self); 1061 pango_font_description_free (self);
817 1062
818void 1063void
819make_default (CFPlus::Font self) 1064make_default (DC::Font self)
1065 PROTOTYPE: $
820 CODE: 1066 CODE:
821 default_font = self; 1067 default_font = self;
822 1068
823MODULE = CFPlus PACKAGE = CFPlus::Layout 1069MODULE = Deliantra::Client PACKAGE = DC::Layout
824 1070
1071PROTOTYPES: DISABLE
1072
825void 1073void
826reset_glyph_cache () 1074glyph_cache_backup ()
1075 PROTOTYPE:
827 CODE: 1076 CODE:
1077 tc_backup ();
1078
1079void
1080glyph_cache_restore ()
1081 PROTOTYPE:
1082 CODE:
828 tc_clear (); 1083 tc_restore ();
829 1084
830CFPlus::Layout 1085DC::Layout
831new (SV *class) 1086new (SV *class)
832 CODE: 1087 CODE:
833 New (0, RETVAL, 1, struct cf_layout); 1088 New (0, RETVAL, 1, struct cf_layout);
834 1089
835 RETVAL->pl = pango_layout_new (opengl_context); 1090 RETVAL->pl = pango_layout_new (opengl_context);
… …
837 RETVAL->g = 1.; 1092 RETVAL->g = 1.;
838 RETVAL->b = 1.; 1093 RETVAL->b = 1.;
839 RETVAL->a = 1.; 1094 RETVAL->a = 1.;
840 RETVAL->base_height = MIN_FONT_HEIGHT; 1095 RETVAL->base_height = MIN_FONT_HEIGHT;
841 RETVAL->font = 0; 1096 RETVAL->font = 0;
1097 RETVAL->rc = rc_alloc ();
842 1098
843 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 1099 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
844 layout_update_font (RETVAL); 1100 layout_update_font (RETVAL);
845 OUTPUT: 1101 OUTPUT:
846 RETVAL 1102 RETVAL
847 1103
848void 1104void
849DESTROY (CFPlus::Layout self) 1105DESTROY (DC::Layout self)
850 CODE: 1106 CODE:
851 g_object_unref (self->pl); 1107 g_object_unref (self->pl);
1108 rc_free (self->rc);
852 Safefree (self); 1109 Safefree (self);
853 1110
854void 1111void
855set_text (CFPlus::Layout self, SV *text_) 1112set_text (DC::Layout self, SV *text_)
856 CODE: 1113 CODE:
857{ 1114{
858 STRLEN textlen; 1115 STRLEN textlen;
859 char *text = SvPVutf8 (text_, textlen); 1116 char *text = SvPVutf8 (text_, textlen);
860 1117
861 pango_layout_set_text (self->pl, text, textlen); 1118 pango_layout_set_text (self->pl, text, textlen);
862} 1119}
863 1120
864void 1121void
865set_markup (CFPlus::Layout self, SV *text_) 1122set_markup (DC::Layout self, SV *text_)
866 CODE: 1123 CODE:
867{ 1124{
868 STRLEN textlen; 1125 STRLEN textlen;
869 char *text = SvPVutf8 (text_, textlen); 1126 char *text = SvPVutf8 (text_, textlen);
870 1127
871 pango_layout_set_markup (self->pl, text, textlen); 1128 pango_layout_set_markup (self->pl, text, textlen);
872} 1129}
873 1130
874void 1131void
875set_shapes (CFPlus::Layout self, ...) 1132set_shapes (DC::Layout self, ...)
876 CODE: 1133 CODE:
877{ 1134{
878 PangoAttrList *attrs = 0; 1135 PangoAttrList *attrs = 0;
879 const char *text = pango_layout_get_text (self->pl); 1136 const char *text = pango_layout_get_text (self->pl);
880 const char *pos = text; 1137 const char *pos = text;
… …
915 if (attrs) 1172 if (attrs)
916 pango_layout_set_attributes (self->pl, attrs); 1173 pango_layout_set_attributes (self->pl, attrs);
917} 1174}
918 1175
919void 1176void
920get_shapes (CFPlus::Layout self) 1177get_shapes (DC::Layout self)
921 PPCODE: 1178 PPCODE:
922{ 1179{
923 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1180 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
924 1181
925 do 1182 do
926 { 1183 {
927 PangoLayoutRun *run = pango_layout_iter_get_run (iter); 1184 PangoLayoutRun *run = pango_layout_iter_get_run_readonly (iter);
928 1185
929 if (run && shape_attr_p (run)) 1186 if (run && shape_attr_p (run))
930 { 1187 {
931 PangoRectangle extents; 1188 PangoRectangle extents;
932 pango_layout_iter_get_run_extents (iter, 0, &extents); 1189 pango_layout_iter_get_run_extents (iter, 0, &extents);
… …
940 1197
941 pango_layout_iter_free (iter); 1198 pango_layout_iter_free (iter);
942} 1199}
943 1200
944int 1201int
945has_wrapped (CFPlus::Layout self) 1202has_wrapped (DC::Layout self)
946 CODE: 1203 CODE:
947{ 1204{
948 int lines = 1; 1205 int lines = 1;
949 const char *text = pango_layout_get_text (self->pl); 1206 const char *text = pango_layout_get_text (self->pl);
950 1207
… …
955} 1212}
956 OUTPUT: 1213 OUTPUT:
957 RETVAL 1214 RETVAL
958 1215
959SV * 1216SV *
960get_text (CFPlus::Layout self) 1217get_text (DC::Layout self)
961 CODE: 1218 CODE:
962 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1219 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
963 sv_utf8_decode (RETVAL); 1220 sv_utf8_decode (RETVAL);
964 OUTPUT: 1221 OUTPUT:
965 RETVAL 1222 RETVAL
966 1223
967void 1224void
968set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.) 1225set_foreground (DC::Layout self, float r, float g, float b, float a = 1.)
969 CODE: 1226 CODE:
970 self->r = r; 1227 self->r = r;
971 self->g = g; 1228 self->g = g;
972 self->b = b; 1229 self->b = b;
973 self->a = a; 1230 self->a = a;
974 1231
975void 1232void
976set_font (CFPlus::Layout self, CFPlus::Font font = 0) 1233set_font (DC::Layout self, DC::Font font = 0)
977 CODE: 1234 CODE:
978 if (self->font != font) 1235 if (self->font != font)
979 { 1236 {
980 self->font = font; 1237 self->font = font;
981 layout_update_font (self); 1238 layout_update_font (self);
982 } 1239 }
983 1240
984void 1241void
985set_height (CFPlus::Layout self, int base_height) 1242set_height (DC::Layout self, int base_height)
986 CODE: 1243 CODE:
987 if (self->base_height != base_height) 1244 if (self->base_height != base_height)
988 { 1245 {
989 self->base_height = base_height; 1246 self->base_height = base_height;
990 layout_update_font (self); 1247 layout_update_font (self);
991 } 1248 }
992 1249
993void 1250void
994set_width (CFPlus::Layout self, int max_width = -1) 1251set_width (DC::Layout self, int max_width = -1)
995 CODE: 1252 CODE:
996 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1253 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
997 1254
998void 1255void
999set_indent (CFPlus::Layout self, int indent) 1256set_indent (DC::Layout self, int indent)
1000 CODE: 1257 CODE:
1001 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1258 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
1002 1259
1003void 1260void
1004set_spacing (CFPlus::Layout self, int spacing) 1261set_spacing (DC::Layout self, int spacing)
1005 CODE: 1262 CODE:
1006 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1263 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
1007 1264
1008void 1265void
1009set_ellipsise (CFPlus::Layout self, int ellipsise) 1266set_ellipsise (DC::Layout self, int ellipsise)
1010 CODE: 1267 CODE:
1011 pango_layout_set_ellipsize (self->pl, 1268 pango_layout_set_ellipsize (self->pl,
1012 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1269 ellipsise == 1 ? PANGO_ELLIPSIZE_START
1013 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1270 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
1014 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1271 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
1015 : PANGO_ELLIPSIZE_NONE 1272 : PANGO_ELLIPSIZE_NONE
1016 ); 1273 );
1017 1274
1018void 1275void
1019set_single_paragraph_mode (CFPlus::Layout self, int spm) 1276set_single_paragraph_mode (DC::Layout self, int spm)
1020 CODE: 1277 CODE:
1021 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1278 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
1022 1279
1023void 1280void
1024size (CFPlus::Layout self) 1281size (DC::Layout self)
1025 PPCODE: 1282 PPCODE:
1026{ 1283{
1027 int w, h; 1284 int w, h;
1028 1285
1029 layout_get_pixel_size (self, &w, &h); 1286 layout_get_pixel_size (self, &w, &h);
… …
1032 PUSHs (sv_2mortal (newSViv (w))); 1289 PUSHs (sv_2mortal (newSViv (w)));
1033 PUSHs (sv_2mortal (newSViv (h))); 1290 PUSHs (sv_2mortal (newSViv (h)));
1034} 1291}
1035 1292
1036int 1293int
1037descent (CFPlus::Layout self) 1294descent (DC::Layout self)
1038 CODE: 1295 CODE:
1039{ 1296{
1040 PangoRectangle rect; 1297 PangoRectangle rect;
1041 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0); 1298 PangoLayoutLine *line = pango_layout_get_line_readonly (self->pl, 0);
1042 pango_layout_line_get_pixel_extents (line, 0, &rect); 1299 pango_layout_line_get_pixel_extents (line, 0, &rect);
1043 RETVAL = PANGO_DESCENT (rect); 1300 RETVAL = PANGO_DESCENT (rect);
1044} 1301}
1045 OUTPUT: 1302 OUTPUT:
1046 RETVAL 1303 RETVAL
1047 1304
1048int 1305int
1049xy_to_index (CFPlus::Layout self, int x, int y) 1306xy_to_index (DC::Layout self, int x, int y)
1050 CODE: 1307 CODE:
1051{ 1308{
1052 int index, trailing; 1309 int index, trailing;
1053 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1310 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
1054 RETVAL = index; 1311 RETVAL = index + trailing;
1055} 1312}
1056 OUTPUT: 1313 OUTPUT:
1057 RETVAL 1314 RETVAL
1058 1315
1059void 1316void
1060cursor_pos (CFPlus::Layout self, int index) 1317cursor_pos (DC::Layout self, int index)
1061 PPCODE: 1318 PPCODE:
1062{ 1319{
1063 PangoRectangle strong_pos; 1320 PangoRectangle pos;
1064 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1321 pango_layout_get_cursor_pos (self->pl, index, &pos, 0);
1065 1322
1066 EXTEND (SP, 3); 1323 EXTEND (SP, 3);
1067 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE))); 1324 PUSHs (sv_2mortal (newSViv (pos.x / PANGO_SCALE)));
1068 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1325 PUSHs (sv_2mortal (newSViv (pos.y / PANGO_SCALE)));
1069 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1326 PUSHs (sv_2mortal (newSViv (pos.height / PANGO_SCALE)));
1070} 1327}
1071 1328
1072void 1329void
1073render (CFPlus::Layout self, float x, float y, int flags = 0) 1330index_to_line_x (DC::Layout self, int index, int trailing = 0)
1074 PPCODE: 1331 PPCODE:
1332{
1333 int line, x;
1334
1335 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1336#if !(defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 17, 3))
1337 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
1338 --line;
1339#endif
1340 EXTEND (SP, 2);
1341 PUSHs (sv_2mortal (newSViv (line)));
1342 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1343}
1344
1345void
1346line_x_to_index (DC::Layout self, int line, int x)
1347 PPCODE:
1348{
1349 PangoLayoutLine *lp;
1350 int index, trailing;
1351
1352 if (line < 0)
1353 XSRETURN_EMPTY;
1354
1355 if (!(lp = pango_layout_get_line_readonly (self->pl, line)))
1356 XSRETURN_EMPTY; /* do better */
1357
1358 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1359
1360 EXTEND (SP, 2);
1361 if (GIMME_V == G_SCALAR)
1362 PUSHs (sv_2mortal (newSViv (index + trailing)));
1363 else
1364 {
1365 PUSHs (sv_2mortal (newSViv (index)));
1366 PUSHs (sv_2mortal (newSViv (trailing)));
1367 }
1368}
1369
1370void
1371render (DC::Layout self, float x, float y, int flags = 0)
1372 CODE:
1373 rc_clear (self->rc);
1075 pango_opengl_render_layout_subpixel ( 1374 pango_opengl_render_layout_subpixel (
1076 self->pl, 1375 self->pl,
1376 self->rc,
1077 x * PANGO_SCALE, y * PANGO_SCALE, 1377 x * PANGO_SCALE, y * PANGO_SCALE,
1078 self->r, self->g, self->b, self->a, 1378 self->r, self->g, self->b, self->a,
1079 flags 1379 flags
1080 ); 1380 );
1381 // we assume that context_change actually clears/frees stuff
1382 // and does not do any recomputation...
1383 pango_layout_context_changed (self->pl);
1081 1384
1082MODULE = CFPlus PACKAGE = CFPlus::Texture
1083
1084void 1385void
1085pad2pot (SV *data_, SV *w_, SV *h_) 1386draw (DC::Layout self)
1086 CODE: 1387 CODE:
1087{ 1388{
1088 int ow = SvIV (w_); 1389 glEnable (GL_TEXTURE_2D);
1089 int oh = SvIV (h_); 1390 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1391 glEnable (GL_BLEND);
1392 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1393 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1394 glEnable (GL_ALPHA_TEST);
1395 glAlphaFunc (GL_GREATER, 7.f / 255.f);
1090 1396
1091 if (ow && oh) 1397 rc_draw (self->rc);
1398
1399 glDisable (GL_ALPHA_TEST);
1400 glDisable (GL_BLEND);
1401 glDisable (GL_TEXTURE_2D);
1402}
1403
1404MODULE = Deliantra::Client PACKAGE = DC::Texture
1405
1406PROTOTYPES: ENABLE
1407
1408void
1409pad (SV *data_, int ow, int oh, int nw, int nh)
1410 CODE:
1411{
1412 if ((nw != ow || nh != oh) && SvOK (data_))
1092 { 1413 {
1093 int nw = minpot (ow);
1094 int nh = minpot (oh);
1095
1096 if (nw != ow || nh != oh)
1097 {
1098 if (SvOK (data_))
1099 {
1100 STRLEN datalen; 1414 STRLEN datalen;
1101 char *data = SvPVbyte (data_, datalen); 1415 char *data = SvPVbyte (data_, datalen);
1102 int bpp = datalen / (ow * oh); 1416 int bpp = datalen / (ow * oh);
1103 SV *result_ = sv_2mortal (newSV (nw * nh * bpp)); 1417 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1104 1418
1105 SvPOK_only (result_); 1419 SvPOK_only (result_);
1106 SvCUR_set (result_, nw * nh * bpp); 1420 SvCUR_set (result_, nw * nh * bpp);
1107 1421
1108 memset (SvPVX (result_), 0, nw * nh * bpp); 1422 memset (SvPVX (result_), 0, nw * nh * bpp);
1109 while (oh--) 1423 while (oh--)
1110 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp); 1424 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1111 1425
1112 sv_setsv (data_, result_); 1426 sv_setsv (data_, result_);
1113 }
1114
1115 sv_setiv (w_, nw);
1116 sv_setiv (h_, nh);
1117 }
1118 } 1427 }
1119} 1428}
1120 1429
1121void 1430void
1122draw_quad (SV *self, float x, float y, float w = 0., float h = 0.) 1431draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
… …
1128{ 1437{
1129 HV *hv = (HV *)SvRV (self); 1438 HV *hv = (HV *)SvRV (self);
1130 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1439 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1131 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1440 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1132 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1441 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1442
1443 if (name <= 0)
1444 XSRETURN_EMPTY;
1133 1445
1134 if (items < 5) 1446 if (items < 5)
1135 { 1447 {
1136 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1448 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1137 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1449 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1165 glDisable (GL_ALPHA_TEST); 1477 glDisable (GL_ALPHA_TEST);
1166 glDisable (GL_BLEND); 1478 glDisable (GL_BLEND);
1167 } 1479 }
1168} 1480}
1169 1481
1170MODULE = CFPlus PACKAGE = CFPlus::Map 1482IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1483 CODE:
1484{
1485 GLint width;
1486 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0);
1487 glGetTexLevelParameteriv (GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, &width);
1488 RETVAL = width > 0;
1489}
1490 OUTPUT:
1491 RETVAL
1171 1492
1172CFPlus::Map 1493MODULE = Deliantra::Client PACKAGE = DC::Map
1494
1495PROTOTYPES: DISABLE
1496
1497DC::Map
1173new (SV *class) 1498new (SV *class)
1174 CODE: 1499 CODE:
1175 New (0, RETVAL, 1, struct map); 1500 New (0, RETVAL, 1, struct map);
1176 RETVAL->x = 0; 1501 RETVAL->x = 0;
1177 RETVAL->y = 0; 1502 RETVAL->y = 0;
1178 RETVAL->w = 0; 1503 RETVAL->w = 0;
1179 RETVAL->h = 0; 1504 RETVAL->h = 0;
1180 RETVAL->ox = 0; 1505 RETVAL->ox = 0;
1181 RETVAL->oy = 0; 1506 RETVAL->oy = 0;
1182 RETVAL->faces = 8192; 1507 RETVAL->faces = 8192; Newz (0, RETVAL->face2tile, RETVAL->faces, tileid);
1183 Newz (0, RETVAL->face, RETVAL->faces, mapface); 1508 RETVAL->texs = 8192; Newz (0, RETVAL->tex , RETVAL->texs , maptex);
1184 RETVAL->texs = 8192;
1185 Newz (0, RETVAL->tex, RETVAL->texs, maptex);
1186 RETVAL->rows = 0; 1509 RETVAL->rows = 0;
1187 RETVAL->row = 0; 1510 RETVAL->row = 0;
1188 OUTPUT: 1511 OUTPUT:
1189 RETVAL 1512 RETVAL
1190 1513
1191void 1514void
1192DESTROY (CFPlus::Map self) 1515DESTROY (DC::Map self)
1193 CODE: 1516 CODE:
1194{ 1517{
1195 map_clear (self); 1518 map_clear (self);
1196 Safefree (self->face); 1519 Safefree (self->face2tile);
1197 Safefree (self->tex); 1520 Safefree (self->tex);
1198 Safefree (self); 1521 Safefree (self);
1199} 1522}
1200 1523
1201void 1524void
1202resize (CFPlus::Map self, int map_width, int map_height) 1525resize (DC::Map self, int map_width, int map_height)
1203 CODE: 1526 CODE:
1204 self->w = map_width; 1527 self->w = map_width;
1205 self->h = map_height; 1528 self->h = map_height;
1206 1529
1207void 1530void
1208clear (CFPlus::Map self) 1531clear (DC::Map self)
1209 CODE: 1532 CODE:
1210 map_clear (self); 1533 map_clear (self);
1211 1534
1212void 1535void
1213set_face (CFPlus::Map self, int face, int texid) 1536set_tileid (DC::Map self, int face, int tile)
1214 CODE: 1537 CODE:
1215{ 1538{
1216 while (self->faces <= face) 1539 need_facenum (self, face); self->face2tile [face] = tile;
1217 { 1540 need_texid (self, tile);
1218 Append (mapface, self->face, self->faces, self->faces);
1219 self->faces *= 2;
1220 }
1221
1222 self->face [face] = texid;
1223} 1541}
1224 1542
1225void 1543void
1544set_smooth (DC::Map self, int face, int smooth, int level)
1545 CODE:
1546{
1547 tileid texid;
1548 maptex *tex;
1549
1550 if (face < 0 || face >= self->faces)
1551 return;
1552
1553 if (smooth < 0 || smooth >= self->faces)
1554 return;
1555
1556 texid = self->face2tile [face];
1557
1558 if (!texid)
1559 return;
1560
1561 tex = self->tex + texid;
1562 tex->smoothtile = self->face2tile [smooth];
1563 tex->smoothlevel = level;
1564}
1565
1566void
1226set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a) 1567set_texture (DC::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1227 CODE: 1568 CODE:
1228{ 1569{
1229 while (self->texs <= texid) 1570 need_texid (self, texid);
1230 {
1231 Append (maptex, self->tex, self->texs, self->texs);
1232 self->texs *= 2;
1233 }
1234 1571
1235 { 1572 {
1236 maptex *tex = self->tex + texid; 1573 maptex *tex = self->tex + texid;
1237 1574
1238 tex->name = name; 1575 tex->name = name;
… …
1255 // from transparent color bleeding and ugly wrapping effects. 1592 // from transparent color bleeding and ugly wrapping effects.
1256 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1593 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1257} 1594}
1258 1595
1259int 1596int
1260ox (CFPlus::Map self) 1597ox (DC::Map self)
1261 ALIAS: 1598 ALIAS:
1262 oy = 1 1599 oy = 1
1263 x = 2 1600 x = 2
1264 y = 3 1601 y = 3
1265 w = 4 1602 w = 4
… …
1276 } 1613 }
1277 OUTPUT: 1614 OUTPUT:
1278 RETVAL 1615 RETVAL
1279 1616
1280void 1617void
1281scroll (CFPlus::Map self, int dx, int dy) 1618scroll (DC::Map self, int dx, int dy)
1282 CODE: 1619 CODE:
1283{ 1620{
1284 if (dx > 0) 1621 if (dx > 0)
1285 map_blank (self, self->x, self->y, dx, self->h); 1622 map_blank (self, self->x, self->y, dx, self->h);
1286 else if (dx < 0) 1623 else if (dx < 0)
1287 map_blank (self, self->x + self->w + dx + 1, self->y, -dx, self->h); 1624 map_blank (self, self->x + self->w + dx, self->y, -dx, self->h);
1288 1625
1289 if (dy > 0) 1626 if (dy > 0)
1290 map_blank (self, self->x, self->y, self->w, dy); 1627 map_blank (self, self->x, self->y, self->w, dy);
1291 else if (dy < 0) 1628 else if (dy < 0)
1292 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, -dy); 1629 map_blank (self, self->x, self->y + self->h + dy, self->w, -dy);
1293 1630
1294 self->ox += dx; self->x += dx; 1631 self->ox += dx; self->x += dx;
1295 self->oy += dy; self->y += dy; 1632 self->oy += dy; self->y += dy;
1296 1633
1297 while (self->y < 0) 1634 while (self->y < 0)
… …
1301 self->rows += MAP_EXTEND_Y; 1638 self->rows += MAP_EXTEND_Y;
1302 self->y += MAP_EXTEND_Y; 1639 self->y += MAP_EXTEND_Y;
1303 } 1640 }
1304} 1641}
1305 1642
1306void 1643SV *
1307map1a_update (CFPlus::Map self, SV *data_, int extmap) 1644map1a_update (DC::Map self, SV *data_, int extmap)
1308 CODE: 1645 CODE:
1309{ 1646{
1310 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1647 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1311 uint8_t *data_end = (uint8_t *)SvEND (data_); 1648 uint8_t *data_end = (uint8_t *)SvEND (data_);
1312 mapcell *cell; 1649 mapcell *cell;
1313 int x, y, flags; 1650 int x, y, z, flags;
1651 AV *missing = newAV ();
1652 RETVAL = newRV_noinc ((SV *)missing);
1314 1653
1315 while (data < data_end - 1) 1654 while (data < data_end - 1)
1316 { 1655 {
1317 flags = (data [0] << 8) + data [1]; data += 2; 1656 flags = (data [0] << 8) + data [1]; data += 2;
1318 1657
… …
1349 cell->stat_width = 1; 1688 cell->stat_width = 1;
1350 cell->stat_hp = *data++; 1689 cell->stat_hp = *data++;
1351 } 1690 }
1352 else if (cmd == 6) // monster width 1691 else if (cmd == 6) // monster width
1353 cell->stat_width = *data++ + 1; 1692 cell->stat_width = *data++ + 1;
1354 else if (cmd == 0x47) // monster width 1693 else if (cmd == 0x47)
1355 { 1694 {
1356 if (*data == 4) 1695 if (*data == 4)
1357 ; // decode player tag 1696 ; // decode player count
1358 1697
1359 data += *data + 1; 1698 data += *data + 1;
1360 } 1699 }
1361 else if (cmd == 8) // cell flags 1700 else if (cmd == 8) // cell flags
1362 cell->flags = *data++; 1701 cell->flags = *data++;
… …
1369 } 1708 }
1370 else 1709 else
1371 cell->darkness = *data++ + 1; 1710 cell->darkness = *data++ + 1;
1372 } 1711 }
1373 1712
1713 for (z = 0; z <= 2; ++z)
1374 if (flags & 4) 1714 if (flags & (4 >> z))
1375 { 1715 {
1376 cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2; 1716 faceid face = (data [0] << 8) + data [1]; data += 2;
1717 need_facenum (self, face);
1718 cell->tile [z] = self->face2tile [face];
1719
1720 if (cell->tile [z])
1721 {
1722 maptex *tex = self->tex + cell->tile [z];
1723 if (!tex->name)
1724 av_push (missing, newSViv (cell->tile [z]));
1725
1726 if (tex->smoothtile)
1727 {
1728 maptex *smooth = self->tex + tex->smoothtile;
1729 if (!smooth->name)
1730 av_push (missing, newSViv (tex->smoothtile));
1731 }
1732 }
1377 } 1733 }
1378
1379 if (flags & 2)
1380 {
1381 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2;
1382 }
1383
1384 if (flags & 1)
1385 {
1386 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
1387 }
1388 } 1734 }
1389 else 1735 else
1390 cell->darkness = 0; 1736 cell->darkness = 0;
1391 } 1737 }
1392} 1738}
1739 OUTPUT:
1740 RETVAL
1393 1741
1394SV * 1742SV *
1395mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 1743mapmap (DC::Map self, int x0, int y0, int w, int h)
1396 CODE: 1744 CODE:
1397{ 1745{
1398 int x1, x; 1746 int x1, x;
1399 int y1, y; 1747 int y1, y;
1400 int z; 1748 int z;
… …
1421 { 1769 {
1422 mapcell *cell = row->col + (x - row->c0); 1770 mapcell *cell = row->col + (x - row->c0);
1423 1771
1424 for (z = 0; z <= 0; z++) 1772 for (z = 0; z <= 0; z++)
1425 { 1773 {
1426 mapface face = cell->face [z];
1427
1428 if (face)
1429 {
1430 maptex tex = self->tex [face]; 1774 maptex tex = self->tex [cell->tile [z]];
1431 int a0 = 255 - tex.a; 1775 int a0 = 255 - tex.a;
1432 int a1 = tex.a; 1776 int a1 = tex.a;
1433 1777
1434 r = (r * a0 + tex.r * a1) / 255; 1778 r = (r * a0 + tex.r * a1) / 255;
1435 g = (g * a0 + tex.g * a1) / 255; 1779 g = (g * a0 + tex.g * a1) / 255;
1436 b = (b * a0 + tex.b * a1) / 255; 1780 b = (b * a0 + tex.b * a1) / 255;
1437 a = (a * a0 + tex.a * a1) / 255; 1781 a = (a * a0 + tex.a * a1) / 255;
1438 }
1439 } 1782 }
1440 } 1783 }
1441 1784
1442 *map++ = (r ) 1785 *map++ = (r )
1443 | (g << 8) 1786 | (g << 8)
… …
1450} 1793}
1451 OUTPUT: 1794 OUTPUT:
1452 RETVAL 1795 RETVAL
1453 1796
1454void 1797void
1455draw (CFPlus::Map self, int mx, int my, int sw, int sh) 1798draw (DC::Map self, int mx, int my, int sw, int sh, int T)
1456 CODE: 1799 CODE:
1457{ 1800{
1458 int x, y, z; 1801 int x, y, z;
1459 int last_name;
1460 mapface face;
1461 1802
1462 glColor4ub (255, 255, 255, 255); 1803 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1804 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1805 static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1806 smooth_key skey;
1807
1808 rc_t *rc = rc_alloc ();
1809 rc_key_t key;
1810 rc_array_t *arr;
1811
1812 // thats current max. sorry.
1813 if (sw > 255) sw = 255;
1814 if (sh > 255) sh = 255;
1815
1816 // clear key, in case of extra padding
1817 memset (&skey, 0, sizeof (skey));
1818
1819 memset (&key, 0, sizeof (key));
1820 key.r = 255;
1821 key.g = 255;
1822 key.b = 255;
1823 key.a = 255;
1824 key.mode = GL_QUADS;
1825 key.format = GL_T2F_V3F;
1826 key.texname = -1;
1827
1828 mx += self->x;
1829 my += self->y;
1830
1831 // first pass: determine smooth_max
1832 // rather ugly, if you ask me
1833 // could also be stored inside mapcell and updated on change
1834 memset (smooth_max, 0, sizeof (smooth_max));
1835
1836 for (y = 0; y < sh; y++)
1837 if (0 <= y + my && y + my < self->rows)
1838 {
1839 maprow *row = self->row + (y + my);
1840
1841 for (x = 0; x < sw; x++)
1842 if (row->c0 <= x + mx && x + mx < row->c1)
1843 {
1844 mapcell *cell = row->col + (x + mx - row->c0);
1845
1846 smooth_max[x + 1][y + 1] =
1847 MAX (self->tex [cell->tile [0]].smoothlevel,
1848 MAX (self->tex [cell->tile [1]].smoothlevel,
1849 self->tex [cell->tile [2]].smoothlevel));
1850 }
1851 }
1463 1852
1464 glEnable (GL_BLEND); 1853 glEnable (GL_BLEND);
1465 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1854 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1466 glEnable (GL_TEXTURE_2D);
1467 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1855 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1468 1856
1469 glBegin (GL_QUADS);
1470
1471 last_name = 0;
1472
1473 mx += self->x;
1474 my += self->y;
1475
1476 for (z = 0; z < 3; z++) 1857 for (z = 0; z <= 2; z++)
1858 {
1859 memset (smooth_level, 0, sizeof (smooth_level));
1860
1477 for (y = 0; y < sh; y++) 1861 for (y = 0; y < sh; y++)
1478 if (0 <= y + my && y + my < self->rows) 1862 if (0 <= y + my && y + my < self->rows)
1479 { 1863 {
1480 maprow *row = self->row + (y + my); 1864 maprow *row = self->row + (y + my);
1481 1865
1482 for (x = 0; x < sw; x++) 1866 for (x = 0; x < sw; x++)
1483 if (row->c0 <= x + mx && x + mx < row->c1) 1867 if (row->c0 <= x + mx && x + mx < row->c1)
1484 { 1868 {
1485 mapcell *cell = row->col + (x + mx - row->c0); 1869 mapcell *cell = row->col + (x + mx - row->c0);
1486
1487 face = cell->face [z]; 1870 tileid tile = cell->tile [z];
1871
1872 if (tile)
1873 {
1874 maptex tex = self->tex [tile];
1875 int px, py;
1488 1876
1489 if (face && face < self->texs) 1877 if (key.texname != tex.name)
1878 {
1879 if (!tex.name)
1880 tex = self->tex [2]; /* missing, replace by noface */
1881
1882 key.texname = tex.name;
1883 arr = rc_array (rc, &key);
1884 }
1885
1886 px = (x + 1) * T - tex.w;
1887 py = (y + 1) * T - tex.h;
1888
1889 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1890 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1891 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1892 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1893
1894 if (cell->flags && z == 2)
1895 {
1896 // overlays such as the speech bubble, probably more to come
1897 if (cell->flags & 1)
1898 {
1899 maptex tex = self->tex [1];
1900 int px = x * T + T * 2 / 32;
1901 int py = y * T - T * 6 / 32;
1902
1903 if (tex.name)
1904 {
1905 if (key.texname != tex.name)
1906 {
1907 key.texname = tex.name;
1908 arr = rc_array (rc, &key);
1909 }
1910
1911 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1912 rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1913 rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1914 rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1915 }
1916 }
1917 }
1918
1919 // update smooth hash
1920 if (tex.smoothtile)
1921 {
1922 skey.tile = tex.smoothtile;
1923 skey.level = tex.smoothlevel;
1924
1925 smooth_level [tex.smoothlevel >> 5] |= ((uint32_t)1) << (tex.smoothlevel & 31);
1926
1927 // add bits to current tile and all neighbours. skey.x|y is
1928 // shifted +1|+1 so we always stay positive.
1929
1930 // bits is ___n cccc CCCC bbbb
1931 // n do not draw borders&corners
1932 // c draw these corners, but...
1933 // C ... not these
1934 // b draw these borders
1935
1936 // borders: 1 ┃· 2 ━━ 4 ·┃ 8 ··
1937 // ┃· ·· ·┃ ━━
1938
1939 // corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
1940 // ·· ·· ·┏ ┓·
1941
1942 // full tile
1943 skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);
1944
1945 // borders
1946 skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);
1947 skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);
1948 skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);
1949 skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);
1950
1951 // corners
1952 skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1953 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1954 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1955 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1956 }
1957 }
1958 }
1959 }
1960
1961 rc_draw (rc);
1962 rc_clear (rc);
1963
1964 // go through all smoothlevels, lowest to highest, then draw.
1965 // this is basically counting sort
1966 {
1967 int w, b;
1968
1969 glEnable (GL_TEXTURE_2D);
1970 glBegin (GL_QUADS);
1971 for (w = 0; w < 256 / 32; ++w)
1972 {
1973 uint32_t smask = smooth_level [w];
1974 if (smask)
1975 for (b = 0; b < 32; ++b)
1976 if (smask & (((uint32_t)1) << b))
1490 { 1977 {
1491 maptex tex = self->tex [face]; 1978 int level = (w << 5) | b;
1492 int px = (x + 1) * 32 - tex.w; 1979 HE *he;
1493 int py = (y + 1) * 32 - tex.h;
1494 1980
1495 if (last_name != tex.name) 1981 hv_iterinit (smooth);
1982 while ((he = hv_iternext (smooth)))
1496 { 1983 {
1497 glEnd (); 1984 smooth_key *skey = (smooth_key *)HeKEY (he);
1498 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 1985 IV bits = SvIVX (HeVAL (he));
1499 glBegin (GL_QUADS);
1500 }
1501 1986
1502 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1503 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1504 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1505 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1506 }
1507
1508 if (cell->flags && z == 2)
1509 {
1510 if (cell->flags & 1) 1987 if (!(bits & 0x1000)
1988 && skey->level == level
1989 && level > smooth_max [skey->x][skey->y])
1511 { 1990 {
1512 maptex tex = self->tex [1]; 1991 maptex tex = self->tex [skey->tile];
1513 int px = (x + 1) * 32 - tex.w + 2; 1992 int px = (((int)skey->x) - 1) * T;
1514 int py = (y + 1) * 32 - tex.h - 6; 1993 int py = (((int)skey->y) - 1) * T;
1994 int border = bits & 15;
1995 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1996 float dx = tex.s * .0625f; // 16 images/row
1997 float dy = tex.t * .5f ; // 2 images/column
1515 1998
1999 if (tex.name)
2000 {
2001 // this time avoiding texture state changes
2002 // save gobs of state changes.
2003 if (key.texname != tex.name)
2004 {
1516 glEnd (); 2005 glEnd ();
1517 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 2006 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1518 glBegin (GL_QUADS); 2007 glBegin (GL_QUADS);
2008 }
1519 2009
2010 if (border)
2011 {
2012 float ox = border * dx;
2013
2014 glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
2015 glTexCoord2f (ox , dy ); glVertex2i (px , py + T);
2016 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);
2017 glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );
2018 }
2019
2020 if (corner)
2021 {
2022 float ox = corner * dx;
2023
1520 glTexCoord2f (0 , 0 ); glVertex2f (px , py ); 2024 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1521 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h); 2025 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1522 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h); 2026 glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);
1523 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py ); 2027 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
2028 }
2029 }
2030 }
1524 } 2031 }
1525 } 2032 }
1526 }
1527 } 2033 }
1528 2034
1529 glEnd (); 2035 glEnd ();
1530
1531 glDisable (GL_TEXTURE_2D); 2036 glDisable (GL_TEXTURE_2D);
2037 key.texname = -1;
2038 }
2039
2040 hv_clear (smooth);
2041 }
2042
1532 glDisable (GL_BLEND); 2043 glDisable (GL_BLEND);
2044 rc_free (rc);
1533 2045
1534 // top layer: overlays such as the health bar 2046 // top layer: overlays such as the health bar
1535 for (y = 0; y < sh; y++) 2047 for (y = 0; y < sh; y++)
1536 if (0 <= y + my && y + my < self->rows) 2048 if (0 <= y + my && y + my < self->rows)
1537 { 2049 {
… …
1540 for (x = 0; x < sw; x++) 2052 for (x = 0; x < sw; x++)
1541 if (row->c0 <= x + mx && x + mx < row->c1) 2053 if (row->c0 <= x + mx && x + mx < row->c1)
1542 { 2054 {
1543 mapcell *cell = row->col + (x + mx - row->c0); 2055 mapcell *cell = row->col + (x + mx - row->c0);
1544 2056
1545 int px = x * 32; 2057 int px = x * T;
1546 int py = y * 32; 2058 int py = y * T;
1547 2059
1548 if (cell->stat_hp) 2060 if (cell->stat_hp)
1549 { 2061 {
1550 int width = cell->stat_width * 32; 2062 int width = cell->stat_width * T;
1551 int thick = sh / 28 + 1 + cell->stat_width; 2063 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
1552 2064
1553 glColor3ub (0, 0, 0); 2065 glColor3ub (0, 0, 0);
1554 glRectf (px + 1, py - thick - 2, 2066 glRectf (px + 1, py - thick - 2,
1555 px + width - 1, py); 2067 px + width - 1, py);
1556 2068
… …
1562 } 2074 }
1563 } 2075 }
1564} 2076}
1565 2077
1566void 2078void
1567draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data) 2079draw_magicmap (DC::Map self, int dx, int dy, int w, int h, unsigned char *data)
1568 CODE: 2080 CODE:
1569{ 2081{
1570 static float color[16][3] = { 2082 static float color[16][3] = {
1571 { 0.00F, 0.00F, 0.00F }, 2083 { 0.00F, 0.00F, 0.00F },
1572 { 1.00F, 1.00F, 1.00F }, 2084 { 1.00F, 1.00F, 1.00F },
… …
1622 glDisable (GL_BLEND); 2134 glDisable (GL_BLEND);
1623 glDisable (GL_TEXTURE_2D); 2135 glDisable (GL_TEXTURE_2D);
1624} 2136}
1625 2137
1626void 2138void
1627fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh) 2139fow_texture (DC::Map self, int mx, int my, int sw, int sh)
1628 PPCODE: 2140 PPCODE:
1629{ 2141{
1630 int x, y; 2142 int x, y;
2143 int sw1 = sw + 2;
2144 int sh1 = sh + 2;
2145 int sh3 = sh * 3;
1631 int sw4 = (sw + 3) & ~3; 2146 int sw34 = (sw * 3 + 3) & ~3;
2147 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1632 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2148 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1633 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2149 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1634 2150
1635 memset (darkness, 255, sw4 * sh);
1636 SvPOK_only (darkness_sv); 2151 SvPOK_only (darkness3_sv);
1637 SvCUR_set (darkness_sv, sw4 * sh); 2152 SvCUR_set (darkness3_sv, sw34 * sh3);
1638 2153
1639 mx += self->x; 2154 mx += self->x - 1;
1640 my += self->y; 2155 my += self->y - 1;
1641 2156
2157 memset (darkness1, 255, sw1 * sh1);
2158
1642 for (y = 0; y < sh; y++) 2159 for (y = 0; y < sh1; y++)
1643 if (0 <= y + my && y + my < self->rows) 2160 if (0 <= y + my && y + my < self->rows)
1644 { 2161 {
1645 maprow *row = self->row + (y + my); 2162 maprow *row = self->row + (y + my);
1646 2163
1647 for (x = 0; x < sw; x++) 2164 for (x = 0; x < sw1; x++)
1648 if (row->c0 <= x + mx && x + mx < row->c1) 2165 if (row->c0 <= x + mx && x + mx < row->c1)
1649 { 2166 {
1650 mapcell *cell = row->col + (x + mx - row->c0); 2167 mapcell *cell = row->col + (x + mx - row->c0);
1651 2168
1652 darkness[y * sw4 + x] = cell->darkness 2169 darkness1 [y * sw1 + x] = cell->darkness
1653 ? 255 - (cell->darkness - 1) 2170 ? 255 - (cell->darkness - 1)
1654 : 255 - FOW_DARKNESS; 2171 : 255 - FOW_DARKNESS;
1655 } 2172 }
1656 } 2173 }
1657 2174
2175 for (y = 0; y < sh; ++y)
2176 for (x = 0; x < sw; ++x)
2177 {
2178 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2179 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2180 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2181 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2182 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2183 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2184 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2185 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2186 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
2187
2188 uint8_t r11 = (d11 + d21 + d12) / 3;
2189 uint8_t r21 = d21;
2190 uint8_t r31 = (d21 + d31 + d32) / 3;
2191
2192 uint8_t r12 = d12;
2193 uint8_t r22 = d22;
2194 uint8_t r32 = d32;
2195
2196 uint8_t r13 = (d13 + d23 + d12) / 3;
2197 uint8_t r23 = d23;
2198 uint8_t r33 = (d23 + d33 + d32) / 3;
2199
2200 darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);
2201 darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);
2202 darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);
2203 darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);
2204 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);
2205 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);
2206 darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);
2207 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);
2208 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);
2209 }
2210
2211 free (darkness1);
2212
1658 EXTEND (SP, 3); 2213 EXTEND (SP, 3);
1659 PUSHs (sv_2mortal (newSViv (sw4))); 2214 PUSHs (sv_2mortal (newSViv (sw34)));
1660 PUSHs (sv_2mortal (newSViv (sh))); 2215 PUSHs (sv_2mortal (newSViv (sh3)));
1661 PUSHs (darkness_sv); 2216 PUSHs (darkness3_sv);
1662} 2217}
1663 2218
1664SV * 2219SV *
1665get_rect (CFPlus::Map self, int x0, int y0, int w, int h) 2220get_rect (DC::Map self, int x0, int y0, int w, int h)
1666 CODE: 2221 CODE:
1667{ 2222{
1668 int x, y, x1, y1; 2223 int x, y, x1, y1;
1669 SV *data_sv = newSV (w * h * 7 + 5); 2224 SV *data_sv = newSV (w * h * 7 + 5);
1670 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2225 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
1695 if (row && row->c0 <= x && x < row->c1) 2250 if (row && row->c0 <= x && x < row->c1)
1696 { 2251 {
1697 mapcell *cell = row->col + (x - row->c0); 2252 mapcell *cell = row->col + (x - row->c0);
1698 uint8_t flags = 0; 2253 uint8_t flags = 0;
1699 2254
1700 if (cell->face [0]) flags |= 1; 2255 if (cell->tile [0]) flags |= 1;
1701 if (cell->face [1]) flags |= 2; 2256 if (cell->tile [1]) flags |= 2;
1702 if (cell->face [2]) flags |= 4; 2257 if (cell->tile [2]) flags |= 4;
1703 2258
1704 *data++ = flags; 2259 *data++ = flags;
1705 2260
1706 if (flags & 1) 2261 if (flags & 1)
1707 { 2262 {
2263 tileid tile = cell->tile [0];
1708 *data++ = cell->face [0] >> 8; 2264 *data++ = tile >> 8;
1709 *data++ = cell->face [0]; 2265 *data++ = tile;
1710 } 2266 }
1711 2267
1712 if (flags & 2) 2268 if (flags & 2)
1713 { 2269 {
2270 tileid tile = cell->tile [1];
1714 *data++ = cell->face [1] >> 8; 2271 *data++ = tile >> 8;
1715 *data++ = cell->face [1]; 2272 *data++ = tile;
1716 } 2273 }
1717 2274
1718 if (flags & 4) 2275 if (flags & 4)
1719 { 2276 {
2277 tileid tile = cell->tile [2];
1720 *data++ = cell->face [2] >> 8; 2278 *data++ = tile >> 8;
1721 *data++ = cell->face [2]; 2279 *data++ = tile;
1722 } 2280 }
1723 } 2281 }
1724 else 2282 else
1725 *data++ = 0; 2283 *data++ = 0;
1726 } 2284 }
… …
1732} 2290}
1733 OUTPUT: 2291 OUTPUT:
1734 RETVAL 2292 RETVAL
1735 2293
1736void 2294void
1737set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data) 2295set_rect (DC::Map self, int x0, int y0, uint8_t *data)
1738 PPCODE: 2296 PPCODE:
1739{ 2297{
1740 int x, y, z; 2298 int x, y, z;
1741 int w, h; 2299 int w, h;
1742 int x1, y1; 2300 int x1, y1;
1743 2301
1744 if (*data++ != 0) 2302 if (*data++ != 0)
1745 return; /* version mismatch */ 2303 XSRETURN_EMPTY; /* version mismatch */
1746 2304
1747 w = *data++ << 8; w |= *data++; 2305 w = *data++ << 8; w |= *data++;
1748 h = *data++ << 8; h |= *data++; 2306 h = *data++ << 8; h |= *data++;
1749 2307
1750 // we need to do this 'cause we don't keep an absolute coord system for rows 2308 // we need to do this 'cause we don't keep an absolute coord system for rows
… …
1766 { 2324 {
1767 uint8_t flags = *data++; 2325 uint8_t flags = *data++;
1768 2326
1769 if (flags) 2327 if (flags)
1770 { 2328 {
1771 mapface face[3] = { 0, 0, 0 };
1772
1773 mapcell *cell = row_get_cell (row, x); 2329 mapcell *cell = row_get_cell (row, x);
2330 tileid tile[3] = { 0, 0, 0 };
1774 2331
1775 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; } 2332 if (flags & 1) { tile[0] = *data++ << 8; tile[0] |= *data++; }
1776 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; } 2333 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
1777 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; } 2334 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
1778 2335
1779 if (cell->darkness == 0) 2336 if (cell->darkness == 0)
1780 { 2337 {
1781 cell->darkness = 0; 2338 cell->darkness = 0;
1782 2339
1783 for (z = 0; z <= 2; z++) 2340 for (z = 0; z <= 2; z++)
1784 { 2341 {
1785 cell->face[z] = face[z]; 2342 tileid t = tile [z];
1786 2343
1787 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name)) 2344 if (t >= self->texs || (t && !self->tex [t].name))
2345 {
1788 XPUSHs (sv_2mortal (newSViv (face[z]))); 2346 XPUSHs (sv_2mortal (newSViv (t)));
2347 need_texid (self, t);
2348 }
2349
2350 cell->tile [z] = t;
1789 } 2351 }
1790 } 2352 }
1791 } 2353 }
1792 } 2354 }
1793 } 2355 }
1794} 2356}
1795 2357
1796MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2358MODULE = Deliantra::Client PACKAGE = DC::RW
1797 2359
1798CFPlus::MixChunk 2360DC::RW
1799new_from_file (SV *class, char *path) 2361new (SV *class, SV *data_sv)
1800 CODE: 2362 CODE:
1801 RETVAL = Mix_LoadWAV (path); 2363{
2364 STRLEN datalen;
2365 char *data = SvPVbyte (data_sv, datalen);
2366
2367 RETVAL = SDL_RWFromConstMem (data, datalen);
2368}
1802 OUTPUT: 2369 OUTPUT:
1803 RETVAL 2370 RETVAL
1804 2371
2372DC::RW
2373new_from_file (SV *class, const char *path, const char *mode = "rb")
2374 CODE:
2375 RETVAL = SDL_RWFromFile (path, mode);
2376 OUTPUT:
2377 RETVAL
2378
2379# fails on win32:
2380# dc.xs(2268) : error C2059: syntax error : '('
1805void 2381#void
2382#close (DC::RW self)
2383# CODE:
2384# (self->(close)) (self);
2385
2386MODULE = Deliantra::Client PACKAGE = DC::Channel
2387
2388PROTOTYPES: DISABLE
2389
2390DC::Channel
2391find ()
2392 CODE:
2393{
2394 RETVAL = Mix_GroupAvailable (-1);
2395
2396 if (RETVAL < 0)
2397 {
2398 RETVAL = Mix_GroupOldest (-1);
2399
2400 if (RETVAL < 0)
2401 XSRETURN_UNDEF;
2402
2403 Mix_HaltChannel (RETVAL);
2404 }
2405
2406 Mix_UnregisterAllEffects (RETVAL);
2407 Mix_Volume (RETVAL, 128);
2408}
2409 OUTPUT:
2410 RETVAL
2411
2412void
2413halt (DC::Channel self)
2414 CODE:
2415 Mix_HaltChannel (self);
2416
2417void
2418expire (DC::Channel self, int ticks = -1)
2419 CODE:
2420 Mix_ExpireChannel (self, ticks);
2421
2422void
2423fade_out (DC::Channel self, int ticks = -1)
2424 CODE:
2425 Mix_FadeOutChannel (self, ticks);
2426
2427int
2428volume (DC::Channel self, int volume)
2429 CODE:
2430 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2431 OUTPUT:
2432 RETVAL
2433
2434void
2435unregister_all_effects (DC::Channel self)
2436 CODE:
2437 Mix_UnregisterAllEffects (self);
2438
2439void
2440set_panning (DC::Channel self, int left, int right)
2441 CODE:
2442 left = CLAMP (left , 0, 255);
2443 right = CLAMP (right, 0, 255);
2444 Mix_SetPanning (self, left, right);
2445
2446void
2447set_distance (DC::Channel self, int distance)
2448 CODE:
2449 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2450
2451void
2452set_position (DC::Channel self, int angle, int distance)
2453 CODE:
2454
2455void
2456set_position_r (DC::Channel self, int dx, int dy, int maxdistance)
2457 CODE:
2458{
2459 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2460 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2461 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2462}
2463
2464void
2465set_reverse_stereo (DC::Channel self, int flip)
2466 CODE:
2467 Mix_SetReverseStereo (self, flip);
2468
2469MODULE = Deliantra::Client PACKAGE = DC::MixChunk
2470
2471PROTOTYPES: DISABLE
2472
2473DC::MixChunk
2474new (SV *class, DC::RW rwops)
2475 CODE:
2476 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2477 OUTPUT:
2478 RETVAL
2479
2480void
1806DESTROY (CFPlus::MixChunk self) 2481DESTROY (DC::MixChunk self)
1807 CODE: 2482 CODE:
1808 Mix_FreeChunk (self); 2483 Mix_FreeChunk (self);
1809 2484
1810int 2485int
1811volume (CFPlus::MixChunk self, int volume = -1) 2486volume (DC::MixChunk self, int volume = -1)
1812 CODE: 2487 CODE:
2488 if (items > 1)
2489 volume = CLAMP (volume, 0, 128);
1813 RETVAL = Mix_VolumeChunk (self, volume); 2490 RETVAL = Mix_VolumeChunk (self, volume);
1814 OUTPUT: 2491 OUTPUT:
1815 RETVAL 2492 RETVAL
1816 2493
1817int 2494DC::Channel
1818play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2495play (DC::MixChunk self, DC::Channel channel = -1, int loops = 0, int ticks = -1)
1819 CODE: 2496 CODE:
2497{
1820 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2498 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2499
2500 if (RETVAL < 0)
2501 XSRETURN_UNDEF;
2502
2503 if (channel < 0)
2504 {
2505 Mix_UnregisterAllEffects (RETVAL);
2506 Mix_Volume (RETVAL, 128);
2507 }
2508}
1821 OUTPUT: 2509 OUTPUT:
1822 RETVAL 2510 RETVAL
1823 2511
1824MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2512MODULE = Deliantra::Client PACKAGE = DC::MixMusic
1825 2513
1826int 2514int
1827volume (int volume = -1) 2515volume (int volume = -1)
2516 PROTOTYPE: ;$
1828 CODE: 2517 CODE:
2518 if (items > 0)
2519 volume = CLAMP (volume, 0, 128);
1829 RETVAL = Mix_VolumeMusic (volume); 2520 RETVAL = Mix_VolumeMusic (volume);
1830 OUTPUT: 2521 OUTPUT:
1831 RETVAL 2522 RETVAL
1832 2523
2524void
2525fade_out (int ms)
2526 CODE:
2527 Mix_FadeOutMusic (ms);
2528
2529void
2530halt ()
2531 CODE:
2532 Mix_HaltMusic ();
2533
1833CFPlus::MixMusic 2534DC::MixMusic
1834new_from_file (SV *class, char *path) 2535new (SV *class, DC::RW rwops)
1835 CODE: 2536 CODE:
1836 RETVAL = Mix_LoadMUS (path); 2537 RETVAL = Mix_LoadMUS_RW (rwops);
1837 OUTPUT: 2538 OUTPUT:
1838 RETVAL 2539 RETVAL
1839 2540
1840void 2541void
1841DESTROY (CFPlus::MixMusic self) 2542DESTROY (DC::MixMusic self)
1842 CODE: 2543 CODE:
1843 Mix_FreeMusic (self); 2544 Mix_FreeMusic (self);
1844 2545
1845int 2546int
1846play (CFPlus::MixMusic self, int loops = -1) 2547play (DC::MixMusic self, int loops = -1)
1847 CODE: 2548 CODE:
1848 RETVAL = Mix_PlayMusic (self, loops); 2549 RETVAL = Mix_PlayMusic (self, loops);
1849 OUTPUT: 2550 OUTPUT:
1850 RETVAL 2551 RETVAL
1851 2552
1852MODULE = CFPlus PACKAGE = CFPlus::OpenGL 2553void
2554fade_in_pos (DC::MixMusic self, int loops, int ms, double position)
2555 CODE:
2556 Mix_FadeInMusicPos (self, loops, ms, position);
2557
2558MODULE = Deliantra::Client PACKAGE = DC::OpenGL
2559
2560PROTOTYPES: ENABLE
1853 2561
1854BOOT: 2562BOOT:
1855{ 2563{
1856 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1); 2564 HV *stash = gv_stashpv ("DC::OpenGL", 1);
1857 static const struct { 2565 static const struct {
1858 const char *name; 2566 const char *name;
1859 IV iv; 2567 IV iv;
1860 } *civ, const_iv[] = { 2568 } *civ, const_iv[] = {
1861# define const_iv(name) { # name, (IV)name } 2569# define const_iv(name) { # name, (IV)name }
2570 const_iv (GL_VENDOR),
2571 const_iv (GL_VERSION),
2572 const_iv (GL_EXTENSIONS),
1862 const_iv (GL_COLOR_MATERIAL), 2573 const_iv (GL_COLOR_MATERIAL),
1863 const_iv (GL_SMOOTH), 2574 const_iv (GL_SMOOTH),
1864 const_iv (GL_FLAT), 2575 const_iv (GL_FLAT),
1865 const_iv (GL_DITHER), 2576 const_iv (GL_DITHER),
1866 const_iv (GL_BLEND), 2577 const_iv (GL_BLEND),
… …
1870 const_iv (GL_ALPHA_TEST), 2581 const_iv (GL_ALPHA_TEST),
1871 const_iv (GL_NORMALIZE), 2582 const_iv (GL_NORMALIZE),
1872 const_iv (GL_RESCALE_NORMAL), 2583 const_iv (GL_RESCALE_NORMAL),
1873 const_iv (GL_FRONT), 2584 const_iv (GL_FRONT),
1874 const_iv (GL_BACK), 2585 const_iv (GL_BACK),
2586 const_iv (GL_AUX0),
1875 const_iv (GL_AND), 2587 const_iv (GL_AND),
1876 const_iv (GL_ONE), 2588 const_iv (GL_ONE),
1877 const_iv (GL_ZERO), 2589 const_iv (GL_ZERO),
1878 const_iv (GL_SRC_ALPHA), 2590 const_iv (GL_SRC_ALPHA),
1879 const_iv (GL_DST_ALPHA), 2591 const_iv (GL_DST_ALPHA),
… …
1892 const_iv (GL_INTENSITY), 2604 const_iv (GL_INTENSITY),
1893 const_iv (GL_LUMINANCE), 2605 const_iv (GL_LUMINANCE),
1894 const_iv (GL_LUMINANCE_ALPHA), 2606 const_iv (GL_LUMINANCE_ALPHA),
1895 const_iv (GL_FLOAT), 2607 const_iv (GL_FLOAT),
1896 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2608 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
2609 const_iv (GL_COMPRESSED_ALPHA_ARB),
2610 const_iv (GL_COMPRESSED_LUMINANCE_ARB),
2611 const_iv (GL_COMPRESSED_LUMINANCE_ALPHA_ARB),
2612 const_iv (GL_COMPRESSED_INTENSITY_ARB),
2613 const_iv (GL_COMPRESSED_RGB_ARB),
2614 const_iv (GL_COMPRESSED_RGBA_ARB),
1897 const_iv (GL_COMPILE), 2615 const_iv (GL_COMPILE),
2616 const_iv (GL_PROXY_TEXTURE_1D),
2617 const_iv (GL_PROXY_TEXTURE_2D),
1898 const_iv (GL_TEXTURE_1D), 2618 const_iv (GL_TEXTURE_1D),
1899 const_iv (GL_TEXTURE_2D), 2619 const_iv (GL_TEXTURE_2D),
1900 const_iv (GL_TEXTURE_ENV), 2620 const_iv (GL_TEXTURE_ENV),
1901 const_iv (GL_TEXTURE_MAG_FILTER), 2621 const_iv (GL_TEXTURE_MAG_FILTER),
1902 const_iv (GL_TEXTURE_MIN_FILTER), 2622 const_iv (GL_TEXTURE_MIN_FILTER),
… …
1923 const_iv (GL_COLOR_LOGIC_OP), 2643 const_iv (GL_COLOR_LOGIC_OP),
1924 const_iv (GL_SEPARABLE_2D), 2644 const_iv (GL_SEPARABLE_2D),
1925 const_iv (GL_CONVOLUTION_2D), 2645 const_iv (GL_CONVOLUTION_2D),
1926 const_iv (GL_CONVOLUTION_BORDER_MODE), 2646 const_iv (GL_CONVOLUTION_BORDER_MODE),
1927 const_iv (GL_CONSTANT_BORDER), 2647 const_iv (GL_CONSTANT_BORDER),
2648 const_iv (GL_POINTS),
1928 const_iv (GL_LINES), 2649 const_iv (GL_LINES),
1929 const_iv (GL_LINE_STRIP), 2650 const_iv (GL_LINE_STRIP),
1930 const_iv (GL_LINE_LOOP), 2651 const_iv (GL_LINE_LOOP),
1931 const_iv (GL_QUADS), 2652 const_iv (GL_QUADS),
1932 const_iv (GL_QUAD_STRIP), 2653 const_iv (GL_QUAD_STRIP),
1933 const_iv (GL_TRIANGLES), 2654 const_iv (GL_TRIANGLES),
1934 const_iv (GL_TRIANGLE_STRIP), 2655 const_iv (GL_TRIANGLE_STRIP),
1935 const_iv (GL_TRIANGLE_FAN), 2656 const_iv (GL_TRIANGLE_FAN),
2657 const_iv (GL_POLYGON),
1936 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2658 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2659 const_iv (GL_POINT_SMOOTH_HINT),
2660 const_iv (GL_LINE_SMOOTH_HINT),
2661 const_iv (GL_POLYGON_SMOOTH_HINT),
2662 const_iv (GL_GENERATE_MIPMAP_HINT),
2663 const_iv (GL_TEXTURE_COMPRESSION_HINT),
1937 const_iv (GL_FASTEST), 2664 const_iv (GL_FASTEST),
2665 const_iv (GL_DONT_CARE),
2666 const_iv (GL_NICEST),
1938 const_iv (GL_V2F), 2667 const_iv (GL_V2F),
1939 const_iv (GL_V3F), 2668 const_iv (GL_V3F),
1940 const_iv (GL_T2F_V3F), 2669 const_iv (GL_T2F_V3F),
1941 const_iv (GL_T2F_N3F_V3F), 2670 const_iv (GL_T2F_N3F_V3F),
1942# undef const_iv 2671# undef const_iv
1943 }; 2672 };
1944 2673
1945 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 2674 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1946 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 2675 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
2676
2677 texture_av = newAV ();
2678 AvREAL_off (texture_av);
1947} 2679}
2680
2681void
2682disable_GL_EXT_blend_func_separate ()
2683 CODE:
2684 gl.BlendFuncSeparate = 0;
2685 gl.BlendFuncSeparateEXT = 0;
1948 2686
1949char * 2687char *
1950gl_vendor () 2688gl_vendor ()
1951 CODE: 2689 CODE:
1952 RETVAL = (char *)glGetString (GL_VENDOR); 2690 RETVAL = (char *)glGetString (GL_VENDOR);
… …
1965 CODE: 2703 CODE:
1966 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2704 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1967 OUTPUT: 2705 OUTPUT:
1968 RETVAL 2706 RETVAL
1969 2707
2708const char *glGetString (GLenum pname)
2709
2710GLint glGetInteger (GLenum pname)
2711 CODE:
2712 glGetIntegerv (pname, &RETVAL);
2713 OUTPUT:
2714 RETVAL
2715
2716GLdouble glGetDouble (GLenum pname)
2717 CODE:
2718 glGetDoublev (pname, &RETVAL);
2719 OUTPUT:
2720 RETVAL
2721
1970int glGetError () 2722int glGetError ()
1971 2723
1972void glFinish () 2724void glFinish ()
1973 2725
1974void glClear (int mask) 2726void glClear (int mask)
… …
2011# near_ and far_ are due to microsofts buggy "c" compiler 2763# near_ and far_ are due to microsofts buggy "c" compiler
2012void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2764void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
2013 2765
2014# near_ and far_ are due to microsofts buggy "c" compiler 2766# near_ and far_ are due to microsofts buggy "c" compiler
2015void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 2767void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
2768
2769PROTOTYPES: DISABLE
2016 2770
2017void glViewport (int x, int y, int width, int height) 2771void glViewport (int x, int y, int width, int height)
2018 2772
2019void glScissor (int x, int y, int width, int height) 2773void glScissor (int x, int y, int width, int height)
2020 2774
… …
2028 2782
2029void glRotate (float angle, float x, float y, float z) 2783void glRotate (float angle, float x, float y, float z)
2030 CODE: 2784 CODE:
2031 glRotatef (angle, x, y, z); 2785 glRotatef (angle, x, y, z);
2032 2786
2033void glBegin (int mode)
2034
2035void glEnd ()
2036
2037void glColor (float r, float g, float b, float a = 1.0) 2787void glColor (float r, float g, float b, float a = 1.0)
2038 PROTOTYPE: @
2039 ALIAS: 2788 ALIAS:
2040 glColor_premultiply = 1 2789 glColor_premultiply = 1
2041 CODE: 2790 CODE:
2042 if (ix) 2791 if (ix)
2043 { 2792 {
… …
2046 b *= a; 2795 b *= a;
2047 } 2796 }
2048 // microsoft visual "c" rounds instead of truncating... 2797 // microsoft visual "c" rounds instead of truncating...
2049 glColor4f (r, g, b, a); 2798 glColor4f (r, g, b, a);
2050 2799
2051void glInterleavedArrays (int format, int stride, char *data)
2052
2053void glDrawElements (int mode, int count, int type, char *indices)
2054
2055# 1.2 void glDrawRangeElements (int mode, int start, int end
2056
2057void glRasterPos (float x, float y, float z = 0.) 2800void glRasterPos (float x, float y, float z = 0.)
2058 CODE: 2801 CODE:
2059 glRasterPos3f (0, 0, z); 2802 glRasterPos3f (0, 0, z);
2060 glBitmap (0, 0, 0, 0, x, y, 0); 2803 glBitmap (0, 0, 0, 0, x, y, 0);
2061 2804
… …
2065 2808
2066void glTexCoord (float s, float t) 2809void glTexCoord (float s, float t)
2067 CODE: 2810 CODE:
2068 glTexCoord2f (s, t); 2811 glTexCoord2f (s, t);
2069 2812
2813void glRect (float x1, float y1, float x2, float y2)
2814 CODE:
2815 glRectf (x1, y1, x2, y2);
2816
2817void glRect_lineloop (float x1, float y1, float x2, float y2)
2818 CODE:
2819 glBegin (GL_LINE_LOOP);
2820 glVertex2f (x1, y1);
2821 glVertex2f (x2, y1);
2822 glVertex2f (x2, y2);
2823 glVertex2f (x1, y2);
2824 glEnd ();
2825
2826PROTOTYPES: ENABLE
2827
2828void glBegin (int mode)
2829
2830void glEnd ()
2831
2832void glPointSize (GLfloat size)
2833
2834void glLineWidth (GLfloat width)
2835
2836void glInterleavedArrays (int format, int stride, char *data)
2837
2838void glDrawElements (int mode, int count, int type, char *indices)
2839
2840# 1.2 void glDrawRangeElements (int mode, int start, int end
2841
2070void glTexEnv (int target, int pname, float param) 2842void glTexEnv (int target, int pname, float param)
2071 CODE: 2843 CODE:
2072 glTexEnvf (target, pname, param); 2844 glTexEnvf (target, pname, param);
2073 2845
2074void glTexParameter (int target, int pname, float param) 2846void glTexParameter (int target, int pname, float param)
… …
2090void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column) 2862void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column)
2091 CODE: 2863 CODE:
2092 if (gl.SeparableFilter2D) 2864 if (gl.SeparableFilter2D)
2093 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column); 2865 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
2094 2866
2095void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data) 2867void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data = 0)
2096 2868
2097void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 2869void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
2098 2870
2099void glDrawPixels (int width, int height, int format, int type, char *pixels) 2871void glDrawPixels (int width, int height, int format, int type, char *pixels)
2872
2873void glPixelZoom (float x, float y)
2100 2874
2101void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 2875void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
2102 2876
2103int glGenTexture () 2877int glGenTexture ()
2104 CODE: 2878 CODE:
2105{ 2879 RETVAL = gen_texture ();
2106 GLuint name;
2107 glGenTextures (1, &name);
2108 RETVAL = name;
2109}
2110 OUTPUT: 2880 OUTPUT:
2111 RETVAL 2881 RETVAL
2112 2882
2113void glDeleteTexture (int name) 2883void glDeleteTexture (int name)
2114 CODE: 2884 CODE:
2115{
2116 GLuint name_ = name;
2117 glDeleteTextures (1, &name_); 2885 del_texture (name);
2118} 2886
2119
2120int glGenList () 2887int glGenList ()
2121 CODE: 2888 CODE:
2122 RETVAL = glGenLists (1); 2889 RETVAL = glGenLists (1);
2123 OUTPUT: 2890 OUTPUT:
2124 RETVAL 2891 RETVAL
… …
2131 2898
2132void glEndList () 2899void glEndList ()
2133 2900
2134void glCallList (int list) 2901void glCallList (int list)
2135 2902
2903MODULE = Deliantra::Client PACKAGE = DC::UI::Base
2904
2905PROTOTYPES: DISABLE
2906
2907void
2908find_widget (SV *self, NV x, NV y)
2909 PPCODE:
2910{
2911 if (within_widget (self, x, y))
2912 XPUSHs (self);
2913}
2914
2915BOOT:
2916{
2917 hover_gv = gv_fetchpv ("DC::UI::HOVER", 1, SVt_NV);
2918
2919 draw_x_gv = gv_fetchpv ("DC::UI::Base::draw_x", 1, SVt_NV);
2920 draw_y_gv = gv_fetchpv ("DC::UI::Base::draw_y", 1, SVt_NV);
2921 draw_w_gv = gv_fetchpv ("DC::UI::Base::draw_w", 1, SVt_NV);
2922 draw_h_gv = gv_fetchpv ("DC::UI::Base::draw_h", 1, SVt_NV);
2923}
2924
2925void
2926draw (SV *self)
2927 CODE:
2928{
2929 HV *hv;
2930 SV **svp;
2931 NV x, y, w, h;
2932 SV *draw_x_sv = GvSV (draw_x_gv);
2933 SV *draw_y_sv = GvSV (draw_y_gv);
2934 SV *draw_w_sv = GvSV (draw_w_gv);
2935 SV *draw_h_sv = GvSV (draw_h_gv);
2936 double draw_x, draw_y;
2937
2938 if (!SvROK (self))
2939 croak ("DC::Base::draw: %s not a reference", SvPV_nolen (self));
2940
2941 hv = (HV *)SvRV (self);
2942
2943 if (SvTYPE (hv) != SVt_PVHV)
2944 croak ("DC::Base::draw: %s not a hashref", SvPV_nolen (self));
2945
2946 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2947 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2948
2949 if (!h || !w)
2950 XSRETURN_EMPTY;
2951
2952 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
2953 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
2954
2955 draw_x = SvNV (draw_x_sv) + x;
2956 draw_y = SvNV (draw_y_sv) + y;
2957
2958 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
2959 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
2960 XSRETURN_EMPTY;
2961
2962 sv_setnv (draw_x_sv, draw_x);
2963 sv_setnv (draw_y_sv, draw_y);
2964
2965 glPushMatrix ();
2966 glTranslated (x, y, 0);
2967
2968 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
2969 {
2970 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2971
2972 if (svp && SvTRUE (*svp))
2973 {
2974 glColor4f (1.0f * 0.2f, 0.8f * 0.2f, 0.5f * 0.2f, 0.2f);
2975 glEnable (GL_BLEND);
2976 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2977 glBegin (GL_QUADS);
2978 glVertex2f (0, 0);
2979 glVertex2f (w, 0);
2980 glVertex2f (w, h);
2981 glVertex2f (0, h);
2982 glEnd ();
2983 glDisable (GL_BLEND);
2984 }
2985 }
2986#if 0
2987 // draw borders, for debugging
2988 glPushMatrix ();
2989 glColor4f (1., 1., 0., 1.);
2990 glTranslatef (.5, .5, 0.);
2991 glBegin (GL_LINE_LOOP);
2992 glVertex2f (0 , 0);
2993 glVertex2f (w - 1, 0);
2994 glVertex2f (w - 1, h - 1);
2995 glVertex2f (0 , h - 1);
2996 glEnd ();
2997 glPopMatrix ();
2998#endif
2999 PUSHMARK (SP);
3000 XPUSHs (self);
3001 PUTBACK;
3002 call_method ("_draw", G_VOID | G_DISCARD);
3003 SPAGAIN;
3004
3005 glPopMatrix ();
3006
3007 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
3008 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
3009}
3010

Diff Legend

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