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.166 by root, Fri Dec 8 15:07:08 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 + trailing; 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
1073index_to_line_x (CFPlus::Layout self, int index, int trailing = 0) 1330index_to_line_x (DC::Layout self, int index, int trailing = 0)
1074 PPCODE: 1331 PPCODE:
1075{ 1332{
1076 int line, x; 1333 int line, x;
1077 1334
1078 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x); 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))
1079 /* pango bug: line is between 1..numlines, not 0..numlines-1 */ 1337 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
1080 1338 --line;
1339#endif
1081 EXTEND (SP, 2); 1340 EXTEND (SP, 2);
1082 PUSHs (sv_2mortal (newSViv (line - 1))); 1341 PUSHs (sv_2mortal (newSViv (line)));
1083 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE))); 1342 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1084} 1343}
1085 1344
1086void 1345void
1087line_x_to_index (CFPlus::Layout self, int line, int x) 1346line_x_to_index (DC::Layout self, int line, int x)
1088 PPCODE: 1347 PPCODE:
1089{ 1348{
1090 PangoLayoutLine *lp; 1349 PangoLayoutLine *lp;
1091 int index, trailing; 1350 int index, trailing;
1092 1351
1093 if (line < 0) 1352 if (line < 0)
1094 XSRETURN_EMPTY; 1353 XSRETURN_EMPTY;
1095 1354
1096 if (!(lp = pango_layout_get_line (self->pl, line))) 1355 if (!(lp = pango_layout_get_line_readonly (self->pl, line)))
1097 XSRETURN_EMPTY; /* do better */ 1356 XSRETURN_EMPTY; /* do better */
1098 1357
1099 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing); 1358 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1100 1359
1101 EXTEND (SP, 2); 1360 EXTEND (SP, 2);
… …
1107 PUSHs (sv_2mortal (newSViv (trailing))); 1366 PUSHs (sv_2mortal (newSViv (trailing)));
1108 } 1367 }
1109} 1368}
1110 1369
1111void 1370void
1112render (CFPlus::Layout self, float x, float y, int flags = 0) 1371render (DC::Layout self, float x, float y, int flags = 0)
1113 PPCODE: 1372 CODE:
1373 rc_clear (self->rc);
1114 pango_opengl_render_layout_subpixel ( 1374 pango_opengl_render_layout_subpixel (
1115 self->pl, 1375 self->pl,
1376 self->rc,
1116 x * PANGO_SCALE, y * PANGO_SCALE, 1377 x * PANGO_SCALE, y * PANGO_SCALE,
1117 self->r, self->g, self->b, self->a, 1378 self->r, self->g, self->b, self->a,
1118 flags 1379 flags
1119 ); 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);
1120 1384
1121MODULE = CFPlus PACKAGE = CFPlus::Texture
1122
1123void 1385void
1124pad2pot (SV *data_, SV *w_, SV *h_) 1386draw (DC::Layout self)
1125 CODE: 1387 CODE:
1126{ 1388{
1127 int ow = SvIV (w_); 1389 glEnable (GL_TEXTURE_2D);
1128 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);
1129 1396
1130 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_))
1131 { 1413 {
1132 int nw = minpot (ow);
1133 int nh = minpot (oh);
1134
1135 if (nw != ow || nh != oh)
1136 {
1137 if (SvOK (data_))
1138 {
1139 STRLEN datalen; 1414 STRLEN datalen;
1140 char *data = SvPVbyte (data_, datalen); 1415 char *data = SvPVbyte (data_, datalen);
1141 int bpp = datalen / (ow * oh); 1416 int bpp = datalen / (ow * oh);
1142 SV *result_ = sv_2mortal (newSV (nw * nh * bpp)); 1417 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1143 1418
1144 SvPOK_only (result_); 1419 SvPOK_only (result_);
1145 SvCUR_set (result_, nw * nh * bpp); 1420 SvCUR_set (result_, nw * nh * bpp);
1146 1421
1147 memset (SvPVX (result_), 0, nw * nh * bpp); 1422 memset (SvPVX (result_), 0, nw * nh * bpp);
1148 while (oh--) 1423 while (oh--)
1149 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);
1150 1425
1151 sv_setsv (data_, result_); 1426 sv_setsv (data_, result_);
1152 }
1153
1154 sv_setiv (w_, nw);
1155 sv_setiv (h_, nh);
1156 }
1157 } 1427 }
1158} 1428}
1159 1429
1160void 1430void
1161draw_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.)
… …
1167{ 1437{
1168 HV *hv = (HV *)SvRV (self); 1438 HV *hv = (HV *)SvRV (self);
1169 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1439 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1170 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1440 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1171 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;
1172 1445
1173 if (items < 5) 1446 if (items < 5)
1174 { 1447 {
1175 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1448 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1176 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1449 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1204 glDisable (GL_ALPHA_TEST); 1477 glDisable (GL_ALPHA_TEST);
1205 glDisable (GL_BLEND); 1478 glDisable (GL_BLEND);
1206 } 1479 }
1207} 1480}
1208 1481
1209MODULE = 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
1210 1492
1211CFPlus::Map 1493MODULE = Deliantra::Client PACKAGE = DC::Map
1494
1495PROTOTYPES: DISABLE
1496
1497DC::Map
1212new (SV *class) 1498new (SV *class)
1213 CODE: 1499 CODE:
1214 New (0, RETVAL, 1, struct map); 1500 New (0, RETVAL, 1, struct map);
1215 RETVAL->x = 0; 1501 RETVAL->x = 0;
1216 RETVAL->y = 0; 1502 RETVAL->y = 0;
1217 RETVAL->w = 0; 1503 RETVAL->w = 0;
1218 RETVAL->h = 0; 1504 RETVAL->h = 0;
1219 RETVAL->ox = 0; 1505 RETVAL->ox = 0;
1220 RETVAL->oy = 0; 1506 RETVAL->oy = 0;
1221 RETVAL->faces = 8192; 1507 RETVAL->faces = 8192; Newz (0, RETVAL->face2tile, RETVAL->faces, tileid);
1222 Newz (0, RETVAL->face, RETVAL->faces, mapface); 1508 RETVAL->texs = 8192; Newz (0, RETVAL->tex , RETVAL->texs , maptex);
1223 RETVAL->texs = 8192;
1224 Newz (0, RETVAL->tex, RETVAL->texs, maptex);
1225 RETVAL->rows = 0; 1509 RETVAL->rows = 0;
1226 RETVAL->row = 0; 1510 RETVAL->row = 0;
1227 OUTPUT: 1511 OUTPUT:
1228 RETVAL 1512 RETVAL
1229 1513
1230void 1514void
1231DESTROY (CFPlus::Map self) 1515DESTROY (DC::Map self)
1232 CODE: 1516 CODE:
1233{ 1517{
1234 map_clear (self); 1518 map_clear (self);
1235 Safefree (self->face); 1519 Safefree (self->face2tile);
1236 Safefree (self->tex); 1520 Safefree (self->tex);
1237 Safefree (self); 1521 Safefree (self);
1238} 1522}
1239 1523
1240void 1524void
1241resize (CFPlus::Map self, int map_width, int map_height) 1525resize (DC::Map self, int map_width, int map_height)
1242 CODE: 1526 CODE:
1243 self->w = map_width; 1527 self->w = map_width;
1244 self->h = map_height; 1528 self->h = map_height;
1245 1529
1246void 1530void
1247clear (CFPlus::Map self) 1531clear (DC::Map self)
1248 CODE: 1532 CODE:
1249 map_clear (self); 1533 map_clear (self);
1250 1534
1251void 1535void
1252set_face (CFPlus::Map self, int face, int texid) 1536set_tileid (DC::Map self, int face, int tile)
1253 CODE: 1537 CODE:
1254{ 1538{
1255 while (self->faces <= face) 1539 need_facenum (self, face); self->face2tile [face] = tile;
1256 { 1540 need_texid (self, tile);
1257 Append (mapface, self->face, self->faces, self->faces);
1258 self->faces *= 2;
1259 }
1260
1261 self->face [face] = texid;
1262} 1541}
1263 1542
1264void 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
1265set_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)
1266 CODE: 1568 CODE:
1267{ 1569{
1268 while (self->texs <= texid) 1570 need_texid (self, texid);
1269 {
1270 Append (maptex, self->tex, self->texs, self->texs);
1271 self->texs *= 2;
1272 }
1273 1571
1274 { 1572 {
1275 maptex *tex = self->tex + texid; 1573 maptex *tex = self->tex + texid;
1276 1574
1277 tex->name = name; 1575 tex->name = name;
… …
1294 // from transparent color bleeding and ugly wrapping effects. 1592 // from transparent color bleeding and ugly wrapping effects.
1295 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1593 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1296} 1594}
1297 1595
1298int 1596int
1299ox (CFPlus::Map self) 1597ox (DC::Map self)
1300 ALIAS: 1598 ALIAS:
1301 oy = 1 1599 oy = 1
1302 x = 2 1600 x = 2
1303 y = 3 1601 y = 3
1304 w = 4 1602 w = 4
… …
1315 } 1613 }
1316 OUTPUT: 1614 OUTPUT:
1317 RETVAL 1615 RETVAL
1318 1616
1319void 1617void
1320scroll (CFPlus::Map self, int dx, int dy) 1618scroll (DC::Map self, int dx, int dy)
1321 CODE: 1619 CODE:
1322{ 1620{
1323 if (dx > 0) 1621 if (dx > 0)
1324 map_blank (self, self->x, self->y, dx, self->h); 1622 map_blank (self, self->x, self->y, dx, self->h);
1325 else if (dx < 0) 1623 else if (dx < 0)
1326 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);
1327 1625
1328 if (dy > 0) 1626 if (dy > 0)
1329 map_blank (self, self->x, self->y, self->w, dy); 1627 map_blank (self, self->x, self->y, self->w, dy);
1330 else if (dy < 0) 1628 else if (dy < 0)
1331 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);
1332 1630
1333 self->ox += dx; self->x += dx; 1631 self->ox += dx; self->x += dx;
1334 self->oy += dy; self->y += dy; 1632 self->oy += dy; self->y += dy;
1335 1633
1336 while (self->y < 0) 1634 while (self->y < 0)
… …
1340 self->rows += MAP_EXTEND_Y; 1638 self->rows += MAP_EXTEND_Y;
1341 self->y += MAP_EXTEND_Y; 1639 self->y += MAP_EXTEND_Y;
1342 } 1640 }
1343} 1641}
1344 1642
1345void 1643SV *
1346map1a_update (CFPlus::Map self, SV *data_, int extmap) 1644map1a_update (DC::Map self, SV *data_, int extmap)
1347 CODE: 1645 CODE:
1348{ 1646{
1349 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1647 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1350 uint8_t *data_end = (uint8_t *)SvEND (data_); 1648 uint8_t *data_end = (uint8_t *)SvEND (data_);
1351 mapcell *cell; 1649 mapcell *cell;
1352 int x, y, flags; 1650 int x, y, z, flags;
1651 AV *missing = newAV ();
1652 RETVAL = newRV_noinc ((SV *)missing);
1353 1653
1354 while (data < data_end - 1) 1654 while (data < data_end - 1)
1355 { 1655 {
1356 flags = (data [0] << 8) + data [1]; data += 2; 1656 flags = (data [0] << 8) + data [1]; data += 2;
1357 1657
… …
1388 cell->stat_width = 1; 1688 cell->stat_width = 1;
1389 cell->stat_hp = *data++; 1689 cell->stat_hp = *data++;
1390 } 1690 }
1391 else if (cmd == 6) // monster width 1691 else if (cmd == 6) // monster width
1392 cell->stat_width = *data++ + 1; 1692 cell->stat_width = *data++ + 1;
1393 else if (cmd == 0x47) // monster width 1693 else if (cmd == 0x47)
1394 { 1694 {
1395 if (*data == 4) 1695 if (*data == 4)
1396 ; // decode player tag 1696 ; // decode player count
1397 1697
1398 data += *data + 1; 1698 data += *data + 1;
1399 } 1699 }
1400 else if (cmd == 8) // cell flags 1700 else if (cmd == 8) // cell flags
1401 cell->flags = *data++; 1701 cell->flags = *data++;
… …
1408 } 1708 }
1409 else 1709 else
1410 cell->darkness = *data++ + 1; 1710 cell->darkness = *data++ + 1;
1411 } 1711 }
1412 1712
1713 for (z = 0; z <= 2; ++z)
1413 if (flags & 4) 1714 if (flags & (4 >> z))
1414 { 1715 {
1415 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 }
1416 } 1733 }
1417
1418 if (flags & 2)
1419 {
1420 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2;
1421 }
1422
1423 if (flags & 1)
1424 {
1425 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
1426 }
1427 } 1734 }
1428 else 1735 else
1429 cell->darkness = 0; 1736 cell->darkness = 0;
1430 } 1737 }
1431} 1738}
1739 OUTPUT:
1740 RETVAL
1432 1741
1433SV * 1742SV *
1434mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 1743mapmap (DC::Map self, int x0, int y0, int w, int h)
1435 CODE: 1744 CODE:
1436{ 1745{
1437 int x1, x; 1746 int x1, x;
1438 int y1, y; 1747 int y1, y;
1439 int z; 1748 int z;
… …
1460 { 1769 {
1461 mapcell *cell = row->col + (x - row->c0); 1770 mapcell *cell = row->col + (x - row->c0);
1462 1771
1463 for (z = 0; z <= 0; z++) 1772 for (z = 0; z <= 0; z++)
1464 { 1773 {
1465 mapface face = cell->face [z];
1466
1467 if (face)
1468 {
1469 maptex tex = self->tex [face]; 1774 maptex tex = self->tex [cell->tile [z]];
1470 int a0 = 255 - tex.a; 1775 int a0 = 255 - tex.a;
1471 int a1 = tex.a; 1776 int a1 = tex.a;
1472 1777
1473 r = (r * a0 + tex.r * a1) / 255; 1778 r = (r * a0 + tex.r * a1) / 255;
1474 g = (g * a0 + tex.g * a1) / 255; 1779 g = (g * a0 + tex.g * a1) / 255;
1475 b = (b * a0 + tex.b * a1) / 255; 1780 b = (b * a0 + tex.b * a1) / 255;
1476 a = (a * a0 + tex.a * a1) / 255; 1781 a = (a * a0 + tex.a * a1) / 255;
1477 }
1478 } 1782 }
1479 } 1783 }
1480 1784
1481 *map++ = (r ) 1785 *map++ = (r )
1482 | (g << 8) 1786 | (g << 8)
… …
1489} 1793}
1490 OUTPUT: 1794 OUTPUT:
1491 RETVAL 1795 RETVAL
1492 1796
1493void 1797void
1494draw (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)
1495 CODE: 1799 CODE:
1496{ 1800{
1497 int x, y, z; 1801 int x, y, z;
1498 int last_name;
1499 mapface face;
1500 1802
1501 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 }
1502 1852
1503 glEnable (GL_BLEND); 1853 glEnable (GL_BLEND);
1504 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1854 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1505 glEnable (GL_TEXTURE_2D);
1506 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1855 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1507 1856
1508 glBegin (GL_QUADS);
1509
1510 last_name = 0;
1511
1512 mx += self->x;
1513 my += self->y;
1514
1515 for (z = 0; z < 3; z++) 1857 for (z = 0; z <= 2; z++)
1858 {
1859 memset (smooth_level, 0, sizeof (smooth_level));
1860
1516 for (y = 0; y < sh; y++) 1861 for (y = 0; y < sh; y++)
1517 if (0 <= y + my && y + my < self->rows) 1862 if (0 <= y + my && y + my < self->rows)
1518 { 1863 {
1519 maprow *row = self->row + (y + my); 1864 maprow *row = self->row + (y + my);
1520 1865
1521 for (x = 0; x < sw; x++) 1866 for (x = 0; x < sw; x++)
1522 if (row->c0 <= x + mx && x + mx < row->c1) 1867 if (row->c0 <= x + mx && x + mx < row->c1)
1523 { 1868 {
1524 mapcell *cell = row->col + (x + mx - row->c0); 1869 mapcell *cell = row->col + (x + mx - row->c0);
1525
1526 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;
1527 1876
1528 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))
1529 { 1977 {
1530 maptex tex = self->tex [face]; 1978 int level = (w << 5) | b;
1531 int px = (x + 1) * 32 - tex.w; 1979 HE *he;
1532 int py = (y + 1) * 32 - tex.h;
1533 1980
1534 if (last_name != tex.name) 1981 hv_iterinit (smooth);
1982 while ((he = hv_iternext (smooth)))
1535 { 1983 {
1536 glEnd (); 1984 smooth_key *skey = (smooth_key *)HeKEY (he);
1537 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 1985 IV bits = SvIVX (HeVAL (he));
1538 glBegin (GL_QUADS);
1539 }
1540 1986
1541 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1542 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1543 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1544 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1545 }
1546
1547 if (cell->flags && z == 2)
1548 {
1549 if (cell->flags & 1) 1987 if (!(bits & 0x1000)
1988 && skey->level == level
1989 && level > smooth_max [skey->x][skey->y])
1550 { 1990 {
1551 maptex tex = self->tex [1]; 1991 maptex tex = self->tex [skey->tile];
1552 int px = (x + 1) * 32 - tex.w + 2; 1992 int px = (((int)skey->x) - 1) * T;
1553 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
1554 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 {
1555 glEnd (); 2005 glEnd ();
1556 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 2006 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1557 glBegin (GL_QUADS); 2007 glBegin (GL_QUADS);
2008 }
1558 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
1559 glTexCoord2f (0 , 0 ); glVertex2f (px , py ); 2024 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1560 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h); 2025 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1561 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h); 2026 glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);
1562 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py ); 2027 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
2028 }
2029 }
2030 }
1563 } 2031 }
1564 } 2032 }
1565 }
1566 } 2033 }
1567 2034
1568 glEnd (); 2035 glEnd ();
1569
1570 glDisable (GL_TEXTURE_2D); 2036 glDisable (GL_TEXTURE_2D);
2037 key.texname = -1;
2038 }
2039
2040 hv_clear (smooth);
2041 }
2042
1571 glDisable (GL_BLEND); 2043 glDisable (GL_BLEND);
2044 rc_free (rc);
1572 2045
1573 // top layer: overlays such as the health bar 2046 // top layer: overlays such as the health bar
1574 for (y = 0; y < sh; y++) 2047 for (y = 0; y < sh; y++)
1575 if (0 <= y + my && y + my < self->rows) 2048 if (0 <= y + my && y + my < self->rows)
1576 { 2049 {
… …
1579 for (x = 0; x < sw; x++) 2052 for (x = 0; x < sw; x++)
1580 if (row->c0 <= x + mx && x + mx < row->c1) 2053 if (row->c0 <= x + mx && x + mx < row->c1)
1581 { 2054 {
1582 mapcell *cell = row->col + (x + mx - row->c0); 2055 mapcell *cell = row->col + (x + mx - row->c0);
1583 2056
1584 int px = x * 32; 2057 int px = x * T;
1585 int py = y * 32; 2058 int py = y * T;
1586 2059
1587 if (cell->stat_hp) 2060 if (cell->stat_hp)
1588 { 2061 {
1589 int width = cell->stat_width * 32; 2062 int width = cell->stat_width * T;
1590 int thick = sh / 28 + 1 + cell->stat_width; 2063 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
1591 2064
1592 glColor3ub (0, 0, 0); 2065 glColor3ub (0, 0, 0);
1593 glRectf (px + 1, py - thick - 2, 2066 glRectf (px + 1, py - thick - 2,
1594 px + width - 1, py); 2067 px + width - 1, py);
1595 2068
… …
1601 } 2074 }
1602 } 2075 }
1603} 2076}
1604 2077
1605void 2078void
1606draw_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)
1607 CODE: 2080 CODE:
1608{ 2081{
1609 static float color[16][3] = { 2082 static float color[16][3] = {
1610 { 0.00F, 0.00F, 0.00F }, 2083 { 0.00F, 0.00F, 0.00F },
1611 { 1.00F, 1.00F, 1.00F }, 2084 { 1.00F, 1.00F, 1.00F },
… …
1661 glDisable (GL_BLEND); 2134 glDisable (GL_BLEND);
1662 glDisable (GL_TEXTURE_2D); 2135 glDisable (GL_TEXTURE_2D);
1663} 2136}
1664 2137
1665void 2138void
1666fow_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)
1667 PPCODE: 2140 PPCODE:
1668{ 2141{
1669 int x, y; 2142 int x, y;
2143 int sw1 = sw + 2;
2144 int sh1 = sh + 2;
2145 int sh3 = sh * 3;
1670 int sw4 = (sw + 3) & ~3; 2146 int sw34 = (sw * 3 + 3) & ~3;
2147 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1671 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2148 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1672 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2149 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1673 2150
1674 memset (darkness, 255, sw4 * sh);
1675 SvPOK_only (darkness_sv); 2151 SvPOK_only (darkness3_sv);
1676 SvCUR_set (darkness_sv, sw4 * sh); 2152 SvCUR_set (darkness3_sv, sw34 * sh3);
1677 2153
1678 mx += self->x; 2154 mx += self->x - 1;
1679 my += self->y; 2155 my += self->y - 1;
1680 2156
2157 memset (darkness1, 255, sw1 * sh1);
2158
1681 for (y = 0; y < sh; y++) 2159 for (y = 0; y < sh1; y++)
1682 if (0 <= y + my && y + my < self->rows) 2160 if (0 <= y + my && y + my < self->rows)
1683 { 2161 {
1684 maprow *row = self->row + (y + my); 2162 maprow *row = self->row + (y + my);
1685 2163
1686 for (x = 0; x < sw; x++) 2164 for (x = 0; x < sw1; x++)
1687 if (row->c0 <= x + mx && x + mx < row->c1) 2165 if (row->c0 <= x + mx && x + mx < row->c1)
1688 { 2166 {
1689 mapcell *cell = row->col + (x + mx - row->c0); 2167 mapcell *cell = row->col + (x + mx - row->c0);
1690 2168
1691 darkness[y * sw4 + x] = cell->darkness 2169 darkness1 [y * sw1 + x] = cell->darkness
1692 ? 255 - (cell->darkness - 1) 2170 ? 255 - (cell->darkness - 1)
1693 : 255 - FOW_DARKNESS; 2171 : 255 - FOW_DARKNESS;
1694 } 2172 }
1695 } 2173 }
1696 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
1697 EXTEND (SP, 3); 2213 EXTEND (SP, 3);
1698 PUSHs (sv_2mortal (newSViv (sw4))); 2214 PUSHs (sv_2mortal (newSViv (sw34)));
1699 PUSHs (sv_2mortal (newSViv (sh))); 2215 PUSHs (sv_2mortal (newSViv (sh3)));
1700 PUSHs (darkness_sv); 2216 PUSHs (darkness3_sv);
1701} 2217}
1702 2218
1703SV * 2219SV *
1704get_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)
1705 CODE: 2221 CODE:
1706{ 2222{
1707 int x, y, x1, y1; 2223 int x, y, x1, y1;
1708 SV *data_sv = newSV (w * h * 7 + 5); 2224 SV *data_sv = newSV (w * h * 7 + 5);
1709 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2225 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
1734 if (row && row->c0 <= x && x < row->c1) 2250 if (row && row->c0 <= x && x < row->c1)
1735 { 2251 {
1736 mapcell *cell = row->col + (x - row->c0); 2252 mapcell *cell = row->col + (x - row->c0);
1737 uint8_t flags = 0; 2253 uint8_t flags = 0;
1738 2254
1739 if (cell->face [0]) flags |= 1; 2255 if (cell->tile [0]) flags |= 1;
1740 if (cell->face [1]) flags |= 2; 2256 if (cell->tile [1]) flags |= 2;
1741 if (cell->face [2]) flags |= 4; 2257 if (cell->tile [2]) flags |= 4;
1742 2258
1743 *data++ = flags; 2259 *data++ = flags;
1744 2260
1745 if (flags & 1) 2261 if (flags & 1)
1746 { 2262 {
2263 tileid tile = cell->tile [0];
1747 *data++ = cell->face [0] >> 8; 2264 *data++ = tile >> 8;
1748 *data++ = cell->face [0]; 2265 *data++ = tile;
1749 } 2266 }
1750 2267
1751 if (flags & 2) 2268 if (flags & 2)
1752 { 2269 {
2270 tileid tile = cell->tile [1];
1753 *data++ = cell->face [1] >> 8; 2271 *data++ = tile >> 8;
1754 *data++ = cell->face [1]; 2272 *data++ = tile;
1755 } 2273 }
1756 2274
1757 if (flags & 4) 2275 if (flags & 4)
1758 { 2276 {
2277 tileid tile = cell->tile [2];
1759 *data++ = cell->face [2] >> 8; 2278 *data++ = tile >> 8;
1760 *data++ = cell->face [2]; 2279 *data++ = tile;
1761 } 2280 }
1762 } 2281 }
1763 else 2282 else
1764 *data++ = 0; 2283 *data++ = 0;
1765 } 2284 }
… …
1771} 2290}
1772 OUTPUT: 2291 OUTPUT:
1773 RETVAL 2292 RETVAL
1774 2293
1775void 2294void
1776set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data) 2295set_rect (DC::Map self, int x0, int y0, uint8_t *data)
1777 PPCODE: 2296 PPCODE:
1778{ 2297{
1779 int x, y, z; 2298 int x, y, z;
1780 int w, h; 2299 int w, h;
1781 int x1, y1; 2300 int x1, y1;
1782 2301
1783 if (*data++ != 0) 2302 if (*data++ != 0)
1784 return; /* version mismatch */ 2303 XSRETURN_EMPTY; /* version mismatch */
1785 2304
1786 w = *data++ << 8; w |= *data++; 2305 w = *data++ << 8; w |= *data++;
1787 h = *data++ << 8; h |= *data++; 2306 h = *data++ << 8; h |= *data++;
1788 2307
1789 // 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
… …
1805 { 2324 {
1806 uint8_t flags = *data++; 2325 uint8_t flags = *data++;
1807 2326
1808 if (flags) 2327 if (flags)
1809 { 2328 {
1810 mapface face[3] = { 0, 0, 0 };
1811
1812 mapcell *cell = row_get_cell (row, x); 2329 mapcell *cell = row_get_cell (row, x);
2330 tileid tile[3] = { 0, 0, 0 };
1813 2331
1814 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; } 2332 if (flags & 1) { tile[0] = *data++ << 8; tile[0] |= *data++; }
1815 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; } 2333 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
1816 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; } 2334 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
1817 2335
1818 if (cell->darkness == 0) 2336 if (cell->darkness == 0)
1819 { 2337 {
1820 cell->darkness = 0; 2338 cell->darkness = 0;
1821 2339
1822 for (z = 0; z <= 2; z++) 2340 for (z = 0; z <= 2; z++)
1823 { 2341 {
1824 cell->face[z] = face[z]; 2342 tileid t = tile [z];
1825 2343
1826 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name)) 2344 if (t >= self->texs || (t && !self->tex [t].name))
2345 {
1827 XPUSHs (sv_2mortal (newSViv (face[z]))); 2346 XPUSHs (sv_2mortal (newSViv (t)));
2347 need_texid (self, t);
2348 }
2349
2350 cell->tile [z] = t;
1828 } 2351 }
1829 } 2352 }
1830 } 2353 }
1831 } 2354 }
1832 } 2355 }
1833} 2356}
1834 2357
1835MODULE = CFPlus PACKAGE = CFPlus::MixChunk 2358MODULE = Deliantra::Client PACKAGE = DC::RW
1836 2359
1837CFPlus::MixChunk 2360DC::RW
1838new_from_file (SV *class, char *path) 2361new (SV *class, SV *data_sv)
1839 CODE: 2362 CODE:
1840 RETVAL = Mix_LoadWAV (path); 2363{
2364 STRLEN datalen;
2365 char *data = SvPVbyte (data_sv, datalen);
2366
2367 RETVAL = SDL_RWFromConstMem (data, datalen);
2368}
1841 OUTPUT: 2369 OUTPUT:
1842 RETVAL 2370 RETVAL
1843 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 : '('
1844void 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
1845DESTROY (CFPlus::MixChunk self) 2481DESTROY (DC::MixChunk self)
1846 CODE: 2482 CODE:
1847 Mix_FreeChunk (self); 2483 Mix_FreeChunk (self);
1848 2484
1849int 2485int
1850volume (CFPlus::MixChunk self, int volume = -1) 2486volume (DC::MixChunk self, int volume = -1)
1851 CODE: 2487 CODE:
2488 if (items > 1)
2489 volume = CLAMP (volume, 0, 128);
1852 RETVAL = Mix_VolumeChunk (self, volume); 2490 RETVAL = Mix_VolumeChunk (self, volume);
1853 OUTPUT: 2491 OUTPUT:
1854 RETVAL 2492 RETVAL
1855 2493
1856int 2494DC::Channel
1857play (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)
1858 CODE: 2496 CODE:
2497{
1859 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}
1860 OUTPUT: 2509 OUTPUT:
1861 RETVAL 2510 RETVAL
1862 2511
1863MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2512MODULE = Deliantra::Client PACKAGE = DC::MixMusic
1864 2513
1865int 2514int
1866volume (int volume = -1) 2515volume (int volume = -1)
2516 PROTOTYPE: ;$
1867 CODE: 2517 CODE:
2518 if (items > 0)
2519 volume = CLAMP (volume, 0, 128);
1868 RETVAL = Mix_VolumeMusic (volume); 2520 RETVAL = Mix_VolumeMusic (volume);
1869 OUTPUT: 2521 OUTPUT:
1870 RETVAL 2522 RETVAL
1871 2523
2524void
2525fade_out (int ms)
2526 CODE:
2527 Mix_FadeOutMusic (ms);
2528
2529void
2530halt ()
2531 CODE:
2532 Mix_HaltMusic ();
2533
1872CFPlus::MixMusic 2534DC::MixMusic
1873new_from_file (SV *class, char *path) 2535new (SV *class, DC::RW rwops)
1874 CODE: 2536 CODE:
1875 RETVAL = Mix_LoadMUS (path); 2537 RETVAL = Mix_LoadMUS_RW (rwops);
1876 OUTPUT: 2538 OUTPUT:
1877 RETVAL 2539 RETVAL
1878 2540
1879void 2541void
1880DESTROY (CFPlus::MixMusic self) 2542DESTROY (DC::MixMusic self)
1881 CODE: 2543 CODE:
1882 Mix_FreeMusic (self); 2544 Mix_FreeMusic (self);
1883 2545
1884int 2546int
1885play (CFPlus::MixMusic self, int loops = -1) 2547play (DC::MixMusic self, int loops = -1)
1886 CODE: 2548 CODE:
1887 RETVAL = Mix_PlayMusic (self, loops); 2549 RETVAL = Mix_PlayMusic (self, loops);
1888 OUTPUT: 2550 OUTPUT:
1889 RETVAL 2551 RETVAL
1890 2552
1891MODULE = 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
1892 2561
1893BOOT: 2562BOOT:
1894{ 2563{
1895 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1); 2564 HV *stash = gv_stashpv ("DC::OpenGL", 1);
1896 static const struct { 2565 static const struct {
1897 const char *name; 2566 const char *name;
1898 IV iv; 2567 IV iv;
1899 } *civ, const_iv[] = { 2568 } *civ, const_iv[] = {
1900# 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),
1901 const_iv (GL_COLOR_MATERIAL), 2573 const_iv (GL_COLOR_MATERIAL),
1902 const_iv (GL_SMOOTH), 2574 const_iv (GL_SMOOTH),
1903 const_iv (GL_FLAT), 2575 const_iv (GL_FLAT),
1904 const_iv (GL_DITHER), 2576 const_iv (GL_DITHER),
1905 const_iv (GL_BLEND), 2577 const_iv (GL_BLEND),
… …
1909 const_iv (GL_ALPHA_TEST), 2581 const_iv (GL_ALPHA_TEST),
1910 const_iv (GL_NORMALIZE), 2582 const_iv (GL_NORMALIZE),
1911 const_iv (GL_RESCALE_NORMAL), 2583 const_iv (GL_RESCALE_NORMAL),
1912 const_iv (GL_FRONT), 2584 const_iv (GL_FRONT),
1913 const_iv (GL_BACK), 2585 const_iv (GL_BACK),
2586 const_iv (GL_AUX0),
1914 const_iv (GL_AND), 2587 const_iv (GL_AND),
1915 const_iv (GL_ONE), 2588 const_iv (GL_ONE),
1916 const_iv (GL_ZERO), 2589 const_iv (GL_ZERO),
1917 const_iv (GL_SRC_ALPHA), 2590 const_iv (GL_SRC_ALPHA),
1918 const_iv (GL_DST_ALPHA), 2591 const_iv (GL_DST_ALPHA),
… …
1931 const_iv (GL_INTENSITY), 2604 const_iv (GL_INTENSITY),
1932 const_iv (GL_LUMINANCE), 2605 const_iv (GL_LUMINANCE),
1933 const_iv (GL_LUMINANCE_ALPHA), 2606 const_iv (GL_LUMINANCE_ALPHA),
1934 const_iv (GL_FLOAT), 2607 const_iv (GL_FLOAT),
1935 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),
1936 const_iv (GL_COMPILE), 2615 const_iv (GL_COMPILE),
2616 const_iv (GL_PROXY_TEXTURE_1D),
2617 const_iv (GL_PROXY_TEXTURE_2D),
1937 const_iv (GL_TEXTURE_1D), 2618 const_iv (GL_TEXTURE_1D),
1938 const_iv (GL_TEXTURE_2D), 2619 const_iv (GL_TEXTURE_2D),
1939 const_iv (GL_TEXTURE_ENV), 2620 const_iv (GL_TEXTURE_ENV),
1940 const_iv (GL_TEXTURE_MAG_FILTER), 2621 const_iv (GL_TEXTURE_MAG_FILTER),
1941 const_iv (GL_TEXTURE_MIN_FILTER), 2622 const_iv (GL_TEXTURE_MIN_FILTER),
… …
1962 const_iv (GL_COLOR_LOGIC_OP), 2643 const_iv (GL_COLOR_LOGIC_OP),
1963 const_iv (GL_SEPARABLE_2D), 2644 const_iv (GL_SEPARABLE_2D),
1964 const_iv (GL_CONVOLUTION_2D), 2645 const_iv (GL_CONVOLUTION_2D),
1965 const_iv (GL_CONVOLUTION_BORDER_MODE), 2646 const_iv (GL_CONVOLUTION_BORDER_MODE),
1966 const_iv (GL_CONSTANT_BORDER), 2647 const_iv (GL_CONSTANT_BORDER),
2648 const_iv (GL_POINTS),
1967 const_iv (GL_LINES), 2649 const_iv (GL_LINES),
1968 const_iv (GL_LINE_STRIP), 2650 const_iv (GL_LINE_STRIP),
1969 const_iv (GL_LINE_LOOP), 2651 const_iv (GL_LINE_LOOP),
1970 const_iv (GL_QUADS), 2652 const_iv (GL_QUADS),
1971 const_iv (GL_QUAD_STRIP), 2653 const_iv (GL_QUAD_STRIP),
1972 const_iv (GL_TRIANGLES), 2654 const_iv (GL_TRIANGLES),
1973 const_iv (GL_TRIANGLE_STRIP), 2655 const_iv (GL_TRIANGLE_STRIP),
1974 const_iv (GL_TRIANGLE_FAN), 2656 const_iv (GL_TRIANGLE_FAN),
2657 const_iv (GL_POLYGON),
1975 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),
1976 const_iv (GL_FASTEST), 2664 const_iv (GL_FASTEST),
2665 const_iv (GL_DONT_CARE),
2666 const_iv (GL_NICEST),
1977 const_iv (GL_V2F), 2667 const_iv (GL_V2F),
1978 const_iv (GL_V3F), 2668 const_iv (GL_V3F),
1979 const_iv (GL_T2F_V3F), 2669 const_iv (GL_T2F_V3F),
1980 const_iv (GL_T2F_N3F_V3F), 2670 const_iv (GL_T2F_N3F_V3F),
1981# undef const_iv 2671# undef const_iv
1982 }; 2672 };
1983 2673
1984 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; )
1985 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);
1986} 2679}
2680
2681void
2682disable_GL_EXT_blend_func_separate ()
2683 CODE:
2684 gl.BlendFuncSeparate = 0;
2685 gl.BlendFuncSeparateEXT = 0;
1987 2686
1988char * 2687char *
1989gl_vendor () 2688gl_vendor ()
1990 CODE: 2689 CODE:
1991 RETVAL = (char *)glGetString (GL_VENDOR); 2690 RETVAL = (char *)glGetString (GL_VENDOR);
… …
2004 CODE: 2703 CODE:
2005 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2704 RETVAL = (char *)glGetString (GL_EXTENSIONS);
2006 OUTPUT: 2705 OUTPUT:
2007 RETVAL 2706 RETVAL
2008 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
2009int glGetError () 2722int glGetError ()
2010 2723
2011void glFinish () 2724void glFinish ()
2012 2725
2013void glClear (int mask) 2726void glClear (int mask)
… …
2050# near_ and far_ are due to microsofts buggy "c" compiler 2763# near_ and far_ are due to microsofts buggy "c" compiler
2051void 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_)
2052 2765
2053# near_ and far_ are due to microsofts buggy "c" compiler 2766# near_ and far_ are due to microsofts buggy "c" compiler
2054void 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
2055 2770
2056void glViewport (int x, int y, int width, int height) 2771void glViewport (int x, int y, int width, int height)
2057 2772
2058void glScissor (int x, int y, int width, int height) 2773void glScissor (int x, int y, int width, int height)
2059 2774
… …
2067 2782
2068void glRotate (float angle, float x, float y, float z) 2783void glRotate (float angle, float x, float y, float z)
2069 CODE: 2784 CODE:
2070 glRotatef (angle, x, y, z); 2785 glRotatef (angle, x, y, z);
2071 2786
2072void glBegin (int mode)
2073
2074void glEnd ()
2075
2076void glColor (float r, float g, float b, float a = 1.0) 2787void glColor (float r, float g, float b, float a = 1.0)
2077 PROTOTYPE: @
2078 ALIAS: 2788 ALIAS:
2079 glColor_premultiply = 1 2789 glColor_premultiply = 1
2080 CODE: 2790 CODE:
2081 if (ix) 2791 if (ix)
2082 { 2792 {
… …
2085 b *= a; 2795 b *= a;
2086 } 2796 }
2087 // microsoft visual "c" rounds instead of truncating... 2797 // microsoft visual "c" rounds instead of truncating...
2088 glColor4f (r, g, b, a); 2798 glColor4f (r, g, b, a);
2089 2799
2090void glInterleavedArrays (int format, int stride, char *data)
2091
2092void glDrawElements (int mode, int count, int type, char *indices)
2093
2094# 1.2 void glDrawRangeElements (int mode, int start, int end
2095
2096void glRasterPos (float x, float y, float z = 0.) 2800void glRasterPos (float x, float y, float z = 0.)
2097 CODE: 2801 CODE:
2098 glRasterPos3f (0, 0, z); 2802 glRasterPos3f (0, 0, z);
2099 glBitmap (0, 0, 0, 0, x, y, 0); 2803 glBitmap (0, 0, 0, 0, x, y, 0);
2100 2804
… …
2104 2808
2105void glTexCoord (float s, float t) 2809void glTexCoord (float s, float t)
2106 CODE: 2810 CODE:
2107 glTexCoord2f (s, t); 2811 glTexCoord2f (s, t);
2108 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
2109void glTexEnv (int target, int pname, float param) 2842void glTexEnv (int target, int pname, float param)
2110 CODE: 2843 CODE:
2111 glTexEnvf (target, pname, param); 2844 glTexEnvf (target, pname, param);
2112 2845
2113void glTexParameter (int target, int pname, float param) 2846void glTexParameter (int target, int pname, float param)
… …
2129void 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)
2130 CODE: 2863 CODE:
2131 if (gl.SeparableFilter2D) 2864 if (gl.SeparableFilter2D)
2132 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column); 2865 gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
2133 2866
2134void 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)
2135 2868
2136void 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)
2137 2870
2138void 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)
2139 2874
2140void 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)
2141 2876
2142int glGenTexture () 2877int glGenTexture ()
2143 CODE: 2878 CODE:
2144{ 2879 RETVAL = gen_texture ();
2145 GLuint name;
2146 glGenTextures (1, &name);
2147 RETVAL = name;
2148}
2149 OUTPUT: 2880 OUTPUT:
2150 RETVAL 2881 RETVAL
2151 2882
2152void glDeleteTexture (int name) 2883void glDeleteTexture (int name)
2153 CODE: 2884 CODE:
2154{
2155 GLuint name_ = name;
2156 glDeleteTextures (1, &name_); 2885 del_texture (name);
2157} 2886
2158
2159int glGenList () 2887int glGenList ()
2160 CODE: 2888 CODE:
2161 RETVAL = glGenLists (1); 2889 RETVAL = glGenLists (1);
2162 OUTPUT: 2890 OUTPUT:
2163 RETVAL 2891 RETVAL
… …
2170 2898
2171void glEndList () 2899void glEndList ()
2172 2900
2173void glCallList (int list) 2901void glCallList (int list)
2174 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