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

Diff Legend

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