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

Diff Legend

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