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.221 by root, Fri Aug 10 04:02:13 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)
… …
1318 self->rows += MAP_EXTEND_Y; 1550 self->rows += MAP_EXTEND_Y;
1319 self->y += MAP_EXTEND_Y; 1551 self->y += MAP_EXTEND_Y;
1320 } 1552 }
1321} 1553}
1322 1554
1323void 1555SV *
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, z, flags;
1563 AV *missing = newAV ();
1564 RETVAL = newRV_noinc ((SV *)missing);
1331 1565
1332 while (data < data_end) 1566 while (data < data_end - 1)
1333 { 1567 {
1334 flags = (data [0] << 8) + data [1]; data += 2; 1568 flags = (data [0] << 8) + data [1]; data += 2;
1335 1569
1336 x = self->x + ((flags >> 10) & 63); 1570 x = self->x + ((flags >> 10) & 63);
1337 y = self->y + ((flags >> 4) & 63); 1571 y = self->y + ((flags >> 4) & 63);
1338 1572
1339 cell = map_get_cell (self, x, y); 1573 cell = map_get_cell (self, x, y);
1340 1574
1341 if (flags & 15) 1575 if (flags & 15)
1342 { 1576 {
1343 if (cell->darkness < 0) 1577 if (!cell->darkness)
1344 { 1578 {
1579 memset (cell, 0, sizeof (*cell));
1345 cell->darkness = 0; 1580 cell->darkness = 256;
1346 cell->face [0] = 0;
1347 cell->face [1] = 0;
1348 cell->face [2] = 0;
1349 } 1581 }
1350 1582
1351 cell->darkness = flags & 8 ? *data++ : 255;
1352
1353 //TODO: don't trust server data to be in-range(!) 1583 //TODO: don't trust server data to be in-range(!)
1354 1584
1355 if (flags & 4) 1585 if (flags & 8)
1356 { 1586 {
1357 cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2; 1587 if (extmap)
1588 {
1589 uint8_t ext, cmd;
1590
1591 do
1592 {
1593 ext = *data++;
1594 cmd = ext & 0x3f;
1595
1596 if (cmd < 4)
1597 cell->darkness = 255 - ext * 64 + 1;
1598 else if (cmd == 5) // health
1599 {
1600 cell->stat_width = 1;
1601 cell->stat_hp = *data++;
1602 }
1603 else if (cmd == 6) // monster width
1604 cell->stat_width = *data++ + 1;
1605 else if (cmd == 0x47)
1606 {
1607 if (*data == 4)
1608 ; // decode player count
1609
1610 data += *data + 1;
1611 }
1612 else if (cmd == 8) // cell flags
1613 cell->flags = *data++;
1614 else if (ext & 0x40) // unknown, multibyte => skip
1615 data += *data + 1;
1616 else
1617 data++;
1618 }
1619 while (ext & 0x80);
1620 }
1621 else
1622 cell->darkness = *data++ + 1;
1358 } 1623 }
1359 1624
1625 for (z = 0; z <= 2; ++z)
1360 if (flags & 2) 1626 if (flags & (4 >> z))
1361 { 1627 {
1362 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2; 1628 faceid face = (data [0] << 8) + data [1]; data += 2;
1629 need_facenum (self, face);
1630 cell->tile [z] = self->face2tile [face];
1631
1632 if (cell->tile [z])
1633 {
1634 maptex *tex = self->tex + cell->tile [z];
1635 if (!tex->name)
1636 av_push (missing, newSViv (cell->tile [z]));
1637
1638 if (tex->smoothtile)
1639 {
1640 maptex *smooth = self->tex + tex->smoothtile;
1641 if (!smooth->name)
1642 av_push (missing, newSViv (tex->smoothtile));
1643 }
1644 }
1363 } 1645 }
1364
1365 if (flags & 1)
1366 {
1367 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
1368 }
1369 } 1646 }
1370 else 1647 else
1371 cell->darkness = -1; 1648 cell->darkness = 0;
1372 } 1649 }
1373} 1650}
1651 OUTPUT:
1652 RETVAL
1374 1653
1375SV * 1654SV *
1376mapmap (CFClient::Map self, int x0, int y0, int w, int h) 1655mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1377 CODE: 1656 CODE:
1378{ 1657{
1379 int x1, x; 1658 int x1, x;
1380 int y1, y; 1659 int y1, y;
1381 int z; 1660 int z;
… …
1402 { 1681 {
1403 mapcell *cell = row->col + (x - row->c0); 1682 mapcell *cell = row->col + (x - row->c0);
1404 1683
1405 for (z = 0; z <= 0; z++) 1684 for (z = 0; z <= 0; z++)
1406 { 1685 {
1407 mapface face = cell->face [z];
1408
1409 if (face)
1410 {
1411 maptex tex = self->tex [face]; 1686 maptex tex = self->tex [cell->tile [z]];
1412 int a0 = 255 - tex.a; 1687 int a0 = 255 - tex.a;
1413 int a1 = tex.a; 1688 int a1 = tex.a;
1414 1689
1415 r = (r * a0 + tex.r * a1) / 255; 1690 r = (r * a0 + tex.r * a1) / 255;
1416 g = (g * a0 + tex.g * a1) / 255; 1691 g = (g * a0 + tex.g * a1) / 255;
1417 b = (b * a0 + tex.b * a1) / 255; 1692 b = (b * a0 + tex.b * a1) / 255;
1418 a = (a * a0 + tex.a * a1) / 255; 1693 a = (a * a0 + tex.a * a1) / 255;
1419 }
1420 } 1694 }
1421 } 1695 }
1422 1696
1423 *map++ = (r ) 1697 *map++ = (r )
1424 | (g << 8) 1698 | (g << 8)
… …
1431} 1705}
1432 OUTPUT: 1706 OUTPUT:
1433 RETVAL 1707 RETVAL
1434 1708
1435void 1709void
1436draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1710draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)
1437 CODE: 1711 CODE:
1438{ 1712{
1439 int vx, vy; 1713 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1714 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1715 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)
1716 smooth_key skey;
1440 int x, y, z; 1717 int x, y, z;
1441 int last_name; 1718 int last_name;
1442 mapface face;
1443 1719
1444 vx = self->x + self->w / 2 - sw / 2 - shift_x; 1720 // thats current max. sorry.
1445 vy = self->y + self->h / 2 - sh / 2 - shift_y; 1721 if (sw > 255) sw = 255;
1722 if (sh > 255) sh = 255;
1446 1723
1447 /* 1724 // clear key, in case of extra padding
1448 int vx = self->vx = self->w >= sw 1725 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 1726
1457 glColor4ub (255, 255, 255, 255); 1727 glColor4ub (255, 255, 255, 255);
1458 1728
1459 glEnable (GL_BLEND); 1729 glEnable (GL_BLEND);
1460 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1730 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1461 glEnable (GL_TEXTURE_2D); 1731 glEnable (GL_TEXTURE_2D);
1462 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1732 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1463 1733
1464 glBegin (GL_QUADS); 1734 glBegin (GL_QUADS);
1465 1735
1466 last_name = 0; 1736 last_name = -1;
1467 1737
1738 mx += self->x;
1739 my += self->y;
1740
1741 // first pass: determine smooth_max
1742 // rather ugly, if you ask me
1743 // could also be stored inside mapcell and updated on change
1744 memset (smooth_max, 0, sizeof (smooth_max));
1745
1746 for (y = 0; y < sh; y++)
1747 if (0 <= y + my && y + my < self->rows)
1748 {
1749 maprow *row = self->row + (y + my);
1750
1751 for (x = 0; x < sw; x++)
1752 if (row->c0 <= x + mx && x + mx < row->c1)
1753 {
1754 mapcell *cell = row->col + (x + mx - row->c0);
1755
1756 smooth_max[x + 1][y + 1] =
1757 MAX (self->tex [cell->tile [0]].smoothlevel,
1758 MAX (self->tex [cell->tile [1]].smoothlevel,
1759 self->tex [cell->tile [2]].smoothlevel));
1760 }
1761 }
1762
1468 for (z = 0; z < 3; z++) 1763 for (z = 0; z <= 2; z++)
1764 {
1765 memset (smooth_level, 0, sizeof (smooth_level));
1766
1469 for (y = 0; y < sh; y++) 1767 for (y = 0; y < sh; y++)
1470 if (0 <= y + vy && y + vy < self->rows) 1768 if (0 <= y + my && y + my < self->rows)
1471 { 1769 {
1472 maprow *row = self->row + (y + vy); 1770 maprow *row = self->row + (y + my);
1473 1771
1474 for (x = 0; x < sw; x++) 1772 for (x = 0; x < sw; x++)
1475 if (row->c0 <= x + vx && x + vx < row->c1) 1773 if (row->c0 <= x + mx && x + mx < row->c1)
1476 { 1774 {
1477 mapcell *cell = row->col + (x + vx - row->c0); 1775 mapcell *cell = row->col + (x + mx - row->c0);
1478
1479 face = cell->face [z]; 1776 tileid tile = cell->tile [z];
1480 1777
1481 if (face) 1778 if (tile)
1779 {
1780 maptex tex = self->tex [tile];
1781 int px, py;
1782
1783 // suppressing texture state switches here
1784 // is only moderately effective, but worth the extra effort
1785 if (last_name != tex.name)
1786 {
1787 if (!tex.name)
1788 tex = self->tex [2]; /* missing, replace by noface */
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 continue; // smoothing not yet available
1903
1490 glEnd (); 1904 glEnd ();
1491 last_name = tex.name;
1492 glBindTexture (GL_TEXTURE_2D, last_name); 1905 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1493 glBegin (GL_QUADS); 1906 glBegin (GL_QUADS);
1907 }
1908
1909 if (border)
1910 {
1911 float ox = border * dx;
1912
1913 glTexCoord2f (ox , 0.f ); glVertex2f (px , py );
1914 glTexCoord2f (ox , dy ); glVertex2f (px , py + T);
1915 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T);
1916 glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py );
1917 }
1918
1919 if (corner)
1920 {
1921 float ox = corner * dx;
1922
1923 glTexCoord2f (ox , dy ); glVertex2f (px , py );
1924 glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T);
1925 glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T);
1926 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py );
1927 }
1928 }
1494 } 1929 }
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 } 1930 }
1501 }
1502 } 1931 }
1932 }
1933
1934 hv_clear (smooth);
1935 }
1503 1936
1504 glEnd (); 1937 glEnd ();
1505 1938
1506 glDisable (GL_TEXTURE_2D); 1939 glDisable (GL_TEXTURE_2D);
1507 glDisable (GL_BLEND); 1940 glDisable (GL_BLEND);
1508}
1509 1941
1942 // top layer: overlays such as the health bar
1943 for (y = 0; y < sh; y++)
1944 if (0 <= y + my && y + my < self->rows)
1945 {
1946 maprow *row = self->row + (y + my);
1947
1948 for (x = 0; x < sw; x++)
1949 if (row->c0 <= x + mx && x + mx < row->c1)
1950 {
1951 mapcell *cell = row->col + (x + mx - row->c0);
1952
1953 int px = x * T;
1954 int py = y * T;
1955
1956 if (cell->stat_hp)
1957 {
1958 int width = cell->stat_width * T;
1959 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
1960
1961 glColor3ub (0, 0, 0);
1962 glRectf (px + 1, py - thick - 2,
1963 px + width - 1, py);
1964
1965 glColor3ub (cell->stat_hp, 255 - cell->stat_hp, 0);
1966 glRectf (px + 2,
1967 py - thick - 1,
1968 px + width - 2 - cell->stat_hp * (width - 4) / 255, py - 1);
1969 }
1970 }
1971 }
1972}
1973
1510void 1974void
1511draw_magicmap (CFClient::Map self, int dx, int dy, int w, int h, unsigned char *data) 1975draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data)
1512 CODE: 1976 CODE:
1513{ 1977{
1514 static float color[16][3] = { 1978 static float color[16][3] = {
1515 { 0.00, 0.00, 0.00 }, 1979 { 0.00F, 0.00F, 0.00F },
1516 { 1.00, 1.00, 1.00 }, 1980 { 1.00F, 1.00F, 1.00F },
1517 { 0.00, 0.00, 0.55 }, 1981 { 0.00F, 0.00F, 0.55F },
1518 { 1.00, 0.00, 0.00 }, 1982 { 1.00F, 0.00F, 0.00F },
1519 1983
1520 { 1.00, 0.54, 0.00 }, 1984 { 1.00F, 0.54F, 0.00F },
1521 { 0.11, 0.56, 1.00 }, 1985 { 0.11F, 0.56F, 1.00F },
1522 { 0.93, 0.46, 0.00 }, 1986 { 0.93F, 0.46F, 0.00F },
1523 { 0.18, 0.54, 0.34 }, 1987 { 0.18F, 0.54F, 0.34F },
1524 1988
1525 { 0.56, 0.73, 0.56 }, 1989 { 0.56F, 0.73F, 0.56F },
1526 { 0.80, 0.80, 0.80 }, 1990 { 0.80F, 0.80F, 0.80F },
1527 { 0.55, 0.41, 0.13 }, 1991 { 0.55F, 0.41F, 0.13F },
1528 { 0.99, 0.77, 0.26 }, 1992 { 0.99F, 0.77F, 0.26F },
1529 1993
1530 { 0.74, 0.65, 0.41 }, 1994 { 0.74F, 0.65F, 0.41F },
1531 1995
1532 { 0.00, 1.00, 1.00 }, 1996 { 0.00F, 1.00F, 1.00F },
1533 { 1.00, 0.00, 1.00 }, 1997 { 1.00F, 0.00F, 1.00F },
1534 { 1.00, 1.00, 0.00 }, 1998 { 1.00F, 1.00F, 0.00F },
1535 }; 1999 };
1536 2000
1537 int x, y; 2001 int x, y;
1538 2002
1539 glEnable (GL_TEXTURE_2D); 2003 glEnable (GL_TEXTURE_2D);
… …
1566 glDisable (GL_BLEND); 2030 glDisable (GL_BLEND);
1567 glDisable (GL_TEXTURE_2D); 2031 glDisable (GL_TEXTURE_2D);
1568} 2032}
1569 2033
1570void 2034void
1571fow_texture (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 2035fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh)
1572 PPCODE: 2036 PPCODE:
1573{ 2037{
1574 int vx, vy;
1575 int x, y; 2038 int x, y;
2039 int sw1 = sw + 2;
2040 int sh1 = sh + 2;
2041 int sh3 = sh * 3;
1576 int sw4 = (sw + 3) & ~3; 2042 int sw34 = (sw * 3 + 3) & ~3;
2043 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1577 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh)); 2044 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1578 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv); 2045 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1579 2046
1580 memset (darkness, 255, sw4 * sh);
1581 SvPOK_only (darkness_sv); 2047 SvPOK_only (darkness3_sv);
1582 SvCUR_set (darkness_sv, sw4 * sh); 2048 SvCUR_set (darkness3_sv, sw34 * sh3);
1583 2049
1584 vx = self->x + (self->w - sw + 1) / 2 - shift_x; 2050 mx += self->x - 1;
1585 vy = self->y + (self->h - sh + 1) / 2 - shift_y; 2051 my += self->y - 1;
1586 2052
2053 memset (darkness1, 255, sw1 * sh1);
2054
1587 for (y = 0; y < sh; y++) 2055 for (y = 0; y < sh1; y++)
1588 if (0 <= y + vy && y + vy < self->rows) 2056 if (0 <= y + my && y + my < self->rows)
1589 { 2057 {
1590 maprow *row = self->row + (y + vy); 2058 maprow *row = self->row + (y + my);
1591 2059
1592 for (x = 0; x < sw; x++) 2060 for (x = 0; x < sw1; x++)
1593 if (row->c0 <= x + vx && x + vx < row->c1) 2061 if (row->c0 <= x + mx && x + mx < row->c1)
1594 { 2062 {
1595 mapcell *cell = row->col + (x + vx - row->c0); 2063 mapcell *cell = row->col + (x + mx - row->c0);
1596 2064
1597 darkness[y * sw4 + x] = cell->darkness < 0 2065 darkness1 [y * sw1 + x] = cell->darkness
2066 ? 255 - (cell->darkness - 1)
1598 ? 255 - FOW_DARKNESS 2067 : 255 - FOW_DARKNESS;
1599 : 255 - cell->darkness;
1600 } 2068 }
1601 } 2069 }
1602 2070
2071 for (y = 0; y < sh; ++y)
2072 for (x = 0; x < sw; ++x)
2073 {
2074 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2075 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2076 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2077 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2078 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2079 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2080 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2081 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2082 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
2083
2084 uint8_t r11 = (d11 + d21 + d12) / 3;
2085 uint8_t r21 = d21;
2086 uint8_t r31 = (d21 + d31 + d32) / 3;
2087
2088 uint8_t r12 = d12;
2089 uint8_t r22 = d22;
2090 uint8_t r32 = d32;
2091
2092 uint8_t r13 = (d13 + d23 + d12) / 3;
2093 uint8_t r23 = d23;
2094 uint8_t r33 = (d23 + d33 + d32) / 3;
2095
2096 darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);
2097 darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);
2098 darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);
2099 darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);
2100 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);
2101 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);
2102 darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);
2103 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);
2104 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);
2105 }
2106
2107 free (darkness1);
2108
1603 EXTEND (SP, 3); 2109 EXTEND (SP, 3);
1604 PUSHs (sv_2mortal (newSViv (sw4))); 2110 PUSHs (sv_2mortal (newSViv (sw34)));
1605 PUSHs (sv_2mortal (newSViv (sh))); 2111 PUSHs (sv_2mortal (newSViv (sh3)));
1606 PUSHs (darkness_sv); 2112 PUSHs (darkness3_sv);
1607} 2113}
1608 2114
1609SV * 2115SV *
1610get_rect (CFClient::Map self, int x0, int y0, int w, int h) 2116get_rect (CFPlus::Map self, int x0, int y0, int w, int h)
1611 CODE: 2117 CODE:
1612{ 2118{
1613 int x, y, x1, y1; 2119 int x, y, x1, y1;
1614 SV *data_sv = newSV (w * h * 7 + 5); 2120 SV *data_sv = newSV (w * h * 7 + 5);
1615 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2121 uint8_t *data = (uint8_t *)SvPVX (data_sv);
… …
1640 if (row && row->c0 <= x && x < row->c1) 2146 if (row && row->c0 <= x && x < row->c1)
1641 { 2147 {
1642 mapcell *cell = row->col + (x - row->c0); 2148 mapcell *cell = row->col + (x - row->c0);
1643 uint8_t flags = 0; 2149 uint8_t flags = 0;
1644 2150
1645 if (cell->face [0]) flags |= 1; 2151 if (cell->tile [0]) flags |= 1;
1646 if (cell->face [1]) flags |= 2; 2152 if (cell->tile [1]) flags |= 2;
1647 if (cell->face [2]) flags |= 4; 2153 if (cell->tile [2]) flags |= 4;
1648 2154
1649 *data++ = flags; 2155 *data++ = flags;
1650 2156
1651 if (flags & 1) 2157 if (flags & 1)
1652 { 2158 {
2159 tileid tile = cell->tile [0];
1653 *data++ = cell->face [0] >> 8; 2160 *data++ = tile >> 8;
1654 *data++ = cell->face [0]; 2161 *data++ = tile;
1655 } 2162 }
1656 2163
1657 if (flags & 2) 2164 if (flags & 2)
1658 { 2165 {
2166 tileid tile = cell->tile [1];
1659 *data++ = cell->face [1] >> 8; 2167 *data++ = tile >> 8;
1660 *data++ = cell->face [1]; 2168 *data++ = tile;
1661 } 2169 }
1662 2170
1663 if (flags & 4) 2171 if (flags & 4)
1664 { 2172 {
2173 tileid tile = cell->tile [2];
1665 *data++ = cell->face [2] >> 8; 2174 *data++ = tile >> 8;
1666 *data++ = cell->face [2]; 2175 *data++ = tile;
1667 } 2176 }
1668 } 2177 }
1669 else 2178 else
1670 *data++ = 0; 2179 *data++ = 0;
1671 } 2180 }
… …
1677} 2186}
1678 OUTPUT: 2187 OUTPUT:
1679 RETVAL 2188 RETVAL
1680 2189
1681void 2190void
1682set_rect (CFClient::Map self, int x0, int y0, uint8_t *data) 2191set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data)
1683 PPCODE: 2192 PPCODE:
1684{ 2193{
1685 int x, y, z; 2194 int x, y, z;
1686 int w, h; 2195 int w, h;
1687 int x1, y1; 2196 int x1, y1;
… …
1711 { 2220 {
1712 uint8_t flags = *data++; 2221 uint8_t flags = *data++;
1713 2222
1714 if (flags) 2223 if (flags)
1715 { 2224 {
1716 mapface face[3] = { 0, 0, 0 };
1717
1718 mapcell *cell = row_get_cell (row, x); 2225 mapcell *cell = row_get_cell (row, x);
2226 tileid tile[3] = { 0, 0, 0 };
1719 2227
1720 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; } 2228 if (flags & 1) { tile[0] = *data++ << 8; tile[0] |= *data++; }
1721 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; } 2229 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
1722 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; } 2230 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
1723 2231
1724 if (cell->darkness <= 0) 2232 if (cell->darkness == 0)
1725 { 2233 {
1726 cell->darkness = -1; 2234 cell->darkness = 0;
1727 2235
1728 for (z = 0; z <= 2; z++) 2236 for (z = 0; z <= 2; z++)
1729 { 2237 {
1730 cell->face[z] = face[z]; 2238 tileid t = tile [z];
1731 2239
1732 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name)) 2240 if (t >= self->texs || (t && !self->tex [t].name))
2241 {
1733 XPUSHs (sv_2mortal (newSViv (face[z]))); 2242 XPUSHs (sv_2mortal (newSViv (t)));
2243 need_texid (self, t);
2244 }
2245
2246 cell->tile [z] = t;
1734 } 2247 }
1735 } 2248 }
1736 } 2249 }
1737 } 2250 }
1738 } 2251 }
1739} 2252}
1740 2253
1741MODULE = CFClient PACKAGE = CFClient::MixChunk 2254MODULE = CFPlus PACKAGE = CFPlus::RW
1742 2255
1743CFClient::MixChunk 2256CFPlus::RW
1744new_from_file (SV *class, char *path) 2257new (SV *class, SV *data_sv)
2258 CODE:
2259{
2260 STRLEN datalen;
2261 char *data = SvPVbyte (data_sv, datalen);
2262
2263 RETVAL = SDL_RWFromConstMem (data, datalen);
2264}
2265 OUTPUT:
2266 RETVAL
2267
2268CFPlus::RW
2269new_from_file (SV *class, const char *path, const char *mode = "rb")
2270 CODE:
2271 RETVAL = SDL_RWFromFile (path, mode);
2272 OUTPUT:
2273 RETVAL
2274
2275# fails on win32:
2276# CFPlus.xs(2268) : error C2059: syntax error : '('
2277#void
2278#close (CFPlus::RW self)
1745 CODE: 2279# CODE:
2280# (self->(close)) (self);
2281
2282MODULE = CFPlus PACKAGE = CFPlus::Channel
2283
2284PROTOTYPES: DISABLE
2285
2286CFPlus::Channel
2287find ()
2288 CODE:
2289{
2290 RETVAL = Mix_GroupAvailable (-1);
2291
2292 if (RETVAL < 0)
2293 {
2294 RETVAL = Mix_GroupOldest (-1);
2295
2296 if (RETVAL < 0)
2297 XSRETURN_UNDEF;
2298
2299 Mix_HaltChannel (RETVAL);
2300 }
2301
2302 Mix_UnregisterAllEffects (RETVAL);
2303 Mix_Volume (RETVAL, 128);
2304}
2305 OUTPUT:
2306 RETVAL
2307
2308void
2309halt (CFPlus::Channel self)
2310 CODE:
2311 Mix_HaltChannel (self);
2312
2313void
2314expire (CFPlus::Channel self, int ticks = -1)
2315 CODE:
2316 Mix_ExpireChannel (self, ticks);
2317
2318void
2319fade_out (CFPlus::Channel self, int ticks = -1)
2320 CODE:
2321 Mix_FadeOutChannel (self, ticks);
2322
2323int
2324volume (CFPlus::Channel self, int volume)
2325 CODE:
2326 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2327 OUTPUT:
2328 RETVAL
2329
2330void
2331unregister_all_effects (CFPlus::Channel self)
2332 CODE:
2333 Mix_UnregisterAllEffects (self);
2334
2335void
2336set_panning (CFPlus::Channel self, int left, int right)
2337 CODE:
2338 left = CLAMP (left , 0, 255);
2339 right = CLAMP (right, 0, 255);
2340 Mix_SetPanning (self, left, right);
2341
2342void
2343set_distance (CFPlus::Channel self, int distance)
2344 CODE:
2345 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2346
2347void
2348set_position (CFPlus::Channel self, int angle, int distance)
2349 CODE:
2350
2351void
2352set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
2353 CODE:
2354{
2355 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2356 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2357 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2358}
2359
2360void
2361set_reverse_stereo (CFPlus::Channel self, int flip)
2362 CODE:
2363 Mix_SetReverseStereo (self, flip);
2364
2365MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2366
2367PROTOTYPES: DISABLE
2368
2369CFPlus::MixChunk
2370new (SV *class, CFPlus::RW rwops)
2371 CODE:
1746 RETVAL = Mix_LoadWAV (path); 2372 RETVAL = Mix_LoadWAV_RW (rwops, 1);
1747 OUTPUT: 2373 OUTPUT:
1748 RETVAL 2374 RETVAL
1749 2375
1750void 2376void
1751DESTROY (CFClient::MixChunk self) 2377DESTROY (CFPlus::MixChunk self)
1752 CODE: 2378 CODE:
1753 Mix_FreeChunk (self); 2379 Mix_FreeChunk (self);
1754 2380
1755int 2381int
1756volume (CFClient::MixChunk self, int volume = -1) 2382volume (CFPlus::MixChunk self, int volume = -1)
1757 CODE: 2383 CODE:
2384 if (items > 1)
2385 volume = CLAMP (volume, 0, 128);
1758 RETVAL = Mix_VolumeChunk (self, volume); 2386 RETVAL = Mix_VolumeChunk (self, volume);
1759 OUTPUT: 2387 OUTPUT:
1760 RETVAL 2388 RETVAL
1761 2389
1762int 2390CFPlus::Channel
1763play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2391play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
1764 CODE: 2392 CODE:
2393{
1765 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2394 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
1766 OUTPUT: 2395
1767 RETVAL 2396 if (RETVAL < 0)
2397 XSRETURN_UNDEF;
1768 2398
2399 if (channel < 0)
2400 {
2401 Mix_UnregisterAllEffects (RETVAL);
2402 Mix_Volume (RETVAL, 128);
2403 }
2404}
2405 OUTPUT:
2406 RETVAL
2407
1769MODULE = CFClient PACKAGE = CFClient::MixMusic 2408MODULE = CFPlus PACKAGE = CFPlus::MixMusic
1770 2409
1771int 2410int
1772volume (int volume = -1) 2411volume (int volume = -1)
2412 PROTOTYPE: ;$
1773 CODE: 2413 CODE:
2414 if (items > 0)
2415 volume = CLAMP (volume, 0, 128);
1774 RETVAL = Mix_VolumeMusic (volume); 2416 RETVAL = Mix_VolumeMusic (volume);
1775 OUTPUT: 2417 OUTPUT:
1776 RETVAL 2418 RETVAL
1777 2419
2420void
2421fade_out (int ms)
2422 CODE:
2423 Mix_FadeOutMusic (ms);
2424
2425void
2426halt ()
2427 CODE:
2428 Mix_HaltMusic ();
2429
1778CFClient::MixMusic 2430CFPlus::MixMusic
1779new_from_file (SV *class, char *path) 2431new (SV *class, CFPlus::RW rwops)
1780 CODE: 2432 CODE:
1781 RETVAL = Mix_LoadMUS (path); 2433 RETVAL = Mix_LoadMUS_RW (rwops);
1782 OUTPUT: 2434 OUTPUT:
1783 RETVAL 2435 RETVAL
1784 2436
1785void 2437void
1786DESTROY (CFClient::MixMusic self) 2438DESTROY (CFPlus::MixMusic self)
1787 CODE: 2439 CODE:
1788 Mix_FreeMusic (self); 2440 Mix_FreeMusic (self);
1789 2441
1790int 2442int
1791play (CFClient::MixMusic self, int loops = -1) 2443play (CFPlus::MixMusic self, int loops = -1)
1792 CODE: 2444 CODE:
1793 RETVAL = Mix_PlayMusic (self, loops); 2445 RETVAL = Mix_PlayMusic (self, loops);
1794 OUTPUT: 2446 OUTPUT:
1795 RETVAL 2447 RETVAL
1796 2448
2449void
2450fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2451 CODE:
2452 Mix_FadeInMusicPos (self, loops, ms, position);
2453
1797MODULE = CFClient PACKAGE = CFClient::OpenGL 2454MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2455
2456PROTOTYPES: ENABLE
1798 2457
1799BOOT: 2458BOOT:
1800{ 2459{
1801 HV *stash = gv_stashpv ("CFClient::OpenGL", 1); 2460 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1);
1802 static const struct { 2461 static const struct {
1803 const char *name; 2462 const char *name;
1804 IV iv; 2463 IV iv;
1805 } *civ, const_iv[] = { 2464 } *civ, const_iv[] = {
1806# define const_iv(name) { # name, (IV)name } 2465# define const_iv(name) { # name, (IV)name }
2466 const_iv (GL_VENDOR),
2467 const_iv (GL_VERSION),
2468 const_iv (GL_EXTENSIONS),
1807 const_iv (GL_COLOR_MATERIAL), 2469 const_iv (GL_COLOR_MATERIAL),
1808 const_iv (GL_SMOOTH), 2470 const_iv (GL_SMOOTH),
1809 const_iv (GL_FLAT), 2471 const_iv (GL_FLAT),
1810 const_iv (GL_DITHER), 2472 const_iv (GL_DITHER),
1811 const_iv (GL_BLEND), 2473 const_iv (GL_BLEND),
… …
1815 const_iv (GL_ALPHA_TEST), 2477 const_iv (GL_ALPHA_TEST),
1816 const_iv (GL_NORMALIZE), 2478 const_iv (GL_NORMALIZE),
1817 const_iv (GL_RESCALE_NORMAL), 2479 const_iv (GL_RESCALE_NORMAL),
1818 const_iv (GL_FRONT), 2480 const_iv (GL_FRONT),
1819 const_iv (GL_BACK), 2481 const_iv (GL_BACK),
2482 const_iv (GL_AUX0),
1820 const_iv (GL_AND), 2483 const_iv (GL_AND),
1821 const_iv (GL_ONE), 2484 const_iv (GL_ONE),
1822 const_iv (GL_ZERO), 2485 const_iv (GL_ZERO),
1823 const_iv (GL_SRC_ALPHA), 2486 const_iv (GL_SRC_ALPHA),
1824 const_iv (GL_DST_ALPHA), 2487 const_iv (GL_DST_ALPHA),
… …
1838 const_iv (GL_LUMINANCE), 2501 const_iv (GL_LUMINANCE),
1839 const_iv (GL_LUMINANCE_ALPHA), 2502 const_iv (GL_LUMINANCE_ALPHA),
1840 const_iv (GL_FLOAT), 2503 const_iv (GL_FLOAT),
1841 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2504 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1842 const_iv (GL_COMPILE), 2505 const_iv (GL_COMPILE),
2506 const_iv (GL_PROXY_TEXTURE_1D),
2507 const_iv (GL_PROXY_TEXTURE_2D),
1843 const_iv (GL_TEXTURE_1D), 2508 const_iv (GL_TEXTURE_1D),
1844 const_iv (GL_TEXTURE_2D), 2509 const_iv (GL_TEXTURE_2D),
1845 const_iv (GL_TEXTURE_ENV), 2510 const_iv (GL_TEXTURE_ENV),
1846 const_iv (GL_TEXTURE_MAG_FILTER), 2511 const_iv (GL_TEXTURE_MAG_FILTER),
1847 const_iv (GL_TEXTURE_MIN_FILTER), 2512 const_iv (GL_TEXTURE_MIN_FILTER),
… …
1868 const_iv (GL_COLOR_LOGIC_OP), 2533 const_iv (GL_COLOR_LOGIC_OP),
1869 const_iv (GL_SEPARABLE_2D), 2534 const_iv (GL_SEPARABLE_2D),
1870 const_iv (GL_CONVOLUTION_2D), 2535 const_iv (GL_CONVOLUTION_2D),
1871 const_iv (GL_CONVOLUTION_BORDER_MODE), 2536 const_iv (GL_CONVOLUTION_BORDER_MODE),
1872 const_iv (GL_CONSTANT_BORDER), 2537 const_iv (GL_CONSTANT_BORDER),
2538 const_iv (GL_POINTS),
1873 const_iv (GL_LINES), 2539 const_iv (GL_LINES),
2540 const_iv (GL_LINE_STRIP),
1874 const_iv (GL_LINE_LOOP), 2541 const_iv (GL_LINE_LOOP),
1875 const_iv (GL_QUADS), 2542 const_iv (GL_QUADS),
1876 const_iv (GL_QUAD_STRIP), 2543 const_iv (GL_QUAD_STRIP),
1877 const_iv (GL_TRIANGLES), 2544 const_iv (GL_TRIANGLES),
1878 const_iv (GL_TRIANGLE_STRIP), 2545 const_iv (GL_TRIANGLE_STRIP),
1879 const_iv (GL_TRIANGLE_FAN), 2546 const_iv (GL_TRIANGLE_FAN),
2547 const_iv (GL_POLYGON),
1880 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2548 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2549 const_iv (GL_POINT_SMOOTH_HINT),
2550 const_iv (GL_LINE_SMOOTH_HINT),
2551 const_iv (GL_POLYGON_SMOOTH_HINT),
2552 const_iv (GL_GENERATE_MIPMAP_HINT),
1881 const_iv (GL_FASTEST), 2553 const_iv (GL_FASTEST),
2554 const_iv (GL_DONT_CARE),
2555 const_iv (GL_NICEST),
1882 const_iv (GL_V2F), 2556 const_iv (GL_V2F),
1883 const_iv (GL_V3F), 2557 const_iv (GL_V3F),
1884 const_iv (GL_T2F_V3F), 2558 const_iv (GL_T2F_V3F),
1885 const_iv (GL_T2F_N3F_V3F), 2559 const_iv (GL_T2F_N3F_V3F),
1886# undef const_iv 2560# undef const_iv
1887 }; 2561 };
1888 2562
1889 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 2563 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1890 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 2564 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
2565
2566 texture_av = newAV ();
2567 AvREAL_off (texture_av);
1891} 2568}
1892 2569
1893char * 2570char *
1894gl_vendor () 2571gl_vendor ()
1895 CODE: 2572 CODE:
… …
1909 CODE: 2586 CODE:
1910 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2587 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1911 OUTPUT: 2588 OUTPUT:
1912 RETVAL 2589 RETVAL
1913 2590
2591const char *glGetString (GLenum pname)
2592
2593GLint glGetInteger (GLenum pname)
2594 CODE:
2595 glGetIntegerv (pname, &RETVAL);
2596 OUTPUT:
2597 RETVAL
2598
2599GLdouble glGetDouble (GLenum pname)
2600 CODE:
2601 glGetDoublev (pname, &RETVAL);
2602 OUTPUT:
2603 RETVAL
2604
1914int glGetError () 2605int glGetError ()
1915 2606
1916void glFinish () 2607void glFinish ()
1917 2608
1918void glClear (int mask) 2609void glClear (int mask)
… …
1955# near_ and far_ are due to microsofts buggy "c" compiler 2646# near_ and far_ are due to microsofts buggy "c" compiler
1956void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2647void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1957 2648
1958# near_ and far_ are due to microsofts buggy "c" compiler 2649# near_ and far_ are due to microsofts buggy "c" compiler
1959void glOrtho (double left, double right, double bottom, double top, double near_, double far_) 2650void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
2651
2652PROTOTYPES: DISABLE
1960 2653
1961void glViewport (int x, int y, int width, int height) 2654void glViewport (int x, int y, int width, int height)
1962 2655
1963void glScissor (int x, int y, int width, int height) 2656void glScissor (int x, int y, int width, int height)
1964 2657
… …
1972 2665
1973void glRotate (float angle, float x, float y, float z) 2666void glRotate (float angle, float x, float y, float z)
1974 CODE: 2667 CODE:
1975 glRotatef (angle, x, y, z); 2668 glRotatef (angle, x, y, z);
1976 2669
1977void glBegin (int mode)
1978
1979void glEnd ()
1980
1981void glColor (float r, float g, float b, float a = 1.0) 2670void glColor (float r, float g, float b, float a = 1.0)
1982 PROTOTYPE: @
1983 ALIAS: 2671 ALIAS:
1984 glColor_premultiply = 1 2672 glColor_premultiply = 1
1985 CODE: 2673 CODE:
1986 if (ix) 2674 if (ix)
1987 { 2675 {
1988 r *= a; 2676 r *= a;
1989 g *= a; 2677 g *= a;
1990 b *= a; 2678 b *= a;
1991 } 2679 }
1992 // microsoft visual "c" rounds instead of truncating... 2680 // microsoft visual "c" rounds instead of truncating...
1993 glColor4ub (MIN ((int)(r * 256.f), 255), 2681 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 2682
2004void glRasterPos (float x, float y, float z = 0.) 2683void glRasterPos (float x, float y, float z = 0.)
2005 CODE: 2684 CODE:
2006 glRasterPos3f (0, 0, z); 2685 glRasterPos3f (0, 0, z);
2007 glBitmap (0, 0, 0, 0, x, y, 0); 2686 glBitmap (0, 0, 0, 0, x, y, 0);
… …
2012 2691
2013void glTexCoord (float s, float t) 2692void glTexCoord (float s, float t)
2014 CODE: 2693 CODE:
2015 glTexCoord2f (s, t); 2694 glTexCoord2f (s, t);
2016 2695
2696void glRect (float x1, float y1, float x2, float y2)
2697 CODE:
2698 glRectf (x1, y1, x2, y2);
2699
2700PROTOTYPES: ENABLE
2701
2702void glBegin (int mode)
2703
2704void glEnd ()
2705
2706void glPointSize (GLfloat size)
2707
2708void glLineWidth (GLfloat width)
2709
2710void glInterleavedArrays (int format, int stride, char *data)
2711
2712void glDrawElements (int mode, int count, int type, char *indices)
2713
2714# 1.2 void glDrawRangeElements (int mode, int start, int end
2715
2017void glTexEnv (int target, int pname, float param) 2716void glTexEnv (int target, int pname, float param)
2018 CODE: 2717 CODE:
2019 glTexEnvf (target, pname, param); 2718 glTexEnvf (target, pname, param);
2020 2719
2021void glTexParameter (int target, int pname, float param) 2720void glTexParameter (int target, int pname, float param)
… …
2043 2742
2044void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 2743void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
2045 2744
2046void glDrawPixels (int width, int height, int format, int type, char *pixels) 2745void glDrawPixels (int width, int height, int format, int type, char *pixels)
2047 2746
2747void glPixelZoom (float x, float y)
2748
2048void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 2749void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
2049 2750
2050int glGenTexture () 2751int glGenTexture ()
2051 CODE: 2752 CODE:
2052{ 2753 RETVAL = gen_texture ();
2053 GLuint name;
2054 glGenTextures (1, &name);
2055 RETVAL = name;
2056}
2057 OUTPUT: 2754 OUTPUT:
2058 RETVAL 2755 RETVAL
2059 2756
2060void glDeleteTexture (int name) 2757void glDeleteTexture (int name)
2061 CODE: 2758 CODE:
2062{
2063 GLuint name_ = name;
2064 glDeleteTextures (1, &name_); 2759 del_texture (name);
2065} 2760
2066
2067int glGenList () 2761int glGenList ()
2068 CODE: 2762 CODE:
2069 RETVAL = glGenLists (1); 2763 RETVAL = glGenLists (1);
2070 OUTPUT: 2764 OUTPUT:
2071 RETVAL 2765 RETVAL
… …
2078 2772
2079void glEndList () 2773void glEndList ()
2080 2774
2081void glCallList (int list) 2775void glCallList (int list)
2082 2776
2777MODULE = CFPlus PACKAGE = CFPlus::UI::Base
2083 2778
2779PROTOTYPES: DISABLE
2780
2781void
2782find_widget (SV *self, NV x, NV y)
2783 PPCODE:
2784{
2785 if (within_widget (self, x, y))
2786 XPUSHs (self);
2787}
2788
2789BOOT:
2790{
2791 hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);
2792
2793 draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);
2794 draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);
2795 draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);
2796 draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);
2797}
2798
2799void
2800draw (SV *self)
2801 CODE:
2802{
2803 HV *hv;
2804 SV **svp;
2805 NV x, y, w, h;
2806 SV *draw_x_sv = GvSV (draw_x_gv);
2807 SV *draw_y_sv = GvSV (draw_y_gv);
2808 SV *draw_w_sv = GvSV (draw_w_gv);
2809 SV *draw_h_sv = GvSV (draw_h_gv);
2810 SV *hover;
2811 double draw_x, draw_y, draw_w, draw_h;
2812
2813 if (!SvROK (self))
2814 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
2815
2816 hv = (HV *)SvRV (self);
2817
2818 if (SvTYPE (hv) != SVt_PVHV)
2819 croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));
2820
2821 svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2822 svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2823
2824 if (!h || !w)
2825 XSRETURN_EMPTY;
2826
2827 svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
2828 svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
2829
2830 draw_x = SvNV (draw_x_sv) + x;
2831 draw_y = SvNV (draw_y_sv) + y;
2832
2833 if (draw_x + w < 0 || draw_x >= SvNV (draw_w_sv)
2834 || draw_y + h < 0 || draw_y >= SvNV (draw_h_sv))
2835 XSRETURN_EMPTY;
2836
2837 sv_setnv (draw_x_sv, draw_x);
2838 sv_setnv (draw_y_sv, draw_y);
2839
2840 glPushMatrix ();
2841 glTranslated (x, y, 0);
2842
2843 if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
2844 {
2845 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2846
2847 if (svp && SvTRUE (*svp))
2848 {
2849 glColor4f (1*0.2f, 0.8*0.2f, 0.5*0.2f, 0.2f);
2850 glEnable (GL_BLEND);
2851 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2852 glBegin (GL_QUADS);
2853 glVertex2f (0, 0);
2854 glVertex2f (w, 0);
2855 glVertex2f (w, h);
2856 glVertex2f (0, h);
2857 glEnd ();
2858 glDisable (GL_BLEND);
2859 }
2860 }
2861#if 0
2862 if ($ENV{CFPLUS_DEBUG} & 1) {
2863 glPushMatrix;
2864 glColor 1, 1, 0, 1;
2865 glTranslate 0.375, 0.375;
2866 glBegin GL_LINE_LOOP;
2867 glVertex 0 , 0;
2868 glVertex $self->{w} - 1, 0;
2869 glVertex $self->{w} - 1, $self->{h} - 1;
2870 glVertex 0 , $self->{h} - 1;
2871 glEnd;
2872 glPopMatrix;
2873 #CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2874 }
2875#endif
2876 PUSHMARK (SP);
2877 XPUSHs (self);
2878 PUTBACK;
2879 call_method ("_draw", G_VOID | G_DISCARD);
2880 SPAGAIN;
2881
2882 glPopMatrix ();
2883
2884 draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
2885 draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
2886}
2887

Diff Legend

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