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.108 by root, Wed Jun 7 23:28:12 2006 UTC vs.
Revision 1.225 by root, Sat Aug 11 12:07:54 2007 UTC

1#ifdef _WIN32 1#ifdef _WIN32
2# define _WIN32_WINNT 0x0500 // needed to get win2000 api calls 2# define WIN32_LEAN_AND_MEAN
3# define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls
3# include <malloc.h> 4# include <malloc.h>
4# include <windows.h> 5# include <windows.h>
6# include <wininet.h>
5# pragma warning(disable:4244) 7# pragma warning(disable:4244)
8# pragma warning(disable:4761)
9#endif
10
11//#define DEBUG 1
12#if DEBUG
13# include <valgrind/memcheck.h>
6#endif 14#endif
7 15
8#include "EXTERN.h" 16#include "EXTERN.h"
9#include "perl.h" 17#include "perl.h"
10#include "XSUB.h" 18#include "XSUB.h"
11 19
20#ifdef _WIN32
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
27#endif
28
29#include <assert.h>
12#include <math.h> 30#include <math.h>
13#include <string.h> 31#include <string.h>
14#include <stdio.h> 32#include <stdio.h>
33#include <stdlib.h>
34
35#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
15 36
16#include <SDL.h> 37#include <SDL.h>
38#include <SDL_thread.h>
17#include <SDL_endian.h> 39#include <SDL_endian.h>
18#include <SDL_image.h> 40#include <SDL_image.h>
19#include <SDL_mixer.h> 41#include <SDL_mixer.h>
20#include <SDL_opengl.h> 42#include <SDL_opengl.h>
21 43
44#define PANGO_ENABLE_BACKEND
45#define G_DISABLE_CAST_CHECKS
46
22#include <glib/gmacros.h> 47#include <glib/gmacros.h>
23 48
24#include <pango/pango.h> 49#include <pango/pango.h>
25#include <pango/pangofc-fontmap.h>
26#include <pango/pangoft2.h>
27#include <pango/pangocairo.h>
28 50
29#ifndef _WIN32 51#ifndef _WIN32
30# include <sys/types.h> 52# include <sys/types.h>
31# include <sys/socket.h> 53# include <sys/socket.h>
32# include <netinet/in.h> 54# include <netinet/in.h>
33# include <netinet/tcp.h> 55# include <netinet/tcp.h>
34# include <inttypes.h> 56# include <inttypes.h>
35#else
36 typedef unsigned char uint8_t;
37 typedef unsigned short uint16_t;
38 typedef unsigned int uint32_t;
39 typedef signed char int8_t;
40 typedef signed short int16_t;
41 typedef signed int int32_t;
42#endif 57#endif
43 58
44#include "glext.h" 59#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
45 60
46#define FOW_DARKNESS 32 61#define FOW_DARKNESS 32
47 62
48#define MAP_EXTEND_X 32 63#define MAP_EXTEND_X 32
49#define MAP_EXTEND_Y 512 64#define MAP_EXTEND_Y 512
50 65
51#define MIN_FONT_HEIGHT 10 66#define MIN_FONT_HEIGHT 10
67
68#if 0
69# define PARACHUTE SDL_INIT_NOPARACHUTE
70#else
71# define PARACHUTE 0
72#endif
73
74static AV *texture_av;
52 75
53static struct 76static struct
54{ 77{
55#define GL_FUNC(ptr,name) ptr name; 78#define GL_FUNC(ptr,name) ptr name;
56#include "glfunc.h" 79#include "glfunc.h"
57#undef GL_FUNC 80#undef GL_FUNC
58} gl; 81} gl;
59 82
83static void
60static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa) 84gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
61{ 85{
62 if (gl.BlendFuncSeparate) 86 if (gl.BlendFuncSeparate)
63 gl.BlendFuncSeparate (sa, da, saa, daa); 87 gl.BlendFuncSeparate (sa, da, saa, daa);
64 else if (gl.BlendFuncSeparateEXT) 88 else if (gl.BlendFuncSeparateEXT)
65 gl.BlendFuncSeparateEXT (sa, da, saa, daa); 89 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
66 else 90 else
67 glBlendFunc (sa, da); 91 glBlendFunc (sa, da);
68} 92}
69 93
94static GLuint
95gen_texture ()
96{
97 GLuint name;
98
99 if (AvFILL (texture_av) >= 0)
100 name = (GLuint)(size_t)av_pop (texture_av);
101 else
102 glGenTextures (1, &name);
103
104 return name;
105}
106
107static void
108del_texture (GLuint name)
109{
110 /* make a half-assed attempt at returning the memory used by the texture */
111 /* textures are frequently being reused by cfplus anyway */
112 /*glBindTexture (GL_TEXTURE_2D, name);*/
113 /*glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);*/
114 av_push (texture_av, (SV *)(size_t)name);
115 glDeleteTextures (1, &name);
116}
117
118#include "texcache.c"
119#include "rendercache.c"
120
121#include "pango-font.c"
122#include "pango-fontmap.c"
123#include "pango-render.c"
124
125typedef IV CFPlus__Channel;
126typedef SDL_RWops *CFPlus__RW;
70typedef Mix_Chunk *CFClient__MixChunk; 127typedef Mix_Chunk *CFPlus__MixChunk;
71typedef Mix_Music *CFClient__MixMusic; 128typedef Mix_Music *CFPlus__MixMusic;
72 129
73typedef PangoFontDescription *CFClient__Font; 130typedef PangoFontDescription *CFPlus__Font;
131
132static int
133shape_attr_p (PangoLayoutRun *run)
134{
135 GSList *attrs = run->item->analysis.extra_attrs;
136
137 while (attrs)
138 {
139 PangoAttribute *attr = attrs->data;
140
141 if (attr->klass->type == PANGO_ATTR_SHAPE)
142 return 1;
143
144 attrs = attrs->next;
145 }
146
147 return 0;
148}
74 149
75typedef struct cf_layout { 150typedef struct cf_layout {
76 PangoLayout *pl; // either derived from a cairo or ft2 context 151 PangoLayout *pl;
77 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
78 float r, g, b, a; // default color for rgba mode 152 float r, g, b, a; // default color for rgba mode
79 int base_height; 153 int base_height;
80 CFClient__Font font; 154 CFPlus__Font font;
155 rc_t *rc;
81} *CFClient__Layout; 156} *CFPlus__Layout;
82 157
83static CFClient__Font default_font; 158static CFPlus__Font default_font;
84static PangoContext *ft2_context, *cairo_context; 159static PangoContext *opengl_context;
85static PangoFontMap *ft2_fontmap, *cairo_fontmap; 160static PangoFontMap *opengl_fontmap;
86 161
87static void 162static void
88substitute_func (FcPattern *pattern, gpointer data) 163substitute_func (FcPattern *pattern, gpointer data)
89{ 164{
90 FcPatternAddBool (pattern, FC_HINTING, 1); 165 FcPatternAddBool (pattern, FC_HINTING, 1);
166#ifdef FC_HINT_STYLE
91 FcPatternAddBool (pattern, FC_HINTSTYLE, FC_HINT_FULL); 167 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);
92#ifdef _WIN32 168#endif
93 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
94#else
95 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 169 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
96#endif
97} 170}
98 171
99static void 172static void
100layout_update_font (CFClient__Layout self) 173layout_update_font (CFPlus__Layout self)
101{ 174{
102 /* use a random scale factor to account for unknown descenders, 0.8 works 175 /* use a random scale factor to account for unknown descenders, 0.8 works
103 * reasonably well with bitstream vera 176 * reasonably well with bitstream vera
104 */ 177 */
105 PangoFontDescription *font = self->font ? self->font : default_font; 178 PangoFontDescription *font = self->font ? self->font : default_font;
… …
109 182
110 pango_layout_set_font_description (self->pl, font); 183 pango_layout_set_font_description (self->pl, font);
111} 184}
112 185
113static void 186static void
114layout_get_pixel_size (CFClient__Layout self, int *w, int *h) 187layout_get_pixel_size (CFPlus__Layout self, int *w, int *h)
115{ 188{
189 PangoRectangle rect;
190
191 // get_pixel_* wrongly rounds down
116 pango_layout_get_pixel_size (self->pl, w, h); 192 pango_layout_get_extents (self->pl, 0, &rect);
117 193
118 if (!*w) *w = 1; 194 rect.width = (rect.width + PANGO_SCALE - 1) / PANGO_SCALE;
119 if (!*h) *h = 1; 195 rect.height = (rect.height + PANGO_SCALE - 1) / PANGO_SCALE;
120 196
121 *w = (*w + 3) & ~3; 197 if (!rect.width) rect.width = 1;
122} 198 if (!rect.height) rect.height = 1;
123 199
200 *w = rect.width;
201 *h = rect.height;
202}
203
204typedef uint16_t tileid;
124typedef uint16_t mapface; 205typedef uint16_t faceid;
125 206
126typedef struct { 207typedef struct {
127 GLint name; 208 int name;
128 int w, h; 209 int w, h;
129 float s, t; 210 float s, t;
130 uint8_t r, g, b, a; 211 uint8_t r, g, b, a;
212 tileid smoothtile;
213 uint8_t smoothlevel;
131} maptex; 214} maptex;
132 215
133typedef struct { 216typedef struct {
217 uint32_t player;
218 tileid tile[3];
134 int16_t darkness; 219 uint16_t darkness;
135 mapface face[3]; 220 uint8_t stat_width, stat_hp, flags, smoothmax;
136} mapcell; 221} mapcell;
137 222
138typedef struct { 223typedef struct {
139 int32_t c0, c1; 224 int32_t c0, c1;
140 mapcell *col; 225 mapcell *col;
141} maprow; 226} maprow;
142 227
143typedef struct map { 228typedef struct map {
144 int x, y, w, h; 229 int x, y, w, h;
145 int ox, oy; /* offset to virtual global coordinate system */ 230 int ox, oy; /* offset to virtual global coordinate system */
146 int faces; 231 int faces; tileid *face2tile; // [faceid]
147 mapface *face; 232 int texs; maptex *tex; // [tileid]
148
149 int texs;
150 maptex *tex;
151 233
152 int32_t rows; 234 int32_t rows;
153 maprow *row; 235 maprow *row;
154} *CFClient__Map; 236} *CFPlus__Map;
155 237
156static char * 238static char *
157prepend (char *ptr, int sze, int inc) 239prepend (char *ptr, int sze, int inc)
158{ 240{
159 char *p; 241 char *p;
… …
176} 258}
177 259
178#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 260#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
179#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 261#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
180 262
263static void
264need_facenum (struct map *self, faceid face)
265{
266 while (self->faces <= face)
267 {
268 Append (tileid, self->face2tile, self->faces, self->faces);
269 self->faces *= 2;
270 }
271}
272
273static void
274need_texid (struct map *self, int texid)
275{
276 while (self->texs <= texid)
277 {
278 Append (maptex, self->tex, self->texs, self->texs);
279 self->texs *= 2;
280 }
281}
282
181static maprow * 283static maprow *
182map_get_row (CFClient__Map self, int y) 284map_get_row (CFPlus__Map self, int y)
183{ 285{
184 if (0 > y) 286 if (0 > y)
185 { 287 {
186 int extend = - y + MAP_EXTEND_Y; 288 int extend = - y + MAP_EXTEND_Y;
187 Prepend (maprow, self->row, self->rows, extend); 289 Prepend (maprow, self->row, self->rows, extend);
… …
225 327
226 return row->col + (x - row->c0); 328 return row->col + (x - row->c0);
227} 329}
228 330
229static mapcell * 331static mapcell *
230map_get_cell (CFClient__Map self, int x, int y) 332map_get_cell (CFPlus__Map self, int x, int y)
231{ 333{
232 return row_get_cell (map_get_row (self, y), x); 334 return row_get_cell (map_get_row (self, y), x);
233} 335}
234 336
235static void 337static void
236map_clear (CFClient__Map self) 338map_clear (CFPlus__Map self)
237{ 339{
238 int r; 340 int r;
239 341
240 for (r = 0; r < self->rows; r++) 342 for (r = 0; r < self->rows; r++)
241 Safefree (self->row[r].col); 343 Safefree (self->row[r].col);
… …
249 self->row = 0; 351 self->row = 0;
250 self->rows = 0; 352 self->rows = 0;
251} 353}
252 354
253static void 355static void
254map_blank (CFClient__Map self, int x0, int y0, int w, int h) 356map_blank (CFPlus__Map self, int x0, int y0, int w, int h)
255{ 357{
256 int x, y; 358 int x, y;
257 maprow *row; 359 maprow *row;
360 mapcell *cell;
258 361
259 for (y = y0; y < y0 + h; y++) 362 for (y = y0; y < y0 + h; y++)
260 if (y >= 0) 363 if (y >= 0)
261 { 364 {
262 if (y >= self->rows) 365 if (y >= self->rows)
… …
268 if (x >= row->c0) 371 if (x >= row->c0)
269 { 372 {
270 if (x >= row->c1) 373 if (x >= row->c1)
271 break; 374 break;
272 375
273 row->col[x - row->c0].darkness = -1; 376 cell = row->col + x - row->c0;
377
378 cell->darkness = 0;
379 cell->stat_hp = 0;
380 cell->flags = 0;
381 cell->player = 0;
274 } 382 }
275 } 383 }
384}
385
386typedef struct {
387 tileid tile;
388 uint8_t x, y, level;
389} smooth_key;
390
391static void
392smooth_or_bits (HV *hv, smooth_key *key, IV bits)
393{
394 SV **sv = hv_fetch (hv, (char *)key, sizeof (*key), 1);
395
396 if (SvIOK (*sv))
397 SvIV_set (*sv, SvIVX (*sv) | bits);
398 else
399 sv_setiv (*sv, bits);
276} 400}
277 401
278static void 402static void
279music_finished (void) 403music_finished (void)
280{ 404{
… …
299 ev.data2 = 0; 423 ev.data2 = 0;
300 424
301 SDL_PushEvent ((SDL_Event *)&ev); 425 SDL_PushEvent ((SDL_Event *)&ev);
302} 426}
303 427
428static unsigned int
429minpot (unsigned int n)
430{
431 if (!n)
432 return 0;
433
434 --n;
435
436 n |= n >> 1;
437 n |= n >> 2;
438 n |= n >> 4;
439 n |= n >> 8;
440 n |= n >> 16;
441
442 return n + 1;
443}
444
445/* SDL should provide this, really. */
446#define SDLK_MODIFIER_MIN 300
447#define SDLK_MODIFIER_MAX 314
448
449/******************************************************************************/
450
451static GV *draw_x_gv, *draw_y_gv, *draw_w_gv, *draw_h_gv;
452static GV *hover_gv;
453
454static int
455within_widget (SV *widget, NV x, NV y)
456{
457 HV *self;
458 SV **svp;
459 NV wx, ww, wy, wh;
460
461 if (!SvROK (widget))
462 return 0;
463
464 self = (HV *)SvRV (widget);
465
466 if (SvTYPE (self) != SVt_PVHV)
467 return 0;
468
469 svp = hv_fetch (self, "y", 1, 0); wy = svp ? SvNV (*svp) : 0.;
470 if (y < wy)
471 return 0;
472
473 svp = hv_fetch (self, "h", 1, 0); wh = svp ? SvNV (*svp) : 0.;
474 if (y >= wy + wh)
475 return 0;
476
477 svp = hv_fetch (self, "x", 1, 0); wx = svp ? SvNV (*svp) : 0.;
478 if (x < wx)
479 return 0;
480
481 svp = hv_fetch (self, "w", 1, 0); ww = svp ? SvNV (*svp) : 0.;
482 if (x >= wx + ww)
483 return 0;
484
485 svp = hv_fetch (self, "can_events", sizeof ("can_events") - 1, 0);
486 if (!svp || !SvTRUE (*svp))
487 return 0;
488
489 return 1;
490}
491
304MODULE = CFClient PACKAGE = CFClient 492MODULE = CFPlus PACKAGE = CFPlus
305 493
306PROTOTYPES: ENABLE 494PROTOTYPES: ENABLE
307 495
308BOOT: 496BOOT:
309{ 497{
310 HV *stash = gv_stashpv ("CFClient", 1); 498 HV *stash = gv_stashpv ("CFPlus", 1);
311 static const struct { 499 static const struct {
312 const char *name; 500 const char *name;
313 IV iv; 501 IV iv;
314 } *civ, const_iv[] = { 502 } *civ, const_iv[] = {
315# define const_iv(name) { # name, (IV)name } 503# define const_iv(name) { # name, (IV)name }
504 const_iv (SDLK_MODIFIER_MIN),
505 const_iv (SDLK_MODIFIER_MAX),
506
316 const_iv (SDL_ACTIVEEVENT), 507 const_iv (SDL_ACTIVEEVENT),
317 const_iv (SDL_KEYDOWN), 508 const_iv (SDL_KEYDOWN),
318 const_iv (SDL_KEYUP), 509 const_iv (SDL_KEYUP),
319 const_iv (SDL_MOUSEMOTION), 510 const_iv (SDL_MOUSEMOTION),
320 const_iv (SDL_MOUSEBUTTONDOWN), 511 const_iv (SDL_MOUSEBUTTONDOWN),
… …
329 const_iv (SDL_EVENT_RESERVEDA), 520 const_iv (SDL_EVENT_RESERVEDA),
330 const_iv (SDL_EVENT_RESERVEDB), 521 const_iv (SDL_EVENT_RESERVEDB),
331 const_iv (SDL_VIDEORESIZE), 522 const_iv (SDL_VIDEORESIZE),
332 const_iv (SDL_VIDEOEXPOSE), 523 const_iv (SDL_VIDEOEXPOSE),
333 const_iv (SDL_USEREVENT), 524 const_iv (SDL_USEREVENT),
525
526 const_iv (SDL_APPINPUTFOCUS),
527 const_iv (SDL_APPMOUSEFOCUS),
528 const_iv (SDL_APPACTIVE),
529
334 const_iv (SDLK_KP0), 530 const_iv (SDLK_KP0),
335 const_iv (SDLK_KP1), 531 const_iv (SDLK_KP1),
336 const_iv (SDLK_KP2), 532 const_iv (SDLK_KP2),
337 const_iv (SDLK_KP3), 533 const_iv (SDLK_KP3),
338 const_iv (SDLK_KP4), 534 const_iv (SDLK_KP4),
… …
393 const_iv (SDLK_BREAK), 589 const_iv (SDLK_BREAK),
394 const_iv (SDLK_MENU), 590 const_iv (SDLK_MENU),
395 const_iv (SDLK_POWER), 591 const_iv (SDLK_POWER),
396 const_iv (SDLK_EURO), 592 const_iv (SDLK_EURO),
397 const_iv (SDLK_UNDO), 593 const_iv (SDLK_UNDO),
594
398 const_iv (KMOD_NONE), 595 const_iv (KMOD_NONE),
596 const_iv (KMOD_SHIFT),
399 const_iv (KMOD_LSHIFT), 597 const_iv (KMOD_LSHIFT),
400 const_iv (KMOD_RSHIFT), 598 const_iv (KMOD_RSHIFT),
599 const_iv (KMOD_CTRL),
401 const_iv (KMOD_LCTRL), 600 const_iv (KMOD_LCTRL),
402 const_iv (KMOD_RCTRL), 601 const_iv (KMOD_RCTRL),
602 const_iv (KMOD_ALT),
403 const_iv (KMOD_LALT), 603 const_iv (KMOD_LALT),
404 const_iv (KMOD_RALT), 604 const_iv (KMOD_RALT),
605 const_iv (KMOD_META),
405 const_iv (KMOD_LMETA), 606 const_iv (KMOD_LMETA),
406 const_iv (KMOD_RMETA), 607 const_iv (KMOD_RMETA),
407 const_iv (KMOD_NUM), 608 const_iv (KMOD_NUM),
408 const_iv (KMOD_CAPS), 609 const_iv (KMOD_CAPS),
409 const_iv (KMOD_MODE), 610 const_iv (KMOD_MODE),
410 const_iv (KMOD_CTRL),
411 const_iv (KMOD_SHIFT),
412 const_iv (KMOD_ALT),
413 const_iv (KMOD_META)
414# undef const_iv 611# undef const_iv
415 }; 612 };
416 613
417 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 614 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
418 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 615 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
616
617 assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);
618 assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);
419} 619}
620
621void
622weaken (SV *rv)
623 PROTOTYPE: $
624 CODE:
625 sv_rvweaken (rv);
626
627int
628in_destruct ()
629 CODE:
630 RETVAL = PL_main_cv == Nullcv;
631 OUTPUT:
632 RETVAL
633
634NV floor (NV x)
635
636NV ceil (NV x)
420 637
421void 638void
422pango_init () 639pango_init ()
423 CODE: 640 CODE:
424 // delayed, so it can pick up new fonts added by AddFontResourceEx
425{ 641{
426 {
427 ft2_fontmap = pango_ft2_font_map_new (); 642 opengl_fontmap = pango_opengl_font_map_new ();
428 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 643 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
429 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap); 644 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
430 }
431 {
432 cairo_font_options_t *fopt = cairo_font_options_create ();
433 cairo_fontmap = pango_cairo_font_map_get_default ();
434 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
435#ifdef _WIN32
436 // cairo looks like shit eaten twice on windows
437 cairo_font_options_set_antialias (fopt, CAIRO_ANTIALIAS_NONE);
438#else
439 cairo_font_options_set_antialias (fopt, CAIRO_ANTIALIAS_GRAY);
440#endif
441 cairo_font_options_set_hint_style (fopt, CAIRO_HINT_STYLE_FULL);
442 cairo_font_options_set_hint_metrics (fopt, CAIRO_HINT_METRICS_ON);
443 pango_cairo_context_set_font_options (cairo_context, fopt);
444 cairo_font_options_destroy (fopt);
445 }
446} 645}
646
647char *
648SDL_GetError ()
447 649
448int 650int
449SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 651SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
450 652
451void 653void
452SDL_Quit () 654SDL_Quit ()
453 655
454void 656void
455SDL_ListModes () 657SDL_ListModes (int rgb, int alpha)
456 PPCODE: 658 PPCODE:
457{ 659{
458 SDL_Rect **m; 660 SDL_Rect **m;
459 661
460 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 662 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
461 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 663 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
462 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 664 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
463 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 665 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
464 666
465 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 667 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
466 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16); 668 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE , 0);
467 669
468 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 670 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE , 0);
469 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 671 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
470 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 672 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
471 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 673 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
472 674
473 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 675 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
474 676#if SDL_VERSION_ATLEAST(1,2,10)
475 SDL_EnableUNICODE (1); 677 SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
476 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL); 678 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
679#endif
477 680
478 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 681 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
479 682
480 if (m && m != (SDL_Rect **)-1) 683 if (m && m != (SDL_Rect **)-1)
481 while (*m) 684 while (*m)
482 { 685 {
686 if ((*m)->w >= 640 && (*m)->h >= 480)
687 {
483 AV *av = newAV (); 688 AV *av = newAV ();
484 av_push (av, newSViv ((*m)->w)); 689 av_push (av, newSViv ((*m)->w));
485 av_push (av, newSViv ((*m)->h)); 690 av_push (av, newSViv ((*m)->h));
691 av_push (av, newSViv (rgb));
692 av_push (av, newSViv (alpha));
486 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 693 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
694 }
487 695
488 ++m; 696 ++m;
489 } 697 }
490} 698}
491 699
492char *
493SDL_GetError ()
494
495int 700int
496SDL_SetVideoMode (int w, int h, int fullscreen) 701SDL_SetVideoMode (int w, int h, int rgb, int alpha, int fullscreen)
497 CODE: 702 CODE:
703{
704 SDL_EnableUNICODE (1);
705 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
706
707 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
708 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
709 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
710 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
711
498 RETVAL = !!SDL_SetVideoMode ( 712 RETVAL = !!SDL_SetVideoMode (
499 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 713 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
500 ); 714 );
715
501 if (RETVAL) 716 if (RETVAL)
502 { 717 {
718 av_clear (texture_av);
719
503 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 720 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
504# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 721#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
505# include "glfunc.h" 722#include "glfunc.h"
506# undef GL_FUNC 723#undef GL_FUNC
507 } 724 }
725}
508 OUTPUT: 726 OUTPUT:
509 RETVAL 727 RETVAL
510 728
511void 729void
512SDL_GL_SwapBuffers () 730SDL_GL_SwapBuffers ()
513 731
514char * 732char *
515SDL_GetKeyName (int sym) 733SDL_GetKeyName (int sym)
516 734
735int
736SDL_GetAppState ()
737
517void 738void
518SDL_PollEvent () 739poll_events ()
519 PPCODE: 740 PPCODE:
520{ 741{
521 SDL_Event ev; 742 SDL_Event ev;
522 743
523 while (SDL_PollEvent (&ev)) 744 SDL_PumpEvents ();
745 while (SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0)
524 { 746 {
525 HV *hv = newHV (); 747 HV *hv = newHV ();
526 hv_store (hv, "type", 4, newSViv (ev.type), 0); 748 hv_store (hv, "type", 4, newSViv (ev.type), 0);
527 749
528 switch (ev.type) 750 switch (ev.type)
… …
530 case SDL_KEYDOWN: 752 case SDL_KEYDOWN:
531 case SDL_KEYUP: 753 case SDL_KEYUP:
532 hv_store (hv, "state", 5, newSViv (ev.key.state), 0); 754 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
533 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); 755 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
534 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); 756 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
757 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */
535 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); 758 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
536 break; 759 break;
537 760
538 case SDL_ACTIVEEVENT: 761 case SDL_ACTIVEEVENT:
539 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 762 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
540 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 763 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
541 break; 764 break;
542 765
543 case SDL_MOUSEMOTION: 766 case SDL_MOUSEMOTION:
767 {
768 int state = ev.motion.state;
769 int x = ev.motion.x;
770 int y = ev.motion.y;
771 int xrel = ev.motion.xrel;
772 int yrel = ev.motion.yrel;
773
774 /* do simplistic event compression */
775 while (SDL_PeepEvents (&ev, 1, SDL_PEEKEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)) > 0
776 && state == ev.motion.state)
777 {
778 xrel += ev.motion.xrel;
779 yrel += ev.motion.yrel;
780 x = ev.motion.x;
781 y = ev.motion.y;
782 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
783 }
784
544 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 785 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
545
546 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 786 hv_store (hv, "state", 5, newSViv (state), 0);
547 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 787 hv_store (hv, "x", 1, newSViv (x), 0);
548 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 788 hv_store (hv, "y", 1, newSViv (y), 0);
549 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 789 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
550 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 790 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
791 }
551 break; 792 break;
552 793
553 case SDL_MOUSEBUTTONDOWN: 794 case SDL_MOUSEBUTTONDOWN:
554 case SDL_MOUSEBUTTONUP: 795 case SDL_MOUSEBUTTONUP:
555 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 796 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
… …
565 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 806 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
566 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 807 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
567 break; 808 break;
568 } 809 }
569 810
570 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 811 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
571 } 812 }
572} 813}
573 814
574int 815int
575Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 816Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
576 POSTCALL: 817 POSTCALL:
577 Mix_HookMusicFinished (music_finished); 818 Mix_HookMusicFinished (music_finished);
578 Mix_ChannelFinished (channel_finished); 819 Mix_ChannelFinished (channel_finished);
579 820
580void 821void
581Mix_CloseAudio () 822Mix_CloseAudio ()
582 823
583int 824int
584Mix_AllocateChannels (int numchans = -1) 825Mix_AllocateChannels (int numchans = -1)
585 826
827const char *
828Mix_GetError ()
829
586void 830void
587lowdelay (int fd, int val = 1) 831lowdelay (int fd, int val = 1)
588 CODE: 832 CODE:
833 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
834
835void
836win32_proxy_info ()
837 PPCODE:
838{
589#ifndef _WIN32 839#ifdef _WIN32
590 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 840 char buffer[2048];
841 DWORD buflen;
842
843 EXTEND (SP, 3);
844
845 buflen = sizeof (buffer);
846 if (InternetQueryOption (0, INTERNET_OPTION_PROXY, (void *)buffer, &buflen))
847 if (((INTERNET_PROXY_INFO *)buffer)->dwAccessType == INTERNET_OPEN_TYPE_PROXY)
848 {
849 PUSHs (newSVpv (((INTERNET_PROXY_INFO *)buffer)->lpszProxy, 0));
850
851 buflen = sizeof (buffer);
852 if (InternetQueryOption (0, INTERNET_OPTION_PROXY_USERNAME, (void *)buffer, &buflen))
853 {
854 PUSHs (newSVpv (buffer, 0));
855
856 buflen = sizeof (buffer);
857 if (InternetQueryOption (0, INTERNET_OPTION_PROXY_PASSWORD, (void *)buffer, &buflen))
858 PUSHs (newSVpv (buffer, 0));
859 }
860 }
591#endif 861#endif
862}
592 863
593void 864void
594add_font (char *file) 865add_font (char *file)
595 CODE: 866 CODE:
596 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 867 FcConfigAppFontAddFile (0, (const FcChar8 *)file);
597#ifdef _WIN32
598 // cairo... sigh... requires win2000
599 AddFontResourceEx (file, FR_PRIVATE, 0);
600#endif
601 868
602void 869void
603load_image_inline (SV *image_) 870load_image_inline (SV *image_)
604 ALIAS: 871 ALIAS:
605 load_image_file = 1 872 load_image_file = 1
… …
608 STRLEN image_len; 875 STRLEN image_len;
609 char *image = (char *)SvPVbyte (image_, image_len); 876 char *image = (char *)SvPVbyte (image_, image_len);
610 SDL_Surface *surface, *surface2; 877 SDL_Surface *surface, *surface2;
611 SDL_PixelFormat fmt; 878 SDL_PixelFormat fmt;
612 SDL_RWops *rw = ix 879 SDL_RWops *rw = ix
613 ? SDL_RWFromFile (image, "r") 880 ? SDL_RWFromFile (image, "rb")
614 : SDL_RWFromConstMem (image, image_len); 881 : SDL_RWFromConstMem (image, image_len);
615 882
616 if (!rw) 883 if (!rw)
617 croak ("load_image: %s", SDL_GetError ()); 884 croak ("load_image: %s", SDL_GetError ());
618 885
… …
647 914
648 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE); 915 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
649 916
650 assert (surface2->pitch == surface2->w * 4); 917 assert (surface2->pitch == surface2->w * 4);
651 918
919 SDL_LockSurface (surface2);
652 EXTEND (SP, 5); 920 EXTEND (SP, 6);
653 PUSHs (sv_2mortal (newSViv (surface2->w))); 921 PUSHs (sv_2mortal (newSViv (surface2->w)));
654 PUSHs (sv_2mortal (newSViv (surface2->h))); 922 PUSHs (sv_2mortal (newSViv (surface2->h)));
655 SDL_LockSurface (surface2);
656 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch))); 923 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
657 SDL_UnlockSurface (surface2);
658 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB))); 924 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
659 PUSHs (sv_2mortal (newSViv (GL_RGBA))); 925 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
660 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE))); 926 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
927 SDL_UnlockSurface (surface2);
661 928
662 SDL_FreeSurface (surface); 929 SDL_FreeSurface (surface);
663 SDL_FreeSurface (surface2); 930 SDL_FreeSurface (surface2);
664} 931}
665 932
… …
701 CODE: 968 CODE:
702 fprintf (stderr, "FATAL: %s\n", message); 969 fprintf (stderr, "FATAL: %s\n", message);
703#ifdef _WIN32 970#ifdef _WIN32
704 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 971 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
705#endif 972#endif
706 exit (1); 973 _exit (1);
707 974
975void
976_exit (int retval = 0)
977 CODE:
978#ifdef WIN32
979 ExitThread (retval); // unclean, please beam me up
980#else
981 _exit (retval);
982#endif
983
984void
985debug ()
986 CODE:
987{
988#if DEBUG
989 VALGRIND_DO_LEAK_CHECK;
990#endif
991}
992
708MODULE = CFClient PACKAGE = CFClient::Font 993MODULE = CFPlus PACKAGE = CFPlus::Font
709 994
710CFClient::Font 995PROTOTYPES: DISABLE
996
997CFPlus::Font
711new_from_file (SV *class, char *path, int id = 0) 998new_from_file (SV *class, char *path, int id = 0)
712 CODE: 999 CODE:
713{ 1000{
714 int count; 1001 int count;
715 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 1002 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
… …
718} 1005}
719 OUTPUT: 1006 OUTPUT:
720 RETVAL 1007 RETVAL
721 1008
722void 1009void
723DESTROY (CFClient::Font self) 1010DESTROY (CFPlus::Font self)
724 CODE: 1011 CODE:
725 pango_font_description_free (self); 1012 pango_font_description_free (self);
726 1013
727void 1014void
728make_default (CFClient::Font self) 1015make_default (CFPlus::Font self)
1016 PROTOTYPE: $
729 CODE: 1017 CODE:
730 default_font = self; 1018 default_font = self;
731 1019
732MODULE = CFClient PACKAGE = CFClient::Layout 1020MODULE = CFPlus PACKAGE = CFPlus::Layout
733 1021
734CFClient::Layout 1022PROTOTYPES: DISABLE
735new (SV *class, int rgba = 0) 1023
1024void
1025reset_glyph_cache ()
1026 PROTOTYPE:
1027 CODE:
1028 tc_clear ();
1029
1030CFPlus::Layout
1031new (SV *class)
736 CODE: 1032 CODE:
737 New (0, RETVAL, 1, struct cf_layout); 1033 New (0, RETVAL, 1, struct cf_layout);
738 1034
739 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 1035 RETVAL->pl = pango_layout_new (opengl_context);
740 RETVAL->rgba = rgba;
741 RETVAL->r = 1.; 1036 RETVAL->r = 1.;
742 RETVAL->g = 1.; 1037 RETVAL->g = 1.;
743 RETVAL->b = 1.; 1038 RETVAL->b = 1.;
744 RETVAL->a = 1.; 1039 RETVAL->a = 1.;
745 RETVAL->base_height = MIN_FONT_HEIGHT; 1040 RETVAL->base_height = MIN_FONT_HEIGHT;
746 RETVAL->font = 0; 1041 RETVAL->font = 0;
1042 RETVAL->rc = rc_alloc ();
747 1043
748 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 1044 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
749 layout_update_font (RETVAL); 1045 layout_update_font (RETVAL);
750 OUTPUT: 1046 OUTPUT:
751 RETVAL 1047 RETVAL
752 1048
753void 1049void
754DESTROY (CFClient::Layout self) 1050DESTROY (CFPlus::Layout self)
755 CODE: 1051 CODE:
756 g_object_unref (self->pl); 1052 g_object_unref (self->pl);
1053 rc_free (self->rc);
757 Safefree (self); 1054 Safefree (self);
758 1055
759int
760is_rgba (CFClient::Layout self)
761 CODE:
762 RETVAL = self->rgba;
763 OUTPUT:
764 RETVAL
765
766void 1056void
767set_text (CFClient::Layout self, SV *text_) 1057set_text (CFPlus::Layout self, SV *text_)
768 CODE: 1058 CODE:
769{ 1059{
770 STRLEN textlen; 1060 STRLEN textlen;
771 char *text = SvPVutf8 (text_, textlen); 1061 char *text = SvPVutf8 (text_, textlen);
772 1062
773 pango_layout_set_text (self->pl, text, textlen); 1063 pango_layout_set_text (self->pl, text, textlen);
774} 1064}
775 1065
776void 1066void
777set_markup (CFClient::Layout self, SV *text_) 1067set_markup (CFPlus::Layout self, SV *text_)
778 CODE: 1068 CODE:
779{ 1069{
780 STRLEN textlen; 1070 STRLEN textlen;
781 char *text = SvPVutf8 (text_, textlen); 1071 char *text = SvPVutf8 (text_, textlen);
782 1072
783 pango_layout_set_markup (self->pl, text, textlen); 1073 pango_layout_set_markup (self->pl, text, textlen);
784} 1074}
785 1075
1076void
1077set_shapes (CFPlus::Layout self, ...)
1078 CODE:
1079{
1080 PangoAttrList *attrs = 0;
1081 const char *text = pango_layout_get_text (self->pl);
1082 const char *pos = text;
1083 int arg = 4;
1084
1085 while (arg < items && (pos = strstr (pos, OBJ_STR)))
1086 {
1087 PangoRectangle inkrect, rect;
1088 PangoAttribute *attr;
1089
1090 int x = SvIV (ST (arg - 3));
1091 int y = SvIV (ST (arg - 2));
1092 int w = SvIV (ST (arg - 1));
1093 int h = SvIV (ST (arg ));
1094
1095 inkrect.x = 0;
1096 inkrect.y = 0;
1097 inkrect.width = 0;
1098 inkrect.height = 0;
1099
1100 rect.x = x * PANGO_SCALE;
1101 rect.y = y * PANGO_SCALE;
1102 rect.width = w * PANGO_SCALE;
1103 rect.height = h * PANGO_SCALE;
1104
1105 if (!attrs)
1106 attrs = pango_layout_get_attributes (self->pl);
1107
1108 attr = pango_attr_shape_new (&inkrect, &rect);
1109 attr->start_index = pos - text;
1110 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1;
1111 pango_attr_list_insert (attrs, attr);
1112
1113 arg += 4;
1114 pos += sizeof (OBJ_STR) - 1;
1115 }
1116
1117 if (attrs)
1118 pango_layout_set_attributes (self->pl, attrs);
1119}
1120
1121void
1122get_shapes (CFPlus::Layout self)
1123 PPCODE:
1124{
1125 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1126
1127 do
1128 {
1129 PangoLayoutRun *run = pango_layout_iter_get_run (iter);
1130
1131 if (run && shape_attr_p (run))
1132 {
1133 PangoRectangle extents;
1134 pango_layout_iter_get_run_extents (iter, 0, &extents);
1135
1136 EXTEND (SP, 2);
1137 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
1138 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
1139 }
1140 }
1141 while (pango_layout_iter_next_run (iter));
1142
1143 pango_layout_iter_free (iter);
1144}
1145
1146int
1147has_wrapped (CFPlus::Layout self)
1148 CODE:
1149{
1150 int lines = 1;
1151 const char *text = pango_layout_get_text (self->pl);
1152
1153 while (*text)
1154 lines += *text++ == '\n';
1155
1156 RETVAL = lines < pango_layout_get_line_count (self->pl);
1157}
1158 OUTPUT:
1159 RETVAL
1160
786SV * 1161SV *
787get_text (CFClient::Layout self) 1162get_text (CFPlus::Layout self)
788 CODE: 1163 CODE:
789 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1164 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
790 sv_utf8_decode (RETVAL); 1165 sv_utf8_decode (RETVAL);
791 OUTPUT: 1166 OUTPUT:
792 RETVAL 1167 RETVAL
793 1168
794void 1169void
795set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.) 1170set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.)
796 CODE: 1171 CODE:
797 self->r = r; 1172 self->r = r;
798 self->g = g; 1173 self->g = g;
799 self->b = b; 1174 self->b = b;
800 self->a = a; 1175 self->a = a;
801 1176
802void 1177void
803set_font (CFClient::Layout self, CFClient::Font font = 0) 1178set_font (CFPlus::Layout self, CFPlus::Font font = 0)
804 CODE: 1179 CODE:
805 if (self->font != font) 1180 if (self->font != font)
806 { 1181 {
807 self->font = font; 1182 self->font = font;
808 layout_update_font (self); 1183 layout_update_font (self);
809 } 1184 }
810 1185
811void 1186void
812set_height (CFClient::Layout self, int base_height) 1187set_height (CFPlus::Layout self, int base_height)
813 CODE: 1188 CODE:
814 if (self->base_height != base_height) 1189 if (self->base_height != base_height)
815 { 1190 {
816 self->base_height = base_height; 1191 self->base_height = base_height;
817 layout_update_font (self); 1192 layout_update_font (self);
818 } 1193 }
819 1194
820void 1195void
821set_width (CFClient::Layout self, int max_width = -1) 1196set_width (CFPlus::Layout self, int max_width = -1)
822 CODE: 1197 CODE:
823 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1198 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
824 1199
825void 1200void
826set_indent (CFClient::Layout self, int indent) 1201set_indent (CFPlus::Layout self, int indent)
827 CODE: 1202 CODE:
828 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1203 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
829 1204
830void 1205void
831set_spacing (CFClient::Layout self, int spacing) 1206set_spacing (CFPlus::Layout self, int spacing)
832 CODE: 1207 CODE:
833 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1208 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
834 1209
835void 1210void
836set_ellipsise (CFClient::Layout self, int ellipsise) 1211set_ellipsise (CFPlus::Layout self, int ellipsise)
837 CODE: 1212 CODE:
838 pango_layout_set_ellipsize (self->pl, 1213 pango_layout_set_ellipsize (self->pl,
839 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1214 ellipsise == 1 ? PANGO_ELLIPSIZE_START
840 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1215 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
841 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1216 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
842 : PANGO_ELLIPSIZE_NONE 1217 : PANGO_ELLIPSIZE_NONE
843 ); 1218 );
844 1219
845void 1220void
846set_single_paragraph_mode (CFClient::Layout self, int spm) 1221set_single_paragraph_mode (CFPlus::Layout self, int spm)
847 CODE: 1222 CODE:
848 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1223 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
849 1224
850void 1225void
851size (CFClient::Layout self) 1226size (CFPlus::Layout self)
852 PPCODE: 1227 PPCODE:
853{ 1228{
854 int w, h; 1229 int w, h;
855 1230
856 layout_get_pixel_size (self, &w, &h); 1231 layout_get_pixel_size (self, &w, &h);
… …
859 PUSHs (sv_2mortal (newSViv (w))); 1234 PUSHs (sv_2mortal (newSViv (w)));
860 PUSHs (sv_2mortal (newSViv (h))); 1235 PUSHs (sv_2mortal (newSViv (h)));
861} 1236}
862 1237
863int 1238int
1239descent (CFPlus::Layout self)
1240 CODE:
1241{
1242 PangoRectangle rect;
1243 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1244 pango_layout_line_get_pixel_extents (line, 0, &rect);
1245 RETVAL = PANGO_DESCENT (rect);
1246}
1247 OUTPUT:
1248 RETVAL
1249
1250int
864xy_to_index (CFClient::Layout self, int x, int y) 1251xy_to_index (CFPlus::Layout self, int x, int y)
865 CODE: 1252 CODE:
866{ 1253{
867 int index, trailing; 1254 int index, trailing;
868 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1255 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
869 RETVAL = index; 1256 RETVAL = index + trailing;
870} 1257}
871 OUTPUT: 1258 OUTPUT:
872 RETVAL 1259 RETVAL
873 1260
874void 1261void
875cursor_pos (CFClient::Layout self, int index) 1262cursor_pos (CFPlus::Layout self, int index)
876 PPCODE: 1263 PPCODE:
877{ 1264{
878 PangoRectangle strong_pos; 1265 PangoRectangle strong_pos;
879 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1266 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
880 1267
… …
883 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1270 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
884 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1271 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
885} 1272}
886 1273
887void 1274void
888render (CFClient::Layout self) 1275index_to_line_x (CFPlus::Layout self, int index, int trailing = 0)
889 PPCODE: 1276 PPCODE:
890{ 1277{
891 SV *retval; 1278 int line, x;
892 int w, h;
893 1279
894 layout_get_pixel_size (self, &w, &h); 1280 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1281 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
895 1282
896 if (self->rgba)
897 {
898 cairo_surface_t *surface;
899 cairo_t *cairo;
900
901 retval = newSV (w * h * 4);
902 SvPOK_only (retval);
903 SvCUR_set (retval, w * h * 4);
904
905 memset (SvPVX (retval), 0, w * h * 4);
906
907 surface = cairo_image_surface_create_for_data (
908 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
909 cairo = cairo_create (surface);
910 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
911
912 pango_cairo_show_layout (cairo, self->pl);
913
914 cairo_destroy (cairo);
915 cairo_surface_destroy (surface);
916
917 // what a mess, and its premultiplied, too :(
918 {
919 uint32_t *p = (uint32_t *)SvPVX (retval);
920 uint32_t *e = p + w * h;
921
922 while (p < e)
923 {
924 uint32_t rgba = *p;
925 rgba = (rgba >> 24) | (rgba << 8);
926#if 0
927#ifdef _WIN32
928 {//D
929 uint8_t r = rgba >> 24;
930 uint8_t g = rgba >> 16;
931 uint8_t b = rgba >> 8;
932 uint8_t a = rgba >> 0;
933
934 rgba = (rgba & 0xffffff00) | a;
935 }
936#endif
937#endif
938 rgba = SDL_SwapBE32 (rgba);
939 *p++ = rgba;
940 }
941 }
942
943 EXTEND (SP, 5); 1283 EXTEND (SP, 2);
944 PUSHs (sv_2mortal (newSViv (w))); 1284 PUSHs (sv_2mortal (newSViv (line - 1)));
1285 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1286}
1287
1288void
1289line_x_to_index (CFPlus::Layout self, int line, int x)
1290 PPCODE:
1291{
1292 PangoLayoutLine *lp;
1293 int index, trailing;
1294
1295 if (line < 0)
1296 XSRETURN_EMPTY;
1297
1298 if (!(lp = pango_layout_get_line (self->pl, line)))
1299 XSRETURN_EMPTY; /* do better */
1300
1301 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1302
1303 EXTEND (SP, 2);
1304 if (GIMME_V == G_SCALAR)
945 PUSHs (sv_2mortal (newSViv (h))); 1305 PUSHs (sv_2mortal (newSViv (index + trailing)));
946 PUSHs (sv_2mortal (retval));
947 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
948 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
949 }
950 else 1306 else
951 { 1307 {
952 FT_Bitmap bitmap;
953
954 retval = newSV (w * h);
955 SvPOK_only (retval);
956 SvCUR_set (retval, w * h);
957
958 bitmap.rows = h;
959 bitmap.width = w;
960 bitmap.pitch = w;
961 bitmap.buffer = (unsigned char*)SvPVX (retval);
962 bitmap.num_grays = 256;
963 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
964
965 memset (bitmap.buffer, 0, w * h);
966
967 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
968
969 EXTEND (SP, 5);
970 PUSHs (sv_2mortal (newSViv (w))); 1308 PUSHs (sv_2mortal (newSViv (index)));
971 PUSHs (sv_2mortal (newSViv (h))); 1309 PUSHs (sv_2mortal (newSViv (trailing)));
972 PUSHs (sv_2mortal (retval));
973 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
974 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
975 } 1310 }
976} 1311}
977 1312
1313void
1314render (CFPlus::Layout self, float x, float y, int flags = 0)
1315 CODE:
1316 rc_clear (self->rc);
1317 pango_opengl_render_layout_subpixel (
1318 self->pl,
1319 self->rc,
1320 x * PANGO_SCALE, y * PANGO_SCALE,
1321 self->r, self->g, self->b, self->a,
1322 flags
1323 );
1324 // we assume that context_change actually clears/frees stuff
1325 // and does not do any recomputation...
1326 pango_layout_context_changed (self->pl);
1327
1328void
1329draw (CFPlus::Layout self)
1330 CODE:
1331{
1332 glEnable (GL_TEXTURE_2D);
1333 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1334 glEnable (GL_BLEND);
1335 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1336 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1337 glEnable (GL_ALPHA_TEST);
1338 glAlphaFunc (GL_GREATER, 7.f / 255.f);
1339
1340 rc_draw (self->rc);
1341
1342 glDisable (GL_ALPHA_TEST);
1343 glDisable (GL_BLEND);
1344 glDisable (GL_TEXTURE_2D);
1345}
1346
978MODULE = CFClient PACKAGE = CFClient::Texture 1347MODULE = CFPlus PACKAGE = CFPlus::Texture
979 1348
1349PROTOTYPES: ENABLE
1350
1351int minpot (int n)
1352
980void 1353void
1354pad (SV *data_, int ow, int oh, int nw, int nh)
1355 CODE:
1356{
1357 if ((nw != ow || nh != oh) && SvOK (data_))
1358 {
1359 STRLEN datalen;
1360 char *data = SvPVbyte (data_, datalen);
1361 int bpp = datalen / (ow * oh);
1362 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1363
1364 SvPOK_only (result_);
1365 SvCUR_set (result_, nw * nh * bpp);
1366
1367 memset (SvPVX (result_), 0, nw * nh * bpp);
1368 while (oh--)
1369 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1370
1371 sv_setsv (data_, result_);
1372 }
1373}
1374
1375void
981draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 1376draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
982 PROTOTYPE: $$$;$$ 1377 PROTOTYPE: $$$;$$
983 ALIAS: 1378 ALIAS:
984 draw_quad_alpha = 1 1379 draw_quad_alpha = 1
985 draw_quad_alpha_premultiplied = 2 1380 draw_quad_alpha_premultiplied = 2
986 CODE: 1381 CODE:
987{ 1382{
988 HV *hv = (HV *)SvRV (self); 1383 HV *hv = (HV *)SvRV (self);
989 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1384 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
990 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1385 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
991 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1386 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1387
1388 if (name <= 0)
1389 XSRETURN_EMPTY;
992 1390
993 if (items < 5) 1391 if (items < 5)
994 { 1392 {
995 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1393 w = SvNV (*hv_fetch (hv, "w", 1, 1));
996 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1394 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1024 glDisable (GL_ALPHA_TEST); 1422 glDisable (GL_ALPHA_TEST);
1025 glDisable (GL_BLEND); 1423 glDisable (GL_BLEND);
1026 } 1424 }
1027} 1425}
1028 1426
1427IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1428 CODE:
1429{
1430 GLint width;
1431 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0);
1432 glGetTexLevelParameteriv (GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, &width);
1433 RETVAL = width > 0;
1434}
1435 OUTPUT:
1436 RETVAL
1437
1029MODULE = CFClient PACKAGE = CFClient::Map 1438MODULE = CFPlus PACKAGE = CFPlus::Map
1030 1439
1031CFClient::Map 1440PROTOTYPES: DISABLE
1032new (SV *class, int map_width, int map_height) 1441
1442CFPlus::Map
1443new (SV *class)
1033 CODE: 1444 CODE:
1034 New (0, RETVAL, 1, struct map); 1445 New (0, RETVAL, 1, struct map);
1035 RETVAL->x = 0; 1446 RETVAL->x = 0;
1036 RETVAL->y = 0; 1447 RETVAL->y = 0;
1037 RETVAL->w = map_width; 1448 RETVAL->w = 0;
1038 RETVAL->h = map_height; 1449 RETVAL->h = 0;
1039 RETVAL->ox = 0; 1450 RETVAL->ox = 0;
1040 RETVAL->oy = 0; 1451 RETVAL->oy = 0;
1041 RETVAL->faces = 8192; 1452 RETVAL->faces = 8192; Newz (0, RETVAL->face2tile, RETVAL->faces, tileid);
1042 Newz (0, RETVAL->face, RETVAL->faces, mapface); 1453 RETVAL->texs = 8192; Newz (0, RETVAL->tex , RETVAL->texs , maptex);
1043 RETVAL->texs = 8192;
1044 Newz (0, RETVAL->tex, RETVAL->texs, maptex);
1045 RETVAL->rows = 0; 1454 RETVAL->rows = 0;
1046 RETVAL->row = 0; 1455 RETVAL->row = 0;
1047 OUTPUT: 1456 OUTPUT:
1048 RETVAL 1457 RETVAL
1049 1458
1050void 1459void
1051DESTROY (CFClient::Map self) 1460DESTROY (CFPlus::Map self)
1052 CODE: 1461 CODE:
1053{ 1462{
1054 map_clear (self); 1463 map_clear (self);
1055 Safefree (self->face); 1464 Safefree (self->face2tile);
1465 Safefree (self->tex);
1056 Safefree (self); 1466 Safefree (self);
1057} 1467}
1058 1468
1059void 1469void
1470resize (CFPlus::Map self, int map_width, int map_height)
1471 CODE:
1472 self->w = map_width;
1473 self->h = map_height;
1474
1475void
1060clear (CFClient::Map self) 1476clear (CFPlus::Map self)
1061 CODE: 1477 CODE:
1062 map_clear (self); 1478 map_clear (self);
1063 1479
1064void 1480void
1065set_face (CFClient::Map self, int face, int texid) 1481set_tileid (CFPlus::Map self, int face, int tile)
1066 CODE: 1482 CODE:
1067{ 1483{
1068 while (self->faces <= face) 1484 need_facenum (self, face); self->face2tile [face] = tile;
1069 { 1485 need_texid (self, tile);
1070 Append (mapface, self->face, self->faces, self->faces);
1071 self->faces *= 2;
1072 }
1073
1074 self->face [face] = texid;
1075} 1486}
1076 1487
1077void 1488void
1489set_smooth (CFPlus::Map self, int face, int smooth, int level)
1490 CODE:
1491{
1492 tileid texid;
1493 maptex *tex;
1494
1495 if (face < 0 || face >= self->faces)
1496 return;
1497
1498 if (smooth < 0 || smooth >= self->faces)
1499 return;
1500
1501 texid = self->face2tile [face];
1502
1503 if (!texid)
1504 return;
1505
1506 tex = self->tex + texid;
1507 tex->smoothtile = self->face2tile [smooth];
1508 tex->smoothlevel = level;
1509}
1510
1511void
1078set_texture (CFClient::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a) 1512set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1079 CODE: 1513 CODE:
1080{ 1514{
1081 while (self->texs <= texid) 1515 need_texid (self, texid);
1082 {
1083 Append (maptex, self->tex, self->texs, self->texs);
1084 self->texs *= 2;
1085 }
1086 1516
1087 { 1517 {
1088 maptex *tex = self->tex + texid; 1518 maptex *tex = self->tex + texid;
1089 1519
1090 tex->name = name; 1520 tex->name = name;
… …
1107 // from transparent color bleeding and ugly wrapping effects. 1537 // from transparent color bleeding and ugly wrapping effects.
1108 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1538 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1109} 1539}
1110 1540
1111int 1541int
1112ox (CFClient::Map self) 1542ox (CFPlus::Map self)
1113 ALIAS: 1543 ALIAS:
1114 oy = 1 1544 oy = 1
1115 x = 2 1545 x = 2
1116 y = 3 1546 y = 3
1117 w = 4 1547 w = 4
… …
1128 } 1558 }
1129 OUTPUT: 1559 OUTPUT:
1130 RETVAL 1560 RETVAL
1131 1561
1132void 1562void
1133scroll (CFClient::Map self, int dx, int dy) 1563scroll (CFPlus::Map self, int dx, int dy)
1134 CODE: 1564 CODE:
1135{ 1565{
1136 if (dx > 0) 1566 if (dx > 0)
1137 map_blank (self, self->x, self->y, dx - 1, self->h); 1567 map_blank (self, self->x, self->y, dx, self->h);
1138 else if (dx < 0) 1568 else if (dx < 0)
1139 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h); 1569 map_blank (self, self->x + self->w + dx, self->y, -dx, self->h);
1140 1570
1141 if (dy > 0) 1571 if (dy > 0)
1142 map_blank (self, self->x, self->y, self->w, dy - 1); 1572 map_blank (self, self->x, self->y, self->w, dy);
1143 else if (dy < 0) 1573 else if (dy < 0)
1144 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy); 1574 map_blank (self, self->x, self->y + self->h + dy, self->w, -dy);
1145 1575
1146 self->ox += dx; self->x += dx; 1576 self->ox += dx; self->x += dx;
1147 self->oy += dy; self->y += dy; 1577 self->oy += dy; self->y += dy;
1148 1578
1149 while (self->y < 0) 1579 while (self->y < 0)
… …
1153 self->rows += MAP_EXTEND_Y; 1583 self->rows += MAP_EXTEND_Y;
1154 self->y += MAP_EXTEND_Y; 1584 self->y += MAP_EXTEND_Y;
1155 } 1585 }
1156} 1586}
1157 1587
1158void 1588SV *
1159map1a_update (CFClient::Map self, SV *data_) 1589map1a_update (CFPlus::Map self, SV *data_, int extmap)
1160 CODE: 1590 CODE:
1161{ 1591{
1162 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1592 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1163 uint8_t *data_end = (uint8_t *)SvEND (data_); 1593 uint8_t *data_end = (uint8_t *)SvEND (data_);
1164 mapcell *cell; 1594 mapcell *cell;
1165 int x, y, flags; 1595 int x, y, z, flags;
1596 AV *missing = newAV ();
1597 RETVAL = newRV_noinc ((SV *)missing);
1166 1598
1167 while (data < data_end) 1599 while (data < data_end - 1)
1168 { 1600 {
1169 flags = (data [0] << 8) + data [1]; data += 2; 1601 flags = (data [0] << 8) + data [1]; data += 2;
1170 1602
1171 x = ((flags >> 10) & 63) + self->x; 1603 x = self->x + ((flags >> 10) & 63);
1172 y = ((flags >> 4) & 63) + self->y; 1604 y = self->y + ((flags >> 4) & 63);
1173 1605
1174 cell = map_get_cell (self, x, y); 1606 cell = map_get_cell (self, x, y);
1175 1607
1176 if (flags & 15) 1608 if (flags & 15)
1177 { 1609 {
1178 if (cell->darkness < 0) 1610 if (!cell->darkness)
1179 { 1611 {
1612 memset (cell, 0, sizeof (*cell));
1180 cell->darkness = 0; 1613 cell->darkness = 256;
1181 cell->face [0] = 0;
1182 cell->face [1] = 0;
1183 cell->face [2] = 0;
1184 } 1614 }
1185 1615
1186 cell->darkness = flags & 8 ? *data++ : 255;
1187
1188 //TODO: don't trust server data to be in-range(!) 1616 //TODO: don't trust server data to be in-range(!)
1189 1617
1190 if (flags & 4) 1618 if (flags & 8)
1191 { 1619 {
1192 cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2; 1620 if (extmap)
1621 {
1622 uint8_t ext, cmd;
1623
1624 do
1625 {
1626 ext = *data++;
1627 cmd = ext & 0x3f;
1628
1629 if (cmd < 4)
1630 cell->darkness = 255 - ext * 64 + 1;
1631 else if (cmd == 5) // health
1632 {
1633 cell->stat_width = 1;
1634 cell->stat_hp = *data++;
1635 }
1636 else if (cmd == 6) // monster width
1637 cell->stat_width = *data++ + 1;
1638 else if (cmd == 0x47)
1639 {
1640 if (*data == 4)
1641 ; // decode player count
1642
1643 data += *data + 1;
1644 }
1645 else if (cmd == 8) // cell flags
1646 cell->flags = *data++;
1647 else if (ext & 0x40) // unknown, multibyte => skip
1648 data += *data + 1;
1649 else
1650 data++;
1651 }
1652 while (ext & 0x80);
1653 }
1654 else
1655 cell->darkness = *data++ + 1;
1193 } 1656 }
1194 1657
1658 for (z = 0; z <= 2; ++z)
1195 if (flags & 2) 1659 if (flags & (4 >> z))
1196 { 1660 {
1197 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2; 1661 faceid face = (data [0] << 8) + data [1]; data += 2;
1662 need_facenum (self, face);
1663 cell->tile [z] = self->face2tile [face];
1664
1665 if (cell->tile [z])
1666 {
1667 maptex *tex = self->tex + cell->tile [z];
1668 if (!tex->name)
1669 av_push (missing, newSViv (cell->tile [z]));
1670
1671 if (tex->smoothtile)
1672 {
1673 maptex *smooth = self->tex + tex->smoothtile;
1674 if (!smooth->name)
1675 av_push (missing, newSViv (tex->smoothtile));
1676 }
1677 }
1198 } 1678 }
1199
1200 if (flags & 1)
1201 {
1202 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
1203 }
1204 } 1679 }
1205 else 1680 else
1206 cell->darkness = -1; 1681 cell->darkness = 0;
1207 } 1682 }
1208} 1683}
1684 OUTPUT:
1685 RETVAL
1209 1686
1210SV * 1687SV *
1211mapmap (CFClient::Map self, int x0, int y0, int w, int h) 1688mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1212 CODE: 1689 CODE:
1213{ 1690{
1214 int x1, x; 1691 int x1, x;
1215 int y1, y; 1692 int y1, y;
1216 int z; 1693 int z;
… …
1237 { 1714 {
1238 mapcell *cell = row->col + (x - row->c0); 1715 mapcell *cell = row->col + (x - row->c0);
1239 1716
1240 for (z = 0; z <= 0; z++) 1717 for (z = 0; z <= 0; z++)
1241 { 1718 {
1242 mapface face = cell->face [z];
1243
1244 if (face)
1245 {
1246 maptex tex = self->tex [face]; 1719 maptex tex = self->tex [cell->tile [z]];
1247 int a0 = 255 - tex.a; 1720 int a0 = 255 - tex.a;
1248 int a1 = tex.a; 1721 int a1 = tex.a;
1249 1722
1250 r = (r * a0 + tex.r * a1) / 255; 1723 r = (r * a0 + tex.r * a1) / 255;
1251 g = (g * a0 + tex.g * a1) / 255; 1724 g = (g * a0 + tex.g * a1) / 255;
1252 b = (b * a0 + tex.b * a1) / 255; 1725 b = (b * a0 + tex.b * a1) / 255;
1253 a = (a * a0 + tex.a * a1) / 255; 1726 a = (a * a0 + tex.a * a1) / 255;
1254 }
1255 } 1727 }
1256 } 1728 }
1257 1729
1258 *map++ = (r ) 1730 *map++ = (r )
1259 | (g << 8) 1731 | (g << 8)
… …
1266} 1738}
1267 OUTPUT: 1739 OUTPUT:
1268 RETVAL 1740 RETVAL
1269 1741
1270void 1742void
1271draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1743draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)
1744 CODE:
1745{
1746 int x, y, z;
1747
1748 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1749 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1750 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)
1751 smooth_key skey;
1752
1753 rc_t *rc = rc_alloc ();
1754 rc_key_t key;
1755 rc_array_t *arr;
1756
1757 // thats current max. sorry.
1758 if (sw > 255) sw = 255;
1759 if (sh > 255) sh = 255;
1760
1761 // clear key, in case of extra padding
1762 memset (&skey, 0, sizeof (skey));
1763
1764 memset (&key, 0, sizeof (key));
1765 key.r = 255;
1766 key.g = 255;
1767 key.b = 255;
1768 key.a = 255;
1769 key.mode = GL_QUADS;
1770 key.format = GL_T2F_V3F;
1771 key.texname = -1;
1772
1773 mx += self->x;
1774 my += self->y;
1775
1776 // first pass: determine smooth_max
1777 // rather ugly, if you ask me
1778 // could also be stored inside mapcell and updated on change
1779 memset (smooth_max, 0, sizeof (smooth_max));
1780
1781 for (y = 0; y < sh; y++)
1782 if (0 <= y + my && y + my < self->rows)
1783 {
1784 maprow *row = self->row + (y + my);
1785
1786 for (x = 0; x < sw; x++)
1787 if (row->c0 <= x + mx && x + mx < row->c1)
1788 {
1789 mapcell *cell = row->col + (x + mx - row->c0);
1790
1791 smooth_max[x + 1][y + 1] =
1792 MAX (self->tex [cell->tile [0]].smoothlevel,
1793 MAX (self->tex [cell->tile [1]].smoothlevel,
1794 self->tex [cell->tile [2]].smoothlevel));
1795 }
1796 }
1797
1798 glEnable (GL_BLEND);
1799 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1800 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1801
1802 for (z = 0; z <= 2; z++)
1803 {
1804 memset (smooth_level, 0, sizeof (smooth_level));
1805
1806 for (y = 0; y < sh; y++)
1807 if (0 <= y + my && y + my < self->rows)
1808 {
1809 maprow *row = self->row + (y + my);
1810
1811 for (x = 0; x < sw; x++)
1812 if (row->c0 <= x + mx && x + mx < row->c1)
1813 {
1814 mapcell *cell = row->col + (x + mx - row->c0);
1815 tileid tile = cell->tile [z];
1816
1817 if (tile)
1818 {
1819 maptex tex = self->tex [tile];
1820 int px, py;
1821
1822 // suppressing texture state switches here
1823 // is only moderately effective, but worth the extra effort
1824 if (key.texname != tex.name)
1825 {
1826 if (!tex.name)
1827 tex = self->tex [2]; /* missing, replace by noface */
1828
1829 key.texname = tex.name;
1830 arr = rc_array (rc, &key);
1831 }
1832
1833 px = (x + 1) * T - tex.w;
1834 py = (y + 1) * T - tex.h;
1835
1836 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1837 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1838 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1839 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1840
1841 if (cell->flags && z == 2)
1842 {
1843 // overlays such as the speech bubble, probably more to come
1844 if (cell->flags & 1)
1845 {
1846 maptex tex = self->tex [1];
1847 int px = x * T + T * 2 / 32;
1848 int py = y * T - T * 6 / 32;
1849
1850 if (tex.name)
1851 {
1852 if (key.texname != tex.name)
1853 {
1854 key.texname = tex.name;
1855 arr = rc_array (rc, &key);
1856 }
1857
1858 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1859 rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1860 rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1861 rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1862 }
1863 }
1864 }
1865
1866 // update smooth hash
1867 if (tex.smoothtile)
1868 {
1869 skey.tile = tex.smoothtile;
1870 skey.level = tex.smoothlevel;
1871
1872 smooth_level [tex.smoothlevel >> 5] |= ((uint32_t)1) << (tex.smoothlevel & 31);
1873
1874 // add bits to current tile and all neighbours. skey.x|y is
1875 // shifted +1|+1 so we always stay positive.
1876
1877 // bits is ___n cccc CCCC bbbb
1878 // n do not draw borders&corners
1879 // c draw these corners, but...
1880 // C ... not these
1881 // b draw these borders
1882
1883 // borders: 1 ┃· 2 ━━ 4 ·┃ 8 ··
1884 // ┃· ·· ·┃ ━━
1885
1886 // corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
1887 // ·· ·· ·┏ ┓·
1888
1889 // full tile
1890 skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);
1891
1892 // borders
1893 skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);
1894 skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);
1895 skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);
1896 skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);
1897
1898 // corners
1899 skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1900 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1901 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1902 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1903 }
1904 }
1905 }
1906 }
1907
1908 rc_draw (rc);
1909 rc_clear (rc);
1910
1911 // go through all smoothlevels, lowest to highest, then draw.
1912 // this is basically counting sort
1913 {
1914 int w, b;
1915
1916 for (w = 0; w < 256 / 32; ++w)
1917 {
1918 uint32_t smask = smooth_level [w];
1919 if (smask)
1920 for (b = 0; b < 32; ++b)
1921 if (smask & (((uint32_t)1) << b))
1922 {
1923 int level = (w << 5) | b;
1924 HE *he;
1925
1926 hv_iterinit (smooth);
1927 while ((he = hv_iternext (smooth)))
1928 {
1929 smooth_key *skey = (smooth_key *)HeKEY (he);
1930 IV bits = SvIVX (HeVAL (he));
1931
1932 if (!(bits & 0x1000)
1933 && skey->level == level
1934 && level > smooth_max [skey->x][skey->y])
1935 {
1936 maptex tex = self->tex [skey->tile];
1937 int px = (((int)skey->x) - 1) * T;
1938 int py = (((int)skey->y) - 1) * T;
1939 int border = bits & 15;
1940 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1941 float dx = tex.s * .0625f; // 16 images/row
1942 float dy = tex.t * .5f ; // 2 images/column
1943
1944 if (tex.name)
1945 {
1946 // this time avoiding texture state changes
1947 // save gobs of state changes.
1948 if (key.texname != tex.name)
1949 {
1950 key.texname = tex.name;
1951 arr = rc_array (rc, &key);
1952 }
1953
1954 if (border)
1955 {
1956 float ox = border * dx;
1957
1958 rc_t2f_v3f (arr, ox , 0.f , px , py , 0);
1959 rc_t2f_v3f (arr, ox , dy , px , py + T, 0);
1960 rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0);
1961 rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0);
1962 }
1963
1964 if (corner)
1965 {
1966 float ox = corner * dx;
1967
1968 rc_t2f_v3f (arr, ox , dy , px , py , 0);
1969 rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0);
1970 rc_t2f_v3f (arr, ox + dx, dy * 2.f, px + T, py + T, 0);
1971 rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0);
1972 }
1973 }
1974 }
1975 }
1976 }
1977 }
1978 }
1979
1980 hv_clear (smooth);
1981 rc_draw (rc);
1982 rc_clear (rc);
1983 }
1984
1985 glDisable (GL_BLEND);
1986 rc_free (rc);
1987
1988 // top layer: overlays such as the health bar
1989 for (y = 0; y < sh; y++)
1990 if (0 <= y + my && y + my < self->rows)
1991 {
1992 maprow *row = self->row + (y + my);
1993
1994 for (x = 0; x < sw; x++)
1995 if (row->c0 <= x + mx && x + mx < row->c1)
1996 {
1997 mapcell *cell = row->col + (x + mx - row->c0);
1998
1999 int px = x * T;
2000 int py = y * T;
2001
2002 if (cell->stat_hp)
2003 {
2004 int width = cell->stat_width * T;
2005 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
2006
2007 glColor3ub (0, 0, 0);
2008 glRectf (px + 1, py - thick - 2,
2009 px + width - 1, py);
2010
2011 glColor3ub (cell->stat_hp, 255 - cell->stat_hp, 0);
2012 glRectf (px + 2,
2013 py - thick - 1,
2014 px + width - 2 - cell->stat_hp * (width - 4) / 255, py - 1);
2015 }
2016 }
2017 }
2018}
2019
2020void
2021draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data)
2022 CODE:
2023{
2024 static float color[16][3] = {
2025 { 0.00F, 0.00F, 0.00F },
2026 { 1.00F, 1.00F, 1.00F },
2027 { 0.00F, 0.00F, 0.55F },
2028 { 1.00F, 0.00F, 0.00F },
2029
2030 { 1.00F, 0.54F, 0.00F },
2031 { 0.11F, 0.56F, 1.00F },
2032 { 0.93F, 0.46F, 0.00F },
2033 { 0.18F, 0.54F, 0.34F },
2034
2035 { 0.56F, 0.73F, 0.56F },
2036 { 0.80F, 0.80F, 0.80F },
2037 { 0.55F, 0.41F, 0.13F },
2038 { 0.99F, 0.77F, 0.26F },
2039
2040 { 0.74F, 0.65F, 0.41F },
2041
2042 { 0.00F, 1.00F, 1.00F },
2043 { 1.00F, 0.00F, 1.00F },
2044 { 1.00F, 1.00F, 0.00F },
2045 };
2046
2047 int x, y;
2048
2049 glEnable (GL_TEXTURE_2D);
2050 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
2051 glEnable (GL_BLEND);
2052 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2053 glBegin (GL_QUADS);
2054
2055 for (y = 0; y < h; y++)
2056 for (x = 0; x < w; x++)
2057 {
2058 unsigned char m = data [x + y * w];
2059
2060 if (m)
2061 {
2062 float *c = color [m & 15];
2063
2064 float tx1 = m & 0x40 ? 0.5 : 0.;
2065 float tx2 = tx1 + 0.5;
2066
2067 glColor4f (c[0], c[1], c[2], 0.75);
2068 glTexCoord2f (tx1, 0.); glVertex2i (x , y );
2069 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
2070 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
2071 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
2072 }
2073 }
2074
2075 glEnd ();
2076 glDisable (GL_BLEND);
2077 glDisable (GL_TEXTURE_2D);
2078}
2079
2080void
2081fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh)
1272 PPCODE: 2082 PPCODE:
1273{ 2083{
1274 int vx, vy;
1275 int x, y, z; 2084 int x, y;
1276 int last_name; 2085 int sw1 = sw + 2;
1277 mapface face; 2086 int sh1 = sh + 2;
2087 int sh3 = sh * 3;
1278 int sw4 = (sw + 3) & ~3; 2088 int sw34 = (sw * 3 + 3) & ~3;
2089 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1279 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2090 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1280 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2091 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1281 2092
1282 memset (darkness, 255, sw4 * sh);
1283 SvPOK_only (darkness_sv); 2093 SvPOK_only (darkness3_sv);
1284 SvCUR_set (darkness_sv, sw4 * sh); 2094 SvCUR_set (darkness3_sv, sw34 * sh3);
1285 2095
1286 vx = self->x + (self->w - sw) / 2 - shift_x; 2096 mx += self->x - 1;
1287 vy = self->y + (self->h - sh) / 2 - shift_y; 2097 my += self->y - 1;
1288 2098
1289 /* 2099 memset (darkness1, 255, sw1 * sh1);
1290 int vx = self->vx = self->w >= sw
1291 ? self->x + (self->w - sw) / 2
1292 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
1293 2100
1294 int vy = self->vy = self->h >= sh
1295 ? self->y + (self->h - sh) / 2
1296 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
1297 */
1298
1299 glColor4ub (255, 255, 255, 255);
1300
1301 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1302 glEnable (GL_BLEND);
1303 glEnable (GL_TEXTURE_2D);
1304 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1305
1306 glBegin (GL_QUADS);
1307
1308 last_name = 0;
1309
1310 for (z = 0; z < 3; z++)
1311 for (y = 0; y < sh; y++) 2101 for (y = 0; y < sh1; y++)
1312 if (0 <= y + vy && y + vy < self->rows) 2102 if (0 <= y + my && y + my < self->rows)
1313 { 2103 {
1314 maprow *row = self->row + (y + vy); 2104 maprow *row = self->row + (y + my);
1315 2105
1316 for (x = 0; x < sw; x++) 2106 for (x = 0; x < sw1; x++)
1317 if (row->c0 <= x + vx && x + vx < row->c1) 2107 if (row->c0 <= x + mx && x + mx < row->c1)
1318 { 2108 {
1319 mapcell *cell = row->col + (x + vx - row->c0); 2109 mapcell *cell = row->col + (x + mx - row->c0);
1320 2110
1321 darkness[y * sw4 + x] = cell->darkness < 0 2111 darkness1 [y * sw1 + x] = cell->darkness
2112 ? 255 - (cell->darkness - 1)
1322 ? 255 - FOW_DARKNESS 2113 : 255 - FOW_DARKNESS;
1323 : 255 - cell->darkness;
1324
1325 face = cell->face [z];
1326
1327 if (face)
1328 {
1329 maptex tex = self->tex [face];
1330
1331 int px = (x + 1) * 32 - tex.w;
1332 int py = (y + 1) * 32 - tex.h;
1333
1334 if (last_name != tex.name)
1335 {
1336 glEnd ();
1337 last_name = tex.name;
1338 glBindTexture (GL_TEXTURE_2D, last_name);
1339 glBegin (GL_QUADS);
1340 }
1341
1342 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1343 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1344 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1345 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1346 }
1347 } 2114 }
1348 } 2115 }
1349 2116
1350 glEnd (); 2117 for (y = 0; y < sh; ++y)
2118 for (x = 0; x < sw; ++x)
2119 {
2120 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2121 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2122 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2123 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2124 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2125 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2126 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2127 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2128 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
1351 2129
1352 glDisable (GL_TEXTURE_2D); 2130 uint8_t r11 = (d11 + d21 + d12) / 3;
1353 glDisable (GL_BLEND); 2131 uint8_t r21 = d21;
2132 uint8_t r31 = (d21 + d31 + d32) / 3;
2133
2134 uint8_t r12 = d12;
2135 uint8_t r22 = d22;
2136 uint8_t r32 = d32;
2137
2138 uint8_t r13 = (d13 + d23 + d12) / 3;
2139 uint8_t r23 = d23;
2140 uint8_t r33 = (d23 + d33 + d32) / 3;
2141
2142 darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);
2143 darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);
2144 darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);
2145 darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);
2146 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);
2147 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);
2148 darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);
2149 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);
2150 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);
2151 }
2152
2153 free (darkness1);
1354 2154
1355 EXTEND (SP, 3); 2155 EXTEND (SP, 3);
1356 PUSHs (sv_2mortal (newSViv (sw4))); 2156 PUSHs (sv_2mortal (newSViv (sw34)));
1357 PUSHs (sv_2mortal (newSViv (sh))); 2157 PUSHs (sv_2mortal (newSViv (sh3)));
1358 PUSHs (darkness_sv); 2158 PUSHs (darkness3_sv);
1359} 2159}
1360 2160
1361SV * 2161SV *
1362get_rect (CFClient::Map self, int x0, int y0, int w, int h) 2162get_rect (CFPlus::Map self, int x0, int y0, int w, int h)
1363 CODE: 2163 CODE:
1364{ 2164{
1365 int x, y, x1, y1; 2165 int x, y, x1, y1;
1366 SV *data_sv = newSV (w * h * 7 + 5); 2166 SV *data_sv = newSV (w * h * 7 + 5);
1367 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2167 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
1392 if (row && row->c0 <= x && x < row->c1) 2192 if (row && row->c0 <= x && x < row->c1)
1393 { 2193 {
1394 mapcell *cell = row->col + (x - row->c0); 2194 mapcell *cell = row->col + (x - row->c0);
1395 uint8_t flags = 0; 2195 uint8_t flags = 0;
1396 2196
1397 if (cell->face [0]) flags |= 1; 2197 if (cell->tile [0]) flags |= 1;
1398 if (cell->face [1]) flags |= 2; 2198 if (cell->tile [1]) flags |= 2;
1399 if (cell->face [2]) flags |= 4; 2199 if (cell->tile [2]) flags |= 4;
1400 2200
1401 *data++ = flags; 2201 *data++ = flags;
1402 2202
1403 if (flags & 1) 2203 if (flags & 1)
1404 { 2204 {
2205 tileid tile = cell->tile [0];
1405 *data++ = cell->face [0] >> 8; 2206 *data++ = tile >> 8;
1406 *data++ = cell->face [0]; 2207 *data++ = tile;
1407 } 2208 }
1408 2209
1409 if (flags & 2) 2210 if (flags & 2)
1410 { 2211 {
2212 tileid tile = cell->tile [1];
1411 *data++ = cell->face [1] >> 8; 2213 *data++ = tile >> 8;
1412 *data++ = cell->face [1]; 2214 *data++ = tile;
1413 } 2215 }
1414 2216
1415 if (flags & 4) 2217 if (flags & 4)
1416 { 2218 {
2219 tileid tile = cell->tile [2];
1417 *data++ = cell->face [2] >> 8; 2220 *data++ = tile >> 8;
1418 *data++ = cell->face [2]; 2221 *data++ = tile;
1419 } 2222 }
1420 } 2223 }
1421 else 2224 else
1422 *data++ = 0; 2225 *data++ = 0;
1423 } 2226 }
… …
1429} 2232}
1430 OUTPUT: 2233 OUTPUT:
1431 RETVAL 2234 RETVAL
1432 2235
1433void 2236void
1434set_rect (CFClient::Map self, int x0, int y0, uint8_t *data) 2237set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data)
1435 PPCODE: 2238 PPCODE:
1436{ 2239{
1437 int x, y, z; 2240 int x, y, z;
1438 int w, h; 2241 int w, h;
1439 int x1, y1; 2242 int x1, y1;
… …
1463 { 2266 {
1464 uint8_t flags = *data++; 2267 uint8_t flags = *data++;
1465 2268
1466 if (flags) 2269 if (flags)
1467 { 2270 {
1468 mapface face[3] = { 0, 0, 0 };
1469
1470 mapcell *cell = row_get_cell (row, x); 2271 mapcell *cell = row_get_cell (row, x);
2272 tileid tile[3] = { 0, 0, 0 };
1471 2273
1472 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; } 2274 if (flags & 1) { tile[0] = *data++ << 8; tile[0] |= *data++; }
1473 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; } 2275 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
1474 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; } 2276 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
1475 2277
1476 if (cell->darkness <= 0) 2278 if (cell->darkness == 0)
1477 { 2279 {
1478 cell->darkness = -1; 2280 cell->darkness = 0;
1479 2281
1480 for (z = 0; z <= 2; z++) 2282 for (z = 0; z <= 2; z++)
1481 { 2283 {
1482 cell->face[z] = face[z]; 2284 tileid t = tile [z];
1483 2285
1484 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name)) 2286 if (t >= self->texs || (t && !self->tex [t].name))
2287 {
1485 XPUSHs (sv_2mortal (newSViv (face[z]))); 2288 XPUSHs (sv_2mortal (newSViv (t)));
2289 need_texid (self, t);
2290 }
2291
2292 cell->tile [z] = t;
1486 } 2293 }
1487 } 2294 }
1488 } 2295 }
1489 } 2296 }
1490 } 2297 }
1491} 2298}
1492 2299
1493MODULE = CFClient PACKAGE = CFClient::MixChunk 2300MODULE = CFPlus PACKAGE = CFPlus::RW
1494 2301
1495CFClient::MixChunk 2302CFPlus::RW
1496new_from_file (SV *class, char *path) 2303new (SV *class, SV *data_sv)
1497 CODE: 2304 CODE:
1498 RETVAL = Mix_LoadWAV (path); 2305{
2306 STRLEN datalen;
2307 char *data = SvPVbyte (data_sv, datalen);
2308
2309 RETVAL = SDL_RWFromConstMem (data, datalen);
2310}
1499 OUTPUT: 2311 OUTPUT:
1500 RETVAL 2312 RETVAL
1501 2313
2314CFPlus::RW
2315new_from_file (SV *class, const char *path, const char *mode = "rb")
2316 CODE:
2317 RETVAL = SDL_RWFromFile (path, mode);
2318 OUTPUT:
2319 RETVAL
2320
2321# fails on win32:
2322# CFPlus.xs(2268) : error C2059: syntax error : '('
1502void 2323#void
2324#close (CFPlus::RW self)
2325# CODE:
2326# (self->(close)) (self);
2327
2328MODULE = CFPlus PACKAGE = CFPlus::Channel
2329
2330PROTOTYPES: DISABLE
2331
2332CFPlus::Channel
2333find ()
2334 CODE:
2335{
2336 RETVAL = Mix_GroupAvailable (-1);
2337
2338 if (RETVAL < 0)
2339 {
2340 RETVAL = Mix_GroupOldest (-1);
2341
2342 if (RETVAL < 0)
2343 XSRETURN_UNDEF;
2344
2345 Mix_HaltChannel (RETVAL);
2346 }
2347
2348 Mix_UnregisterAllEffects (RETVAL);
2349 Mix_Volume (RETVAL, 128);
2350}
2351 OUTPUT:
2352 RETVAL
2353
2354void
2355halt (CFPlus::Channel self)
2356 CODE:
2357 Mix_HaltChannel (self);
2358
2359void
2360expire (CFPlus::Channel self, int ticks = -1)
2361 CODE:
2362 Mix_ExpireChannel (self, ticks);
2363
2364void
2365fade_out (CFPlus::Channel self, int ticks = -1)
2366 CODE:
2367 Mix_FadeOutChannel (self, ticks);
2368
2369int
2370volume (CFPlus::Channel self, int volume)
2371 CODE:
2372 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2373 OUTPUT:
2374 RETVAL
2375
2376void
2377unregister_all_effects (CFPlus::Channel self)
2378 CODE:
2379 Mix_UnregisterAllEffects (self);
2380
2381void
2382set_panning (CFPlus::Channel self, int left, int right)
2383 CODE:
2384 left = CLAMP (left , 0, 255);
2385 right = CLAMP (right, 0, 255);
2386 Mix_SetPanning (self, left, right);
2387
2388void
2389set_distance (CFPlus::Channel self, int distance)
2390 CODE:
2391 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2392
2393void
2394set_position (CFPlus::Channel self, int angle, int distance)
2395 CODE:
2396
2397void
2398set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
2399 CODE:
2400{
2401 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2402 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2403 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2404}
2405
2406void
2407set_reverse_stereo (CFPlus::Channel self, int flip)
2408 CODE:
2409 Mix_SetReverseStereo (self, flip);
2410
2411MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2412
2413PROTOTYPES: DISABLE
2414
2415CFPlus::MixChunk
2416new (SV *class, CFPlus::RW rwops)
2417 CODE:
2418 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2419 OUTPUT:
2420 RETVAL
2421
2422void
1503DESTROY (CFClient::MixChunk self) 2423DESTROY (CFPlus::MixChunk self)
1504 CODE: 2424 CODE:
1505 Mix_FreeChunk (self); 2425 Mix_FreeChunk (self);
1506 2426
1507int 2427int
1508volume (CFClient::MixChunk self, int volume = -1) 2428volume (CFPlus::MixChunk self, int volume = -1)
1509 CODE: 2429 CODE:
2430 if (items > 1)
2431 volume = CLAMP (volume, 0, 128);
1510 RETVAL = Mix_VolumeChunk (self, volume); 2432 RETVAL = Mix_VolumeChunk (self, volume);
1511 OUTPUT: 2433 OUTPUT:
1512 RETVAL 2434 RETVAL
1513 2435
1514int 2436CFPlus::Channel
1515play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2437play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
1516 CODE: 2438 CODE:
2439{
1517 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2440 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2441
2442 if (RETVAL < 0)
2443 XSRETURN_UNDEF;
2444
2445 if (channel < 0)
2446 {
2447 Mix_UnregisterAllEffects (RETVAL);
2448 Mix_Volume (RETVAL, 128);
2449 }
2450}
1518 OUTPUT: 2451 OUTPUT:
1519 RETVAL 2452 RETVAL
1520 2453
1521MODULE = CFClient PACKAGE = CFClient::MixMusic 2454MODULE = CFPlus PACKAGE = CFPlus::MixMusic
1522 2455
1523int 2456int
1524volume (int volume = -1) 2457volume (int volume = -1)
2458 PROTOTYPE: ;$
1525 CODE: 2459 CODE:
2460 if (items > 0)
2461 volume = CLAMP (volume, 0, 128);
1526 RETVAL = Mix_VolumeMusic (volume); 2462 RETVAL = Mix_VolumeMusic (volume);
1527 OUTPUT: 2463 OUTPUT:
1528 RETVAL 2464 RETVAL
1529 2465
2466void
2467fade_out (int ms)
2468 CODE:
2469 Mix_FadeOutMusic (ms);
2470
2471void
2472halt ()
2473 CODE:
2474 Mix_HaltMusic ();
2475
1530CFClient::MixMusic 2476CFPlus::MixMusic
1531new_from_file (SV *class, char *path) 2477new (SV *class, CFPlus::RW rwops)
1532 CODE: 2478 CODE:
1533 RETVAL = Mix_LoadMUS (path); 2479 RETVAL = Mix_LoadMUS_RW (rwops);
1534 OUTPUT: 2480 OUTPUT:
1535 RETVAL 2481 RETVAL
1536 2482
1537void 2483void
1538DESTROY (CFClient::MixMusic self) 2484DESTROY (CFPlus::MixMusic self)
1539 CODE: 2485 CODE:
1540 Mix_FreeMusic (self); 2486 Mix_FreeMusic (self);
1541 2487
1542int 2488int
1543play (CFClient::MixMusic self, int loops = -1) 2489play (CFPlus::MixMusic self, int loops = -1)
1544 CODE: 2490 CODE:
1545 RETVAL = Mix_PlayMusic (self, loops); 2491 RETVAL = Mix_PlayMusic (self, loops);
1546 OUTPUT: 2492 OUTPUT:
1547 RETVAL 2493 RETVAL
1548 2494
2495void
2496fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2497 CODE:
2498 Mix_FadeInMusicPos (self, loops, ms, position);
2499
1549MODULE = CFClient PACKAGE = CFClient::OpenGL 2500MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2501
2502PROTOTYPES: ENABLE
1550 2503
1551BOOT: 2504BOOT:
1552{ 2505{
1553 HV *stash = gv_stashpv ("CFClient::OpenGL", 1); 2506 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1);
1554 static const struct { 2507 static const struct {
1555 const char *name; 2508 const char *name;
1556 IV iv; 2509 IV iv;
1557 } *civ, const_iv[] = { 2510 } *civ, const_iv[] = {
1558# define const_iv(name) { # name, (IV)name } 2511# define const_iv(name) { # name, (IV)name }
2512 const_iv (GL_VENDOR),
2513 const_iv (GL_VERSION),
2514 const_iv (GL_EXTENSIONS),
1559 const_iv (GL_COLOR_MATERIAL), 2515 const_iv (GL_COLOR_MATERIAL),
1560 const_iv (GL_SMOOTH), 2516 const_iv (GL_SMOOTH),
1561 const_iv (GL_FLAT), 2517 const_iv (GL_FLAT),
1562 const_iv (GL_DITHER), 2518 const_iv (GL_DITHER),
1563 const_iv (GL_BLEND), 2519 const_iv (GL_BLEND),
… …
1565 const_iv (GL_SCISSOR_TEST), 2521 const_iv (GL_SCISSOR_TEST),
1566 const_iv (GL_DEPTH_TEST), 2522 const_iv (GL_DEPTH_TEST),
1567 const_iv (GL_ALPHA_TEST), 2523 const_iv (GL_ALPHA_TEST),
1568 const_iv (GL_NORMALIZE), 2524 const_iv (GL_NORMALIZE),
1569 const_iv (GL_RESCALE_NORMAL), 2525 const_iv (GL_RESCALE_NORMAL),
2526 const_iv (GL_FRONT),
2527 const_iv (GL_BACK),
2528 const_iv (GL_AUX0),
1570 const_iv (GL_AND), 2529 const_iv (GL_AND),
1571 const_iv (GL_ONE), 2530 const_iv (GL_ONE),
1572 const_iv (GL_ZERO), 2531 const_iv (GL_ZERO),
1573 const_iv (GL_SRC_ALPHA), 2532 const_iv (GL_SRC_ALPHA),
1574 const_iv (GL_DST_ALPHA), 2533 const_iv (GL_DST_ALPHA),
1575 const_iv (GL_ONE_MINUS_SRC_ALPHA), 2534 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1576 const_iv (GL_ONE_MINUS_DST_ALPHA), 2535 const_iv (GL_ONE_MINUS_DST_ALPHA),
1577 const_iv (GL_SRC_ALPHA_SATURATE), 2536 const_iv (GL_SRC_ALPHA_SATURATE),
1578 const_iv (GL_RGB), 2537 const_iv (GL_RGB),
1579 const_iv (GL_RGBA), 2538 const_iv (GL_RGBA),
2539 const_iv (GL_RGBA4),
2540 const_iv (GL_RGBA8),
2541 const_iv (GL_RGB5_A1),
1580 const_iv (GL_UNSIGNED_BYTE), 2542 const_iv (GL_UNSIGNED_BYTE),
1581 const_iv (GL_UNSIGNED_SHORT), 2543 const_iv (GL_UNSIGNED_SHORT),
1582 const_iv (GL_UNSIGNED_INT), 2544 const_iv (GL_UNSIGNED_INT),
1583 const_iv (GL_ALPHA), 2545 const_iv (GL_ALPHA),
1584 const_iv (GL_INTENSITY), 2546 const_iv (GL_INTENSITY),
1585 const_iv (GL_LUMINANCE), 2547 const_iv (GL_LUMINANCE),
1586 const_iv (GL_LUMINANCE_ALPHA), 2548 const_iv (GL_LUMINANCE_ALPHA),
1587 const_iv (GL_FLOAT), 2549 const_iv (GL_FLOAT),
1588 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2550 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1589 const_iv (GL_COMPILE), 2551 const_iv (GL_COMPILE),
2552 const_iv (GL_PROXY_TEXTURE_1D),
2553 const_iv (GL_PROXY_TEXTURE_2D),
1590 const_iv (GL_TEXTURE_1D), 2554 const_iv (GL_TEXTURE_1D),
1591 const_iv (GL_TEXTURE_2D), 2555 const_iv (GL_TEXTURE_2D),
1592 const_iv (GL_TEXTURE_ENV), 2556 const_iv (GL_TEXTURE_ENV),
1593 const_iv (GL_TEXTURE_MAG_FILTER), 2557 const_iv (GL_TEXTURE_MAG_FILTER),
1594 const_iv (GL_TEXTURE_MIN_FILTER), 2558 const_iv (GL_TEXTURE_MIN_FILTER),
… …
1615 const_iv (GL_COLOR_LOGIC_OP), 2579 const_iv (GL_COLOR_LOGIC_OP),
1616 const_iv (GL_SEPARABLE_2D), 2580 const_iv (GL_SEPARABLE_2D),
1617 const_iv (GL_CONVOLUTION_2D), 2581 const_iv (GL_CONVOLUTION_2D),
1618 const_iv (GL_CONVOLUTION_BORDER_MODE), 2582 const_iv (GL_CONVOLUTION_BORDER_MODE),
1619 const_iv (GL_CONSTANT_BORDER), 2583 const_iv (GL_CONSTANT_BORDER),
2584 const_iv (GL_POINTS),
1620 const_iv (GL_LINES), 2585 const_iv (GL_LINES),
2586 const_iv (GL_LINE_STRIP),
1621 const_iv (GL_LINE_LOOP), 2587 const_iv (GL_LINE_LOOP),
1622 const_iv (GL_QUADS), 2588 const_iv (GL_QUADS),
1623 const_iv (GL_QUAD_STRIP), 2589 const_iv (GL_QUAD_STRIP),
1624 const_iv (GL_TRIANGLES), 2590 const_iv (GL_TRIANGLES),
1625 const_iv (GL_TRIANGLE_STRIP), 2591 const_iv (GL_TRIANGLE_STRIP),
1626 const_iv (GL_TRIANGLE_FAN), 2592 const_iv (GL_TRIANGLE_FAN),
2593 const_iv (GL_POLYGON),
1627 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2594 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2595 const_iv (GL_POINT_SMOOTH_HINT),
2596 const_iv (GL_LINE_SMOOTH_HINT),
2597 const_iv (GL_POLYGON_SMOOTH_HINT),
2598 const_iv (GL_GENERATE_MIPMAP_HINT),
1628 const_iv (GL_FASTEST), 2599 const_iv (GL_FASTEST),
2600 const_iv (GL_DONT_CARE),
2601 const_iv (GL_NICEST),
1629 const_iv (GL_V2F), 2602 const_iv (GL_V2F),
1630 const_iv (GL_V3F), 2603 const_iv (GL_V3F),
1631 const_iv (GL_T2F_V3F), 2604 const_iv (GL_T2F_V3F),
1632 const_iv (GL_T2F_N3F_V3F), 2605 const_iv (GL_T2F_N3F_V3F),
1633# undef const_iv 2606# undef const_iv
1634 }; 2607 };
1635 2608
1636 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 2609 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1637 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 2610 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
2611
2612 texture_av = newAV ();
2613 AvREAL_off (texture_av);
1638} 2614}
1639 2615
1640char * 2616char *
1641gl_vendor () 2617gl_vendor ()
1642 CODE: 2618 CODE:
… …
1656 CODE: 2632 CODE:
1657 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2633 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1658 OUTPUT: 2634 OUTPUT:
1659 RETVAL 2635 RETVAL
1660 2636
2637const char *glGetString (GLenum pname)
2638
2639GLint glGetInteger (GLenum pname)
2640 CODE:
2641 glGetIntegerv (pname, &RETVAL);
2642 OUTPUT:
2643 RETVAL
2644
2645GLdouble glGetDouble (GLenum pname)
2646 CODE:
2647 glGetDoublev (pname, &RETVAL);
2648 OUTPUT:
2649 RETVAL
2650
1661int glGetError () 2651int glGetError ()
2652
2653void glFinish ()
1662 2654
1663void glClear (int mask) 2655void glClear (int mask)
1664 2656
1665void glClearColor (float r, float g, float b, float a = 1.0) 2657void glClearColor (float r, float g, float b, float a = 1.0)
1666 PROTOTYPE: @ 2658 PROTOTYPE: @
… …
1691 2683
1692void glPopMatrix () 2684void glPopMatrix ()
1693 2685
1694void glLoadIdentity () 2686void glLoadIdentity ()
1695 2687
2688void glDrawBuffer (int buffer)
2689
2690void glReadBuffer (int buffer)
2691
1696# near_ and far_ are due to microsofts buggy "c" compiler 2692# near_ and far_ are due to microsofts buggy "c" compiler
1697void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2693void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1698 2694
1699# near_ and far_ are due to microsofts buggy "c" compiler 2695# near_ and far_ are due to microsofts buggy "c" compiler
1700void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 2696void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
2697
2698PROTOTYPES: DISABLE
1701 2699
1702void glViewport (int x, int y, int width, int height) 2700void glViewport (int x, int y, int width, int height)
1703 2701
1704void glScissor (int x, int y, int width, int height) 2702void glScissor (int x, int y, int width, int height)
1705 2703
… …
1713 2711
1714void glRotate (float angle, float x, float y, float z) 2712void glRotate (float angle, float x, float y, float z)
1715 CODE: 2713 CODE:
1716 glRotatef (angle, x, y, z); 2714 glRotatef (angle, x, y, z);
1717 2715
1718void glBegin (int mode)
1719
1720void glEnd ()
1721
1722void glColor (float r, float g, float b, float a = 1.0) 2716void glColor (float r, float g, float b, float a = 1.0)
1723 PROTOTYPE: @
1724 ALIAS: 2717 ALIAS:
1725 glColor_premultiply = 1 2718 glColor_premultiply = 1
1726 CODE: 2719 CODE:
1727 if (ix) 2720 if (ix)
1728 { 2721 {
1729 r *= a; 2722 r *= a;
1730 g *= a; 2723 g *= a;
1731 b *= a; 2724 b *= a;
1732 } 2725 }
1733 // microsoft visual "c" rounds instead of truncating... 2726 // microsoft visual "c" rounds instead of truncating...
1734 glColor4ub (MIN ((int)(r * 256.f), 255), 2727 glColor4f (r, g, b, a);
1735 MIN ((int)(g * 256.f), 255),
1736 MIN ((int)(b * 256.f), 255),
1737 MIN ((int)(a * 256.f), 255));
1738
1739void glInterleavedArrays (int format, int stride, char *data)
1740
1741void glDrawElements (int mode, int count, int type, char *indices)
1742
1743# 1.2 void glDrawRangeElements (int mode, int start, int end
1744 2728
1745void glRasterPos (float x, float y, float z = 0.) 2729void glRasterPos (float x, float y, float z = 0.)
1746 CODE: 2730 CODE:
1747 glRasterPos3f (0, 0, z); 2731 glRasterPos3f (0, 0, z);
1748 glBitmap (0, 0, 0, 0, x, y, 0); 2732 glBitmap (0, 0, 0, 0, x, y, 0);
… …
1753 2737
1754void glTexCoord (float s, float t) 2738void glTexCoord (float s, float t)
1755 CODE: 2739 CODE:
1756 glTexCoord2f (s, t); 2740 glTexCoord2f (s, t);
1757 2741
2742void glRect (float x1, float y1, float x2, float y2)
2743 CODE:
2744 glRectf (x1, y1, x2, y2);
2745
2746PROTOTYPES: ENABLE
2747
2748void glBegin (int mode)
2749
2750void glEnd ()
2751
2752void glPointSize (GLfloat size)
2753
2754void glLineWidth (GLfloat width)
2755
2756void glInterleavedArrays (int format, int stride, char *data)
2757
2758void glDrawElements (int mode, int count, int type, char *indices)
2759
2760# 1.2 void glDrawRangeElements (int mode, int start, int end
2761
1758void glTexEnv (int target, int pname, float param) 2762void glTexEnv (int target, int pname, float param)
1759 CODE: 2763 CODE:
1760 glTexEnvf (target, pname, param); 2764 glTexEnvf (target, pname, param);
1761 2765
1762void glTexParameter (int target, int pname, float param) 2766void glTexParameter (int target, int pname, float param)
… …
1784 2788
1785void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 2789void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1786 2790
1787void glDrawPixels (int width, int height, int format, int type, char *pixels) 2791void glDrawPixels (int width, int height, int format, int type, char *pixels)
1788 2792
2793void glPixelZoom (float x, float y)
2794
1789void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 2795void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
1790 2796
1791int glGenTexture () 2797int glGenTexture ()
1792 CODE: 2798 CODE:
1793{ 2799 RETVAL = gen_texture ();
1794 GLuint name;
1795 glGenTextures (1, &name);
1796 RETVAL = name;
1797}
1798 OUTPUT: 2800 OUTPUT:
1799 RETVAL 2801 RETVAL
1800 2802
1801void glDeleteTexture (int name) 2803void glDeleteTexture (int name)
1802 CODE: 2804 CODE:
1803{
1804 GLuint name_ = name;
1805 glDeleteTextures (1, &name_); 2805 del_texture (name);
1806} 2806
1807
1808int glGenList () 2807int glGenList ()
1809 CODE: 2808 CODE:
1810 RETVAL = glGenLists (1); 2809 RETVAL = glGenLists (1);
1811 OUTPUT: 2810 OUTPUT:
1812 RETVAL 2811 RETVAL
… …
1819 2818
1820void glEndList () 2819void glEndList ()
1821 2820
1822void glCallList (int list) 2821void glCallList (int list)
1823 2822
2823MODULE = CFPlus PACKAGE = CFPlus::UI::Base
1824 2824
2825PROTOTYPES: DISABLE
2826
2827void
2828find_widget (SV *self, NV x, NV y)
2829 PPCODE:
2830{
2831 if (within_widget (self, x, y))
2832 XPUSHs (self);
2833}
2834
2835BOOT:
2836{
2837 hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);
2838
2839 draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);
2840 draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);
2841 draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);
2842 draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);
2843}
2844
2845void
2846draw (SV *self)
2847 CODE:
2848{
2849 HV *hv;
2850 SV **svp;
2851 NV x, y, w, h;
2852 SV *draw_x_sv = GvSV (draw_x_gv);
2853 SV *draw_y_sv = GvSV (draw_y_gv);
2854 SV *draw_w_sv = GvSV (draw_w_gv);
2855 SV *draw_h_sv = GvSV (draw_h_gv);
2856 SV *hover;
2857 double draw_x, draw_y, draw_w, draw_h;
2858
2859 if (!SvROK (self))
2860 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
2861
2862 hv = (HV *)SvRV (self);
2863
2864 if (SvTYPE (hv) != SVt_PVHV)
2865 croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));
2866
2867 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2868 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2869
2870 if (!h || !w)
2871 XSRETURN_EMPTY;
2872
2873 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
2874 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
2875
2876 draw_x = SvNV (draw_x_sv) + x;
2877 draw_y = SvNV (draw_y_sv) + y;
2878
2879 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
2880 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
2881 XSRETURN_EMPTY;
2882
2883 sv_setnv (draw_x_sv, draw_x);
2884 sv_setnv (draw_y_sv, draw_y);
2885
2886 glPushMatrix ();
2887 glTranslated (x, y, 0);
2888
2889 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
2890 {
2891 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2892
2893 if (svp && SvTRUE (*svp))
2894 {
2895 glColor4f (1*0.2f, 0.8*0.2f, 0.5*0.2f, 0.2f);
2896 glEnable (GL_BLEND);
2897 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2898 glBegin (GL_QUADS);
2899 glVertex2f (0, 0);
2900 glVertex2f (w, 0);
2901 glVertex2f (w, h);
2902 glVertex2f (0, h);
2903 glEnd ();
2904 glDisable (GL_BLEND);
2905 }
2906 }
2907#if 0
2908 if ($ENV{CFPLUS_DEBUG} & 1) {
2909 glPushMatrix;
2910 glColor 1, 1, 0, 1;
2911 glTranslate 0.375, 0.375;
2912 glBegin GL_LINE_LOOP;
2913 glVertex 0 , 0;
2914 glVertex $self->{w} - 1, 0;
2915 glVertex $self->{w} - 1, $self->{h} - 1;
2916 glVertex 0 , $self->{h} - 1;
2917 glEnd;
2918 glPopMatrix;
2919 #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2920 }
2921#endif
2922 PUSHMARK (SP);
2923 XPUSHs (self);
2924 PUTBACK;
2925 call_method ("_draw", G_VOID | G_DISCARD);
2926 SPAGAIN;
2927
2928 glPopMatrix ();
2929
2930 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
2931 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
2932}
2933

Diff Legend

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