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.220 by root, Thu Aug 9 11:02:08 2007 UTC

1#ifdef _WIN32 1#ifdef _WIN32
2# define _WIN32_WINNT 0x0500 // needed to get win2000 api calls 2# define WIN32_LEAN_AND_MEAN
3# define NTDDI_VERSION NTDDI_WIN2K // needed to get win2000 api calls
3# include <malloc.h> 4# include <malloc.h>
4# include <windows.h> 5# include <windows.h>
6# include <wininet.h>
5# pragma warning(disable:4244) 7# pragma warning(disable:4244)
8# pragma warning(disable:4761)
9#endif
10
11//#define DEBUG 1
12#if DEBUG
13# include <valgrind/memcheck.h>
6#endif 14#endif
7 15
8#include "EXTERN.h" 16#include "EXTERN.h"
9#include "perl.h" 17#include "perl.h"
10#include "XSUB.h" 18#include "XSUB.h"
11 19
20#ifdef _WIN32
21# undef pipe
22#endif
23
24#include <assert.h>
12#include <math.h> 25#include <math.h>
13#include <string.h> 26#include <string.h>
14#include <stdio.h> 27#include <stdio.h>
15#include <stdlib.h> 28#include <stdlib.h>
16 29
30#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
31
17#include <SDL.h> 32#include <SDL.h>
33#include <SDL_thread.h>
18#include <SDL_endian.h> 34#include <SDL_endian.h>
19#include <SDL_image.h> 35#include <SDL_image.h>
20#include <SDL_mixer.h> 36#include <SDL_mixer.h>
21#include <SDL_opengl.h> 37#include <SDL_opengl.h>
22 38
39#define PANGO_ENABLE_BACKEND
40#define G_DISABLE_CAST_CHECKS
41
23#include <glib/gmacros.h> 42#include <glib/gmacros.h>
24 43
25#include <pango/pango.h> 44#include <pango/pango.h>
26#include <pango/pangofc-fontmap.h>
27#include <pango/pangoft2.h>
28#include <pango/pangocairo.h>
29 45
30#ifndef _WIN32 46#ifndef _WIN32
31# include <sys/types.h> 47# include <sys/types.h>
32# include <sys/socket.h> 48# include <sys/socket.h>
33# include <netinet/in.h> 49# include <netinet/in.h>
34# include <netinet/tcp.h> 50# include <netinet/tcp.h>
35# include <inttypes.h> 51# 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 52#endif
44 53
45#include "glext.h"
46
47#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, objetc replacement character */ 54#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
48 55
49#define FOW_DARKNESS 32 56#define FOW_DARKNESS 32
50 57
51#define MAP_EXTEND_X 32 58#define MAP_EXTEND_X 32
52#define MAP_EXTEND_Y 512 59#define MAP_EXTEND_Y 512
53 60
54#define MIN_FONT_HEIGHT 10 61#define MIN_FONT_HEIGHT 10
62
63#if 0
64# define PARACHUTE SDL_INIT_NOPARACHUTE
65#else
66# define PARACHUTE 0
67#endif
68
69static AV *texture_av;
55 70
56static struct 71static struct
57{ 72{
58#define GL_FUNC(ptr,name) ptr name; 73#define GL_FUNC(ptr,name) ptr name;
59#include "glfunc.h" 74#include "glfunc.h"
60#undef GL_FUNC 75#undef GL_FUNC
61} gl; 76} gl;
62 77
78static void
63static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa) 79gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
64{ 80{
65 if (gl.BlendFuncSeparate) 81 if (gl.BlendFuncSeparate)
66 gl.BlendFuncSeparate (sa, da, saa, daa); 82 gl.BlendFuncSeparate (sa, da, saa, daa);
67 else if (gl.BlendFuncSeparateEXT) 83 else if (gl.BlendFuncSeparateEXT)
68 gl.BlendFuncSeparateEXT (sa, da, saa, daa); 84 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
69 else 85 else
70 glBlendFunc (sa, da); 86 glBlendFunc (sa, da);
71} 87}
72 88
89static GLuint
90gen_texture ()
91{
92 GLuint name;
93
94 if (AvFILL (texture_av) >= 0)
95 name = (GLuint)(size_t)av_pop (texture_av);
96 else
97 glGenTextures (1, &name);
98
99 return name;
100}
101
102static void
103del_texture (GLuint name)
104{
105 /* make a half-assed attempt at returning the memory used by the texture */
106 /* textures are frequently being reused by cfplus anyway */
107 /*glBindTexture (GL_TEXTURE_2D, name);*/
108 /*glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);*/
109 av_push (texture_av, (SV *)(size_t)name);
110 glDeleteTextures (1, &name);
111}
112
113#include "texcache.c"
114
115#include "pango-font.c"
116#include "pango-fontmap.c"
117#include "pango-render.c"
118
119typedef IV CFPlus__Channel;
120typedef SDL_RWops *CFPlus__RW;
73typedef Mix_Chunk *CFClient__MixChunk; 121typedef Mix_Chunk *CFPlus__MixChunk;
74typedef Mix_Music *CFClient__MixMusic; 122typedef Mix_Music *CFPlus__MixMusic;
75 123
76typedef PangoFontDescription *CFClient__Font; 124typedef PangoFontDescription *CFPlus__Font;
77 125
78static int 126static int
79shape_attr_p (PangoLayoutRun *run) 127shape_attr_p (PangoLayoutRun *run)
80{ 128{
81 GSList *attrs = run->item->analysis.extra_attrs; 129 GSList *attrs = run->item->analysis.extra_attrs;
… …
92 140
93 return 0; 141 return 0;
94} 142}
95 143
96typedef struct cf_layout { 144typedef struct cf_layout {
97 PangoLayout *pl; // either derived from a cairo or ft2 context 145 PangoLayout *pl;
98 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
99 float r, g, b, a; // default color for rgba mode 146 float r, g, b, a; // default color for rgba mode
100 int base_height; 147 int base_height;
101 CFClient__Font font; 148 CFPlus__Font font;
102} *CFClient__Layout; 149} *CFPlus__Layout;
103 150
104static CFClient__Font default_font; 151static CFPlus__Font default_font;
105static PangoContext *ft2_context, *cairo_context; 152static PangoContext *opengl_context;
106static PangoFontMap *ft2_fontmap, *cairo_fontmap; 153static PangoFontMap *opengl_fontmap;
107 154
108static void 155static void
109substitute_func (FcPattern *pattern, gpointer data) 156substitute_func (FcPattern *pattern, gpointer data)
110{ 157{
111 FcPatternAddBool (pattern, FC_HINTING, 1); 158 FcPatternAddBool (pattern, FC_HINTING, 1);
112#ifdef FC_HINT_STYLE 159#ifdef FC_HINT_STYLE
113 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL); 160 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);
114#endif 161#endif
115#ifdef _WIN32
116 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
117#else
118 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 162 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
119#endif
120} 163}
121 164
122static void 165static void
123layout_update_font (CFClient__Layout self) 166layout_update_font (CFPlus__Layout self)
124{ 167{
125 /* use a random scale factor to account for unknown descenders, 0.8 works 168 /* use a random scale factor to account for unknown descenders, 0.8 works
126 * reasonably well with bitstream vera 169 * reasonably well with bitstream vera
127 */ 170 */
128 PangoFontDescription *font = self->font ? self->font : default_font; 171 PangoFontDescription *font = self->font ? self->font : default_font;
… …
132 175
133 pango_layout_set_font_description (self->pl, font); 176 pango_layout_set_font_description (self->pl, font);
134} 177}
135 178
136static void 179static void
137layout_get_pixel_size (CFClient__Layout self, int *w, int *h) 180layout_get_pixel_size (CFPlus__Layout self, int *w, int *h)
138{ 181{
182 PangoRectangle rect;
183
184 // get_pixel_* wrongly rounds down
139 pango_layout_get_pixel_size (self->pl, w, h); 185 pango_layout_get_extents (self->pl, 0, &rect);
140 186
141 if (!*w) *w = 1; 187 rect.width = (rect.width + PANGO_SCALE - 1) / PANGO_SCALE;
142 if (!*h) *h = 1; 188 rect.height = (rect.height + PANGO_SCALE - 1) / PANGO_SCALE;
143 189
144 *w = (*w + 3) & ~3; 190 if (!rect.width) rect.width = 1;
145} 191 if (!rect.height) rect.height = 1;
146 192
193 *w = rect.width;
194 *h = rect.height;
195}
196
197typedef uint16_t tileid;
147typedef uint16_t mapface; 198typedef uint16_t faceid;
148 199
149typedef struct { 200typedef struct {
150 GLint name; 201 int name;
151 int w, h; 202 int w, h;
152 float s, t; 203 float s, t;
153 uint8_t r, g, b, a; 204 uint8_t r, g, b, a;
205 tileid smoothtile;
206 uint8_t smoothlevel;
154} maptex; 207} maptex;
155 208
156typedef struct { 209typedef struct {
210 uint32_t player;
211 tileid tile[3];
157 int16_t darkness; 212 uint16_t darkness;
158 mapface face[3]; 213 uint8_t stat_width, stat_hp, flags, smoothmax;
159} mapcell; 214} mapcell;
160 215
161typedef struct { 216typedef struct {
162 int32_t c0, c1; 217 int32_t c0, c1;
163 mapcell *col; 218 mapcell *col;
164} maprow; 219} maprow;
165 220
166typedef struct map { 221typedef struct map {
167 int x, y, w, h; 222 int x, y, w, h;
168 int ox, oy; /* offset to virtual global coordinate system */ 223 int ox, oy; /* offset to virtual global coordinate system */
169 int faces; 224 int faces; tileid *face2tile; // [faceid]
170 mapface *face; 225 int texs; maptex *tex; // [tileid]
171
172 int texs;
173 maptex *tex;
174 226
175 int32_t rows; 227 int32_t rows;
176 maprow *row; 228 maprow *row;
177} *CFClient__Map; 229} *CFPlus__Map;
178 230
179static char * 231static char *
180prepend (char *ptr, int sze, int inc) 232prepend (char *ptr, int sze, int inc)
181{ 233{
182 char *p; 234 char *p;
… …
199} 251}
200 252
201#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 253#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)) 254#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
203 255
256static void
257need_facenum (struct map *self, faceid face)
258{
259 while (self->faces <= face)
260 {
261 Append (tileid, self->face2tile, self->faces, self->faces);
262 self->faces *= 2;
263 }
264}
265
266static void
267need_texid (struct map *self, int texid)
268{
269 while (self->texs <= texid)
270 {
271 Append (maptex, self->tex, self->texs, self->texs);
272 self->texs *= 2;
273 }
274}
275
204static maprow * 276static maprow *
205map_get_row (CFClient__Map self, int y) 277map_get_row (CFPlus__Map self, int y)
206{ 278{
207 if (0 > y) 279 if (0 > y)
208 { 280 {
209 int extend = - y + MAP_EXTEND_Y; 281 int extend = - y + MAP_EXTEND_Y;
210 Prepend (maprow, self->row, self->rows, extend); 282 Prepend (maprow, self->row, self->rows, extend);
… …
248 320
249 return row->col + (x - row->c0); 321 return row->col + (x - row->c0);
250} 322}
251 323
252static mapcell * 324static mapcell *
253map_get_cell (CFClient__Map self, int x, int y) 325map_get_cell (CFPlus__Map self, int x, int y)
254{ 326{
255 return row_get_cell (map_get_row (self, y), x); 327 return row_get_cell (map_get_row (self, y), x);
256} 328}
257 329
258static void 330static void
259map_clear (CFClient__Map self) 331map_clear (CFPlus__Map self)
260{ 332{
261 int r; 333 int r;
262 334
263 for (r = 0; r < self->rows; r++) 335 for (r = 0; r < self->rows; r++)
264 Safefree (self->row[r].col); 336 Safefree (self->row[r].col);
… …
272 self->row = 0; 344 self->row = 0;
273 self->rows = 0; 345 self->rows = 0;
274} 346}
275 347
276static void 348static void
277map_blank (CFClient__Map self, int x0, int y0, int w, int h) 349map_blank (CFPlus__Map self, int x0, int y0, int w, int h)
278{ 350{
279 int x, y; 351 int x, y;
280 maprow *row; 352 maprow *row;
353 mapcell *cell;
281 354
282 for (y = y0; y < y0 + h; y++) 355 for (y = y0; y < y0 + h; y++)
283 if (y >= 0) 356 if (y >= 0)
284 { 357 {
285 if (y >= self->rows) 358 if (y >= self->rows)
… …
291 if (x >= row->c0) 364 if (x >= row->c0)
292 { 365 {
293 if (x >= row->c1) 366 if (x >= row->c1)
294 break; 367 break;
295 368
296 row->col[x - row->c0].darkness = -1; 369 cell = row->col + x - row->c0;
370
371 cell->darkness = 0;
372 cell->stat_hp = 0;
373 cell->flags = 0;
374 cell->player = 0;
297 } 375 }
298 } 376 }
377}
378
379typedef struct {
380 tileid tile;
381 uint8_t x, y, level;
382} smooth_key;
383
384static void
385smooth_or_bits (HV *hv, smooth_key *key, IV bits)
386{
387 SV **sv = hv_fetch (hv, (char *)key, sizeof (*key), 1);
388
389 if (SvIOK (*sv))
390 SvIV_set (*sv, SvIVX (*sv) | bits);
391 else
392 sv_setiv (*sv, bits);
299} 393}
300 394
301static void 395static void
302music_finished (void) 396music_finished (void)
303{ 397{
… …
339 n |= n >> 16; 433 n |= n >> 16;
340 434
341 return n + 1; 435 return n + 1;
342} 436}
343 437
438/* SDL should provide this, really. */
439#define SDLK_MODIFIER_MIN 300
440#define SDLK_MODIFIER_MAX 314
441
442/******************************************************************************/
443
444static GV *draw_x_gv, *draw_y_gv, *draw_w_gv, *draw_h_gv;
445static GV *hover_gv;
446
447static int
448within_widget (SV *widget, NV x, NV y)
449{
450 HV *self;
451 SV **svp;
452 NV wx, ww, wy, wh;
453
454 if (!SvROK (widget))
455 return 0;
456
457 self = (HV *)SvRV (widget);
458
459 if (SvTYPE (self) != SVt_PVHV)
460 return 0;
461
462 svp = hv_fetch (self, "y", 1, 0); wy = svp ? SvNV (*svp) : 0.;
463 if (y < wy)
464 return 0;
465
466 svp = hv_fetch (self, "h", 1, 0); wh = svp ? SvNV (*svp) : 0.;
467 if (y >= wy + wh)
468 return 0;
469
470 svp = hv_fetch (self, "x", 1, 0); wx = svp ? SvNV (*svp) : 0.;
471 if (x < wx)
472 return 0;
473
474 svp = hv_fetch (self, "w", 1, 0); ww = svp ? SvNV (*svp) : 0.;
475 if (x >= wx + ww)
476 return 0;
477
478 svp = hv_fetch (self, "can_events", sizeof ("can_events") - 1, 0);
479 if (!svp || !SvTRUE (*svp))
480 return 0;
481
482 return 1;
483}
484
344MODULE = CFClient PACKAGE = CFClient 485MODULE = CFPlus PACKAGE = CFPlus
345 486
346PROTOTYPES: ENABLE 487PROTOTYPES: ENABLE
347 488
348BOOT: 489BOOT:
349{ 490{
350 HV *stash = gv_stashpv ("CFClient", 1); 491 HV *stash = gv_stashpv ("CFPlus", 1);
351 static const struct { 492 static const struct {
352 const char *name; 493 const char *name;
353 IV iv; 494 IV iv;
354 } *civ, const_iv[] = { 495 } *civ, const_iv[] = {
355# define const_iv(name) { # name, (IV)name } 496# define const_iv(name) { # name, (IV)name }
497 const_iv (SDLK_MODIFIER_MIN),
498 const_iv (SDLK_MODIFIER_MAX),
499
356 const_iv (SDL_ACTIVEEVENT), 500 const_iv (SDL_ACTIVEEVENT),
357 const_iv (SDL_KEYDOWN), 501 const_iv (SDL_KEYDOWN),
358 const_iv (SDL_KEYUP), 502 const_iv (SDL_KEYUP),
359 const_iv (SDL_MOUSEMOTION), 503 const_iv (SDL_MOUSEMOTION),
360 const_iv (SDL_MOUSEBUTTONDOWN), 504 const_iv (SDL_MOUSEBUTTONDOWN),
… …
369 const_iv (SDL_EVENT_RESERVEDA), 513 const_iv (SDL_EVENT_RESERVEDA),
370 const_iv (SDL_EVENT_RESERVEDB), 514 const_iv (SDL_EVENT_RESERVEDB),
371 const_iv (SDL_VIDEORESIZE), 515 const_iv (SDL_VIDEORESIZE),
372 const_iv (SDL_VIDEOEXPOSE), 516 const_iv (SDL_VIDEOEXPOSE),
373 const_iv (SDL_USEREVENT), 517 const_iv (SDL_USEREVENT),
518
519 const_iv (SDL_APPINPUTFOCUS),
520 const_iv (SDL_APPMOUSEFOCUS),
521 const_iv (SDL_APPACTIVE),
522
374 const_iv (SDLK_KP0), 523 const_iv (SDLK_KP0),
375 const_iv (SDLK_KP1), 524 const_iv (SDLK_KP1),
376 const_iv (SDLK_KP2), 525 const_iv (SDLK_KP2),
377 const_iv (SDLK_KP3), 526 const_iv (SDLK_KP3),
378 const_iv (SDLK_KP4), 527 const_iv (SDLK_KP4),
… …
433 const_iv (SDLK_BREAK), 582 const_iv (SDLK_BREAK),
434 const_iv (SDLK_MENU), 583 const_iv (SDLK_MENU),
435 const_iv (SDLK_POWER), 584 const_iv (SDLK_POWER),
436 const_iv (SDLK_EURO), 585 const_iv (SDLK_EURO),
437 const_iv (SDLK_UNDO), 586 const_iv (SDLK_UNDO),
587
438 const_iv (KMOD_NONE), 588 const_iv (KMOD_NONE),
589 const_iv (KMOD_SHIFT),
439 const_iv (KMOD_LSHIFT), 590 const_iv (KMOD_LSHIFT),
440 const_iv (KMOD_RSHIFT), 591 const_iv (KMOD_RSHIFT),
592 const_iv (KMOD_CTRL),
441 const_iv (KMOD_LCTRL), 593 const_iv (KMOD_LCTRL),
442 const_iv (KMOD_RCTRL), 594 const_iv (KMOD_RCTRL),
595 const_iv (KMOD_ALT),
443 const_iv (KMOD_LALT), 596 const_iv (KMOD_LALT),
444 const_iv (KMOD_RALT), 597 const_iv (KMOD_RALT),
598 const_iv (KMOD_META),
445 const_iv (KMOD_LMETA), 599 const_iv (KMOD_LMETA),
446 const_iv (KMOD_RMETA), 600 const_iv (KMOD_RMETA),
447 const_iv (KMOD_NUM), 601 const_iv (KMOD_NUM),
448 const_iv (KMOD_CAPS), 602 const_iv (KMOD_CAPS),
449 const_iv (KMOD_MODE), 603 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 604# undef const_iv
455 }; 605 };
456 606
457 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 607 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
458 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 608 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
609
610 assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);
611 assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);
459} 612}
613
614void
615weaken (SV *rv)
616 PROTOTYPE: $
617 CODE:
618 sv_rvweaken (rv);
619
620int
621in_destruct ()
622 CODE:
623 RETVAL = PL_main_cv == Nullcv;
624 OUTPUT:
625 RETVAL
460 626
461NV floor (NV x) 627NV floor (NV x)
462 628
463NV ceil (NV x) 629NV ceil (NV x)
464 630
465void 631void
466pango_init () 632pango_init ()
467 CODE: 633 CODE:
468 // delayed, so it can pick up new fonts added by AddFontResourceEx
469{ 634{
470 {
471 ft2_fontmap = pango_ft2_font_map_new (); 635 opengl_fontmap = pango_opengl_font_map_new ();
472 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 636 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); 637 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} 638}
639
640char *
641SDL_GetError ()
491 642
492int 643int
493SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 644SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
494 645
495void 646void
496SDL_Quit () 647SDL_Quit ()
497 648
498void 649void
499SDL_ListModes () 650SDL_ListModes (int rgb, int alpha)
500 PPCODE: 651 PPCODE:
501{ 652{
502 SDL_Rect **m; 653 SDL_Rect **m;
503 654
504 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 655 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
505 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 656 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
506 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 657 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
507 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 658 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
508 659
509 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 660 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
510 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0); 661 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE , 0);
511 662
512 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 663 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE , 0);
513 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 664 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
514 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 665 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
515 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 666 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
516 667
517 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 668 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
518 669#if SDL_VERSION_ATLEAST(1,2,10)
519 SDL_EnableUNICODE (1); 670 SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
520 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL); 671 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
672#endif
521 673
522 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 674 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
523 675
524 if (m && m != (SDL_Rect **)-1) 676 if (m && m != (SDL_Rect **)-1)
525 while (*m) 677 while (*m)
526 { 678 {
679 if ((*m)->w >= 640 && (*m)->h >= 480)
680 {
527 AV *av = newAV (); 681 AV *av = newAV ();
528 av_push (av, newSViv ((*m)->w)); 682 av_push (av, newSViv ((*m)->w));
529 av_push (av, newSViv ((*m)->h)); 683 av_push (av, newSViv ((*m)->h));
684 av_push (av, newSViv (rgb));
685 av_push (av, newSViv (alpha));
530 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 686 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
687 }
531 688
532 ++m; 689 ++m;
533 } 690 }
534} 691}
535 692
536char *
537SDL_GetError ()
538
539int 693int
540SDL_SetVideoMode (int w, int h, int fullscreen) 694SDL_SetVideoMode (int w, int h, int rgb, int alpha, int fullscreen)
541 CODE: 695 CODE:
696{
697 SDL_EnableUNICODE (1);
698 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
699
700 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
701 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
702 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
703 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
704
542 RETVAL = !!SDL_SetVideoMode ( 705 RETVAL = !!SDL_SetVideoMode (
543 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 706 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
544 ); 707 );
708
545 if (RETVAL) 709 if (RETVAL)
546 { 710 {
711 av_clear (texture_av);
712
547 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 713 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
548# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 714#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
549# include "glfunc.h" 715#include "glfunc.h"
550# undef GL_FUNC 716#undef GL_FUNC
551 } 717 }
718}
552 OUTPUT: 719 OUTPUT:
553 RETVAL 720 RETVAL
554 721
555void 722void
556SDL_GL_SwapBuffers () 723SDL_GL_SwapBuffers ()
557 724
558char * 725char *
559SDL_GetKeyName (int sym) 726SDL_GetKeyName (int sym)
560 727
728int
729SDL_GetAppState ()
730
561void 731void
562SDL_PollEvent () 732poll_events ()
563 PPCODE: 733 PPCODE:
564{ 734{
565 SDL_Event ev; 735 SDL_Event ev;
566 736
567 while (SDL_PollEvent (&ev)) 737 SDL_PumpEvents ();
738 while (SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0)
568 { 739 {
569 HV *hv = newHV (); 740 HV *hv = newHV ();
570 hv_store (hv, "type", 4, newSViv (ev.type), 0); 741 hv_store (hv, "type", 4, newSViv (ev.type), 0);
571 742
572 switch (ev.type) 743 switch (ev.type)
… …
574 case SDL_KEYDOWN: 745 case SDL_KEYDOWN:
575 case SDL_KEYUP: 746 case SDL_KEYUP:
576 hv_store (hv, "state", 5, newSViv (ev.key.state), 0); 747 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
577 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); 748 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
578 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); 749 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
750 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */
579 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); 751 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
580 break; 752 break;
581 753
582 case SDL_ACTIVEEVENT: 754 case SDL_ACTIVEEVENT:
583 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 755 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
584 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 756 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
585 break; 757 break;
586 758
587 case SDL_MOUSEMOTION: 759 case SDL_MOUSEMOTION:
760 {
761 int state = ev.motion.state;
762 int x = ev.motion.x;
763 int y = ev.motion.y;
764 int xrel = ev.motion.xrel;
765 int yrel = ev.motion.yrel;
766
767 /* do simplistic event compression */
768 while (SDL_PeepEvents (&ev, 1, SDL_PEEKEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)) > 0
769 && state == ev.motion.state)
770 {
771 xrel += ev.motion.xrel;
772 yrel += ev.motion.yrel;
773 x = ev.motion.x;
774 y = ev.motion.y;
775 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
776 }
777
588 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 778 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
589
590 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 779 hv_store (hv, "state", 5, newSViv (state), 0);
591 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 780 hv_store (hv, "x", 1, newSViv (x), 0);
592 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 781 hv_store (hv, "y", 1, newSViv (y), 0);
593 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 782 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
594 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 783 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
784 }
595 break; 785 break;
596 786
597 case SDL_MOUSEBUTTONDOWN: 787 case SDL_MOUSEBUTTONDOWN:
598 case SDL_MOUSEBUTTONUP: 788 case SDL_MOUSEBUTTONUP:
599 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 789 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
… …
609 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 799 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
610 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 800 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
611 break; 801 break;
612 } 802 }
613 803
614 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 804 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
615 } 805 }
616} 806}
617 807
618int 808int
619Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 809Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
620 POSTCALL: 810 POSTCALL:
621 Mix_HookMusicFinished (music_finished); 811 Mix_HookMusicFinished (music_finished);
622 Mix_ChannelFinished (channel_finished); 812 Mix_ChannelFinished (channel_finished);
623 813
624void 814void
625Mix_CloseAudio () 815Mix_CloseAudio ()
626 816
627int 817int
628Mix_AllocateChannels (int numchans = -1) 818Mix_AllocateChannels (int numchans = -1)
629 819
820const char *
821Mix_GetError ()
822
630void 823void
631lowdelay (int fd, int val = 1) 824lowdelay (int fd, int val = 1)
632 CODE: 825 CODE:
826 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
827
828void
829win32_proxy_info ()
830 PPCODE:
831{
633#ifndef _WIN32 832#ifdef _WIN32
634 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 833 char buffer[2048];
834 DWORD buflen;
835
836 EXTEND (SP, 3);
837
838 buflen = sizeof (buffer);
839 if (InternetQueryOption (0, INTERNET_OPTION_PROXY, (void *)buffer, &buflen))
840 if (((INTERNET_PROXY_INFO *)buffer)->dwAccessType == INTERNET_OPEN_TYPE_PROXY)
841 {
842 PUSHs (newSVpv (((INTERNET_PROXY_INFO *)buffer)->lpszProxy, 0));
843
844 buflen = sizeof (buffer);
845 if (InternetQueryOption (0, INTERNET_OPTION_PROXY_USERNAME, (void *)buffer, &buflen))
846 {
847 PUSHs (newSVpv (buffer, 0));
848
849 buflen = sizeof (buffer);
850 if (InternetQueryOption (0, INTERNET_OPTION_PROXY_PASSWORD, (void *)buffer, &buflen))
851 PUSHs (newSVpv (buffer, 0));
852 }
853 }
635#endif 854#endif
855}
636 856
637void 857void
638add_font (char *file) 858add_font (char *file)
639 CODE: 859 CODE:
640 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 860 FcConfigAppFontAddFile (0, (const FcChar8 *)file);
641#ifdef _WIN32
642 // cairo... sigh... requires win2000
643 AddFontResourceEx (file, FR_PRIVATE, 0);
644#endif
645 861
646void 862void
647load_image_inline (SV *image_) 863load_image_inline (SV *image_)
648 ALIAS: 864 ALIAS:
649 load_image_file = 1 865 load_image_file = 1
… …
652 STRLEN image_len; 868 STRLEN image_len;
653 char *image = (char *)SvPVbyte (image_, image_len); 869 char *image = (char *)SvPVbyte (image_, image_len);
654 SDL_Surface *surface, *surface2; 870 SDL_Surface *surface, *surface2;
655 SDL_PixelFormat fmt; 871 SDL_PixelFormat fmt;
656 SDL_RWops *rw = ix 872 SDL_RWops *rw = ix
657 ? SDL_RWFromFile (image, "r") 873 ? SDL_RWFromFile (image, "rb")
658 : SDL_RWFromConstMem (image, image_len); 874 : SDL_RWFromConstMem (image, image_len);
659 875
660 if (!rw) 876 if (!rw)
661 croak ("load_image: %s", SDL_GetError ()); 877 croak ("load_image: %s", SDL_GetError ());
662 878
… …
691 907
692 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE); 908 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
693 909
694 assert (surface2->pitch == surface2->w * 4); 910 assert (surface2->pitch == surface2->w * 4);
695 911
912 SDL_LockSurface (surface2);
696 EXTEND (SP, 5); 913 EXTEND (SP, 6);
697 PUSHs (sv_2mortal (newSViv (surface2->w))); 914 PUSHs (sv_2mortal (newSViv (surface2->w)));
698 PUSHs (sv_2mortal (newSViv (surface2->h))); 915 PUSHs (sv_2mortal (newSViv (surface2->h)));
699 SDL_LockSurface (surface2);
700 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch))); 916 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))); 917 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
703 PUSHs (sv_2mortal (newSViv (GL_RGBA))); 918 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
704 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE))); 919 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
920 SDL_UnlockSurface (surface2);
705 921
706 SDL_FreeSurface (surface); 922 SDL_FreeSurface (surface);
707 SDL_FreeSurface (surface2); 923 SDL_FreeSurface (surface2);
708} 924}
709 925
… …
748 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 964 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
749#endif 965#endif
750 _exit (1); 966 _exit (1);
751 967
752void 968void
753_exit (int retval) 969_exit (int retval = 0)
754 CODE: 970 CODE:
971#ifdef WIN32
972 ExitThread (retval); // unclean, please beam me up
973#else
755 _exit (retval); 974 _exit (retval);
975#endif
756 976
977void
978debug ()
979 CODE:
980{
981#if DEBUG
982 VALGRIND_DO_LEAK_CHECK;
983#endif
984}
985
757MODULE = CFClient PACKAGE = CFClient::Font 986MODULE = CFPlus PACKAGE = CFPlus::Font
758 987
759CFClient::Font 988PROTOTYPES: DISABLE
989
990CFPlus::Font
760new_from_file (SV *class, char *path, int id = 0) 991new_from_file (SV *class, char *path, int id = 0)
761 CODE: 992 CODE:
762{ 993{
763 int count; 994 int count;
764 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 995 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
… …
767} 998}
768 OUTPUT: 999 OUTPUT:
769 RETVAL 1000 RETVAL
770 1001
771void 1002void
772DESTROY (CFClient::Font self) 1003DESTROY (CFPlus::Font self)
773 CODE: 1004 CODE:
774 pango_font_description_free (self); 1005 pango_font_description_free (self);
775 1006
776void 1007void
777make_default (CFClient::Font self) 1008make_default (CFPlus::Font self)
1009 PROTOTYPE: $
778 CODE: 1010 CODE:
779 default_font = self; 1011 default_font = self;
780 1012
781MODULE = CFClient PACKAGE = CFClient::Layout 1013MODULE = CFPlus PACKAGE = CFPlus::Layout
782 1014
783CFClient::Layout 1015PROTOTYPES: DISABLE
784new (SV *class, int rgba = 0) 1016
1017void
1018reset_glyph_cache ()
1019 PROTOTYPE:
1020 CODE:
1021 tc_clear ();
1022
1023CFPlus::Layout
1024new (SV *class)
785 CODE: 1025 CODE:
786 New (0, RETVAL, 1, struct cf_layout); 1026 New (0, RETVAL, 1, struct cf_layout);
787 1027
788 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 1028 RETVAL->pl = pango_layout_new (opengl_context);
789 RETVAL->rgba = rgba;
790 RETVAL->r = 1.; 1029 RETVAL->r = 1.;
791 RETVAL->g = 1.; 1030 RETVAL->g = 1.;
792 RETVAL->b = 1.; 1031 RETVAL->b = 1.;
793 RETVAL->a = 1.; 1032 RETVAL->a = 1.;
794 RETVAL->base_height = MIN_FONT_HEIGHT; 1033 RETVAL->base_height = MIN_FONT_HEIGHT;
… …
798 layout_update_font (RETVAL); 1037 layout_update_font (RETVAL);
799 OUTPUT: 1038 OUTPUT:
800 RETVAL 1039 RETVAL
801 1040
802void 1041void
803DESTROY (CFClient::Layout self) 1042DESTROY (CFPlus::Layout self)
804 CODE: 1043 CODE:
805 g_object_unref (self->pl); 1044 g_object_unref (self->pl);
806 Safefree (self); 1045 Safefree (self);
807 1046
808int
809is_rgba (CFClient::Layout self)
810 CODE:
811 RETVAL = self->rgba;
812 OUTPUT:
813 RETVAL
814
815void 1047void
816set_text (CFClient::Layout self, SV *text_) 1048set_text (CFPlus::Layout self, SV *text_)
817 CODE: 1049 CODE:
818{ 1050{
819 STRLEN textlen; 1051 STRLEN textlen;
820 char *text = SvPVutf8 (text_, textlen); 1052 char *text = SvPVutf8 (text_, textlen);
821 1053
822 pango_layout_set_text (self->pl, text, textlen); 1054 pango_layout_set_text (self->pl, text, textlen);
823} 1055}
824 1056
825void 1057void
826set_markup (CFClient::Layout self, SV *text_) 1058set_markup (CFPlus::Layout self, SV *text_)
827 CODE: 1059 CODE:
828{ 1060{
829 STRLEN textlen; 1061 STRLEN textlen;
830 char *text = SvPVutf8 (text_, textlen); 1062 char *text = SvPVutf8 (text_, textlen);
831 1063
832 pango_layout_set_markup (self->pl, text, textlen); 1064 pango_layout_set_markup (self->pl, text, textlen);
833} 1065}
834 1066
835void 1067void
836set_shapes (CFClient::Layout self, ...) 1068set_shapes (CFPlus::Layout self, ...)
837 CODE: 1069 CODE:
838{ 1070{
839 PangoAttrList *attrs = 0; 1071 PangoAttrList *attrs = 0;
840 const char *text = pango_layout_get_text (self->pl); 1072 const char *text = pango_layout_get_text (self->pl);
841 const char *pos = text; 1073 const char *pos = text;
842 int arg = 2; 1074 int arg = 4;
843 1075
844 while (arg < items && (pos = strstr (pos, OBJ_STR))) 1076 while (arg < items && (pos = strstr (pos, OBJ_STR)))
845 { 1077 {
846 PangoRectangle rect; 1078 PangoRectangle inkrect, rect;
847 PangoAttribute *attr; 1079 PangoAttribute *attr;
848 1080
1081 int x = SvIV (ST (arg - 3));
1082 int y = SvIV (ST (arg - 2));
849 int w = SvIV (ST (arg - 1)); 1083 int w = SvIV (ST (arg - 1));
850 int h = SvIV (ST (arg)); 1084 int h = SvIV (ST (arg ));
851 1085
852 arg += 2;
853
854 rect.x = 0; 1086 inkrect.x = 0;
1087 inkrect.y = 0;
1088 inkrect.width = 0;
1089 inkrect.height = 0;
1090
1091 rect.x = x * PANGO_SCALE;
855 rect.y = -h * PANGO_SCALE; 1092 rect.y = y * PANGO_SCALE;
856 rect.width = w * PANGO_SCALE; 1093 rect.width = w * PANGO_SCALE;
857 rect.height = h * PANGO_SCALE; 1094 rect.height = h * PANGO_SCALE;
858 1095
859 if (!attrs) 1096 if (!attrs)
860 attrs = pango_layout_get_attributes (self->pl); 1097 attrs = pango_layout_get_attributes (self->pl);
861 1098
862 attr = pango_attr_shape_new (&rect, &rect); 1099 attr = pango_attr_shape_new (&inkrect, &rect);
863 attr->start_index = pos - text; 1100 attr->start_index = pos - text;
864 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1; 1101 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1;
865 pango_attr_list_insert (attrs, attr); 1102 pango_attr_list_insert (attrs, attr);
866 1103
1104 arg += 4;
867 pos += sizeof (OBJ_STR) - 1; 1105 pos += sizeof (OBJ_STR) - 1;
868 } 1106 }
869 1107
870 if (attrs) 1108 if (attrs)
871 pango_layout_set_attributes (self->pl, attrs); 1109 pango_layout_set_attributes (self->pl, attrs);
872} 1110}
873 1111
874void 1112void
875get_shapes (CFClient::Layout self) 1113get_shapes (CFPlus::Layout self)
876 PPCODE: 1114 PPCODE:
877{ 1115{
878 PangoLayoutIter *iter = pango_layout_get_iter (self->pl); 1116 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
879 1117
880 do 1118 do
… …
884 if (run && shape_attr_p (run)) 1122 if (run && shape_attr_p (run))
885 { 1123 {
886 PangoRectangle extents; 1124 PangoRectangle extents;
887 pango_layout_iter_get_run_extents (iter, 0, &extents); 1125 pango_layout_iter_get_run_extents (iter, 0, &extents);
888 1126
1127 EXTEND (SP, 2);
889 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x)))); 1128 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
890 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y)))); 1129 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
891 } 1130 }
892 } 1131 }
893 while (pango_layout_iter_next_run (iter)); 1132 while (pango_layout_iter_next_run (iter));
894 1133
895 pango_layout_iter_free (iter); 1134 pango_layout_iter_free (iter);
896} 1135}
897 1136
898int 1137int
899has_wrapped (CFClient::Layout self) 1138has_wrapped (CFPlus::Layout self)
900 CODE: 1139 CODE:
901{ 1140{
902 int lines = 1; 1141 int lines = 1;
903 const char *text = pango_layout_get_text (self->pl); 1142 const char *text = pango_layout_get_text (self->pl);
904 1143
… …
909} 1148}
910 OUTPUT: 1149 OUTPUT:
911 RETVAL 1150 RETVAL
912 1151
913SV * 1152SV *
914get_text (CFClient::Layout self) 1153get_text (CFPlus::Layout self)
915 CODE: 1154 CODE:
916 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1155 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
917 sv_utf8_decode (RETVAL); 1156 sv_utf8_decode (RETVAL);
918 OUTPUT: 1157 OUTPUT:
919 RETVAL 1158 RETVAL
920 1159
921void 1160void
922set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.) 1161set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.)
923 CODE: 1162 CODE:
924 self->r = r; 1163 self->r = r;
925 self->g = g; 1164 self->g = g;
926 self->b = b; 1165 self->b = b;
927 self->a = a; 1166 self->a = a;
928 1167
929void 1168void
930set_font (CFClient::Layout self, CFClient::Font font = 0) 1169set_font (CFPlus::Layout self, CFPlus::Font font = 0)
931 CODE: 1170 CODE:
932 if (self->font != font) 1171 if (self->font != font)
933 { 1172 {
934 self->font = font; 1173 self->font = font;
935 layout_update_font (self); 1174 layout_update_font (self);
936 } 1175 }
937 1176
938void 1177void
939set_height (CFClient::Layout self, int base_height) 1178set_height (CFPlus::Layout self, int base_height)
940 CODE: 1179 CODE:
941 if (self->base_height != base_height) 1180 if (self->base_height != base_height)
942 { 1181 {
943 self->base_height = base_height; 1182 self->base_height = base_height;
944 layout_update_font (self); 1183 layout_update_font (self);
945 } 1184 }
946 1185
947void 1186void
948set_width (CFClient::Layout self, int max_width = -1) 1187set_width (CFPlus::Layout self, int max_width = -1)
949 CODE: 1188 CODE:
950 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1189 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
951 1190
952void 1191void
953set_indent (CFClient::Layout self, int indent) 1192set_indent (CFPlus::Layout self, int indent)
954 CODE: 1193 CODE:
955 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1194 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
956 1195
957void 1196void
958set_spacing (CFClient::Layout self, int spacing) 1197set_spacing (CFPlus::Layout self, int spacing)
959 CODE: 1198 CODE:
960 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1199 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
961 1200
962void 1201void
963set_ellipsise (CFClient::Layout self, int ellipsise) 1202set_ellipsise (CFPlus::Layout self, int ellipsise)
964 CODE: 1203 CODE:
965 pango_layout_set_ellipsize (self->pl, 1204 pango_layout_set_ellipsize (self->pl,
966 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1205 ellipsise == 1 ? PANGO_ELLIPSIZE_START
967 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1206 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
968 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1207 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
969 : PANGO_ELLIPSIZE_NONE 1208 : PANGO_ELLIPSIZE_NONE
970 ); 1209 );
971 1210
972void 1211void
973set_single_paragraph_mode (CFClient::Layout self, int spm) 1212set_single_paragraph_mode (CFPlus::Layout self, int spm)
974 CODE: 1213 CODE:
975 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1214 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
976 1215
977void 1216void
978size (CFClient::Layout self) 1217size (CFPlus::Layout self)
979 PPCODE: 1218 PPCODE:
980{ 1219{
981 int w, h; 1220 int w, h;
982 1221
983 layout_get_pixel_size (self, &w, &h); 1222 layout_get_pixel_size (self, &w, &h);
… …
986 PUSHs (sv_2mortal (newSViv (w))); 1225 PUSHs (sv_2mortal (newSViv (w)));
987 PUSHs (sv_2mortal (newSViv (h))); 1226 PUSHs (sv_2mortal (newSViv (h)));
988} 1227}
989 1228
990int 1229int
1230descent (CFPlus::Layout self)
1231 CODE:
1232{
1233 PangoRectangle rect;
1234 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1235 pango_layout_line_get_pixel_extents (line, 0, &rect);
1236 RETVAL = PANGO_DESCENT (rect);
1237}
1238 OUTPUT:
1239 RETVAL
1240
1241int
991xy_to_index (CFClient::Layout self, int x, int y) 1242xy_to_index (CFPlus::Layout self, int x, int y)
992 CODE: 1243 CODE:
993{ 1244{
994 int index, trailing; 1245 int index, trailing;
995 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1246 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
996 RETVAL = index; 1247 RETVAL = index + trailing;
997} 1248}
998 OUTPUT: 1249 OUTPUT:
999 RETVAL 1250 RETVAL
1000 1251
1001void 1252void
1002cursor_pos (CFClient::Layout self, int index) 1253cursor_pos (CFPlus::Layout self, int index)
1003 PPCODE: 1254 PPCODE:
1004{ 1255{
1005 PangoRectangle strong_pos; 1256 PangoRectangle strong_pos;
1006 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1257 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
1007 1258
… …
1010 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1261 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
1011 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1262 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
1012} 1263}
1013 1264
1014void 1265void
1015render (CFClient::Layout self) 1266index_to_line_x (CFPlus::Layout self, int index, int trailing = 0)
1016 PPCODE: 1267 PPCODE:
1017{ 1268{
1018 SV *retval; 1269 int line, x;
1019 int w, h;
1020 1270
1021 layout_get_pixel_size (self, &w, &h); 1271 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1272 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
1022 1273
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); 1274 EXTEND (SP, 2);
1071 PUSHs (sv_2mortal (newSViv (w))); 1275 PUSHs (sv_2mortal (newSViv (line - 1)));
1276 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1277}
1278
1279void
1280line_x_to_index (CFPlus::Layout self, int line, int x)
1281 PPCODE:
1282{
1283 PangoLayoutLine *lp;
1284 int index, trailing;
1285
1286 if (line < 0)
1287 XSRETURN_EMPTY;
1288
1289 if (!(lp = pango_layout_get_line (self->pl, line)))
1290 XSRETURN_EMPTY; /* do better */
1291
1292 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1293
1294 EXTEND (SP, 2);
1295 if (GIMME_V == G_SCALAR)
1072 PUSHs (sv_2mortal (newSViv (h))); 1296 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 1297 else
1078 { 1298 {
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))); 1299 PUSHs (sv_2mortal (newSViv (index)));
1098 PUSHs (sv_2mortal (newSViv (h))); 1300 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 } 1301 }
1103} 1302}
1104 1303
1105MODULE = CFClient PACKAGE = CFClient::Texture
1106
1107void 1304void
1108pad2pot (SV *data_, SV *w_, SV *h_) 1305render (CFPlus::Layout self, float x, float y, int flags = 0)
1109 CODE: 1306 PPCODE:
1110{ 1307 pango_opengl_render_layout_subpixel (
1111 int ow = SvIV (w_); 1308 self->pl,
1112 int oh = SvIV (h_); 1309 x * PANGO_SCALE, y * PANGO_SCALE,
1310 self->r, self->g, self->b, self->a,
1311 flags
1312 );
1113 1313
1114 if (ow && oh) 1314MODULE = CFPlus PACKAGE = CFPlus::Texture
1315
1316PROTOTYPES: ENABLE
1317
1318int minpot (int n)
1319
1320void
1321pad (SV *data_, int ow, int oh, int nw, int nh)
1322 CODE:
1323{
1324 if ((nw != ow || nh != oh) && SvOK (data_))
1115 { 1325 {
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; 1326 STRLEN datalen;
1124 char *data = SvPVbyte (data_, datalen); 1327 char *data = SvPVbyte (data_, datalen);
1125 int bpp = datalen / (ow * oh); 1328 int bpp = datalen / (ow * oh);
1126 SV *result_ = sv_2mortal (newSV (nw * nh * bpp)); 1329 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1127 1330
1128 SvPOK_only (result_); 1331 SvPOK_only (result_);
1129 SvCUR_set (result_, nw * nh * bpp); 1332 SvCUR_set (result_, nw * nh * bpp);
1130 1333
1131 memset (SvPVX (result_), 0, nw * nh * bpp); 1334 memset (SvPVX (result_), 0, nw * nh * bpp);
1132 while (oh--) 1335 while (oh--)
1133 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp); 1336 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1134 1337
1135 sv_setsv (data_, result_); 1338 sv_setsv (data_, result_);
1136 }
1137
1138 sv_setiv (w_, nw);
1139 sv_setiv (h_, nh);
1140 }
1141 } 1339 }
1142} 1340}
1143 1341
1144void 1342void
1145draw_quad (SV *self, float x, float y, float w = 0., float h = 0.) 1343draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
… …
1151{ 1349{
1152 HV *hv = (HV *)SvRV (self); 1350 HV *hv = (HV *)SvRV (self);
1153 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1351 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1154 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1352 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1155 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1353 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1354
1355 if (name <= 0)
1356 XSRETURN_EMPTY;
1156 1357
1157 if (items < 5) 1358 if (items < 5)
1158 { 1359 {
1159 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1360 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1160 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1361 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1188 glDisable (GL_ALPHA_TEST); 1389 glDisable (GL_ALPHA_TEST);
1189 glDisable (GL_BLEND); 1390 glDisable (GL_BLEND);
1190 } 1391 }
1191} 1392}
1192 1393
1394IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1395 CODE:
1396{
1397 GLint width;
1398 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0);
1399 glGetTexLevelParameteriv (GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, &width);
1400 RETVAL = width > 0;
1401}
1402 OUTPUT:
1403 RETVAL
1404
1193MODULE = CFClient PACKAGE = CFClient::Map 1405MODULE = CFPlus PACKAGE = CFPlus::Map
1194 1406
1195CFClient::Map 1407PROTOTYPES: DISABLE
1196new (SV *class, int map_width, int map_height) 1408
1409CFPlus::Map
1410new (SV *class)
1197 CODE: 1411 CODE:
1198 New (0, RETVAL, 1, struct map); 1412 New (0, RETVAL, 1, struct map);
1199 RETVAL->x = 0; 1413 RETVAL->x = 0;
1200 RETVAL->y = 0; 1414 RETVAL->y = 0;
1201 RETVAL->w = map_width; 1415 RETVAL->w = 0;
1202 RETVAL->h = map_height; 1416 RETVAL->h = 0;
1203 RETVAL->ox = 0; 1417 RETVAL->ox = 0;
1204 RETVAL->oy = 0; 1418 RETVAL->oy = 0;
1205 RETVAL->faces = 8192; 1419 RETVAL->faces = 8192; Newz (0, RETVAL->face2tile, RETVAL->faces, tileid);
1206 Newz (0, RETVAL->face, RETVAL->faces, mapface); 1420 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; 1421 RETVAL->rows = 0;
1210 RETVAL->row = 0; 1422 RETVAL->row = 0;
1211 OUTPUT: 1423 OUTPUT:
1212 RETVAL 1424 RETVAL
1213 1425
1214void 1426void
1215DESTROY (CFClient::Map self) 1427DESTROY (CFPlus::Map self)
1216 CODE: 1428 CODE:
1217{ 1429{
1218 map_clear (self); 1430 map_clear (self);
1219 Safefree (self->face); 1431 Safefree (self->face2tile);
1220 Safefree (self->tex); 1432 Safefree (self->tex);
1221 Safefree (self); 1433 Safefree (self);
1222} 1434}
1223 1435
1224void 1436void
1437resize (CFPlus::Map self, int map_width, int map_height)
1438 CODE:
1439 self->w = map_width;
1440 self->h = map_height;
1441
1442void
1225clear (CFClient::Map self) 1443clear (CFPlus::Map self)
1226 CODE: 1444 CODE:
1227 map_clear (self); 1445 map_clear (self);
1228 1446
1229void 1447void
1230set_face (CFClient::Map self, int face, int texid) 1448set_tileid (CFPlus::Map self, int face, int tile)
1231 CODE: 1449 CODE:
1232{ 1450{
1233 while (self->faces <= face) 1451 need_facenum (self, face); self->face2tile [face] = tile;
1234 { 1452 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} 1453}
1241 1454
1242void 1455void
1456set_smooth (CFPlus::Map self, int face, int smooth, int level)
1457 CODE:
1458{
1459 tileid texid;
1460 maptex *tex;
1461
1462 if (face < 0 || face >= self->faces)
1463 return;
1464
1465 if (smooth < 0 || smooth >= self->faces)
1466 return;
1467
1468 texid = self->face2tile [face];
1469
1470 if (!texid)
1471 return;
1472
1473 tex = self->tex + texid;
1474 tex->smoothtile = self->face2tile [smooth];
1475 tex->smoothlevel = level;
1476}
1477
1478void
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) 1479set_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: 1480 CODE:
1245{ 1481{
1246 while (self->texs <= texid) 1482 need_texid (self, texid);
1247 {
1248 Append (maptex, self->tex, self->texs, self->texs);
1249 self->texs *= 2;
1250 }
1251 1483
1252 { 1484 {
1253 maptex *tex = self->tex + texid; 1485 maptex *tex = self->tex + texid;
1254 1486
1255 tex->name = name; 1487 tex->name = name;
… …
1272 // from transparent color bleeding and ugly wrapping effects. 1504 // from transparent color bleeding and ugly wrapping effects.
1273 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1505 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1274} 1506}
1275 1507
1276int 1508int
1277ox (CFClient::Map self) 1509ox (CFPlus::Map self)
1278 ALIAS: 1510 ALIAS:
1279 oy = 1 1511 oy = 1
1280 x = 2 1512 x = 2
1281 y = 3 1513 y = 3
1282 w = 4 1514 w = 4
… …
1293 } 1525 }
1294 OUTPUT: 1526 OUTPUT:
1295 RETVAL 1527 RETVAL
1296 1528
1297void 1529void
1298scroll (CFClient::Map self, int dx, int dy) 1530scroll (CFPlus::Map self, int dx, int dy)
1299 CODE: 1531 CODE:
1300{ 1532{
1301 if (dx > 0) 1533 if (dx > 0)
1302 map_blank (self, self->x, self->y, dx - 1, self->h); 1534 map_blank (self, self->x, self->y, dx, self->h);
1303 else if (dx < 0) 1535 else if (dx < 0)
1304 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h); 1536 map_blank (self, self->x + self->w + dx, self->y, -dx, self->h);
1305 1537
1306 if (dy > 0) 1538 if (dy > 0)
1307 map_blank (self, self->x, self->y, self->w, dy - 1); 1539 map_blank (self, self->x, self->y, self->w, dy);
1308 else if (dy < 0) 1540 else if (dy < 0)
1309 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy); 1541 map_blank (self, self->x, self->y + self->h + dy, self->w, -dy);
1310 1542
1311 self->ox += dx; self->x += dx; 1543 self->ox += dx; self->x += dx;
1312 self->oy += dy; self->y += dy; 1544 self->oy += dy; self->y += dy;
1313 1545
1314 while (self->y < 0) 1546 while (self->y < 0)
… …
1319 self->y += MAP_EXTEND_Y; 1551 self->y += MAP_EXTEND_Y;
1320 } 1552 }
1321} 1553}
1322 1554
1323void 1555void
1324map1a_update (CFClient::Map self, SV *data_) 1556map1a_update (CFPlus::Map self, SV *data_, int extmap)
1325 CODE: 1557 CODE:
1326{ 1558{
1327 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1559 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1328 uint8_t *data_end = (uint8_t *)SvEND (data_); 1560 uint8_t *data_end = (uint8_t *)SvEND (data_);
1329 mapcell *cell; 1561 mapcell *cell;
1330 int x, y, flags; 1562 int x, y, flags;
1331 1563
1332 while (data < data_end) 1564 while (data < data_end - 1)
1333 { 1565 {
1334 flags = (data [0] << 8) + data [1]; data += 2; 1566 flags = (data [0] << 8) + data [1]; data += 2;
1335 1567
1336 x = self->x + ((flags >> 10) & 63); 1568 x = self->x + ((flags >> 10) & 63);
1337 y = self->y + ((flags >> 4) & 63); 1569 y = self->y + ((flags >> 4) & 63);
1338 1570
1339 cell = map_get_cell (self, x, y); 1571 cell = map_get_cell (self, x, y);
1340 1572
1341 if (flags & 15) 1573 if (flags & 15)
1342 { 1574 {
1343 if (cell->darkness < 0) 1575 if (!cell->darkness)
1344 { 1576 {
1577 memset (cell, 0, sizeof (*cell));
1345 cell->darkness = 0; 1578 cell->darkness = 256;
1346 cell->face [0] = 0;
1347 cell->face [1] = 0;
1348 cell->face [2] = 0;
1349 } 1579 }
1350 1580
1351 cell->darkness = flags & 8 ? *data++ : 255;
1352
1353 //TODO: don't trust server data to be in-range(!) 1581 //TODO: don't trust server data to be in-range(!)
1582
1583 if (flags & 8)
1584 {
1585 if (extmap)
1586 {
1587 uint8_t ext, cmd;
1588
1589 do
1590 {
1591 ext = *data++;
1592 cmd = ext & 0x3f;
1593
1594 if (cmd < 4)
1595 cell->darkness = 255 - ext * 64 + 1;
1596 else if (cmd == 5) // health
1597 {
1598 cell->stat_width = 1;
1599 cell->stat_hp = *data++;
1600 }
1601 else if (cmd == 6) // monster width
1602 cell->stat_width = *data++ + 1;
1603 else if (cmd == 0x47)
1604 {
1605 if (*data == 4)
1606 ; // decode player count
1607
1608 data += *data + 1;
1609 }
1610 else if (cmd == 8) // cell flags
1611 cell->flags = *data++;
1612 else if (ext & 0x40) // unknown, multibyte => skip
1613 data += *data + 1;
1614 else
1615 data++;
1616 }
1617 while (ext & 0x80);
1618 }
1619 else
1620 cell->darkness = *data++ + 1;
1621 }
1354 1622
1355 if (flags & 4) 1623 if (flags & 4)
1356 { 1624 {
1357 cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2; 1625 faceid face = (data [0] << 8) + data [1]; data += 2;
1626 need_facenum (self, face);
1627 cell->tile [0] = self->face2tile [face];
1358 } 1628 }
1359 1629
1360 if (flags & 2) 1630 if (flags & 2)
1361 { 1631 {
1362 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2; 1632 faceid face = (data [0] << 8) + data [1]; data += 2;
1633 need_facenum (self, face);
1634 cell->tile [1] = self->face2tile [face];
1363 } 1635 }
1364 1636
1365 if (flags & 1) 1637 if (flags & 1)
1366 { 1638 {
1367 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2; 1639 faceid face = (data [0] << 8) + data [1]; data += 2;
1640 need_facenum (self, face);
1641 cell->tile [2] = self->face2tile [face];
1368 } 1642 }
1369 } 1643 }
1370 else 1644 else
1371 cell->darkness = -1; 1645 cell->darkness = 0;
1372 } 1646 }
1373} 1647}
1374 1648
1375SV * 1649SV *
1376mapmap (CFClient::Map self, int x0, int y0, int w, int h) 1650mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1377 CODE: 1651 CODE:
1378{ 1652{
1379 int x1, x; 1653 int x1, x;
1380 int y1, y; 1654 int y1, y;
1381 int z; 1655 int z;
… …
1402 { 1676 {
1403 mapcell *cell = row->col + (x - row->c0); 1677 mapcell *cell = row->col + (x - row->c0);
1404 1678
1405 for (z = 0; z <= 0; z++) 1679 for (z = 0; z <= 0; z++)
1406 { 1680 {
1407 mapface face = cell->face [z];
1408
1409 if (face)
1410 {
1411 maptex tex = self->tex [face]; 1681 maptex tex = self->tex [cell->tile [z]];
1412 int a0 = 255 - tex.a; 1682 int a0 = 255 - tex.a;
1413 int a1 = tex.a; 1683 int a1 = tex.a;
1414 1684
1415 r = (r * a0 + tex.r * a1) / 255; 1685 r = (r * a0 + tex.r * a1) / 255;
1416 g = (g * a0 + tex.g * a1) / 255; 1686 g = (g * a0 + tex.g * a1) / 255;
1417 b = (b * a0 + tex.b * a1) / 255; 1687 b = (b * a0 + tex.b * a1) / 255;
1418 a = (a * a0 + tex.a * a1) / 255; 1688 a = (a * a0 + tex.a * a1) / 255;
1419 }
1420 } 1689 }
1421 } 1690 }
1422 1691
1423 *map++ = (r ) 1692 *map++ = (r )
1424 | (g << 8) 1693 | (g << 8)
… …
1430 RETVAL = map_sv; 1699 RETVAL = map_sv;
1431} 1700}
1432 OUTPUT: 1701 OUTPUT:
1433 RETVAL 1702 RETVAL
1434 1703
1435void 1704SV *
1436draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1705draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)
1437 CODE: 1706 CODE:
1438{ 1707{
1439 int vx, vy; 1708 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1709 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1710 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)
1711 smooth_key skey;
1440 int x, y, z; 1712 int x, y, z;
1441 int last_name; 1713 int last_name;
1442 mapface face; 1714 AV *missing = newAV ();
1715 RETVAL = newRV_noinc ((SV *)missing);
1443 1716
1444 vx = self->x + self->w / 2 - sw / 2 - shift_x; 1717 // thats current max. sorry.
1445 vy = self->y + self->h / 2 - sh / 2 - shift_y; 1718 if (sw > 255) sw = 255;
1719 if (sh > 255) sh = 255;
1446 1720
1447 /* 1721 // clear key, in case of extra padding
1448 int vx = self->vx = self->w >= sw 1722 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 1723
1457 glColor4ub (255, 255, 255, 255); 1724 glColor4ub (255, 255, 255, 255);
1458 1725
1459 glEnable (GL_BLEND); 1726 glEnable (GL_BLEND);
1460 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1727 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1461 glEnable (GL_TEXTURE_2D); 1728 glEnable (GL_TEXTURE_2D);
1462 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1729 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1463 1730
1464 glBegin (GL_QUADS); 1731 glBegin (GL_QUADS);
1465 1732
1466 last_name = 0; 1733 last_name = -1;
1467 1734
1735 mx += self->x;
1736 my += self->y;
1737
1738 // first pass: determine smooth_max
1739 // rather ugly, if you ask me
1740 // could also be stored inside mapcell and updated on change
1741 memset (smooth_max, 0, sizeof (smooth_max));
1742
1743 for (y = 0; y < sh; y++)
1744 if (0 <= y + my && y + my < self->rows)
1745 {
1746 maprow *row = self->row + (y + my);
1747
1748 for (x = 0; x < sw; x++)
1749 if (row->c0 <= x + mx && x + mx < row->c1)
1750 {
1751 mapcell *cell = row->col + (x + mx - row->c0);
1752
1753 smooth_max[x + 1][y + 1] =
1754 MAX (self->tex [cell->tile [0]].smoothlevel,
1755 MAX (self->tex [cell->tile [1]].smoothlevel,
1756 self->tex [cell->tile [2]].smoothlevel));
1757 }
1758 }
1759
1468 for (z = 0; z < 3; z++) 1760 for (z = 0; z <= 2; z++)
1761 {
1762 memset (smooth_level, 0, sizeof (smooth_level));
1763
1469 for (y = 0; y < sh; y++) 1764 for (y = 0; y < sh; y++)
1470 if (0 <= y + vy && y + vy < self->rows) 1765 if (0 <= y + my && y + my < self->rows)
1471 { 1766 {
1472 maprow *row = self->row + (y + vy); 1767 maprow *row = self->row + (y + my);
1473 1768
1474 for (x = 0; x < sw; x++) 1769 for (x = 0; x < sw; x++)
1475 if (row->c0 <= x + vx && x + vx < row->c1) 1770 if (row->c0 <= x + mx && x + mx < row->c1)
1476 { 1771 {
1477 mapcell *cell = row->col + (x + vx - row->c0); 1772 mapcell *cell = row->col + (x + mx - row->c0);
1478
1479 face = cell->face [z]; 1773 tileid tile = cell->tile [z];
1480 1774
1481 if (face) 1775 if (tile)
1776 {
1777 maptex tex = self->tex [tile];
1778 int px, py;
1779
1780 // suppressing texture state switches here
1781 // is only moderately effective, but worth the extra effort
1782 if (last_name != tex.name)
1783 {
1784 if (!tex.name)
1785 {
1786 av_push (missing, newSViv (tile));
1787 tex = self->tex [2]; /* missing, replace by noface */
1788 }
1789
1790 glEnd ();
1791 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1792 glBegin (GL_QUADS);
1793 }
1794
1795 px = (x + 1) * T - tex.w;
1796 py = (y + 1) * T - tex.h;
1797
1798 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1799 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1800 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1801 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1802
1803 if (cell->flags && z == 2)
1804 {
1805 if (cell->flags & 1)
1806 {
1807 maptex tex = self->tex [1];
1808 int px = x * T + T * 2 / 32;
1809 int py = y * T - T * 6 / 32;
1810
1811 glEnd ();
1812 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1813 glBegin (GL_QUADS);
1814
1815 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1816 glTexCoord2f (0 , tex.t); glVertex2f (px , py + T);
1817 glTexCoord2f (tex.s, tex.t); glVertex2f (px + T, py + T);
1818 glTexCoord2f (tex.s, 0 ); glVertex2f (px + T, py );
1819 }
1820 }
1821
1822 // update smooth hash
1823 if (tex.smoothtile)
1824 {
1825 skey.tile = tex.smoothtile;
1826 skey.level = tex.smoothlevel;
1827
1828 smooth_level [tex.smoothlevel >> 5] |= ((uint32_t)1) << (tex.smoothlevel & 31);
1829
1830 // add bits to current tile and all neighbours. skey.x|y is
1831 // shifted +1|+1 so we always stay positive.
1832
1833 // bits is ___n cccc CCCC bbbb
1834 // n do not draw borders&corners
1835 // c draw these corners, but...
1836 // C ... not these
1837 // b draw these borders
1838
1839 // borders: 1 ┃· 2 ━━ 4 ·┃ 8 ··
1840 // ┃· ·· ·┃ ━━
1841
1842 // corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
1843 // ·· ·· ·┏ ┓·
1844
1845 // full tile
1846 skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);
1847
1848 // borders
1849 skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);
1850 skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);
1851 skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);
1852 skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);
1853
1854 // corners
1855 skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1856 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1857 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1858 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1859 }
1860 }
1861 }
1862 }
1863
1864 // go through all smoothlevels, lowest to highest, then draw.
1865 // this is basically counting sort
1866 {
1867 int w, b;
1868
1869 for (w = 0; w < 256 / 32; ++w)
1870 {
1871 uint32_t smask = smooth_level [w];
1872 if (smask)
1873 for (b = 0; b < 32; ++b)
1874 if (smask & (((uint32_t)1) << b))
1482 { 1875 {
1483 maptex tex = self->tex [face]; 1876 int level = (w << 5) | b;
1877 HE *he;
1484 1878
1485 int px = (x + 1) * 32 - tex.w; 1879 hv_iterinit (smooth);
1486 int py = (y + 1) * 32 - tex.h; 1880 while ((he = hv_iternext (smooth)))
1487
1488 if (last_name != tex.name)
1489 { 1881 {
1882 smooth_key *skey = (smooth_key *)HeKEY (he);
1883 IV bits = SvIVX (HeVAL (he));
1884
1885 if (!(bits & 0x1000)
1886 && skey->level == level
1887 && level > smooth_max [skey->x][skey->y])
1888 {
1889 maptex tex = self->tex [skey->tile];
1890 int px = (((int)skey->x) - 1) * T;
1891 int py = (((int)skey->y) - 1) * T;
1892 int border = bits & 15;
1893 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1894 float dx = tex.s * .0625f; // 16 images/row
1895 float dy = tex.t * .5f ; // 2 images/column
1896
1897 // this time naively avoiding texture state changes
1898 // save gobs of state changes.
1899 if (last_name != tex.name)
1900 {
1901 if (!tex.name)
1902 {
1903 av_push (missing, newSViv (skey->tile));
1904 continue; // smoothing not yet available
1905 }
1906
1490 glEnd (); 1907 glEnd ();
1491 last_name = tex.name;
1492 glBindTexture (GL_TEXTURE_2D, last_name); 1908 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1493 glBegin (GL_QUADS); 1909 glBegin (GL_QUADS);
1910 }
1911
1912 if (border)
1913 {
1914 float ox = border * dx;
1915
1916 glTexCoord2f (ox , 0.f ); glVertex2f (px , py );
1917 glTexCoord2f (ox , dy ); glVertex2f (px , py + T);
1918 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T);
1919 glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py );
1920 }
1921
1922 if (corner)
1923 {
1924 float ox = corner * dx;
1925
1926 glTexCoord2f (ox , dy ); glVertex2f (px , py );
1927 glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T);
1928 glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T);
1929 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py );
1930 }
1931 }
1494 } 1932 }
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 } 1933 }
1501 }
1502 } 1934 }
1935 }
1936
1937 hv_clear (smooth);
1938 }
1503 1939
1504 glEnd (); 1940 glEnd ();
1505 1941
1506 glDisable (GL_TEXTURE_2D); 1942 glDisable (GL_TEXTURE_2D);
1507 glDisable (GL_BLEND); 1943 glDisable (GL_BLEND);
1508}
1509 1944
1945 // top layer: overlays such as the health bar
1946 for (y = 0; y < sh; y++)
1947 if (0 <= y + my && y + my < self->rows)
1948 {
1949 maprow *row = self->row + (y + my);
1950
1951 for (x = 0; x < sw; x++)
1952 if (row->c0 <= x + mx && x + mx < row->c1)
1953 {
1954 mapcell *cell = row->col + (x + mx - row->c0);
1955
1956 int px = x * T;
1957 int py = y * T;
1958
1959 if (cell->stat_hp)
1960 {
1961 int width = cell->stat_width * T;
1962 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
1963
1964 glColor3ub (0, 0, 0);
1965 glRectf (px + 1, py - thick - 2,
1966 px + width - 1, py);
1967
1968 glColor3ub (cell->stat_hp, 255 - cell->stat_hp, 0);
1969 glRectf (px + 2,
1970 py - thick - 1,
1971 px + width - 2 - cell->stat_hp * (width - 4) / 255, py - 1);
1972 }
1973 }
1974 }
1975}
1976 OUTPUT:
1977 RETVAL
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