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.122 by root, Fri Jun 23 22:35:15 2006 UTC vs.
Revision 1.225 by root, Sat Aug 11 12:07:54 2007 UTC

1#ifdef _WIN32 1#ifdef _WIN32
2# define _WIN32_WINNT 0x0500 // needed to get win2000 api calls 2# define WIN32_LEAN_AND_MEAN
3# define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls
3# include <malloc.h> 4# include <malloc.h>
4# include <windows.h> 5# include <windows.h>
6# include <wininet.h>
5# pragma warning(disable:4244) 7# pragma warning(disable:4244)
8# pragma warning(disable:4761)
9#endif
10
11//#define DEBUG 1
12#if DEBUG
13# include <valgrind/memcheck.h>
6#endif 14#endif
7 15
8#include "EXTERN.h" 16#include "EXTERN.h"
9#include "perl.h" 17#include "perl.h"
10#include "XSUB.h" 18#include "XSUB.h"
11 19
20#ifdef _WIN32
21# undef pipe
22// microsoft vs. C
23# define sqrtf(x) sqrt(x)
24# define roundf(x) (int)(x)
25# define atan2f(x,y) atan2(x,y)
26# define M_PI 3.14159265f
27#endif
28
29#include <assert.h>
12#include <math.h> 30#include <math.h>
13#include <string.h> 31#include <string.h>
14#include <stdio.h> 32#include <stdio.h>
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;
… …
876 if (attrs) 1117 if (attrs)
877 pango_layout_set_attributes (self->pl, attrs); 1118 pango_layout_set_attributes (self->pl, attrs);
878} 1119}
879 1120
880void 1121void
881get_shapes (CFClient::Layout self) 1122get_shapes (CFPlus::Layout self)
882 PPCODE: 1123 PPCODE:
883{ 1124{
884 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1125 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
885 1126
886 do 1127 do
… …
890 if (run && shape_attr_p (run)) 1131 if (run && shape_attr_p (run))
891 { 1132 {
892 PangoRectangle extents; 1133 PangoRectangle extents;
893 pango_layout_iter_get_run_extents (iter, 0, &extents); 1134 pango_layout_iter_get_run_extents (iter, 0, &extents);
894 1135
1136 EXTEND (SP, 2);
895 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x)))); 1137 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
896 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y)))); 1138 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
897 } 1139 }
898 } 1140 }
899 while (pango_layout_iter_next_run (iter)); 1141 while (pango_layout_iter_next_run (iter));
900 1142
901 pango_layout_iter_free (iter); 1143 pango_layout_iter_free (iter);
902} 1144}
903 1145
904int 1146int
905has_wrapped (CFClient::Layout self) 1147has_wrapped (CFPlus::Layout self)
906 CODE: 1148 CODE:
907{ 1149{
908 int lines = 1; 1150 int lines = 1;
909 const char *text = pango_layout_get_text (self->pl); 1151 const char *text = pango_layout_get_text (self->pl);
910 1152
… …
915} 1157}
916 OUTPUT: 1158 OUTPUT:
917 RETVAL 1159 RETVAL
918 1160
919SV * 1161SV *
920get_text (CFClient::Layout self) 1162get_text (CFPlus::Layout self)
921 CODE: 1163 CODE:
922 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1164 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
923 sv_utf8_decode (RETVAL); 1165 sv_utf8_decode (RETVAL);
924 OUTPUT: 1166 OUTPUT:
925 RETVAL 1167 RETVAL
926 1168
927void 1169void
928set_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.)
929 CODE: 1171 CODE:
930 self->r = r; 1172 self->r = r;
931 self->g = g; 1173 self->g = g;
932 self->b = b; 1174 self->b = b;
933 self->a = a; 1175 self->a = a;
934 1176
935void 1177void
936set_font (CFClient::Layout self, CFClient::Font font = 0) 1178set_font (CFPlus::Layout self, CFPlus::Font font = 0)
937 CODE: 1179 CODE:
938 if (self->font != font) 1180 if (self->font != font)
939 { 1181 {
940 self->font = font; 1182 self->font = font;
941 layout_update_font (self); 1183 layout_update_font (self);
942 } 1184 }
943 1185
944void 1186void
945set_height (CFClient::Layout self, int base_height) 1187set_height (CFPlus::Layout self, int base_height)
946 CODE: 1188 CODE:
947 if (self->base_height != base_height) 1189 if (self->base_height != base_height)
948 { 1190 {
949 self->base_height = base_height; 1191 self->base_height = base_height;
950 layout_update_font (self); 1192 layout_update_font (self);
951 } 1193 }
952 1194
953void 1195void
954set_width (CFClient::Layout self, int max_width = -1) 1196set_width (CFPlus::Layout self, int max_width = -1)
955 CODE: 1197 CODE:
956 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);
957 1199
958void 1200void
959set_indent (CFClient::Layout self, int indent) 1201set_indent (CFPlus::Layout self, int indent)
960 CODE: 1202 CODE:
961 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1203 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
962 1204
963void 1205void
964set_spacing (CFClient::Layout self, int spacing) 1206set_spacing (CFPlus::Layout self, int spacing)
965 CODE: 1207 CODE:
966 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1208 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
967 1209
968void 1210void
969set_ellipsise (CFClient::Layout self, int ellipsise) 1211set_ellipsise (CFPlus::Layout self, int ellipsise)
970 CODE: 1212 CODE:
971 pango_layout_set_ellipsize (self->pl, 1213 pango_layout_set_ellipsize (self->pl,
972 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1214 ellipsise == 1 ? PANGO_ELLIPSIZE_START
973 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1215 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
974 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1216 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
975 : PANGO_ELLIPSIZE_NONE 1217 : PANGO_ELLIPSIZE_NONE
976 ); 1218 );
977 1219
978void 1220void
979set_single_paragraph_mode (CFClient::Layout self, int spm) 1221set_single_paragraph_mode (CFPlus::Layout self, int spm)
980 CODE: 1222 CODE:
981 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1223 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
982 1224
983void 1225void
984size (CFClient::Layout self) 1226size (CFPlus::Layout self)
985 PPCODE: 1227 PPCODE:
986{ 1228{
987 int w, h; 1229 int w, h;
988 1230
989 layout_get_pixel_size (self, &w, &h); 1231 layout_get_pixel_size (self, &w, &h);
… …
992 PUSHs (sv_2mortal (newSViv (w))); 1234 PUSHs (sv_2mortal (newSViv (w)));
993 PUSHs (sv_2mortal (newSViv (h))); 1235 PUSHs (sv_2mortal (newSViv (h)));
994} 1236}
995 1237
996int 1238int
997descent (CFClient::Layout self) 1239descent (CFPlus::Layout self)
998 CODE: 1240 CODE:
999{ 1241{
1000 PangoRectangle rect; 1242 PangoRectangle rect;
1001 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0); 1243 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1002 pango_layout_line_get_pixel_extents (line, 0, &rect); 1244 pango_layout_line_get_pixel_extents (line, 0, &rect);
… …
1004} 1246}
1005 OUTPUT: 1247 OUTPUT:
1006 RETVAL 1248 RETVAL
1007 1249
1008int 1250int
1009xy_to_index (CFClient::Layout self, int x, int y) 1251xy_to_index (CFPlus::Layout self, int x, int y)
1010 CODE: 1252 CODE:
1011{ 1253{
1012 int index, trailing; 1254 int index, trailing;
1013 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);
1014 RETVAL = index; 1256 RETVAL = index + trailing;
1015} 1257}
1016 OUTPUT: 1258 OUTPUT:
1017 RETVAL 1259 RETVAL
1018 1260
1019void 1261void
1020cursor_pos (CFClient::Layout self, int index) 1262cursor_pos (CFPlus::Layout self, int index)
1021 PPCODE: 1263 PPCODE:
1022{ 1264{
1023 PangoRectangle strong_pos; 1265 PangoRectangle strong_pos;
1024 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1266 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
1025 1267
… …
1028 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1270 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
1029 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1271 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
1030} 1272}
1031 1273
1032void 1274void
1033render (CFClient::Layout self) 1275index_to_line_x (CFPlus::Layout self, int index, int trailing = 0)
1034 PPCODE: 1276 PPCODE:
1035{ 1277{
1036 SV *retval; 1278 int line, x;
1037 int w, h;
1038 1279
1039 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 */
1040 1282
1041 if (self->rgba)
1042 {
1043 cairo_surface_t *surface;
1044 cairo_t *cairo;
1045
1046 retval = newSV (w * h * 4);
1047 SvPOK_only (retval);
1048 SvCUR_set (retval, w * h * 4);
1049
1050 memset (SvPVX (retval), 0, w * h * 4);
1051
1052 surface = cairo_image_surface_create_for_data (
1053 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
1054 cairo = cairo_create (surface);
1055 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
1056
1057 pango_cairo_show_layout (cairo, self->pl);
1058
1059 cairo_destroy (cairo);
1060 cairo_surface_destroy (surface);
1061
1062 // what a mess, and its premultiplied, too :(
1063 {
1064 uint32_t *p = (uint32_t *)SvPVX (retval);
1065 uint32_t *e = p + w * h;
1066
1067 while (p < e)
1068 {
1069 uint32_t rgba = *p;
1070 rgba = (rgba >> 24) | (rgba << 8);
1071#if 0
1072#ifdef _WIN32
1073 {//D
1074 uint8_t r = rgba >> 24;
1075 uint8_t g = rgba >> 16;
1076 uint8_t b = rgba >> 8;
1077 uint8_t a = rgba >> 0;
1078
1079 rgba = (rgba & 0xffffff00) | a;
1080 }
1081#endif
1082#endif
1083 rgba = SDL_SwapBE32 (rgba);
1084 *p++ = rgba;
1085 }
1086 }
1087
1088 EXTEND (SP, 5); 1283 EXTEND (SP, 2);
1089 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)
1090 PUSHs (sv_2mortal (newSViv (h))); 1305 PUSHs (sv_2mortal (newSViv (index + trailing)));
1091 PUSHs (sv_2mortal (retval));
1092 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
1093 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
1094 }
1095 else 1306 else
1096 { 1307 {
1097 FT_Bitmap bitmap;
1098
1099 retval = newSV (w * h);
1100 SvPOK_only (retval);
1101 SvCUR_set (retval, w * h);
1102
1103 bitmap.rows = h;
1104 bitmap.width = w;
1105 bitmap.pitch = w;
1106 bitmap.buffer = (unsigned char*)SvPVX (retval);
1107 bitmap.num_grays = 256;
1108 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
1109
1110 memset (bitmap.buffer, 0, w * h);
1111
1112 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
1113
1114 EXTEND (SP, 5);
1115 PUSHs (sv_2mortal (newSViv (w))); 1308 PUSHs (sv_2mortal (newSViv (index)));
1116 PUSHs (sv_2mortal (newSViv (h))); 1309 PUSHs (sv_2mortal (newSViv (trailing)));
1117 PUSHs (sv_2mortal (retval));
1118 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
1119 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
1120 } 1310 }
1121} 1311}
1122 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
1123MODULE = CFClient PACKAGE = CFClient::Texture 1347MODULE = CFPlus PACKAGE = CFPlus::Texture
1124 1348
1125void 1349PROTOTYPES: ENABLE
1126pad2pot (SV *data_, SV *w_, SV *h_)
1127 CODE:
1128{
1129 int ow = SvIV (w_);
1130 int oh = SvIV (h_);
1131 1350
1132 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_))
1133 { 1358 {
1134 int nw = minpot (ow);
1135 int nh = minpot (oh);
1136
1137 if (nw != ow || nh != oh)
1138 {
1139 if (SvOK (data_))
1140 {
1141 STRLEN datalen; 1359 STRLEN datalen;
1142 char *data = SvPVbyte (data_, datalen); 1360 char *data = SvPVbyte (data_, datalen);
1143 int bpp = datalen / (ow * oh); 1361 int bpp = datalen / (ow * oh);
1144 SV *result_ = sv_2mortal (newSV (nw * nh * bpp)); 1362 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1145 1363
1146 SvPOK_only (result_); 1364 SvPOK_only (result_);
1147 SvCUR_set (result_, nw * nh * bpp); 1365 SvCUR_set (result_, nw * nh * bpp);
1148 1366
1149 memset (SvPVX (result_), 0, nw * nh * bpp); 1367 memset (SvPVX (result_), 0, nw * nh * bpp);
1150 while (oh--) 1368 while (oh--)
1151 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);
1152 1370
1153 sv_setsv (data_, result_); 1371 sv_setsv (data_, result_);
1154 }
1155
1156 sv_setiv (w_, nw);
1157 sv_setiv (h_, nh);
1158 }
1159 } 1372 }
1160} 1373}
1161 1374
1162void 1375void
1163draw_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.)
… …
1169{ 1382{
1170 HV *hv = (HV *)SvRV (self); 1383 HV *hv = (HV *)SvRV (self);
1171 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1384 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1172 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1385 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1173 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;
1174 1390
1175 if (items < 5) 1391 if (items < 5)
1176 { 1392 {
1177 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1393 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1178 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1394 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1206 glDisable (GL_ALPHA_TEST); 1422 glDisable (GL_ALPHA_TEST);
1207 glDisable (GL_BLEND); 1423 glDisable (GL_BLEND);
1208 } 1424 }
1209} 1425}
1210 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
1211MODULE = CFClient PACKAGE = CFClient::Map 1438MODULE = CFPlus PACKAGE = CFPlus::Map
1212 1439
1213CFClient::Map 1440PROTOTYPES: DISABLE
1214new (SV *class, int map_width, int map_height) 1441
1442CFPlus::Map
1443new (SV *class)
1215 CODE: 1444 CODE:
1216 New (0, RETVAL, 1, struct map); 1445 New (0, RETVAL, 1, struct map);
1217 RETVAL->x = 0; 1446 RETVAL->x = 0;
1218 RETVAL->y = 0; 1447 RETVAL->y = 0;
1219 RETVAL->w = map_width; 1448 RETVAL->w = 0;
1220 RETVAL->h = map_height; 1449 RETVAL->h = 0;
1221 RETVAL->ox = 0; 1450 RETVAL->ox = 0;
1222 RETVAL->oy = 0; 1451 RETVAL->oy = 0;
1223 RETVAL->faces = 8192; 1452 RETVAL->faces = 8192; Newz (0, RETVAL->face2tile, RETVAL->faces, tileid);
1224 Newz (0, RETVAL->face, RETVAL->faces, mapface); 1453 RETVAL->texs = 8192; Newz (0, RETVAL->tex , RETVAL->texs , maptex);
1225 RETVAL->texs = 8192;
1226 Newz (0, RETVAL->tex, RETVAL->texs, maptex);
1227 RETVAL->rows = 0; 1454 RETVAL->rows = 0;
1228 RETVAL->row = 0; 1455 RETVAL->row = 0;
1229 OUTPUT: 1456 OUTPUT:
1230 RETVAL 1457 RETVAL
1231 1458
1232void 1459void
1233DESTROY (CFClient::Map self) 1460DESTROY (CFPlus::Map self)
1234 CODE: 1461 CODE:
1235{ 1462{
1236 map_clear (self); 1463 map_clear (self);
1237 Safefree (self->face); 1464 Safefree (self->face2tile);
1238 Safefree (self->tex); 1465 Safefree (self->tex);
1239 Safefree (self); 1466 Safefree (self);
1240} 1467}
1241 1468
1242void 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
1243clear (CFClient::Map self) 1476clear (CFPlus::Map self)
1244 CODE: 1477 CODE:
1245 map_clear (self); 1478 map_clear (self);
1246 1479
1247void 1480void
1248set_face (CFClient::Map self, int face, int texid) 1481set_tileid (CFPlus::Map self, int face, int tile)
1249 CODE: 1482 CODE:
1250{ 1483{
1251 while (self->faces <= face) 1484 need_facenum (self, face); self->face2tile [face] = tile;
1252 { 1485 need_texid (self, tile);
1253 Append (mapface, self->face, self->faces, self->faces);
1254 self->faces *= 2;
1255 }
1256
1257 self->face [face] = texid;
1258} 1486}
1259 1487
1260void 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
1261set_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)
1262 CODE: 1513 CODE:
1263{ 1514{
1264 while (self->texs <= texid) 1515 need_texid (self, texid);
1265 {
1266 Append (maptex, self->tex, self->texs, self->texs);
1267 self->texs *= 2;
1268 }
1269 1516
1270 { 1517 {
1271 maptex *tex = self->tex + texid; 1518 maptex *tex = self->tex + texid;
1272 1519
1273 tex->name = name; 1520 tex->name = name;
… …
1290 // from transparent color bleeding and ugly wrapping effects. 1537 // from transparent color bleeding and ugly wrapping effects.
1291 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1538 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1292} 1539}
1293 1540
1294int 1541int
1295ox (CFClient::Map self) 1542ox (CFPlus::Map self)
1296 ALIAS: 1543 ALIAS:
1297 oy = 1 1544 oy = 1
1298 x = 2 1545 x = 2
1299 y = 3 1546 y = 3
1300 w = 4 1547 w = 4
… …
1311 } 1558 }
1312 OUTPUT: 1559 OUTPUT:
1313 RETVAL 1560 RETVAL
1314 1561
1315void 1562void
1316scroll (CFClient::Map self, int dx, int dy) 1563scroll (CFPlus::Map self, int dx, int dy)
1317 CODE: 1564 CODE:
1318{ 1565{
1319 if (dx > 0) 1566 if (dx > 0)
1320 map_blank (self, self->x, self->y, dx - 1, self->h); 1567 map_blank (self, self->x, self->y, dx, self->h);
1321 else if (dx < 0) 1568 else if (dx < 0)
1322 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);
1323 1570
1324 if (dy > 0) 1571 if (dy > 0)
1325 map_blank (self, self->x, self->y, self->w, dy - 1); 1572 map_blank (self, self->x, self->y, self->w, dy);
1326 else if (dy < 0) 1573 else if (dy < 0)
1327 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);
1328 1575
1329 self->ox += dx; self->x += dx; 1576 self->ox += dx; self->x += dx;
1330 self->oy += dy; self->y += dy; 1577 self->oy += dy; self->y += dy;
1331 1578
1332 while (self->y < 0) 1579 while (self->y < 0)
… …
1336 self->rows += MAP_EXTEND_Y; 1583 self->rows += MAP_EXTEND_Y;
1337 self->y += MAP_EXTEND_Y; 1584 self->y += MAP_EXTEND_Y;
1338 } 1585 }
1339} 1586}
1340 1587
1341void 1588SV *
1342map1a_update (CFClient::Map self, SV *data_) 1589map1a_update (CFPlus::Map self, SV *data_, int extmap)
1343 CODE: 1590 CODE:
1344{ 1591{
1345 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1592 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1346 uint8_t *data_end = (uint8_t *)SvEND (data_); 1593 uint8_t *data_end = (uint8_t *)SvEND (data_);
1347 mapcell *cell; 1594 mapcell *cell;
1348 int x, y, flags; 1595 int x, y, z, flags;
1596 AV *missing = newAV ();
1597 RETVAL = newRV_noinc ((SV *)missing);
1349 1598
1350 while (data < data_end) 1599 while (data < data_end - 1)
1351 { 1600 {
1352 flags = (data [0] << 8) + data [1]; data += 2; 1601 flags = (data [0] << 8) + data [1]; data += 2;
1353 1602
1354 x = self->x + ((flags >> 10) & 63); 1603 x = self->x + ((flags >> 10) & 63);
1355 y = self->y + ((flags >> 4) & 63); 1604 y = self->y + ((flags >> 4) & 63);
1356 1605
1357 cell = map_get_cell (self, x, y); 1606 cell = map_get_cell (self, x, y);
1358 1607
1359 if (flags & 15) 1608 if (flags & 15)
1360 { 1609 {
1361 if (cell->darkness < 0) 1610 if (!cell->darkness)
1362 { 1611 {
1612 memset (cell, 0, sizeof (*cell));
1363 cell->darkness = 0; 1613 cell->darkness = 256;
1364 cell->face [0] = 0;
1365 cell->face [1] = 0;
1366 cell->face [2] = 0;
1367 } 1614 }
1368 1615
1369 cell->darkness = flags & 8 ? *data++ : 255;
1370
1371 //TODO: don't trust server data to be in-range(!) 1616 //TODO: don't trust server data to be in-range(!)
1372 1617
1373 if (flags & 4) 1618 if (flags & 8)
1374 { 1619 {
1375 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;
1376 } 1656 }
1377 1657
1658 for (z = 0; z <= 2; ++z)
1378 if (flags & 2) 1659 if (flags & (4 >> z))
1379 { 1660 {
1380 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 }
1381 } 1678 }
1382
1383 if (flags & 1)
1384 {
1385 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
1386 }
1387 } 1679 }
1388 else 1680 else
1389 cell->darkness = -1; 1681 cell->darkness = 0;
1390 } 1682 }
1391} 1683}
1684 OUTPUT:
1685 RETVAL
1392 1686
1393SV * 1687SV *
1394mapmap (CFClient::Map self, int x0, int y0, int w, int h) 1688mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1395 CODE: 1689 CODE:
1396{ 1690{
1397 int x1, x; 1691 int x1, x;
1398 int y1, y; 1692 int y1, y;
1399 int z; 1693 int z;
… …
1420 { 1714 {
1421 mapcell *cell = row->col + (x - row->c0); 1715 mapcell *cell = row->col + (x - row->c0);
1422 1716
1423 for (z = 0; z <= 0; z++) 1717 for (z = 0; z <= 0; z++)
1424 { 1718 {
1425 mapface face = cell->face [z];
1426
1427 if (face)
1428 {
1429 maptex tex = self->tex [face]; 1719 maptex tex = self->tex [cell->tile [z]];
1430 int a0 = 255 - tex.a; 1720 int a0 = 255 - tex.a;
1431 int a1 = tex.a; 1721 int a1 = tex.a;
1432 1722
1433 r = (r * a0 + tex.r * a1) / 255; 1723 r = (r * a0 + tex.r * a1) / 255;
1434 g = (g * a0 + tex.g * a1) / 255; 1724 g = (g * a0 + tex.g * a1) / 255;
1435 b = (b * a0 + tex.b * a1) / 255; 1725 b = (b * a0 + tex.b * a1) / 255;
1436 a = (a * a0 + tex.a * a1) / 255; 1726 a = (a * a0 + tex.a * a1) / 255;
1437 }
1438 } 1727 }
1439 } 1728 }
1440 1729
1441 *map++ = (r ) 1730 *map++ = (r )
1442 | (g << 8) 1731 | (g << 8)
… …
1449} 1738}
1450 OUTPUT: 1739 OUTPUT:
1451 RETVAL 1740 RETVAL
1452 1741
1453void 1742void
1454draw (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)
1455 CODE: 1744 CODE:
1456{ 1745{
1457 int vx, vy;
1458 int x, y, z; 1746 int x, y, z;
1459 int last_name;
1460 mapface face;
1461 1747
1462 vx = self->x + self->w / 2 - sw / 2 - shift_x; 1748 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1463 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, fats and wasteful on memory (64k)
1751 smooth_key skey;
1464 1752
1465 /* 1753 rc_t *rc = rc_alloc ();
1466 int vx = self->vx = self->w >= sw 1754 rc_key_t key;
1467 ? self->x + (self->w - sw) / 2 1755 rc_array_t *arr;
1468 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
1469 1756
1470 int vy = self->vy = self->h >= sh 1757 // thats current max. sorry.
1471 ? self->y + (self->h - sh) / 2 1758 if (sw > 255) sw = 255;
1472 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy)); 1759 if (sh > 255) sh = 255;
1473 */
1474 1760
1475 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 }
1476 1797
1477 glEnable (GL_BLEND); 1798 glEnable (GL_BLEND);
1478 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1799 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1479 glEnable (GL_TEXTURE_2D);
1480 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1800 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1481 1801
1482 glBegin (GL_QUADS);
1483
1484 last_name = 0;
1485
1486 for (z = 0; z < 3; z++) 1802 for (z = 0; z <= 2; z++)
1803 {
1804 memset (smooth_level, 0, sizeof (smooth_level));
1805
1487 for (y = 0; y < sh; y++) 1806 for (y = 0; y < sh; y++)
1488 if (0 <= y + vy && y + vy < self->rows) 1807 if (0 <= y + my && y + my < self->rows)
1489 { 1808 {
1490 maprow *row = self->row + (y + vy); 1809 maprow *row = self->row + (y + my);
1491 1810
1492 for (x = 0; x < sw; x++) 1811 for (x = 0; x < sw; x++)
1493 if (row->c0 <= x + vx && x + vx < row->c1) 1812 if (row->c0 <= x + mx && x + mx < row->c1)
1494 { 1813 {
1495 mapcell *cell = row->col + (x + vx - row->c0); 1814 mapcell *cell = row->col + (x + mx - row->c0);
1496
1497 face = cell->face [z]; 1815 tileid tile = cell->tile [z];
1498 1816
1499 if (face) 1817 if (tile)
1818 {
1819 maptex tex = self->tex [tile];
1820 int px, py;
1821
1822 // suppressing texture state switches here
1823 // is only moderately effective, but worth the extra effort
1824 if (key.texname != tex.name)
1825 {
1826 if (!tex.name)
1827 tex = self->tex [2]; /* missing, replace by noface */
1828
1829 key.texname = tex.name;
1830 arr = rc_array (rc, &key);
1831 }
1832
1833 px = (x + 1) * T - tex.w;
1834 py = (y + 1) * T - tex.h;
1835
1836 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1837 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1838 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1839 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1840
1841 if (cell->flags && z == 2)
1842 {
1843 // overlays such as the speech bubble, probably more to come
1844 if (cell->flags & 1)
1845 {
1846 maptex tex = self->tex [1];
1847 int px = x * T + T * 2 / 32;
1848 int py = y * T - T * 6 / 32;
1849
1850 if (tex.name)
1851 {
1852 if (key.texname != tex.name)
1853 {
1854 key.texname = tex.name;
1855 arr = rc_array (rc, &key);
1856 }
1857
1858 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1859 rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1860 rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1861 rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1862 }
1863 }
1864 }
1865
1866 // update smooth hash
1867 if (tex.smoothtile)
1868 {
1869 skey.tile = tex.smoothtile;
1870 skey.level = tex.smoothlevel;
1871
1872 smooth_level [tex.smoothlevel >> 5] |= ((uint32_t)1) << (tex.smoothlevel & 31);
1873
1874 // add bits to current tile and all neighbours. skey.x|y is
1875 // shifted +1|+1 so we always stay positive.
1876
1877 // bits is ___n cccc CCCC bbbb
1878 // n do not draw borders&corners
1879 // c draw these corners, but...
1880 // C ... not these
1881 // b draw these borders
1882
1883 // borders: 1 ┃· 2 ━━ 4 ·┃ 8 ··
1884 // ┃· ·· ·┃ ━━
1885
1886 // corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
1887 // ·· ·· ·┏ ┓·
1888
1889 // full tile
1890 skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);
1891
1892 // borders
1893 skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);
1894 skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);
1895 skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);
1896 skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);
1897
1898 // corners
1899 skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1900 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1901 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1902 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1903 }
1904 }
1905 }
1906 }
1907
1908 rc_draw (rc);
1909 rc_clear (rc);
1910
1911 // go through all smoothlevels, lowest to highest, then draw.
1912 // this is basically counting sort
1913 {
1914 int w, b;
1915
1916 for (w = 0; w < 256 / 32; ++w)
1917 {
1918 uint32_t smask = smooth_level [w];
1919 if (smask)
1920 for (b = 0; b < 32; ++b)
1921 if (smask & (((uint32_t)1) << b))
1500 { 1922 {
1501 maptex tex = self->tex [face]; 1923 int level = (w << 5) | b;
1924 HE *he;
1502 1925
1503 int px = (x + 1) * 32 - tex.w; 1926 hv_iterinit (smooth);
1504 int py = (y + 1) * 32 - tex.h; 1927 while ((he = hv_iternext (smooth)))
1505
1506 if (last_name != tex.name)
1507 { 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])
1508 glEnd (); 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 {
1509 last_name = tex.name; 1950 key.texname = tex.name;
1510 glBindTexture (GL_TEXTURE_2D, last_name); 1951 arr = rc_array (rc, &key);
1511 glBegin (GL_QUADS); 1952 }
1953
1954 if (border)
1955 {
1956 float ox = border * dx;
1957
1958 rc_t2f_v3f (arr, ox , 0.f , px , py , 0);
1959 rc_t2f_v3f (arr, ox , dy , px , py + T, 0);
1960 rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0);
1961 rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0);
1962 }
1963
1964 if (corner)
1965 {
1966 float ox = corner * dx;
1967
1968 rc_t2f_v3f (arr, ox , dy , px , py , 0);
1969 rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0);
1970 rc_t2f_v3f (arr, ox + dx, dy * 2.f, px + T, py + T, 0);
1971 rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0);
1972 }
1973 }
1974 }
1512 } 1975 }
1513
1514 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1515 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1516 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1517 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1518 } 1976 }
1519 }
1520 } 1977 }
1978 }
1521 1979
1522 glEnd (); 1980 hv_clear (smooth);
1981 rc_draw (rc);
1982 rc_clear (rc);
1983 }
1523 1984
1524 glDisable (GL_TEXTURE_2D);
1525 glDisable (GL_BLEND); 1985 glDisable (GL_BLEND);
1526} 1986 rc_free (rc);
1527 1987
1988 // top layer: overlays such as the health bar
1989 for (y = 0; y < sh; y++)
1990 if (0 <= y + my && y + my < self->rows)
1991 {
1992 maprow *row = self->row + (y + my);
1993
1994 for (x = 0; x < sw; x++)
1995 if (row->c0 <= x + mx && x + mx < row->c1)
1996 {
1997 mapcell *cell = row->col + (x + mx - row->c0);
1998
1999 int px = x * T;
2000 int py = y * T;
2001
2002 if (cell->stat_hp)
2003 {
2004 int width = cell->stat_width * T;
2005 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
2006
2007 glColor3ub (0, 0, 0);
2008 glRectf (px + 1, py - thick - 2,
2009 px + width - 1, py);
2010
2011 glColor3ub (cell->stat_hp, 255 - cell->stat_hp, 0);
2012 glRectf (px + 2,
2013 py - thick - 1,
2014 px + width - 2 - cell->stat_hp * (width - 4) / 255, py - 1);
2015 }
2016 }
2017 }
2018}
2019
1528void 2020void
1529draw_magicmap (CFClient::Map self, int dx, int dy, int w, int h, unsigned char *data) 2021draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data)
1530 CODE: 2022 CODE:
1531{ 2023{
1532 static float color[16][3] = { 2024 static float color[16][3] = {
1533 { 0.00, 0.00, 0.00 }, 2025 { 0.00F, 0.00F, 0.00F },
1534 { 1.00, 1.00, 1.00 }, 2026 { 1.00F, 1.00F, 1.00F },
1535 { 0.00, 0.00, 0.55 }, 2027 { 0.00F, 0.00F, 0.55F },
1536 { 1.00, 0.00, 0.00 }, 2028 { 1.00F, 0.00F, 0.00F },
1537 2029
1538 { 1.00, 0.54, 0.00 }, 2030 { 1.00F, 0.54F, 0.00F },
1539 { 0.11, 0.56, 1.00 }, 2031 { 0.11F, 0.56F, 1.00F },
1540 { 0.93, 0.46, 0.00 }, 2032 { 0.93F, 0.46F, 0.00F },
1541 { 0.18, 0.54, 0.34 }, 2033 { 0.18F, 0.54F, 0.34F },
1542 2034
1543 { 0.56, 0.73, 0.56 }, 2035 { 0.56F, 0.73F, 0.56F },
1544 { 0.80, 0.80, 0.80 }, 2036 { 0.80F, 0.80F, 0.80F },
1545 { 0.55, 0.41, 0.13 }, 2037 { 0.55F, 0.41F, 0.13F },
1546 { 0.99, 0.77, 0.26 }, 2038 { 0.99F, 0.77F, 0.26F },
1547 2039
1548 { 0.74, 0.65, 0.41 }, 2040 { 0.74F, 0.65F, 0.41F },
1549 2041
1550 { 0.00, 1.00, 1.00 }, 2042 { 0.00F, 1.00F, 1.00F },
1551 { 1.00, 0.00, 1.00 }, 2043 { 1.00F, 0.00F, 1.00F },
1552 { 1.00, 1.00, 0.00 }, 2044 { 1.00F, 1.00F, 0.00F },
1553 }; 2045 };
1554 2046
1555 int x, y; 2047 int x, y;
1556 2048
1557 glEnable (GL_TEXTURE_2D); 2049 glEnable (GL_TEXTURE_2D);
… …
1584 glDisable (GL_BLEND); 2076 glDisable (GL_BLEND);
1585 glDisable (GL_TEXTURE_2D); 2077 glDisable (GL_TEXTURE_2D);
1586} 2078}
1587 2079
1588void 2080void
1589fow_texture (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 2081fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh)
1590 PPCODE: 2082 PPCODE:
1591{ 2083{
1592 int vx, vy;
1593 int x, y; 2084 int x, y;
2085 int sw1 = sw + 2;
2086 int sh1 = sh + 2;
2087 int sh3 = sh * 3;
1594 int sw4 = (sw + 3) & ~3; 2088 int sw34 = (sw * 3 + 3) & ~3;
2089 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1595 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2090 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1596 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2091 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1597 2092
1598 memset (darkness, 255, sw4 * sh);
1599 SvPOK_only (darkness_sv); 2093 SvPOK_only (darkness3_sv);
1600 SvCUR_set (darkness_sv, sw4 * sh); 2094 SvCUR_set (darkness3_sv, sw34 * sh3);
1601 2095
1602 vx = self->x + (self->w - sw + 1) / 2 - shift_x; 2096 mx += self->x - 1;
1603 vy = self->y + (self->h - sh + 1) / 2 - shift_y; 2097 my += self->y - 1;
1604 2098
2099 memset (darkness1, 255, sw1 * sh1);
2100
1605 for (y = 0; y < sh; y++) 2101 for (y = 0; y < sh1; y++)
1606 if (0 <= y + vy && y + vy < self->rows) 2102 if (0 <= y + my && y + my < self->rows)
1607 { 2103 {
1608 maprow *row = self->row + (y + vy); 2104 maprow *row = self->row + (y + my);
1609 2105
1610 for (x = 0; x < sw; x++) 2106 for (x = 0; x < sw1; x++)
1611 if (row->c0 <= x + vx && x + vx < row->c1) 2107 if (row->c0 <= x + mx && x + mx < row->c1)
1612 { 2108 {
1613 mapcell *cell = row->col + (x + vx - row->c0); 2109 mapcell *cell = row->col + (x + mx - row->c0);
1614 2110
1615 darkness[y * sw4 + x] = cell->darkness < 0 2111 darkness1 [y * sw1 + x] = cell->darkness
2112 ? 255 - (cell->darkness - 1)
1616 ? 255 - FOW_DARKNESS 2113 : 255 - FOW_DARKNESS;
1617 : 255 - cell->darkness;
1618 } 2114 }
1619 } 2115 }
1620 2116
2117 for (y = 0; y < sh; ++y)
2118 for (x = 0; x < sw; ++x)
2119 {
2120 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2121 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2122 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2123 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2124 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2125 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2126 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2127 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2128 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
2129
2130 uint8_t r11 = (d11 + d21 + d12) / 3;
2131 uint8_t r21 = d21;
2132 uint8_t r31 = (d21 + d31 + d32) / 3;
2133
2134 uint8_t r12 = d12;
2135 uint8_t r22 = d22;
2136 uint8_t r32 = d32;
2137
2138 uint8_t r13 = (d13 + d23 + d12) / 3;
2139 uint8_t r23 = d23;
2140 uint8_t r33 = (d23 + d33 + d32) / 3;
2141
2142 darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);
2143 darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);
2144 darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);
2145 darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);
2146 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);
2147 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);
2148 darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);
2149 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);
2150 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);
2151 }
2152
2153 free (darkness1);
2154
1621 EXTEND (SP, 3); 2155 EXTEND (SP, 3);
1622 PUSHs (sv_2mortal (newSViv (sw4))); 2156 PUSHs (sv_2mortal (newSViv (sw34)));
1623 PUSHs (sv_2mortal (newSViv (sh))); 2157 PUSHs (sv_2mortal (newSViv (sh3)));
1624 PUSHs (darkness_sv); 2158 PUSHs (darkness3_sv);
1625} 2159}
1626 2160
1627SV * 2161SV *
1628get_rect (CFClient::Map self, int x0, int y0, int w, int h) 2162get_rect (CFPlus::Map self, int x0, int y0, int w, int h)
1629 CODE: 2163 CODE:
1630{ 2164{
1631 int x, y, x1, y1; 2165 int x, y, x1, y1;
1632 SV *data_sv = newSV (w * h * 7 + 5); 2166 SV *data_sv = newSV (w * h * 7 + 5);
1633 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2167 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
1658 if (row && row->c0 <= x && x < row->c1) 2192 if (row && row->c0 <= x && x < row->c1)
1659 { 2193 {
1660 mapcell *cell = row->col + (x - row->c0); 2194 mapcell *cell = row->col + (x - row->c0);
1661 uint8_t flags = 0; 2195 uint8_t flags = 0;
1662 2196
1663 if (cell->face [0]) flags |= 1; 2197 if (cell->tile [0]) flags |= 1;
1664 if (cell->face [1]) flags |= 2; 2198 if (cell->tile [1]) flags |= 2;
1665 if (cell->face [2]) flags |= 4; 2199 if (cell->tile [2]) flags |= 4;
1666 2200
1667 *data++ = flags; 2201 *data++ = flags;
1668 2202
1669 if (flags & 1) 2203 if (flags & 1)
1670 { 2204 {
2205 tileid tile = cell->tile [0];
1671 *data++ = cell->face [0] >> 8; 2206 *data++ = tile >> 8;
1672 *data++ = cell->face [0]; 2207 *data++ = tile;
1673 } 2208 }
1674 2209
1675 if (flags & 2) 2210 if (flags & 2)
1676 { 2211 {
2212 tileid tile = cell->tile [1];
1677 *data++ = cell->face [1] >> 8; 2213 *data++ = tile >> 8;
1678 *data++ = cell->face [1]; 2214 *data++ = tile;
1679 } 2215 }
1680 2216
1681 if (flags & 4) 2217 if (flags & 4)
1682 { 2218 {
2219 tileid tile = cell->tile [2];
1683 *data++ = cell->face [2] >> 8; 2220 *data++ = tile >> 8;
1684 *data++ = cell->face [2]; 2221 *data++ = tile;
1685 } 2222 }
1686 } 2223 }
1687 else 2224 else
1688 *data++ = 0; 2225 *data++ = 0;
1689 } 2226 }
… …
1695} 2232}
1696 OUTPUT: 2233 OUTPUT:
1697 RETVAL 2234 RETVAL
1698 2235
1699void 2236void
1700set_rect (CFClient::Map self, int x0, int y0, uint8_t *data) 2237set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data)
1701 PPCODE: 2238 PPCODE:
1702{ 2239{
1703 int x, y, z; 2240 int x, y, z;
1704 int w, h; 2241 int w, h;
1705 int x1, y1; 2242 int x1, y1;
… …
1729 { 2266 {
1730 uint8_t flags = *data++; 2267 uint8_t flags = *data++;
1731 2268
1732 if (flags) 2269 if (flags)
1733 { 2270 {
1734 mapface face[3] = { 0, 0, 0 };
1735
1736 mapcell *cell = row_get_cell (row, x); 2271 mapcell *cell = row_get_cell (row, x);
2272 tileid tile[3] = { 0, 0, 0 };
1737 2273
1738 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; } 2274 if (flags & 1) { tile[0] = *data++ << 8; tile[0] |= *data++; }
1739 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; } 2275 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
1740 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; } 2276 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
1741 2277
1742 if (cell->darkness <= 0) 2278 if (cell->darkness == 0)
1743 { 2279 {
1744 cell->darkness = -1; 2280 cell->darkness = 0;
1745 2281
1746 for (z = 0; z <= 2; z++) 2282 for (z = 0; z <= 2; z++)
1747 { 2283 {
1748 cell->face[z] = face[z]; 2284 tileid t = tile [z];
1749 2285
1750 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name)) 2286 if (t >= self->texs || (t && !self->tex [t].name))
2287 {
1751 XPUSHs (sv_2mortal (newSViv (face[z]))); 2288 XPUSHs (sv_2mortal (newSViv (t)));
2289 need_texid (self, t);
2290 }
2291
2292 cell->tile [z] = t;
1752 } 2293 }
1753 } 2294 }
1754 } 2295 }
1755 } 2296 }
1756 } 2297 }
1757} 2298}
1758 2299
1759MODULE = CFClient PACKAGE = CFClient::MixChunk 2300MODULE = CFPlus PACKAGE = CFPlus::RW
1760 2301
1761CFClient::MixChunk 2302CFPlus::RW
1762new_from_file (SV *class, char *path) 2303new (SV *class, SV *data_sv)
1763 CODE: 2304 CODE:
1764 RETVAL = Mix_LoadWAV (path); 2305{
2306 STRLEN datalen;
2307 char *data = SvPVbyte (data_sv, datalen);
2308
2309 RETVAL = SDL_RWFromConstMem (data, datalen);
2310}
1765 OUTPUT: 2311 OUTPUT:
1766 RETVAL 2312 RETVAL
1767 2313
2314CFPlus::RW
2315new_from_file (SV *class, const char *path, const char *mode = "rb")
2316 CODE:
2317 RETVAL = SDL_RWFromFile (path, mode);
2318 OUTPUT:
2319 RETVAL
2320
2321# fails on win32:
2322# CFPlus.xs(2268) : error C2059: syntax error : '('
1768void 2323#void
2324#close (CFPlus::RW self)
2325# CODE:
2326# (self->(close)) (self);
2327
2328MODULE = CFPlus PACKAGE = CFPlus::Channel
2329
2330PROTOTYPES: DISABLE
2331
2332CFPlus::Channel
2333find ()
2334 CODE:
2335{
2336 RETVAL = Mix_GroupAvailable (-1);
2337
2338 if (RETVAL < 0)
2339 {
2340 RETVAL = Mix_GroupOldest (-1);
2341
2342 if (RETVAL < 0)
2343 XSRETURN_UNDEF;
2344
2345 Mix_HaltChannel (RETVAL);
2346 }
2347
2348 Mix_UnregisterAllEffects (RETVAL);
2349 Mix_Volume (RETVAL, 128);
2350}
2351 OUTPUT:
2352 RETVAL
2353
2354void
2355halt (CFPlus::Channel self)
2356 CODE:
2357 Mix_HaltChannel (self);
2358
2359void
2360expire (CFPlus::Channel self, int ticks = -1)
2361 CODE:
2362 Mix_ExpireChannel (self, ticks);
2363
2364void
2365fade_out (CFPlus::Channel self, int ticks = -1)
2366 CODE:
2367 Mix_FadeOutChannel (self, ticks);
2368
2369int
2370volume (CFPlus::Channel self, int volume)
2371 CODE:
2372 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2373 OUTPUT:
2374 RETVAL
2375
2376void
2377unregister_all_effects (CFPlus::Channel self)
2378 CODE:
2379 Mix_UnregisterAllEffects (self);
2380
2381void
2382set_panning (CFPlus::Channel self, int left, int right)
2383 CODE:
2384 left = CLAMP (left , 0, 255);
2385 right = CLAMP (right, 0, 255);
2386 Mix_SetPanning (self, left, right);
2387
2388void
2389set_distance (CFPlus::Channel self, int distance)
2390 CODE:
2391 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2392
2393void
2394set_position (CFPlus::Channel self, int angle, int distance)
2395 CODE:
2396
2397void
2398set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
2399 CODE:
2400{
2401 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2402 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2403 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2404}
2405
2406void
2407set_reverse_stereo (CFPlus::Channel self, int flip)
2408 CODE:
2409 Mix_SetReverseStereo (self, flip);
2410
2411MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2412
2413PROTOTYPES: DISABLE
2414
2415CFPlus::MixChunk
2416new (SV *class, CFPlus::RW rwops)
2417 CODE:
2418 RETVAL = Mix_LoadWAV_RW (rwops, 1);
2419 OUTPUT:
2420 RETVAL
2421
2422void
1769DESTROY (CFClient::MixChunk self) 2423DESTROY (CFPlus::MixChunk self)
1770 CODE: 2424 CODE:
1771 Mix_FreeChunk (self); 2425 Mix_FreeChunk (self);
1772 2426
1773int 2427int
1774volume (CFClient::MixChunk self, int volume = -1) 2428volume (CFPlus::MixChunk self, int volume = -1)
1775 CODE: 2429 CODE:
2430 if (items > 1)
2431 volume = CLAMP (volume, 0, 128);
1776 RETVAL = Mix_VolumeChunk (self, volume); 2432 RETVAL = Mix_VolumeChunk (self, volume);
1777 OUTPUT: 2433 OUTPUT:
1778 RETVAL 2434 RETVAL
1779 2435
1780int 2436CFPlus::Channel
1781play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2437play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
1782 CODE: 2438 CODE:
2439{
1783 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2440 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2441
2442 if (RETVAL < 0)
2443 XSRETURN_UNDEF;
2444
2445 if (channel < 0)
2446 {
2447 Mix_UnregisterAllEffects (RETVAL);
2448 Mix_Volume (RETVAL, 128);
2449 }
2450}
1784 OUTPUT: 2451 OUTPUT:
1785 RETVAL 2452 RETVAL
1786 2453
1787MODULE = CFClient PACKAGE = CFClient::MixMusic 2454MODULE = CFPlus PACKAGE = CFPlus::MixMusic
1788 2455
1789int 2456int
1790volume (int volume = -1) 2457volume (int volume = -1)
2458 PROTOTYPE: ;$
1791 CODE: 2459 CODE:
2460 if (items > 0)
2461 volume = CLAMP (volume, 0, 128);
1792 RETVAL = Mix_VolumeMusic (volume); 2462 RETVAL = Mix_VolumeMusic (volume);
1793 OUTPUT: 2463 OUTPUT:
1794 RETVAL 2464 RETVAL
1795 2465
2466void
2467fade_out (int ms)
2468 CODE:
2469 Mix_FadeOutMusic (ms);
2470
2471void
2472halt ()
2473 CODE:
2474 Mix_HaltMusic ();
2475
1796CFClient::MixMusic 2476CFPlus::MixMusic
1797new_from_file (SV *class, char *path) 2477new (SV *class, CFPlus::RW rwops)
1798 CODE: 2478 CODE:
1799 RETVAL = Mix_LoadMUS (path); 2479 RETVAL = Mix_LoadMUS_RW (rwops);
1800 OUTPUT: 2480 OUTPUT:
1801 RETVAL 2481 RETVAL
1802 2482
1803void 2483void
1804DESTROY (CFClient::MixMusic self) 2484DESTROY (CFPlus::MixMusic self)
1805 CODE: 2485 CODE:
1806 Mix_FreeMusic (self); 2486 Mix_FreeMusic (self);
1807 2487
1808int 2488int
1809play (CFClient::MixMusic self, int loops = -1) 2489play (CFPlus::MixMusic self, int loops = -1)
1810 CODE: 2490 CODE:
1811 RETVAL = Mix_PlayMusic (self, loops); 2491 RETVAL = Mix_PlayMusic (self, loops);
1812 OUTPUT: 2492 OUTPUT:
1813 RETVAL 2493 RETVAL
1814 2494
2495void
2496fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2497 CODE:
2498 Mix_FadeInMusicPos (self, loops, ms, position);
2499
1815MODULE = CFClient PACKAGE = CFClient::OpenGL 2500MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2501
2502PROTOTYPES: ENABLE
1816 2503
1817BOOT: 2504BOOT:
1818{ 2505{
1819 HV *stash = gv_stashpv ("CFClient::OpenGL", 1); 2506 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1);
1820 static const struct { 2507 static const struct {
1821 const char *name; 2508 const char *name;
1822 IV iv; 2509 IV iv;
1823 } *civ, const_iv[] = { 2510 } *civ, const_iv[] = {
1824# define const_iv(name) { # name, (IV)name } 2511# define const_iv(name) { # name, (IV)name }
2512 const_iv (GL_VENDOR),
2513 const_iv (GL_VERSION),
2514 const_iv (GL_EXTENSIONS),
1825 const_iv (GL_COLOR_MATERIAL), 2515 const_iv (GL_COLOR_MATERIAL),
1826 const_iv (GL_SMOOTH), 2516 const_iv (GL_SMOOTH),
1827 const_iv (GL_FLAT), 2517 const_iv (GL_FLAT),
1828 const_iv (GL_DITHER), 2518 const_iv (GL_DITHER),
1829 const_iv (GL_BLEND), 2519 const_iv (GL_BLEND),
… …
1833 const_iv (GL_ALPHA_TEST), 2523 const_iv (GL_ALPHA_TEST),
1834 const_iv (GL_NORMALIZE), 2524 const_iv (GL_NORMALIZE),
1835 const_iv (GL_RESCALE_NORMAL), 2525 const_iv (GL_RESCALE_NORMAL),
1836 const_iv (GL_FRONT), 2526 const_iv (GL_FRONT),
1837 const_iv (GL_BACK), 2527 const_iv (GL_BACK),
2528 const_iv (GL_AUX0),
1838 const_iv (GL_AND), 2529 const_iv (GL_AND),
1839 const_iv (GL_ONE), 2530 const_iv (GL_ONE),
1840 const_iv (GL_ZERO), 2531 const_iv (GL_ZERO),
1841 const_iv (GL_SRC_ALPHA), 2532 const_iv (GL_SRC_ALPHA),
1842 const_iv (GL_DST_ALPHA), 2533 const_iv (GL_DST_ALPHA),
… …
1856 const_iv (GL_LUMINANCE), 2547 const_iv (GL_LUMINANCE),
1857 const_iv (GL_LUMINANCE_ALPHA), 2548 const_iv (GL_LUMINANCE_ALPHA),
1858 const_iv (GL_FLOAT), 2549 const_iv (GL_FLOAT),
1859 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2550 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1860 const_iv (GL_COMPILE), 2551 const_iv (GL_COMPILE),
2552 const_iv (GL_PROXY_TEXTURE_1D),
2553 const_iv (GL_PROXY_TEXTURE_2D),
1861 const_iv (GL_TEXTURE_1D), 2554 const_iv (GL_TEXTURE_1D),
1862 const_iv (GL_TEXTURE_2D), 2555 const_iv (GL_TEXTURE_2D),
1863 const_iv (GL_TEXTURE_ENV), 2556 const_iv (GL_TEXTURE_ENV),
1864 const_iv (GL_TEXTURE_MAG_FILTER), 2557 const_iv (GL_TEXTURE_MAG_FILTER),
1865 const_iv (GL_TEXTURE_MIN_FILTER), 2558 const_iv (GL_TEXTURE_MIN_FILTER),
… …
1886 const_iv (GL_COLOR_LOGIC_OP), 2579 const_iv (GL_COLOR_LOGIC_OP),
1887 const_iv (GL_SEPARABLE_2D), 2580 const_iv (GL_SEPARABLE_2D),
1888 const_iv (GL_CONVOLUTION_2D), 2581 const_iv (GL_CONVOLUTION_2D),
1889 const_iv (GL_CONVOLUTION_BORDER_MODE), 2582 const_iv (GL_CONVOLUTION_BORDER_MODE),
1890 const_iv (GL_CONSTANT_BORDER), 2583 const_iv (GL_CONSTANT_BORDER),
2584 const_iv (GL_POINTS),
1891 const_iv (GL_LINES), 2585 const_iv (GL_LINES),
2586 const_iv (GL_LINE_STRIP),
1892 const_iv (GL_LINE_LOOP), 2587 const_iv (GL_LINE_LOOP),
1893 const_iv (GL_QUADS), 2588 const_iv (GL_QUADS),
1894 const_iv (GL_QUAD_STRIP), 2589 const_iv (GL_QUAD_STRIP),
1895 const_iv (GL_TRIANGLES), 2590 const_iv (GL_TRIANGLES),
1896 const_iv (GL_TRIANGLE_STRIP), 2591 const_iv (GL_TRIANGLE_STRIP),
1897 const_iv (GL_TRIANGLE_FAN), 2592 const_iv (GL_TRIANGLE_FAN),
2593 const_iv (GL_POLYGON),
1898 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2594 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2595 const_iv (GL_POINT_SMOOTH_HINT),
2596 const_iv (GL_LINE_SMOOTH_HINT),
2597 const_iv (GL_POLYGON_SMOOTH_HINT),
2598 const_iv (GL_GENERATE_MIPMAP_HINT),
1899 const_iv (GL_FASTEST), 2599 const_iv (GL_FASTEST),
2600 const_iv (GL_DONT_CARE),
2601 const_iv (GL_NICEST),
1900 const_iv (GL_V2F), 2602 const_iv (GL_V2F),
1901 const_iv (GL_V3F), 2603 const_iv (GL_V3F),
1902 const_iv (GL_T2F_V3F), 2604 const_iv (GL_T2F_V3F),
1903 const_iv (GL_T2F_N3F_V3F), 2605 const_iv (GL_T2F_N3F_V3F),
1904# undef const_iv 2606# undef const_iv
1905 }; 2607 };
1906 2608
1907 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 2609 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1908 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 2610 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
2611
2612 texture_av = newAV ();
2613 AvREAL_off (texture_av);
1909} 2614}
1910 2615
1911char * 2616char *
1912gl_vendor () 2617gl_vendor ()
1913 CODE: 2618 CODE:
… …
1927 CODE: 2632 CODE:
1928 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2633 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1929 OUTPUT: 2634 OUTPUT:
1930 RETVAL 2635 RETVAL
1931 2636
2637const char *glGetString (GLenum pname)
2638
2639GLint glGetInteger (GLenum pname)
2640 CODE:
2641 glGetIntegerv (pname, &RETVAL);
2642 OUTPUT:
2643 RETVAL
2644
2645GLdouble glGetDouble (GLenum pname)
2646 CODE:
2647 glGetDoublev (pname, &RETVAL);
2648 OUTPUT:
2649 RETVAL
2650
1932int glGetError () 2651int glGetError ()
1933 2652
1934void glFinish () 2653void glFinish ()
1935 2654
1936void glClear (int mask) 2655void glClear (int mask)
… …
1973# near_ and far_ are due to microsofts buggy "c" compiler 2692# near_ and far_ are due to microsofts buggy "c" compiler
1974void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2693void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1975 2694
1976# near_ and far_ are due to microsofts buggy "c" compiler 2695# near_ and far_ are due to microsofts buggy "c" compiler
1977void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 2696void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
2697
2698PROTOTYPES: DISABLE
1978 2699
1979void glViewport (int x, int y, int width, int height) 2700void glViewport (int x, int y, int width, int height)
1980 2701
1981void glScissor (int x, int y, int width, int height) 2702void glScissor (int x, int y, int width, int height)
1982 2703
… …
1990 2711
1991void glRotate (float angle, float x, float y, float z) 2712void glRotate (float angle, float x, float y, float z)
1992 CODE: 2713 CODE:
1993 glRotatef (angle, x, y, z); 2714 glRotatef (angle, x, y, z);
1994 2715
1995void glBegin (int mode)
1996
1997void glEnd ()
1998
1999void glColor (float r, float g, float b, float a = 1.0) 2716void glColor (float r, float g, float b, float a = 1.0)
2000 PROTOTYPE: @
2001 ALIAS: 2717 ALIAS:
2002 glColor_premultiply = 1 2718 glColor_premultiply = 1
2003 CODE: 2719 CODE:
2004 if (ix) 2720 if (ix)
2005 { 2721 {
2006 r *= a; 2722 r *= a;
2007 g *= a; 2723 g *= a;
2008 b *= a; 2724 b *= a;
2009 } 2725 }
2010 // microsoft visual "c" rounds instead of truncating... 2726 // microsoft visual "c" rounds instead of truncating...
2011 glColor4ub (MIN ((int)(r * 256.f), 255), 2727 glColor4f (r, g, b, a);
2012 MIN ((int)(g * 256.f), 255),
2013 MIN ((int)(b * 256.f), 255),
2014 MIN ((int)(a * 256.f), 255));
2015
2016void glInterleavedArrays (int format, int stride, char *data)
2017
2018void glDrawElements (int mode, int count, int type, char *indices)
2019
2020# 1.2 void glDrawRangeElements (int mode, int start, int end
2021 2728
2022void glRasterPos (float x, float y, float z = 0.) 2729void glRasterPos (float x, float y, float z = 0.)
2023 CODE: 2730 CODE:
2024 glRasterPos3f (0, 0, z); 2731 glRasterPos3f (0, 0, z);
2025 glBitmap (0, 0, 0, 0, x, y, 0); 2732 glBitmap (0, 0, 0, 0, x, y, 0);
… …
2030 2737
2031void glTexCoord (float s, float t) 2738void glTexCoord (float s, float t)
2032 CODE: 2739 CODE:
2033 glTexCoord2f (s, t); 2740 glTexCoord2f (s, t);
2034 2741
2742void glRect (float x1, float y1, float x2, float y2)
2743 CODE:
2744 glRectf (x1, y1, x2, y2);
2745
2746PROTOTYPES: ENABLE
2747
2748void glBegin (int mode)
2749
2750void glEnd ()
2751
2752void glPointSize (GLfloat size)
2753
2754void glLineWidth (GLfloat width)
2755
2756void glInterleavedArrays (int format, int stride, char *data)
2757
2758void glDrawElements (int mode, int count, int type, char *indices)
2759
2760# 1.2 void glDrawRangeElements (int mode, int start, int end
2761
2035void glTexEnv (int target, int pname, float param) 2762void glTexEnv (int target, int pname, float param)
2036 CODE: 2763 CODE:
2037 glTexEnvf (target, pname, param); 2764 glTexEnvf (target, pname, param);
2038 2765
2039void glTexParameter (int target, int pname, float param) 2766void glTexParameter (int target, int pname, float param)
… …
2061 2788
2062void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 2789void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
2063 2790
2064void glDrawPixels (int width, int height, int format, int type, char *pixels) 2791void glDrawPixels (int width, int height, int format, int type, char *pixels)
2065 2792
2793void glPixelZoom (float x, float y)
2794
2066void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 2795void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
2067 2796
2068int glGenTexture () 2797int glGenTexture ()
2069 CODE: 2798 CODE:
2070{ 2799 RETVAL = gen_texture ();
2071 GLuint name;
2072 glGenTextures (1, &name);
2073 RETVAL = name;
2074}
2075 OUTPUT: 2800 OUTPUT:
2076 RETVAL 2801 RETVAL
2077 2802
2078void glDeleteTexture (int name) 2803void glDeleteTexture (int name)
2079 CODE: 2804 CODE:
2080{
2081 GLuint name_ = name;
2082 glDeleteTextures (1, &name_); 2805 del_texture (name);
2083} 2806
2084
2085int glGenList () 2807int glGenList ()
2086 CODE: 2808 CODE:
2087 RETVAL = glGenLists (1); 2809 RETVAL = glGenLists (1);
2088 OUTPUT: 2810 OUTPUT:
2089 RETVAL 2811 RETVAL
… …
2096 2818
2097void glEndList () 2819void glEndList ()
2098 2820
2099void glCallList (int list) 2821void glCallList (int list)
2100 2822
2823MODULE = CFPlus PACKAGE = CFPlus::UI::Base
2101 2824
2825PROTOTYPES: DISABLE
2826
2827void
2828find_widget (SV *self, NV x, NV y)
2829 PPCODE:
2830{
2831 if (within_widget (self, x, y))
2832 XPUSHs (self);
2833}
2834
2835BOOT:
2836{
2837 hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);
2838
2839 draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);
2840 draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);
2841 draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);
2842 draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);
2843}
2844
2845void
2846draw (SV *self)
2847 CODE:
2848{
2849 HV *hv;
2850 SV **svp;
2851 NV x, y, w, h;
2852 SV *draw_x_sv = GvSV (draw_x_gv);
2853 SV *draw_y_sv = GvSV (draw_y_gv);
2854 SV *draw_w_sv = GvSV (draw_w_gv);
2855 SV *draw_h_sv = GvSV (draw_h_gv);
2856 SV *hover;
2857 double draw_x, draw_y, draw_w, draw_h;
2858
2859 if (!SvROK (self))
2860 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
2861
2862 hv = (HV *)SvRV (self);
2863
2864 if (SvTYPE (hv) != SVt_PVHV)
2865 croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));
2866
2867 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2868 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2869
2870 if (!h || !w)
2871 XSRETURN_EMPTY;
2872
2873 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
2874 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
2875
2876 draw_x = SvNV (draw_x_sv) + x;
2877 draw_y = SvNV (draw_y_sv) + y;
2878
2879 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
2880 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
2881 XSRETURN_EMPTY;
2882
2883 sv_setnv (draw_x_sv, draw_x);
2884 sv_setnv (draw_y_sv, draw_y);
2885
2886 glPushMatrix ();
2887 glTranslated (x, y, 0);
2888
2889 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
2890 {
2891 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2892
2893 if (svp && SvTRUE (*svp))
2894 {
2895 glColor4f (1*0.2f, 0.8*0.2f, 0.5*0.2f, 0.2f);
2896 glEnable (GL_BLEND);
2897 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2898 glBegin (GL_QUADS);
2899 glVertex2f (0, 0);
2900 glVertex2f (w, 0);
2901 glVertex2f (w, h);
2902 glVertex2f (0, h);
2903 glEnd ();
2904 glDisable (GL_BLEND);
2905 }
2906 }
2907#if 0
2908 if ($ENV{CFPLUS_DEBUG} & 1) {
2909 glPushMatrix;
2910 glColor 1, 1, 0, 1;
2911 glTranslate 0.375, 0.375;
2912 glBegin GL_LINE_LOOP;
2913 glVertex 0 , 0;
2914 glVertex $self->{w} - 1, 0;
2915 glVertex $self->{w} - 1, $self->{h} - 1;
2916 glVertex 0 , $self->{h} - 1;
2917 glEnd;
2918 glPopMatrix;
2919 #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2920 }
2921#endif
2922 PUSHMARK (SP);
2923 XPUSHs (self);
2924 PUTBACK;
2925 call_method ("_draw", G_VOID | G_DISCARD);
2926 SPAGAIN;
2927
2928 glPopMatrix ();
2929
2930 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
2931 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
2932}
2933

Diff Legend

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