ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/Client.xs
(Generate patch)

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

Diff Legend

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