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.104 by root, Mon Jun 5 00:17:47 2006 UTC vs.
Revision 1.204 by root, Thu Jul 19 14:54:50 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>
28#include <stdlib.h>
15 29
16#include <SDL.h> 30#include <SDL.h>
31#include <SDL_thread.h>
17#include <SDL_endian.h> 32#include <SDL_endian.h>
18#include <SDL_image.h> 33#include <SDL_image.h>
19#include <SDL_mixer.h> 34#include <SDL_mixer.h>
20#include <SDL_opengl.h> 35#include <SDL_opengl.h>
21 36
37#define PANGO_ENABLE_BACKEND
38#define G_DISABLE_CAST_CHECKS
39
22#include <glib/gmacros.h> 40#include <glib/gmacros.h>
23 41
24#include <pango/pango.h> 42#include <pango/pango.h>
25#include <pango/pangofc-fontmap.h>
26#include <pango/pangoft2.h>
27#include <pango/pangocairo.h>
28 43
29#ifndef _WIN32 44#ifndef _WIN32
30# include <sys/types.h> 45# include <sys/types.h>
31# include <sys/socket.h> 46# include <sys/socket.h>
32# include <netinet/in.h> 47# include <netinet/in.h>
33# include <netinet/tcp.h> 48# include <netinet/tcp.h>
34# include <inttypes.h> 49# include <inttypes.h>
35#else
36 typedef unsigned char uint8_t;
37 typedef unsigned short uint16_t;
38 typedef unsigned int uint32_t;
39 typedef signed char int8_t;
40 typedef signed short int16_t;
41 typedef signed int int32_t;
42#endif 50#endif
43 51
44#include "glext.h" 52#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
45 53
46#define FOW_DARKNESS 32 54#define FOW_DARKNESS 32
47 55
48#define MAP_EXTEND_X 32 56#define MAP_EXTEND_X 32
49#define MAP_EXTEND_Y 512 57#define MAP_EXTEND_Y 512
50 58
51#define MIN_FONT_HEIGHT 10 59#define MIN_FONT_HEIGHT 10
60
61#if 0
62# define PARACHUTE SDL_INIT_NOPARACHUTE
63#else
64# define PARACHUTE 0
65#endif
66
67static AV *texture_av;
52 68
53static struct 69static struct
54{ 70{
55#define GL_FUNC(ptr,name) ptr name; 71#define GL_FUNC(ptr,name) ptr name;
56#include "glfunc.h" 72#include "glfunc.h"
57#undef GL_FUNC 73#undef GL_FUNC
58} gl; 74} gl;
59 75
76static void
60static void gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa) 77gl_BlendFuncSeparate (GLenum sa, GLenum da, GLenum saa, GLenum daa)
61{ 78{
62 if (gl.BlendFuncSeparate) 79 if (gl.BlendFuncSeparate)
63 gl.BlendFuncSeparate (sa, da, saa, daa); 80 gl.BlendFuncSeparate (sa, da, saa, daa);
64 else if (gl.BlendFuncSeparateEXT) 81 else if (gl.BlendFuncSeparateEXT)
65 gl.BlendFuncSeparateEXT (sa, da, saa, daa); 82 gl.BlendFuncSeparateEXT (sa, da, saa, daa);
66 else 83 else
67 glBlendFunc (sa, da); 84 glBlendFunc (sa, da);
68} 85}
69 86
87static GLuint
88gen_texture ()
89{
90 GLuint name;
91
92 if (AvFILL (texture_av) >= 0)
93 name = (GLuint)(size_t)av_pop (texture_av);
94 else
95 glGenTextures (1, &name);
96
97 return name;
98}
99
100static void
101del_texture (GLuint name)
102{
103 /* make a half-assed attempt at returning the memory used by the texture */
104 /* textures are frequently being reused by cfplus anyway */
105 /*glBindTexture (GL_TEXTURE_2D, name);*/
106 /*glTexImage2D (GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE, 0);*/
107 av_push (texture_av, (SV *)(size_t)name);
108 glDeleteTextures (1, &name);
109}
110
111#include "texcache.c"
112
113#include "pango-font.c"
114#include "pango-fontmap.c"
115#include "pango-render.c"
116
70typedef Mix_Chunk *CFClient__MixChunk; 117typedef Mix_Chunk *CFPlus__MixChunk;
71typedef Mix_Music *CFClient__MixMusic; 118typedef Mix_Music *CFPlus__MixMusic;
72 119
73typedef PangoFontDescription *CFClient__Font; 120typedef PangoFontDescription *CFPlus__Font;
121
122static int
123shape_attr_p (PangoLayoutRun *run)
124{
125 GSList *attrs = run->item->analysis.extra_attrs;
126
127 while (attrs)
128 {
129 PangoAttribute *attr = attrs->data;
130
131 if (attr->klass->type == PANGO_ATTR_SHAPE)
132 return 1;
133
134 attrs = attrs->next;
135 }
136
137 return 0;
138}
74 139
75typedef struct cf_layout { 140typedef struct cf_layout {
76 PangoLayout *pl; // either derived from a cairo or ft2 context 141 PangoLayout *pl;
77 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
78 float r, g, b, a; // default color for rgba mode 142 float r, g, b, a; // default color for rgba mode
79 int base_height; 143 int base_height;
80 CFClient__Font font; 144 CFPlus__Font font;
81} *CFClient__Layout; 145} *CFPlus__Layout;
82 146
83static CFClient__Font default_font; 147static CFPlus__Font default_font;
84static PangoContext *ft2_context, *cairo_context; 148static PangoContext *opengl_context;
85static PangoFontMap *ft2_fontmap, *cairo_fontmap; 149static PangoFontMap *opengl_fontmap;
86 150
87static void 151static void
88substitute_func (FcPattern *pattern, gpointer data) 152substitute_func (FcPattern *pattern, gpointer data)
89{ 153{
90 FcPatternAddBool (pattern, FC_HINTING , 1); 154 FcPatternAddBool (pattern, FC_HINTING, 1);
91#ifdef _WIN32 155#ifdef FC_HINT_STYLE
92 FcPatternAddBool (pattern, FC_AUTOHINT, 1); 156 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);
93#else 157#endif
94 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 158 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
95#endif
96} 159}
97 160
98static void 161static void
99layout_update_font (CFClient__Layout self) 162layout_update_font (CFPlus__Layout self)
100{ 163{
101 /* use a random scale factor to account for unknown descenders, 0.8 works 164 /* use a random scale factor to account for unknown descenders, 0.8 works
102 * reasonably well with bitstream vera 165 * reasonably well with bitstream vera
103 */ 166 */
104 PangoFontDescription *font = self->font ? self->font : default_font; 167 PangoFontDescription *font = self->font ? self->font : default_font;
108 171
109 pango_layout_set_font_description (self->pl, font); 172 pango_layout_set_font_description (self->pl, font);
110} 173}
111 174
112static void 175static void
113layout_get_pixel_size (CFClient__Layout self, int *w, int *h) 176layout_get_pixel_size (CFPlus__Layout self, int *w, int *h)
114{ 177{
178 PangoRectangle rect;
179
180 // get_pixel_* wrongly rounds down
115 pango_layout_get_pixel_size (self->pl, w, h); 181 pango_layout_get_extents (self->pl, 0, &rect);
116 182
117 if (!*w) *w = 1; 183 rect.width = (rect.width + PANGO_SCALE - 1) / PANGO_SCALE;
118 if (!*h) *h = 1; 184 rect.height = (rect.height + PANGO_SCALE - 1) / PANGO_SCALE;
119 185
120 *w = (*w + 3) & ~3; 186 if (!rect.width) rect.width = 1;
121} 187 if (!rect.height) rect.height = 1;
122 188
189 *w = rect.width;
190 *h = rect.height;
191}
192
193typedef uint16_t tileid;
123typedef uint16_t mapface; 194typedef uint16_t faceid;
124 195
125typedef struct { 196typedef struct {
126 GLint name; 197 int name;
127 int w, h; 198 int w, h;
128 float s, t; 199 float s, t;
129 uint8_t r, g, b, a; 200 uint8_t r, g, b, a;
201 tileid smoothtile;
202 uint8_t smoothlevel;
130} maptex; 203} maptex;
131 204
132typedef struct { 205typedef struct {
206 uint32_t player;
207 tileid tile[3];
133 int16_t darkness; 208 uint16_t darkness;
134 mapface face[3]; 209 uint8_t stat_width, stat_hp, flags, smoothmax;
135} mapcell; 210} mapcell;
136 211
137typedef struct { 212typedef struct {
138 int32_t c0, c1; 213 int32_t c0, c1;
139 mapcell *col; 214 mapcell *col;
140} maprow; 215} maprow;
141 216
142typedef struct map { 217typedef struct map {
143 int x, y, w, h; 218 int x, y, w, h;
144 int ox, oy; /* offset to virtual global coordinate system */ 219 int ox, oy; /* offset to virtual global coordinate system */
145 int faces; 220 int faces; tileid *face2tile; // [faceid]
146 mapface *face; 221 int texs; maptex *tex; // [tileid]
147
148 int texs;
149 maptex *tex;
150 222
151 int32_t rows; 223 int32_t rows;
152 maprow *row; 224 maprow *row;
153} *CFClient__Map; 225} *CFPlus__Map;
154 226
155static char * 227static char *
156prepend (char *ptr, int sze, int inc) 228prepend (char *ptr, int sze, int inc)
157{ 229{
158 char *p; 230 char *p;
175} 247}
176 248
177#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 249#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
178#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type)) 250#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
179 251
252static void
253need_facenum (struct map *self, faceid face)
254{
255 while (self->faces <= face)
256 {
257 Append (tileid, self->face2tile, self->faces, self->faces);
258 self->faces *= 2;
259 }
260}
261
262static void
263need_texid (struct map *self, int texid)
264{
265 while (self->texs <= texid)
266 {
267 Append (maptex, self->tex, self->texs, self->texs);
268 self->texs *= 2;
269 }
270}
271
180static maprow * 272static maprow *
181map_get_row (CFClient__Map self, int y) 273map_get_row (CFPlus__Map self, int y)
182{ 274{
183 if (0 > y) 275 if (0 > y)
184 { 276 {
185 int extend = - y + MAP_EXTEND_Y; 277 int extend = - y + MAP_EXTEND_Y;
186 Prepend (maprow, self->row, self->rows, extend); 278 Prepend (maprow, self->row, self->rows, extend);
224 316
225 return row->col + (x - row->c0); 317 return row->col + (x - row->c0);
226} 318}
227 319
228static mapcell * 320static mapcell *
229map_get_cell (CFClient__Map self, int x, int y) 321map_get_cell (CFPlus__Map self, int x, int y)
230{ 322{
231 return row_get_cell (map_get_row (self, y), x); 323 return row_get_cell (map_get_row (self, y), x);
232} 324}
233 325
234static void 326static void
235map_clear (CFClient__Map self) 327map_clear (CFPlus__Map self)
236{ 328{
237 int r; 329 int r;
238 330
239 for (r = 0; r < self->rows; r++) 331 for (r = 0; r < self->rows; r++)
240 Safefree (self->row[r].col); 332 Safefree (self->row[r].col);
248 self->row = 0; 340 self->row = 0;
249 self->rows = 0; 341 self->rows = 0;
250} 342}
251 343
252static void 344static void
253map_blank (CFClient__Map self, int x0, int y0, int w, int h) 345map_blank (CFPlus__Map self, int x0, int y0, int w, int h)
254{ 346{
255 int x, y; 347 int x, y;
256 maprow *row; 348 maprow *row;
349 mapcell *cell;
257 350
258 for (y = y0; y < y0 + h; y++) 351 for (y = y0; y < y0 + h; y++)
259 if (y >= 0) 352 if (y >= 0)
260 { 353 {
261 if (y >= self->rows) 354 if (y >= self->rows)
267 if (x >= row->c0) 360 if (x >= row->c0)
268 { 361 {
269 if (x >= row->c1) 362 if (x >= row->c1)
270 break; 363 break;
271 364
272 row->col[x - row->c0].darkness = -1; 365 cell = row->col + x - row->c0;
366
367 cell->darkness = 0;
368 cell->stat_hp = 0;
369 cell->flags = 0;
370 cell->player = 0;
273 } 371 }
274 } 372 }
373}
374
375typedef struct {
376 tileid tile;
377 uint8_t x, y, level;
378} smooth_key;
379
380static void
381smooth_or_bits (HV *hv, smooth_key *key, IV bits)
382{
383 SV **sv = hv_fetch (hv, (char *)key, sizeof (*key), 1);
384
385 if (SvIOK (*sv))
386 SvIV_set (*sv, SvIVX (*sv) | bits);
387 else
388 sv_setiv (*sv, bits);
275} 389}
276 390
277static void 391static void
278music_finished (void) 392music_finished (void)
279{ 393{
298 ev.data2 = 0; 412 ev.data2 = 0;
299 413
300 SDL_PushEvent ((SDL_Event *)&ev); 414 SDL_PushEvent ((SDL_Event *)&ev);
301} 415}
302 416
417static unsigned int
418minpot (unsigned int n)
419{
420 if (!n)
421 return 0;
422
423 --n;
424
425 n |= n >> 1;
426 n |= n >> 2;
427 n |= n >> 4;
428 n |= n >> 8;
429 n |= n >> 16;
430
431 return n + 1;
432}
433
434/* SDL should provide this, really. */
435#define SDLK_MODIFIER_MIN 300
436#define SDLK_MODIFIER_MAX 314
437
303MODULE = CFClient PACKAGE = CFClient 438MODULE = CFPlus PACKAGE = CFPlus
304 439
305PROTOTYPES: ENABLE 440PROTOTYPES: ENABLE
306 441
307BOOT: 442BOOT:
308{ 443{
309 HV *stash = gv_stashpv ("CFClient", 1); 444 HV *stash = gv_stashpv ("CFPlus", 1);
310 static const struct { 445 static const struct {
311 const char *name; 446 const char *name;
312 IV iv; 447 IV iv;
313 } *civ, const_iv[] = { 448 } *civ, const_iv[] = {
314# define const_iv(name) { # name, (IV)name } 449# define const_iv(name) { # name, (IV)name }
450 const_iv (SDLK_MODIFIER_MIN),
451 const_iv (SDLK_MODIFIER_MAX),
452
315 const_iv (SDL_ACTIVEEVENT), 453 const_iv (SDL_ACTIVEEVENT),
316 const_iv (SDL_KEYDOWN), 454 const_iv (SDL_KEYDOWN),
317 const_iv (SDL_KEYUP), 455 const_iv (SDL_KEYUP),
318 const_iv (SDL_MOUSEMOTION), 456 const_iv (SDL_MOUSEMOTION),
319 const_iv (SDL_MOUSEBUTTONDOWN), 457 const_iv (SDL_MOUSEBUTTONDOWN),
328 const_iv (SDL_EVENT_RESERVEDA), 466 const_iv (SDL_EVENT_RESERVEDA),
329 const_iv (SDL_EVENT_RESERVEDB), 467 const_iv (SDL_EVENT_RESERVEDB),
330 const_iv (SDL_VIDEORESIZE), 468 const_iv (SDL_VIDEORESIZE),
331 const_iv (SDL_VIDEOEXPOSE), 469 const_iv (SDL_VIDEOEXPOSE),
332 const_iv (SDL_USEREVENT), 470 const_iv (SDL_USEREVENT),
471
472 const_iv (SDL_APPINPUTFOCUS),
473 const_iv (SDL_APPMOUSEFOCUS),
474 const_iv (SDL_APPACTIVE),
475
333 const_iv (SDLK_KP0), 476 const_iv (SDLK_KP0),
334 const_iv (SDLK_KP1), 477 const_iv (SDLK_KP1),
335 const_iv (SDLK_KP2), 478 const_iv (SDLK_KP2),
336 const_iv (SDLK_KP3), 479 const_iv (SDLK_KP3),
337 const_iv (SDLK_KP4), 480 const_iv (SDLK_KP4),
392 const_iv (SDLK_BREAK), 535 const_iv (SDLK_BREAK),
393 const_iv (SDLK_MENU), 536 const_iv (SDLK_MENU),
394 const_iv (SDLK_POWER), 537 const_iv (SDLK_POWER),
395 const_iv (SDLK_EURO), 538 const_iv (SDLK_EURO),
396 const_iv (SDLK_UNDO), 539 const_iv (SDLK_UNDO),
540
397 const_iv (KMOD_NONE), 541 const_iv (KMOD_NONE),
542 const_iv (KMOD_SHIFT),
398 const_iv (KMOD_LSHIFT), 543 const_iv (KMOD_LSHIFT),
399 const_iv (KMOD_RSHIFT), 544 const_iv (KMOD_RSHIFT),
545 const_iv (KMOD_CTRL),
400 const_iv (KMOD_LCTRL), 546 const_iv (KMOD_LCTRL),
401 const_iv (KMOD_RCTRL), 547 const_iv (KMOD_RCTRL),
548 const_iv (KMOD_ALT),
402 const_iv (KMOD_LALT), 549 const_iv (KMOD_LALT),
403 const_iv (KMOD_RALT), 550 const_iv (KMOD_RALT),
551 const_iv (KMOD_META),
404 const_iv (KMOD_LMETA), 552 const_iv (KMOD_LMETA),
405 const_iv (KMOD_RMETA), 553 const_iv (KMOD_RMETA),
406 const_iv (KMOD_NUM), 554 const_iv (KMOD_NUM),
407 const_iv (KMOD_CAPS), 555 const_iv (KMOD_CAPS),
408 const_iv (KMOD_MODE), 556 const_iv (KMOD_MODE),
409 const_iv (KMOD_CTRL),
410 const_iv (KMOD_SHIFT),
411 const_iv (KMOD_ALT),
412 const_iv (KMOD_META)
413# undef const_iv 557# undef const_iv
414 }; 558 };
415 559
416 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 560 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
417 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 561 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
562
563 assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);
564 assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);
418} 565}
566
567void
568weaken (SV *rv)
569 PROTOTYPE: $
570 CODE:
571 sv_rvweaken (rv);
572
573int
574in_destruct ()
575 CODE:
576 RETVAL = PL_main_cv == Nullcv;
577 OUTPUT:
578 RETVAL
579
580NV floor (NV x)
581
582NV ceil (NV x)
419 583
420void 584void
421pango_init () 585pango_init ()
422 CODE: 586 CODE:
423{ 587{
424 // delayed, so it can pick up new fonts added by AddFontResourceEx
425 ft2_fontmap = pango_ft2_font_map_new (); 588 opengl_fontmap = pango_opengl_font_map_new ();
426 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 589 pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
427 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap); 590 opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
428
429 cairo_fontmap = pango_cairo_font_map_get_default ();
430 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
431} 591}
592
593char *
594SDL_GetError ()
432 595
433int 596int
434SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 597SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO | PARACHUTE)
435 598
436void 599void
437SDL_Quit () 600SDL_Quit ()
438 601
439void 602void
440SDL_ListModes () 603SDL_ListModes (int rgb, int alpha)
441 PPCODE: 604 PPCODE:
442{ 605{
443 SDL_Rect **m; 606 SDL_Rect **m;
444 607
445 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5); 608 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
446 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 609 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
447 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 610 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
448 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 611 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
449 612
450 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 613 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
451 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16); 614 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE , 0);
452 615
453 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 616 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE , 0);
454 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 617 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
455 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 618 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
456 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 619 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
457 620
458 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1); 621 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
459 622#if SDL_VERSION_ATLEAST(1,2,10)
460 SDL_EnableUNICODE (1); 623 SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
461 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL); 624 SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
625#endif
462 626
463 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 627 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
464 628
465 if (m && m != (SDL_Rect **)-1) 629 if (m && m != (SDL_Rect **)-1)
466 while (*m) 630 while (*m)
467 { 631 {
632 if ((*m)->w >= 640 && (*m)->h >= 480)
633 {
468 AV *av = newAV (); 634 AV *av = newAV ();
469 av_push (av, newSViv ((*m)->w)); 635 av_push (av, newSViv ((*m)->w));
470 av_push (av, newSViv ((*m)->h)); 636 av_push (av, newSViv ((*m)->h));
637 av_push (av, newSViv (rgb));
638 av_push (av, newSViv (alpha));
471 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 639 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
640 }
472 641
473 ++m; 642 ++m;
474 } 643 }
475} 644}
476 645
477char *
478SDL_GetError ()
479
480int 646int
481SDL_SetVideoMode (int w, int h, int fullscreen) 647SDL_SetVideoMode (int w, int h, int rgb, int alpha, int fullscreen)
482 CODE: 648 CODE:
649{
650 SDL_EnableUNICODE (1);
651 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
652
653 SDL_GL_SetAttribute (SDL_GL_RED_SIZE , rgb);
654 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, rgb);
655 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE , rgb);
656 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, alpha);
657
483 RETVAL = !!SDL_SetVideoMode ( 658 RETVAL = !!SDL_SetVideoMode (
484 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 659 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
485 ); 660 );
661
486 if (RETVAL) 662 if (RETVAL)
487 { 663 {
664 av_clear (texture_av);
665
488 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 666 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
489# define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 667#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
490# include "glfunc.h" 668#include "glfunc.h"
491# undef GL_FUNC 669#undef GL_FUNC
492 } 670 }
671}
493 OUTPUT: 672 OUTPUT:
494 RETVAL 673 RETVAL
495 674
496void 675void
497SDL_GL_SwapBuffers () 676SDL_GL_SwapBuffers ()
498 677
499char * 678char *
500SDL_GetKeyName (int sym) 679SDL_GetKeyName (int sym)
501 680
681int
682SDL_GetAppState ()
683
502void 684void
503SDL_PollEvent () 685poll_events ()
504 PPCODE: 686 PPCODE:
505{ 687{
506 SDL_Event ev; 688 SDL_Event ev;
507 689
508 while (SDL_PollEvent (&ev)) 690 SDL_PumpEvents ();
691 while (SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_ALLEVENTS) > 0)
509 { 692 {
510 HV *hv = newHV (); 693 HV *hv = newHV ();
511 hv_store (hv, "type", 4, newSViv (ev.type), 0); 694 hv_store (hv, "type", 4, newSViv (ev.type), 0);
512 695
513 switch (ev.type) 696 switch (ev.type)
515 case SDL_KEYDOWN: 698 case SDL_KEYDOWN:
516 case SDL_KEYUP: 699 case SDL_KEYUP:
517 hv_store (hv, "state", 5, newSViv (ev.key.state), 0); 700 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
518 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); 701 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
519 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); 702 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
703 hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */
520 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); 704 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
521 break; 705 break;
522 706
523 case SDL_ACTIVEEVENT: 707 case SDL_ACTIVEEVENT:
524 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); 708 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
525 hv_store (hv, "state", 5, newSViv (ev.active.state), 0); 709 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
526 break; 710 break;
527 711
528 case SDL_MOUSEMOTION: 712 case SDL_MOUSEMOTION:
713 {
714 int state = ev.motion.state;
715 int x = ev.motion.x;
716 int y = ev.motion.y;
717 int xrel = ev.motion.xrel;
718 int yrel = ev.motion.yrel;
719
720 /* do simplistic event compression */
721 while (SDL_PeepEvents (&ev, 1, SDL_PEEKEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)) > 0
722 && state == ev.motion.state)
723 {
724 xrel += ev.motion.xrel;
725 yrel += ev.motion.yrel;
726 x = ev.motion.x;
727 y = ev.motion.y;
728 SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
729 }
730
529 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 731 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
530
531 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0); 732 hv_store (hv, "state", 5, newSViv (state), 0);
532 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0); 733 hv_store (hv, "x", 1, newSViv (x), 0);
533 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0); 734 hv_store (hv, "y", 1, newSViv (y), 0);
534 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0); 735 hv_store (hv, "xrel", 4, newSViv (xrel), 0);
535 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0); 736 hv_store (hv, "yrel", 4, newSViv (yrel), 0);
737 }
536 break; 738 break;
537 739
538 case SDL_MOUSEBUTTONDOWN: 740 case SDL_MOUSEBUTTONDOWN:
539 case SDL_MOUSEBUTTONUP: 741 case SDL_MOUSEBUTTONUP:
540 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); 742 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
550 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0); 752 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
551 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0); 753 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
552 break; 754 break;
553 } 755 }
554 756
555 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv))); 757 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
556 } 758 }
557} 759}
558 760
559int 761int
560Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048) 762Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048)
569Mix_AllocateChannels (int numchans = -1) 771Mix_AllocateChannels (int numchans = -1)
570 772
571void 773void
572lowdelay (int fd, int val = 1) 774lowdelay (int fd, int val = 1)
573 CODE: 775 CODE:
776 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
777
778void
779win32_proxy_info ()
780 PPCODE:
781{
574#ifndef _WIN32 782#ifdef _WIN32
575 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 783 char buffer[2048];
784 DWORD buflen;
785
786 EXTEND (SP, 3);
787
788 buflen = sizeof (buffer);
789 if (InternetQueryOption (0, INTERNET_OPTION_PROXY, (void *)buffer, &buflen))
790 if (((INTERNET_PROXY_INFO *)buffer)->dwAccessType == INTERNET_OPEN_TYPE_PROXY)
791 {
792 PUSHs (newSVpv (((INTERNET_PROXY_INFO *)buffer)->lpszProxy, 0));
793
794 buflen = sizeof (buffer);
795 if (InternetQueryOption (0, INTERNET_OPTION_PROXY_USERNAME, (void *)buffer, &buflen))
796 {
797 PUSHs (newSVpv (buffer, 0));
798
799 buflen = sizeof (buffer);
800 if (InternetQueryOption (0, INTERNET_OPTION_PROXY_PASSWORD, (void *)buffer, &buflen))
801 PUSHs (newSVpv (buffer, 0));
802 }
803 }
576#endif 804#endif
805}
577 806
578void 807void
579add_font (char *file) 808add_font (char *file)
580 CODE: 809 CODE:
581 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 810 FcConfigAppFontAddFile (0, (const FcChar8 *)file);
582#ifdef _WIN32
583 // cairo... sigh... requires win2000
584 AddFontResourceEx (file, FR_PRIVATE, 0);
585#endif
586 811
587void 812void
588load_image_inline (SV *image_) 813load_image_inline (SV *image_)
589 ALIAS: 814 ALIAS:
590 load_image_file = 1 815 load_image_file = 1
632 857
633 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE); 858 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
634 859
635 assert (surface2->pitch == surface2->w * 4); 860 assert (surface2->pitch == surface2->w * 4);
636 861
862 SDL_LockSurface (surface2);
637 EXTEND (SP, 5); 863 EXTEND (SP, 6);
638 PUSHs (sv_2mortal (newSViv (surface2->w))); 864 PUSHs (sv_2mortal (newSViv (surface2->w)));
639 PUSHs (sv_2mortal (newSViv (surface2->h))); 865 PUSHs (sv_2mortal (newSViv (surface2->h)));
640 SDL_LockSurface (surface2);
641 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch))); 866 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
642 SDL_UnlockSurface (surface2);
643 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB))); 867 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
644 PUSHs (sv_2mortal (newSViv (GL_RGBA))); 868 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
645 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE))); 869 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
870 SDL_UnlockSurface (surface2);
646 871
647 SDL_FreeSurface (surface); 872 SDL_FreeSurface (surface);
648 SDL_FreeSurface (surface2); 873 SDL_FreeSurface (surface2);
649} 874}
650 875
686 CODE: 911 CODE:
687 fprintf (stderr, "FATAL: %s\n", message); 912 fprintf (stderr, "FATAL: %s\n", message);
688#ifdef _WIN32 913#ifdef _WIN32
689 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 914 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
690#endif 915#endif
691 exit (1); 916 _exit (1);
692 917
918void
919_exit (int retval = 0)
920 CODE:
921#ifdef WIN32
922 ExitThread (retval); // unclean, please beam me up
923#else
924 _exit (retval);
925#endif
926
927void
928debug ()
929 CODE:
930{
931#if DEBUG
932 VALGRIND_DO_LEAK_CHECK;
933#endif
934}
935
693MODULE = CFClient PACKAGE = CFClient::Font 936MODULE = CFPlus PACKAGE = CFPlus::Font
694 937
695CFClient::Font 938CFPlus::Font
696new_from_file (SV *class, char *path, int id = 0) 939new_from_file (SV *class, char *path, int id = 0)
697 CODE: 940 CODE:
698{ 941{
699 int count; 942 int count;
700 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count); 943 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
703} 946}
704 OUTPUT: 947 OUTPUT:
705 RETVAL 948 RETVAL
706 949
707void 950void
708DESTROY (CFClient::Font self) 951DESTROY (CFPlus::Font self)
709 CODE: 952 CODE:
710 pango_font_description_free (self); 953 pango_font_description_free (self);
711 954
712void 955void
713make_default (CFClient::Font self) 956make_default (CFPlus::Font self)
714 CODE: 957 CODE:
715 default_font = self; 958 default_font = self;
716 959
717MODULE = CFClient PACKAGE = CFClient::Layout 960MODULE = CFPlus PACKAGE = CFPlus::Layout
718 961
719CFClient::Layout 962void
720new (SV *class, int rgba = 0) 963reset_glyph_cache ()
721 CODE: 964 CODE:
722#if _WIN32 965 tc_clear ();
723 //rgba = 0;//D makes text nicer, breaks TextView 966
724#endif 967CFPlus::Layout
725 rgba=1;//D 968new (SV *class)
969 CODE:
726 New (0, RETVAL, 1, struct cf_layout); 970 New (0, RETVAL, 1, struct cf_layout);
727 971
728 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 972 RETVAL->pl = pango_layout_new (opengl_context);
729 RETVAL->rgba = rgba;
730 RETVAL->r = 1.; 973 RETVAL->r = 1.;
731 RETVAL->g = 1.; 974 RETVAL->g = 1.;
732 RETVAL->b = 1.; 975 RETVAL->b = 1.;
733 RETVAL->a = 1.; 976 RETVAL->a = 1.;
734 RETVAL->base_height = MIN_FONT_HEIGHT; 977 RETVAL->base_height = MIN_FONT_HEIGHT;
738 layout_update_font (RETVAL); 981 layout_update_font (RETVAL);
739 OUTPUT: 982 OUTPUT:
740 RETVAL 983 RETVAL
741 984
742void 985void
743DESTROY (CFClient::Layout self) 986DESTROY (CFPlus::Layout self)
744 CODE: 987 CODE:
745 g_object_unref (self->pl); 988 g_object_unref (self->pl);
746 Safefree (self); 989 Safefree (self);
747 990
748int
749is_rgba (CFClient::Layout self)
750 CODE:
751 RETVAL = self->rgba;
752 OUTPUT:
753 RETVAL
754
755void 991void
756set_text (CFClient::Layout self, SV *text_) 992set_text (CFPlus::Layout self, SV *text_)
757 CODE: 993 CODE:
758{ 994{
759 STRLEN textlen; 995 STRLEN textlen;
760 char *text = SvPVutf8 (text_, textlen); 996 char *text = SvPVutf8 (text_, textlen);
761 997
762 pango_layout_set_text (self->pl, text, textlen); 998 pango_layout_set_text (self->pl, text, textlen);
763} 999}
764 1000
765void 1001void
766set_markup (CFClient::Layout self, SV *text_) 1002set_markup (CFPlus::Layout self, SV *text_)
767 CODE: 1003 CODE:
768{ 1004{
769 STRLEN textlen; 1005 STRLEN textlen;
770 char *text = SvPVutf8 (text_, textlen); 1006 char *text = SvPVutf8 (text_, textlen);
771 1007
772 pango_layout_set_markup (self->pl, text, textlen); 1008 pango_layout_set_markup (self->pl, text, textlen);
773} 1009}
774 1010
1011void
1012set_shapes (CFPlus::Layout self, ...)
1013 CODE:
1014{
1015 PangoAttrList *attrs = 0;
1016 const char *text = pango_layout_get_text (self->pl);
1017 const char *pos = text;
1018 int arg = 4;
1019
1020 while (arg < items && (pos = strstr (pos, OBJ_STR)))
1021 {
1022 PangoRectangle inkrect, rect;
1023 PangoAttribute *attr;
1024
1025 int x = SvIV (ST (arg - 3));
1026 int y = SvIV (ST (arg - 2));
1027 int w = SvIV (ST (arg - 1));
1028 int h = SvIV (ST (arg ));
1029
1030 inkrect.x = 0;
1031 inkrect.y = 0;
1032 inkrect.width = 0;
1033 inkrect.height = 0;
1034
1035 rect.x = x * PANGO_SCALE;
1036 rect.y = y * PANGO_SCALE;
1037 rect.width = w * PANGO_SCALE;
1038 rect.height = h * PANGO_SCALE;
1039
1040 if (!attrs)
1041 attrs = pango_layout_get_attributes (self->pl);
1042
1043 attr = pango_attr_shape_new (&inkrect, &rect);
1044 attr->start_index = pos - text;
1045 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1;
1046 pango_attr_list_insert (attrs, attr);
1047
1048 arg += 4;
1049 pos += sizeof (OBJ_STR) - 1;
1050 }
1051
1052 if (attrs)
1053 pango_layout_set_attributes (self->pl, attrs);
1054}
1055
1056void
1057get_shapes (CFPlus::Layout self)
1058 PPCODE:
1059{
1060 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1061
1062 do
1063 {
1064 PangoLayoutRun *run = pango_layout_iter_get_run (iter);
1065
1066 if (run && shape_attr_p (run))
1067 {
1068 PangoRectangle extents;
1069 pango_layout_iter_get_run_extents (iter, 0, &extents);
1070
1071 EXTEND (SP, 2);
1072 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
1073 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
1074 }
1075 }
1076 while (pango_layout_iter_next_run (iter));
1077
1078 pango_layout_iter_free (iter);
1079}
1080
1081int
1082has_wrapped (CFPlus::Layout self)
1083 CODE:
1084{
1085 int lines = 1;
1086 const char *text = pango_layout_get_text (self->pl);
1087
1088 while (*text)
1089 lines += *text++ == '\n';
1090
1091 RETVAL = lines < pango_layout_get_line_count (self->pl);
1092}
1093 OUTPUT:
1094 RETVAL
1095
775SV * 1096SV *
776get_text (CFClient::Layout self) 1097get_text (CFPlus::Layout self)
777 CODE: 1098 CODE:
778 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 1099 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
779 SvUTF8_on (RETVAL); 1100 sv_utf8_decode (RETVAL);
780 OUTPUT: 1101 OUTPUT:
781 RETVAL 1102 RETVAL
782 1103
783void 1104void
784set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.) 1105set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.)
785 CODE: 1106 CODE:
786 self->r = r; 1107 self->r = r;
787 self->g = g; 1108 self->g = g;
788 self->b = b; 1109 self->b = b;
789 self->a = a; 1110 self->a = a;
790 1111
791void 1112void
792set_font (CFClient::Layout self, CFClient::Font font = 0) 1113set_font (CFPlus::Layout self, CFPlus::Font font = 0)
793 CODE: 1114 CODE:
794 if (self->font != font) 1115 if (self->font != font)
795 { 1116 {
796 self->font = font; 1117 self->font = font;
797 layout_update_font (self); 1118 layout_update_font (self);
798 } 1119 }
799 1120
800void 1121void
801set_height (CFClient::Layout self, int base_height) 1122set_height (CFPlus::Layout self, int base_height)
802 CODE: 1123 CODE:
803 if (self->base_height != base_height) 1124 if (self->base_height != base_height)
804 { 1125 {
805 self->base_height = base_height; 1126 self->base_height = base_height;
806 layout_update_font (self); 1127 layout_update_font (self);
807 } 1128 }
808 1129
809void 1130void
810set_width (CFClient::Layout self, int max_width = -1) 1131set_width (CFPlus::Layout self, int max_width = -1)
811 CODE: 1132 CODE:
812 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE); 1133 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
813 1134
814void 1135void
815set_indent (CFClient::Layout self, int indent) 1136set_indent (CFPlus::Layout self, int indent)
816 CODE: 1137 CODE:
817 pango_layout_set_indent (self->pl, indent * PANGO_SCALE); 1138 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
818 1139
819void 1140void
820set_spacing (CFClient::Layout self, int spacing) 1141set_spacing (CFPlus::Layout self, int spacing)
821 CODE: 1142 CODE:
822 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE); 1143 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
823 1144
824void 1145void
825set_ellipsise (CFClient::Layout self, int ellipsise) 1146set_ellipsise (CFPlus::Layout self, int ellipsise)
826 CODE: 1147 CODE:
827 pango_layout_set_ellipsize (self->pl, 1148 pango_layout_set_ellipsize (self->pl,
828 ellipsise == 1 ? PANGO_ELLIPSIZE_START 1149 ellipsise == 1 ? PANGO_ELLIPSIZE_START
829 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE 1150 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
830 : ellipsise == 3 ? PANGO_ELLIPSIZE_END 1151 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
831 : PANGO_ELLIPSIZE_NONE 1152 : PANGO_ELLIPSIZE_NONE
832 ); 1153 );
833 1154
834void 1155void
835set_single_paragraph_mode (CFClient::Layout self, int spm) 1156set_single_paragraph_mode (CFPlus::Layout self, int spm)
836 CODE: 1157 CODE:
837 pango_layout_set_single_paragraph_mode (self->pl, !!spm); 1158 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
838 1159
839void 1160void
840size (CFClient::Layout self) 1161size (CFPlus::Layout self)
841 PPCODE: 1162 PPCODE:
842{ 1163{
843 int w, h; 1164 int w, h;
844 1165
845 layout_get_pixel_size (self, &w, &h); 1166 layout_get_pixel_size (self, &w, &h);
848 PUSHs (sv_2mortal (newSViv (w))); 1169 PUSHs (sv_2mortal (newSViv (w)));
849 PUSHs (sv_2mortal (newSViv (h))); 1170 PUSHs (sv_2mortal (newSViv (h)));
850} 1171}
851 1172
852int 1173int
1174descent (CFPlus::Layout self)
1175 CODE:
1176{
1177 PangoRectangle rect;
1178 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1179 pango_layout_line_get_pixel_extents (line, 0, &rect);
1180 RETVAL = PANGO_DESCENT (rect);
1181}
1182 OUTPUT:
1183 RETVAL
1184
1185int
853xy_to_index (CFClient::Layout self, int x, int y) 1186xy_to_index (CFPlus::Layout self, int x, int y)
854 CODE: 1187 CODE:
855{ 1188{
856 int index, trailing; 1189 int index, trailing;
857 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing); 1190 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
858 RETVAL = index; 1191 RETVAL = index + trailing;
859} 1192}
860 OUTPUT: 1193 OUTPUT:
861 RETVAL 1194 RETVAL
862 1195
863void 1196void
864cursor_pos (CFClient::Layout self, int index) 1197cursor_pos (CFPlus::Layout self, int index)
865 PPCODE: 1198 PPCODE:
866{ 1199{
867 PangoRectangle strong_pos; 1200 PangoRectangle strong_pos;
868 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1201 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
869 1202
872 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1205 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
873 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1206 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
874} 1207}
875 1208
876void 1209void
877render (CFClient::Layout self) 1210index_to_line_x (CFPlus::Layout self, int index, int trailing = 0)
878 PPCODE: 1211 PPCODE:
879{ 1212{
880 SV *retval; 1213 int line, x;
881 int w, h;
882 1214
883 layout_get_pixel_size (self, &w, &h); 1215 pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1216 /* pango bug: line is between 1..numlines, not 0..numlines-1 */
884 1217
885 if (self->rgba)
886 {
887 cairo_surface_t *surface;
888 cairo_t *cairo;
889
890 retval = newSV (w * h * 4);
891 SvPOK_only (retval);
892 SvCUR_set (retval, w * h * 4);
893
894 memset (SvPVX (retval), 0, w * h * 4);
895
896 surface = cairo_image_surface_create_for_data (
897 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
898 cairo = cairo_create (surface);
899 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
900
901 pango_cairo_show_layout (cairo, self->pl);
902
903 cairo_destroy (cairo);
904 cairo_surface_destroy (surface);
905
906 // what a mess, and its premultiplied, too :(
907 {
908 uint32_t *p = (uint32_t *)SvPVX (retval);
909 uint32_t *e = p + w * h;
910
911 while (p < e)
912 {
913 uint32_t rgba = *p;
914 rgba = (rgba >> 24) | (rgba << 8);
915#if 0
916#ifdef _WIN32
917 {//D
918 uint8_t r = rgba >> 24;
919 uint8_t g = rgba >> 16;
920 uint8_t b = rgba >> 8;
921 uint8_t a = rgba >> 0;
922
923 rgba = (rgba & 0xffffff00) | a;
924 }
925#endif
926#endif
927 rgba = SDL_SwapBE32 (rgba);
928 *p++ = rgba;
929 }
930 }
931
932 EXTEND (SP, 5); 1218 EXTEND (SP, 2);
933 PUSHs (sv_2mortal (newSViv (w))); 1219 PUSHs (sv_2mortal (newSViv (line - 1)));
1220 PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1221}
1222
1223void
1224line_x_to_index (CFPlus::Layout self, int line, int x)
1225 PPCODE:
1226{
1227 PangoLayoutLine *lp;
1228 int index, trailing;
1229
1230 if (line < 0)
1231 XSRETURN_EMPTY;
1232
1233 if (!(lp = pango_layout_get_line (self->pl, line)))
1234 XSRETURN_EMPTY; /* do better */
1235
1236 pango_layout_line_x_to_index (lp, x * PANGO_SCALE, &index, &trailing);
1237
1238 EXTEND (SP, 2);
1239 if (GIMME_V == G_SCALAR)
934 PUSHs (sv_2mortal (newSViv (h))); 1240 PUSHs (sv_2mortal (newSViv (index + trailing)));
935 PUSHs (sv_2mortal (retval));
936 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
937 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
938 }
939 else 1241 else
940 { 1242 {
941 FT_Bitmap bitmap;
942
943 retval = newSV (w * h);
944 SvPOK_only (retval);
945 SvCUR_set (retval, w * h);
946
947 bitmap.rows = h;
948 bitmap.width = w;
949 bitmap.pitch = w;
950 bitmap.buffer = (unsigned char*)SvPVX (retval);
951 bitmap.num_grays = 256;
952 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
953
954 memset (bitmap.buffer, 0, w * h);
955
956 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
957
958 EXTEND (SP, 5);
959 PUSHs (sv_2mortal (newSViv (w))); 1243 PUSHs (sv_2mortal (newSViv (index)));
960 PUSHs (sv_2mortal (newSViv (h))); 1244 PUSHs (sv_2mortal (newSViv (trailing)));
961 PUSHs (sv_2mortal (retval));
962 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
963 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
964 } 1245 }
965} 1246}
966 1247
1248void
1249render (CFPlus::Layout self, float x, float y, int flags = 0)
1250 PPCODE:
1251 pango_opengl_render_layout_subpixel (
1252 self->pl,
1253 x * PANGO_SCALE, y * PANGO_SCALE,
1254 self->r, self->g, self->b, self->a,
1255 flags
1256 );
1257
967MODULE = CFClient PACKAGE = CFClient::Texture 1258MODULE = CFPlus PACKAGE = CFPlus::Texture
968 1259
1260int minpot (int n)
1261
969void 1262void
1263pad (SV *data_, int ow, int oh, int nw, int nh)
1264 CODE:
1265{
1266 if ((nw != ow || nh != oh) && SvOK (data_))
1267 {
1268 STRLEN datalen;
1269 char *data = SvPVbyte (data_, datalen);
1270 int bpp = datalen / (ow * oh);
1271 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1272
1273 SvPOK_only (result_);
1274 SvCUR_set (result_, nw * nh * bpp);
1275
1276 memset (SvPVX (result_), 0, nw * nh * bpp);
1277 while (oh--)
1278 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1279
1280 sv_setsv (data_, result_);
1281 }
1282}
1283
1284void
970draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 1285draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
971 PROTOTYPE: $$$;$$ 1286 PROTOTYPE: $$$;$$
972 ALIAS: 1287 ALIAS:
973 draw_quad_alpha = 1 1288 draw_quad_alpha = 1
974 draw_quad_alpha_premultiplied = 2 1289 draw_quad_alpha_premultiplied = 2
975 CODE: 1290 CODE:
1013 glDisable (GL_ALPHA_TEST); 1328 glDisable (GL_ALPHA_TEST);
1014 glDisable (GL_BLEND); 1329 glDisable (GL_BLEND);
1015 } 1330 }
1016} 1331}
1017 1332
1333IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1334 CODE:
1335{
1336 GLint width;
1337 glTexImage2D (GL_PROXY_TEXTURE_2D, 0, internalformat, w, h, 0, format, type, 0);
1338 glGetTexLevelParameteriv (GL_PROXY_TEXTURE_2D, 0, GL_TEXTURE_WIDTH, &width);
1339 RETVAL = width > 0;
1340}
1341 OUTPUT:
1342 RETVAL
1343
1018MODULE = CFClient PACKAGE = CFClient::Map 1344MODULE = CFPlus PACKAGE = CFPlus::Map
1019 1345
1020CFClient::Map 1346CFPlus::Map
1021new (SV *class, int map_width, int map_height) 1347new (SV *class)
1022 CODE: 1348 CODE:
1023 New (0, RETVAL, 1, struct map); 1349 New (0, RETVAL, 1, struct map);
1024 RETVAL->x = 0; 1350 RETVAL->x = 0;
1025 RETVAL->y = 0; 1351 RETVAL->y = 0;
1026 RETVAL->w = map_width; 1352 RETVAL->w = 0;
1027 RETVAL->h = map_height; 1353 RETVAL->h = 0;
1028 RETVAL->ox = 0; 1354 RETVAL->ox = 0;
1029 RETVAL->oy = 0; 1355 RETVAL->oy = 0;
1030 RETVAL->faces = 8192; 1356 RETVAL->faces = 8192; Newz (0, RETVAL->face2tile, RETVAL->faces, tileid);
1031 Newz (0, RETVAL->face, RETVAL->faces, mapface); 1357 RETVAL->texs = 8192; Newz (0, RETVAL->tex , RETVAL->texs , maptex);
1032 RETVAL->texs = 8192;
1033 Newz (0, RETVAL->tex, RETVAL->texs, maptex);
1034 RETVAL->rows = 0; 1358 RETVAL->rows = 0;
1035 RETVAL->row = 0; 1359 RETVAL->row = 0;
1036 OUTPUT: 1360 OUTPUT:
1037 RETVAL 1361 RETVAL
1038 1362
1039void 1363void
1040DESTROY (CFClient::Map self) 1364DESTROY (CFPlus::Map self)
1041 CODE: 1365 CODE:
1042{ 1366{
1043 map_clear (self); 1367 map_clear (self);
1044 Safefree (self->face); 1368 Safefree (self->face2tile);
1369 Safefree (self->tex);
1045 Safefree (self); 1370 Safefree (self);
1046} 1371}
1047 1372
1048void 1373void
1374resize (CFPlus::Map self, int map_width, int map_height)
1375 CODE:
1376 self->w = map_width;
1377 self->h = map_height;
1378
1379void
1049clear (CFClient::Map self) 1380clear (CFPlus::Map self)
1050 CODE: 1381 CODE:
1051 map_clear (self); 1382 map_clear (self);
1052 1383
1053void 1384void
1054set_face (CFClient::Map self, int face, int texid) 1385set_tileid (CFPlus::Map self, int face, int tile)
1055 CODE: 1386 CODE:
1056{ 1387{
1057 while (self->faces <= face) 1388 need_facenum (self, face); self->face2tile [face] = tile;
1058 { 1389 need_texid (self, tile);
1059 Append (mapface, self->face, self->faces, self->faces);
1060 self->faces *= 2;
1061 }
1062
1063 self->face [face] = texid;
1064} 1390}
1065 1391
1066void 1392void
1393set_smooth (CFPlus::Map self, int face, int smooth, int level)
1394 CODE:
1395{
1396 tileid texid;
1397 maptex *tex;
1398
1399 if (face < 0 || face >= self->faces)
1400 return;
1401
1402 if (smooth < 0 || smooth >= self->faces)
1403 return;
1404
1405 texid = self->face2tile [face];
1406
1407 if (!texid)
1408 return;
1409
1410 tex = self->tex + texid;
1411 tex->smoothtile = self->face2tile [smooth];
1412 tex->smoothlevel = level;
1413}
1414
1415void
1067set_texture (CFClient::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a) 1416set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1068 CODE: 1417 CODE:
1069{ 1418{
1070 while (self->texs <= texid) 1419 need_texid (self, texid);
1071 {
1072 Append (maptex, self->tex, self->texs, self->texs);
1073 self->texs *= 2;
1074 }
1075 1420
1076 { 1421 {
1077 maptex *tex = self->tex + texid; 1422 maptex *tex = self->tex + texid;
1078 1423
1079 tex->name = name; 1424 tex->name = name;
1096 // from transparent color bleeding and ugly wrapping effects. 1441 // from transparent color bleeding and ugly wrapping effects.
1097 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); 1442 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1098} 1443}
1099 1444
1100int 1445int
1101ox (CFClient::Map self) 1446ox (CFPlus::Map self)
1102 ALIAS: 1447 ALIAS:
1103 oy = 1 1448 oy = 1
1104 x = 2 1449 x = 2
1105 y = 3 1450 y = 3
1106 w = 4 1451 w = 4
1117 } 1462 }
1118 OUTPUT: 1463 OUTPUT:
1119 RETVAL 1464 RETVAL
1120 1465
1121void 1466void
1122scroll (CFClient::Map self, int dx, int dy) 1467scroll (CFPlus::Map self, int dx, int dy)
1123 CODE: 1468 CODE:
1124{ 1469{
1125 if (dx > 0) 1470 if (dx > 0)
1126 map_blank (self, self->x, self->y, dx - 1, self->h); 1471 map_blank (self, self->x, self->y, dx, self->h);
1127 else if (dx < 0) 1472 else if (dx < 0)
1128 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h); 1473 map_blank (self, self->x + self->w + dx, self->y, -dx, self->h);
1129 1474
1130 if (dy > 0) 1475 if (dy > 0)
1131 map_blank (self, self->x, self->y, self->w, dy - 1); 1476 map_blank (self, self->x, self->y, self->w, dy);
1132 else if (dy < 0) 1477 else if (dy < 0)
1133 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy); 1478 map_blank (self, self->x, self->y + self->h + dy, self->w, -dy);
1134 1479
1135 self->ox += dx; self->x += dx; 1480 self->ox += dx; self->x += dx;
1136 self->oy += dy; self->y += dy; 1481 self->oy += dy; self->y += dy;
1137 1482
1138 while (self->y < 0) 1483 while (self->y < 0)
1143 self->y += MAP_EXTEND_Y; 1488 self->y += MAP_EXTEND_Y;
1144 } 1489 }
1145} 1490}
1146 1491
1147void 1492void
1148map1a_update (CFClient::Map self, SV *data_) 1493map1a_update (CFPlus::Map self, SV *data_, int extmap)
1149 CODE: 1494 CODE:
1150{ 1495{
1151 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1496 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1152 uint8_t *data_end = (uint8_t *)SvEND (data_); 1497 uint8_t *data_end = (uint8_t *)SvEND (data_);
1153 mapcell *cell; 1498 mapcell *cell;
1154 int x, y, flags; 1499 int x, y, flags;
1155 1500
1156 while (data < data_end) 1501 while (data < data_end - 1)
1157 { 1502 {
1158 flags = (data [0] << 8) + data [1]; data += 2; 1503 flags = (data [0] << 8) + data [1]; data += 2;
1159 1504
1160 x = ((flags >> 10) & 63) + self->x; 1505 x = self->x + ((flags >> 10) & 63);
1161 y = ((flags >> 4) & 63) + self->y; 1506 y = self->y + ((flags >> 4) & 63);
1162 1507
1163 cell = map_get_cell (self, x, y); 1508 cell = map_get_cell (self, x, y);
1164 1509
1165 if (flags & 15) 1510 if (flags & 15)
1166 { 1511 {
1167 if (cell->darkness < 0) 1512 if (!cell->darkness)
1168 { 1513 {
1514 memset (cell, 0, sizeof (*cell));
1169 cell->darkness = 0; 1515 cell->darkness = 256;
1170 cell->face [0] = 0;
1171 cell->face [1] = 0;
1172 cell->face [2] = 0;
1173 } 1516 }
1174 1517
1175 cell->darkness = flags & 8 ? *data++ : 255;
1176
1177 //TODO: don't trust server data to be in-range(!) 1518 //TODO: don't trust server data to be in-range(!)
1519
1520 if (flags & 8)
1521 {
1522 if (extmap)
1523 {
1524 uint8_t ext, cmd;
1525
1526 do
1527 {
1528 ext = *data++;
1529 cmd = ext & 0x3f;
1530
1531 if (cmd < 4)
1532 cell->darkness = 255 - ext * 64 + 1;
1533 else if (cmd == 5) // health
1534 {
1535 cell->stat_width = 1;
1536 cell->stat_hp = *data++;
1537 }
1538 else if (cmd == 6) // monster width
1539 cell->stat_width = *data++ + 1;
1540 else if (cmd == 0x47)
1541 {
1542 if (*data == 4)
1543 ; // decode player count
1544
1545 data += *data + 1;
1546 }
1547 else if (cmd == 8) // cell flags
1548 cell->flags = *data++;
1549 else if (ext & 0x40) // unknown, multibyte => skip
1550 data += *data + 1;
1551 else
1552 data++;
1553 }
1554 while (ext & 0x80);
1555 }
1556 else
1557 cell->darkness = *data++ + 1;
1558 }
1178 1559
1179 if (flags & 4) 1560 if (flags & 4)
1180 { 1561 {
1181 cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2; 1562 faceid face = (data [0] << 8) + data [1]; data += 2;
1563 need_facenum (self, face);
1564 cell->tile [0] = self->face2tile [face];
1182 } 1565 }
1183 1566
1184 if (flags & 2) 1567 if (flags & 2)
1185 { 1568 {
1186 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2; 1569 faceid face = (data [0] << 8) + data [1]; data += 2;
1570 need_facenum (self, face);
1571 cell->tile [1] = self->face2tile [face];
1187 } 1572 }
1188 1573
1189 if (flags & 1) 1574 if (flags & 1)
1190 { 1575 {
1191 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2; 1576 faceid face = (data [0] << 8) + data [1]; data += 2;
1577 need_facenum (self, face);
1578 cell->tile [2] = self->face2tile [face];
1192 } 1579 }
1193 } 1580 }
1194 else 1581 else
1195 cell->darkness = -1; 1582 cell->darkness = 0;
1196 } 1583 }
1197} 1584}
1198 1585
1199SV * 1586SV *
1200mapmap (CFClient::Map self, int x0, int y0, int w, int h) 1587mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1201 CODE: 1588 CODE:
1202{ 1589{
1203 int x1, x; 1590 int x1, x;
1204 int y1, y; 1591 int y1, y;
1205 int z; 1592 int z;
1226 { 1613 {
1227 mapcell *cell = row->col + (x - row->c0); 1614 mapcell *cell = row->col + (x - row->c0);
1228 1615
1229 for (z = 0; z <= 0; z++) 1616 for (z = 0; z <= 0; z++)
1230 { 1617 {
1231 mapface face = cell->face [z];
1232
1233 if (face)
1234 {
1235 maptex tex = self->tex [face]; 1618 maptex tex = self->tex [cell->tile [z]];
1236 int a0 = 255 - tex.a; 1619 int a0 = 255 - tex.a;
1237 int a1 = tex.a; 1620 int a1 = tex.a;
1238 1621
1239 r = (r * a0 + tex.r * a1) / 255; 1622 r = (r * a0 + tex.r * a1) / 255;
1240 g = (g * a0 + tex.g * a1) / 255; 1623 g = (g * a0 + tex.g * a1) / 255;
1241 b = (b * a0 + tex.b * a1) / 255; 1624 b = (b * a0 + tex.b * a1) / 255;
1242 a = (a * a0 + tex.a * a1) / 255; 1625 a = (a * a0 + tex.a * a1) / 255;
1243 }
1244 } 1626 }
1245 } 1627 }
1246 1628
1247 *map++ = (r ) 1629 *map++ = (r )
1248 | (g << 8) 1630 | (g << 8)
1255} 1637}
1256 OUTPUT: 1638 OUTPUT:
1257 RETVAL 1639 RETVAL
1258 1640
1259void 1641void
1260draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1642draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)
1261 PPCODE: 1643 CODE:
1262{ 1644{
1263 int vx, vy; 1645 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1646 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1647 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)
1648 smooth_key skey;
1264 int x, y, z; 1649 int x, y, z;
1265 int last_name; 1650 int last_name;
1266 mapface face;
1267 int sw4 = (sw + 3) & ~3;
1268 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1269 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1270 1651
1271 memset (darkness, 255, sw4 * sh); 1652 // thats current max. sorry.
1272 SvPOK_only (darkness_sv); 1653 if (sw > 255) sw = 255;
1273 SvCUR_set (darkness_sv, sw4 * sh); 1654 if (sh > 255) sh = 255;
1274 1655
1275 vx = self->x + (self->w - sw) / 2 - shift_x; 1656 // clear key, in case of extra padding
1276 vy = self->y + (self->h - sh) / 2 - shift_y; 1657 memset (&skey, 0, sizeof (skey));
1277
1278 /*
1279 int vx = self->vx = self->w >= sw
1280 ? self->x + (self->w - sw) / 2
1281 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
1282
1283 int vy = self->vy = self->h >= sh
1284 ? self->y + (self->h - sh) / 2
1285 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
1286 */
1287 1658
1288 glColor4ub (255, 255, 255, 255); 1659 glColor4ub (255, 255, 255, 255);
1289 1660
1661 glEnable (GL_BLEND);
1290 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1662 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1291 glEnable (GL_BLEND);
1292 glEnable (GL_TEXTURE_2D); 1663 glEnable (GL_TEXTURE_2D);
1293 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1664 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1294 1665
1295 glBegin (GL_QUADS); 1666 glBegin (GL_QUADS);
1296 1667
1297 last_name = 0; 1668 last_name = 0;
1298 1669
1670 mx += self->x;
1671 my += self->y;
1672
1673 // first pass: determine smooth_max
1674 // rather ugly, if you ask me
1675 // could also be stored inside mapcell and updated on change
1676 memset (smooth_max, 0, sizeof (smooth_max));
1677
1678 for (y = 0; y < sh; y++)
1679 if (0 <= y + my && y + my < self->rows)
1680 {
1681 maprow *row = self->row + (y + my);
1682
1683 for (x = 0; x < sw; x++)
1684 if (row->c0 <= x + mx && x + mx < row->c1)
1685 {
1686 mapcell *cell = row->col + (x + mx - row->c0);
1687
1688 smooth_max[x + 1][y + 1] =
1689 MAX (self->tex [cell->tile [0]].smoothlevel,
1690 MAX (self->tex [cell->tile [1]].smoothlevel,
1691 self->tex [cell->tile [2]].smoothlevel));
1692 }
1693 }
1694
1299 for (z = 0; z < 3; z++) 1695 for (z = 0; z <= 2; z++)
1696 {
1697 memset (smooth_level, 0, sizeof (smooth_level));
1698
1300 for (y = 0; y < sh; y++) 1699 for (y = 0; y < sh; y++)
1301 if (0 <= y + vy && y + vy < self->rows) 1700 if (0 <= y + my && y + my < self->rows)
1302 { 1701 {
1303 maprow *row = self->row + (y + vy); 1702 maprow *row = self->row + (y + my);
1304 1703
1305 for (x = 0; x < sw; x++) 1704 for (x = 0; x < sw; x++)
1306 if (row->c0 <= x + vx && x + vx < row->c1) 1705 if (row->c0 <= x + mx && x + mx < row->c1)
1307 { 1706 {
1308 mapcell *cell = row->col + (x + vx - row->c0); 1707 mapcell *cell = row->col + (x + mx - row->c0);
1309
1310 darkness[y * sw4 + x] = cell->darkness < 0
1311 ? 255 - FOW_DARKNESS
1312 : 255 - cell->darkness;
1313
1314 face = cell->face [z]; 1708 tileid tile = cell->tile [z];
1315 1709
1316 if (face) 1710 if (tile)
1711 {
1712 maptex tex = self->tex [tile];
1713 int px = (x + 1) * T - tex.w;
1714 int py = (y + 1) * T - tex.h;
1715
1716 // suppressing texture state switches here
1717 // is only moderately effective, but worth the extra effort
1718 if (last_name != tex.name)
1719 {
1720 if (!tex.name)
1721 tex = self->tex [2]; /* missing, replace by noface */
1722
1723 glEnd ();
1724 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1725 glBegin (GL_QUADS);
1726 }
1727
1728 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1729 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1730 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1731 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1732
1733 if (cell->flags && z == 2)
1734 {
1735 if (cell->flags & 1)
1736 {
1737 maptex tex = self->tex [1];
1738 int px = x * T + T * 2 / 32;
1739 int py = y * T - T * 6 / 32;
1740
1741 glEnd ();
1742 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1743 glBegin (GL_QUADS);
1744
1745 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1746 glTexCoord2f (0 , tex.t); glVertex2f (px , py + T);
1747 glTexCoord2f (tex.s, tex.t); glVertex2f (px + T, py + T);
1748 glTexCoord2f (tex.s, 0 ); glVertex2f (px + T, py );
1749 }
1750 }
1751
1752 // update smooth hash
1753 if (tex.smoothtile)
1754 {
1755 skey.tile = tex.smoothtile;
1756 skey.level = tex.smoothlevel;
1757
1758 smooth_level [tex.smoothlevel >> 5] |= ((uint32_t)1) << (tex.smoothlevel & 31);
1759
1760 // add bits to current tile and all neighbours. skey.x|y is
1761 // shifted +1|+1 so we always stay positive.
1762
1763 // bits is ___n cccc CCCC bbbb
1764 // n do not draw borders&corners
1765 // c draw these corners, but...
1766 // C ... not these
1767 // b draw these borders
1768
1769 // borders: 1 ┃· 2 ━━ 4 ·┃ 8 ··
1770 // ┃· ·· ·┃ ━━
1771
1772 // corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
1773 // ·· ·· ·┏ ┓·
1774
1775 // full tile
1776 skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);
1777
1778 // borders
1779 skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);
1780 skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);
1781 skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);
1782 skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);
1783
1784 // corners
1785 skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1786 skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1787 skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1788 skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1789 }
1790 }
1791 }
1792 }
1793
1794 // go through all smoothlevels, lowest to highest, then draw.
1795 // this is basically counting sort
1796 {
1797 int w, b;
1798
1799 for (w = 0; w < 256 / 32; ++w)
1800 {
1801 uint32_t smask = smooth_level [w];
1802 if (smask)
1803 for (b = 0; b < 32; ++b)
1804 if (smask & (((uint32_t)1) << b))
1317 { 1805 {
1318 maptex tex = self->tex [face]; 1806 int level = (w << 5) | b;
1807 HE *he;
1319 1808
1320 int px = (x + 1) * 32 - tex.w; 1809 hv_iterinit (smooth);
1321 int py = (y + 1) * 32 - tex.h; 1810 while ((he = hv_iternext (smooth)))
1322
1323 if (last_name != tex.name)
1324 { 1811 {
1812 smooth_key *skey = (smooth_key *)HeKEY (he);
1813 IV bits = SvIVX (HeVAL (he));
1814
1815 if (!(bits & 0x1000)
1816 && skey->level == level
1817 && level > smooth_max [skey->x][skey->y])
1818 {
1819 maptex tex = self->tex [skey->tile];
1820 int px = (((int)skey->x) - 1) * T;
1821 int py = (((int)skey->y) - 1) * T;
1822 int border = bits & 15;
1823 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1824 float dx = tex.s * .0625f; // 16 images/row
1825 float dy = tex.t * .5f ; // 2 images/column
1826
1827 // this time naively avoiding texture state changes
1828 // save gobs of state changes.
1829 if (last_name != tex.name)
1830 {
1831 if (!tex.name)
1832 continue; // smoothing not yet available
1833
1325 glEnd (); 1834 glEnd ();
1326 last_name = tex.name;
1327 glBindTexture (GL_TEXTURE_2D, last_name); 1835 glBindTexture (GL_TEXTURE_2D, last_name = tex.name);
1328 glBegin (GL_QUADS); 1836 glBegin (GL_QUADS);
1837 }
1838
1839 if (border)
1840 {
1841 float ox = border * dx;
1842
1843 glTexCoord2f (ox , 0.f ); glVertex2f (px , py );
1844 glTexCoord2f (ox , dy ); glVertex2f (px , py + T);
1845 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T);
1846 glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py );
1847 }
1848
1849 if (corner)
1850 {
1851 float ox = corner * dx;
1852
1853 glTexCoord2f (ox , dy ); glVertex2f (px , py );
1854 glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T);
1855 glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T);
1856 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py );
1857 }
1858 }
1329 } 1859 }
1330
1331 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1332 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1333 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1334 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1335 } 1860 }
1336 }
1337 } 1861 }
1862 }
1863
1864 hv_clear (smooth);
1865 }
1338 1866
1339 glEnd (); 1867 glEnd ();
1340 1868
1341 glDisable (GL_TEXTURE_2D); 1869 glDisable (GL_TEXTURE_2D);
1342 glDisable (GL_BLEND); 1870 glDisable (GL_BLEND);
1343 1871
1872 // top layer: overlays such as the health bar
1873 for (y = 0; y < sh; y++)
1874 if (0 <= y + my && y + my < self->rows)
1875 {
1876 maprow *row = self->row + (y + my);
1877
1878 for (x = 0; x < sw; x++)
1879 if (row->c0 <= x + mx && x + mx < row->c1)
1880 {
1881 mapcell *cell = row->col + (x + mx - row->c0);
1882
1883 int px = x * T;
1884 int py = y * T;
1885
1886 if (cell->stat_hp)
1887 {
1888 int width = cell->stat_width * T;
1889 int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
1890
1891 glColor3ub (0, 0, 0);
1892 glRectf (px + 1, py - thick - 2,
1893 px + width - 1, py);
1894
1895 glColor3ub (cell->stat_hp, 255 - cell->stat_hp, 0);
1896 glRectf (px + 2,
1897 py - thick - 1,
1898 px + width - 2 - cell->stat_hp * (width - 4) / 255, py - 1);
1899 }
1900 }
1901 }
1902}
1903
1904void
1905draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data)
1906 CODE:
1907{
1908 static float color[16][3] = {
1909 { 0.00F, 0.00F, 0.00F },
1910 { 1.00F, 1.00F, 1.00F },
1911 { 0.00F, 0.00F, 0.55F },
1912 { 1.00F, 0.00F, 0.00F },
1913
1914 { 1.00F, 0.54F, 0.00F },
1915 { 0.11F, 0.56F, 1.00F },
1916 { 0.93F, 0.46F, 0.00F },
1917 { 0.18F, 0.54F, 0.34F },
1918
1919 { 0.56F, 0.73F, 0.56F },
1920 { 0.80F, 0.80F, 0.80F },
1921 { 0.55F, 0.41F, 0.13F },
1922 { 0.99F, 0.77F, 0.26F },
1923
1924 { 0.74F, 0.65F, 0.41F },
1925
1926 { 0.00F, 1.00F, 1.00F },
1927 { 1.00F, 0.00F, 1.00F },
1928 { 1.00F, 1.00F, 0.00F },
1929 };
1930
1931 int x, y;
1932
1933 glEnable (GL_TEXTURE_2D);
1934 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1935 glEnable (GL_BLEND);
1936 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1937 glBegin (GL_QUADS);
1938
1939 for (y = 0; y < h; y++)
1940 for (x = 0; x < w; x++)
1941 {
1942 unsigned char m = data [x + y * w];
1943
1944 if (m)
1945 {
1946 float *c = color [m & 15];
1947
1948 float tx1 = m & 0x40 ? 0.5 : 0.;
1949 float tx2 = tx1 + 0.5;
1950
1951 glColor4f (c[0], c[1], c[2], 0.75);
1952 glTexCoord2f (tx1, 0.); glVertex2i (x , y );
1953 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
1954 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
1955 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
1956 }
1957 }
1958
1959 glEnd ();
1960 glDisable (GL_BLEND);
1961 glDisable (GL_TEXTURE_2D);
1962}
1963
1964void
1965fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh)
1966 PPCODE:
1967{
1968 int x, y;
1969 int sw1 = sw + 2;
1970 int sh1 = sh + 2;
1971 int sh3 = sh * 3;
1972 int sw34 = (sw * 3 + 3) & ~3;
1973 uint8_t *darkness1 = (uint8_t *)malloc (sw1 * sh1);
1974 SV *darkness3_sv = sv_2mortal (newSV (sw34 * sh3));
1975 uint8_t *darkness3 = (uint8_t *)SvPVX (darkness3_sv);
1976
1977 SvPOK_only (darkness3_sv);
1978 SvCUR_set (darkness3_sv, sw34 * sh3);
1979
1980 mx += self->x - 1;
1981 my += self->y - 1;
1982
1983 memset (darkness1, 255, sw1 * sh1);
1984
1985 for (y = 0; y < sh1; y++)
1986 if (0 <= y + my && y + my < self->rows)
1987 {
1988 maprow *row = self->row + (y + my);
1989
1990 for (x = 0; x < sw1; x++)
1991 if (row->c0 <= x + mx && x + mx < row->c1)
1992 {
1993 mapcell *cell = row->col + (x + mx - row->c0);
1994
1995 darkness1 [y * sw1 + x] = cell->darkness
1996 ? 255 - (cell->darkness - 1)
1997 : 255 - FOW_DARKNESS;
1998 }
1999 }
2000
2001 for (y = 0; y < sh; ++y)
2002 for (x = 0; x < sw; ++x)
2003 {
2004 uint8_t d11 = darkness1 [(y ) * sw1 + x ];
2005 uint8_t d21 = darkness1 [(y ) * sw1 + x + 1];
2006 uint8_t d31 = darkness1 [(y ) * sw1 + x + 2];
2007 uint8_t d12 = darkness1 [(y + 1) * sw1 + x ];
2008 uint8_t d22 = darkness1 [(y + 1) * sw1 + x + 1];
2009 uint8_t d32 = darkness1 [(y + 1) * sw1 + x + 2];
2010 uint8_t d13 = darkness1 [(y + 2) * sw1 + x ];
2011 uint8_t d23 = darkness1 [(y + 2) * sw1 + x + 1];
2012 uint8_t d33 = darkness1 [(y + 2) * sw1 + x + 2];
2013
2014 uint8_t r11 = (d11 + d21 + d12) / 3;
2015 uint8_t r21 = d21;
2016 uint8_t r31 = (d21 + d31 + d32) / 3;
2017
2018 uint8_t r12 = d12;
2019 uint8_t r22 = d22;
2020 uint8_t r32 = d32;
2021
2022 uint8_t r13 = (d13 + d23 + d12) / 3;
2023 uint8_t r23 = d23;
2024 uint8_t r33 = (d23 + d33 + d32) / 3;
2025
2026 darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);
2027 darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);
2028 darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);
2029 darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);
2030 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);
2031 darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);
2032 darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);
2033 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);
2034 darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);
2035 }
2036
2037 free (darkness1);
2038
1344 EXTEND (SP, 3); 2039 EXTEND (SP, 3);
1345 PUSHs (sv_2mortal (newSViv (sw4))); 2040 PUSHs (sv_2mortal (newSViv (sw34)));
1346 PUSHs (sv_2mortal (newSViv (sh))); 2041 PUSHs (sv_2mortal (newSViv (sh3)));
1347 PUSHs (darkness_sv); 2042 PUSHs (darkness3_sv);
1348} 2043}
1349 2044
1350SV * 2045SV *
1351get_rect (CFClient::Map self, int x0, int y0, int w, int h) 2046get_rect (CFPlus::Map self, int x0, int y0, int w, int h)
1352 CODE: 2047 CODE:
1353{ 2048{
1354 int x, y, x1, y1; 2049 int x, y, x1, y1;
1355 SV *data_sv = newSV (w * h * 7 + 5); 2050 SV *data_sv = newSV (w * h * 7 + 5);
1356 uint8_t *data = (uint8_t *)SvPVX (data_sv); 2051 uint8_t *data = (uint8_t *)SvPVX (data_sv);
1381 if (row && row->c0 <= x && x < row->c1) 2076 if (row && row->c0 <= x && x < row->c1)
1382 { 2077 {
1383 mapcell *cell = row->col + (x - row->c0); 2078 mapcell *cell = row->col + (x - row->c0);
1384 uint8_t flags = 0; 2079 uint8_t flags = 0;
1385 2080
1386 if (cell->face [0]) flags |= 1; 2081 if (cell->tile [0]) flags |= 1;
1387 if (cell->face [1]) flags |= 2; 2082 if (cell->tile [1]) flags |= 2;
1388 if (cell->face [2]) flags |= 4; 2083 if (cell->tile [2]) flags |= 4;
1389 2084
1390 *data++ = flags; 2085 *data++ = flags;
1391 2086
1392 if (flags & 1) 2087 if (flags & 1)
1393 { 2088 {
2089 tileid tile = cell->tile [0];
1394 *data++ = cell->face [0] >> 8; 2090 *data++ = tile >> 8;
1395 *data++ = cell->face [0]; 2091 *data++ = tile;
1396 } 2092 }
1397 2093
1398 if (flags & 2) 2094 if (flags & 2)
1399 { 2095 {
2096 tileid tile = cell->tile [1];
1400 *data++ = cell->face [1] >> 8; 2097 *data++ = tile >> 8;
1401 *data++ = cell->face [1]; 2098 *data++ = tile;
1402 } 2099 }
1403 2100
1404 if (flags & 4) 2101 if (flags & 4)
1405 { 2102 {
2103 tileid tile = cell->tile [2];
1406 *data++ = cell->face [2] >> 8; 2104 *data++ = tile >> 8;
1407 *data++ = cell->face [2]; 2105 *data++ = tile;
1408 } 2106 }
1409 } 2107 }
1410 else 2108 else
1411 *data++ = 0; 2109 *data++ = 0;
1412 } 2110 }
1418} 2116}
1419 OUTPUT: 2117 OUTPUT:
1420 RETVAL 2118 RETVAL
1421 2119
1422void 2120void
1423set_rect (CFClient::Map self, int x0, int y0, uint8_t *data) 2121set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data)
1424 PPCODE: 2122 PPCODE:
1425{ 2123{
1426 int x, y, z; 2124 int x, y, z;
1427 int w, h; 2125 int w, h;
1428 int x1, y1; 2126 int x1, y1;
1452 { 2150 {
1453 uint8_t flags = *data++; 2151 uint8_t flags = *data++;
1454 2152
1455 if (flags) 2153 if (flags)
1456 { 2154 {
1457 mapface face[3] = { 0, 0, 0 };
1458
1459 mapcell *cell = row_get_cell (row, x); 2155 mapcell *cell = row_get_cell (row, x);
2156 tileid tile[3] = { 0, 0, 0 };
1460 2157
1461 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; } 2158 if (flags & 1) { tile[0] = *data++ << 8; tile[0] |= *data++; }
1462 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; } 2159 if (flags & 2) { tile[1] = *data++ << 8; tile[1] |= *data++; }
1463 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; } 2160 if (flags & 4) { tile[2] = *data++ << 8; tile[2] |= *data++; }
1464 2161
1465 if (cell->darkness <= 0) 2162 if (cell->darkness == 0)
1466 { 2163 {
1467 cell->darkness = -1; 2164 cell->darkness = 0;
1468 2165
1469 for (z = 0; z <= 2; z++) 2166 for (z = 0; z <= 2; z++)
1470 { 2167 {
1471 cell->face[z] = face[z]; 2168 tileid t = tile [z];
1472 2169
1473 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name)) 2170 if (t >= self->texs || (t && !self->tex [t].name))
2171 {
1474 XPUSHs (sv_2mortal (newSViv (face[z]))); 2172 XPUSHs (sv_2mortal (newSViv (t)));
2173 need_texid (self, t);
2174 }
2175
2176 cell->tile [z] = t;
1475 } 2177 }
1476 } 2178 }
1477 } 2179 }
1478 } 2180 }
1479 } 2181 }
1480} 2182}
1481 2183
1482MODULE = CFClient PACKAGE = CFClient::MixChunk 2184MODULE = CFPlus PACKAGE = CFPlus::MixChunk
1483 2185
1484CFClient::MixChunk 2186CFPlus::MixChunk
1485new_from_file (SV *class, char *path) 2187new_from_file (SV *class, char *path)
1486 CODE: 2188 CODE:
1487 RETVAL = Mix_LoadWAV (path); 2189 RETVAL = Mix_LoadWAV (path);
1488 OUTPUT: 2190 OUTPUT:
1489 RETVAL 2191 RETVAL
1490 2192
1491void 2193void
1492DESTROY (CFClient::MixChunk self) 2194DESTROY (CFPlus::MixChunk self)
1493 CODE: 2195 CODE:
1494 Mix_FreeChunk (self); 2196 Mix_FreeChunk (self);
1495 2197
1496int 2198int
1497volume (CFClient::MixChunk self, int volume = -1) 2199volume (CFPlus::MixChunk self, int volume = -1)
1498 CODE: 2200 CODE:
1499 RETVAL = Mix_VolumeChunk (self, volume); 2201 RETVAL = Mix_VolumeChunk (self, volume);
1500 OUTPUT: 2202 OUTPUT:
1501 RETVAL 2203 RETVAL
1502 2204
1503int 2205int
1504play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2206play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
1505 CODE: 2207 CODE:
1506 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2208 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
1507 OUTPUT: 2209 OUTPUT:
1508 RETVAL 2210 RETVAL
1509 2211
1510MODULE = CFClient PACKAGE = CFClient::MixMusic 2212MODULE = CFPlus PACKAGE = CFPlus::MixMusic
1511 2213
1512int 2214int
1513volume (int volume = -1) 2215volume (int volume = -1)
1514 CODE: 2216 CODE:
1515 RETVAL = Mix_VolumeMusic (volume); 2217 RETVAL = Mix_VolumeMusic (volume);
1516 OUTPUT: 2218 OUTPUT:
1517 RETVAL 2219 RETVAL
1518 2220
2221int
2222fade_out (int ms)
2223 CODE:
2224 RETVAL = Mix_FadeOutMusic (ms);
2225 OUTPUT:
2226 RETVAL
2227
1519CFClient::MixMusic 2228CFPlus::MixMusic
1520new_from_file (SV *class, char *path) 2229new_from_file (SV *class, char *path)
1521 CODE: 2230 CODE:
1522 RETVAL = Mix_LoadMUS (path); 2231 RETVAL = Mix_LoadMUS (path);
1523 OUTPUT: 2232 OUTPUT:
1524 RETVAL 2233 RETVAL
1525 2234
1526void 2235void
1527DESTROY (CFClient::MixMusic self) 2236DESTROY (CFPlus::MixMusic self)
1528 CODE: 2237 CODE:
1529 Mix_FreeMusic (self); 2238 Mix_FreeMusic (self);
1530 2239
1531int 2240int
1532play (CFClient::MixMusic self, int loops = -1) 2241play (CFPlus::MixMusic self, int loops = -1)
1533 CODE: 2242 CODE:
1534 RETVAL = Mix_PlayMusic (self, loops); 2243 RETVAL = Mix_PlayMusic (self, loops);
1535 OUTPUT: 2244 OUTPUT:
1536 RETVAL 2245 RETVAL
1537 2246
2247int
2248fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2249 CODE:
2250 RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);
2251 OUTPUT:
2252 RETVAL
2253
1538MODULE = CFClient PACKAGE = CFClient::OpenGL 2254MODULE = CFPlus PACKAGE = CFPlus::OpenGL
1539 2255
1540BOOT: 2256BOOT:
1541{ 2257{
1542 HV *stash = gv_stashpv ("CFClient::OpenGL", 1); 2258 HV *stash = gv_stashpv ("CFPlus::OpenGL", 1);
1543 static const struct { 2259 static const struct {
1544 const char *name; 2260 const char *name;
1545 IV iv; 2261 IV iv;
1546 } *civ, const_iv[] = { 2262 } *civ, const_iv[] = {
1547# define const_iv(name) { # name, (IV)name } 2263# define const_iv(name) { # name, (IV)name }
2264 const_iv (GL_VENDOR),
2265 const_iv (GL_VERSION),
2266 const_iv (GL_EXTENSIONS),
1548 const_iv (GL_COLOR_MATERIAL), 2267 const_iv (GL_COLOR_MATERIAL),
1549 const_iv (GL_SMOOTH), 2268 const_iv (GL_SMOOTH),
1550 const_iv (GL_FLAT), 2269 const_iv (GL_FLAT),
1551 const_iv (GL_DITHER), 2270 const_iv (GL_DITHER),
1552 const_iv (GL_BLEND), 2271 const_iv (GL_BLEND),
1554 const_iv (GL_SCISSOR_TEST), 2273 const_iv (GL_SCISSOR_TEST),
1555 const_iv (GL_DEPTH_TEST), 2274 const_iv (GL_DEPTH_TEST),
1556 const_iv (GL_ALPHA_TEST), 2275 const_iv (GL_ALPHA_TEST),
1557 const_iv (GL_NORMALIZE), 2276 const_iv (GL_NORMALIZE),
1558 const_iv (GL_RESCALE_NORMAL), 2277 const_iv (GL_RESCALE_NORMAL),
2278 const_iv (GL_FRONT),
2279 const_iv (GL_BACK),
1559 const_iv (GL_AND), 2280 const_iv (GL_AND),
1560 const_iv (GL_ONE), 2281 const_iv (GL_ONE),
1561 const_iv (GL_ZERO), 2282 const_iv (GL_ZERO),
1562 const_iv (GL_SRC_ALPHA), 2283 const_iv (GL_SRC_ALPHA),
1563 const_iv (GL_DST_ALPHA), 2284 const_iv (GL_DST_ALPHA),
1564 const_iv (GL_ONE_MINUS_SRC_ALPHA), 2285 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1565 const_iv (GL_ONE_MINUS_DST_ALPHA), 2286 const_iv (GL_ONE_MINUS_DST_ALPHA),
1566 const_iv (GL_SRC_ALPHA_SATURATE), 2287 const_iv (GL_SRC_ALPHA_SATURATE),
1567 const_iv (GL_RGB), 2288 const_iv (GL_RGB),
1568 const_iv (GL_RGBA), 2289 const_iv (GL_RGBA),
2290 const_iv (GL_RGBA4),
2291 const_iv (GL_RGBA8),
2292 const_iv (GL_RGB5_A1),
1569 const_iv (GL_UNSIGNED_BYTE), 2293 const_iv (GL_UNSIGNED_BYTE),
1570 const_iv (GL_UNSIGNED_SHORT), 2294 const_iv (GL_UNSIGNED_SHORT),
1571 const_iv (GL_UNSIGNED_INT), 2295 const_iv (GL_UNSIGNED_INT),
1572 const_iv (GL_ALPHA), 2296 const_iv (GL_ALPHA),
1573 const_iv (GL_INTENSITY), 2297 const_iv (GL_INTENSITY),
1574 const_iv (GL_LUMINANCE), 2298 const_iv (GL_LUMINANCE),
1575 const_iv (GL_LUMINANCE_ALPHA), 2299 const_iv (GL_LUMINANCE_ALPHA),
1576 const_iv (GL_FLOAT), 2300 const_iv (GL_FLOAT),
1577 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2301 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1578 const_iv (GL_COMPILE), 2302 const_iv (GL_COMPILE),
2303 const_iv (GL_PROXY_TEXTURE_1D),
2304 const_iv (GL_PROXY_TEXTURE_2D),
1579 const_iv (GL_TEXTURE_1D), 2305 const_iv (GL_TEXTURE_1D),
1580 const_iv (GL_TEXTURE_2D), 2306 const_iv (GL_TEXTURE_2D),
1581 const_iv (GL_TEXTURE_ENV), 2307 const_iv (GL_TEXTURE_ENV),
1582 const_iv (GL_TEXTURE_MAG_FILTER), 2308 const_iv (GL_TEXTURE_MAG_FILTER),
1583 const_iv (GL_TEXTURE_MIN_FILTER), 2309 const_iv (GL_TEXTURE_MIN_FILTER),
1605 const_iv (GL_SEPARABLE_2D), 2331 const_iv (GL_SEPARABLE_2D),
1606 const_iv (GL_CONVOLUTION_2D), 2332 const_iv (GL_CONVOLUTION_2D),
1607 const_iv (GL_CONVOLUTION_BORDER_MODE), 2333 const_iv (GL_CONVOLUTION_BORDER_MODE),
1608 const_iv (GL_CONSTANT_BORDER), 2334 const_iv (GL_CONSTANT_BORDER),
1609 const_iv (GL_LINES), 2335 const_iv (GL_LINES),
2336 const_iv (GL_LINE_STRIP),
1610 const_iv (GL_LINE_LOOP), 2337 const_iv (GL_LINE_LOOP),
1611 const_iv (GL_QUADS), 2338 const_iv (GL_QUADS),
1612 const_iv (GL_QUAD_STRIP), 2339 const_iv (GL_QUAD_STRIP),
1613 const_iv (GL_TRIANGLES), 2340 const_iv (GL_TRIANGLES),
1614 const_iv (GL_TRIANGLE_STRIP), 2341 const_iv (GL_TRIANGLE_STRIP),
1622# undef const_iv 2349# undef const_iv
1623 }; 2350 };
1624 2351
1625 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 2352 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1626 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 2353 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
2354
2355 texture_av = newAV ();
2356 AvREAL_off (texture_av);
1627} 2357}
1628 2358
1629char * 2359char *
1630gl_vendor () 2360gl_vendor ()
1631 CODE: 2361 CODE:
1645 CODE: 2375 CODE:
1646 RETVAL = (char *)glGetString (GL_EXTENSIONS); 2376 RETVAL = (char *)glGetString (GL_EXTENSIONS);
1647 OUTPUT: 2377 OUTPUT:
1648 RETVAL 2378 RETVAL
1649 2379
2380const char *glGetString (GLenum pname)
2381
2382GLint glGetInteger (GLenum pname)
2383 CODE:
2384 glGetIntegerv (pname, &RETVAL);
2385 OUTPUT:
2386 RETVAL
2387
2388GLdouble glGetDouble (GLenum pname)
2389 CODE:
2390 glGetDoublev (pname, &RETVAL);
2391 OUTPUT:
2392 RETVAL
2393
1650int glGetError () 2394int glGetError ()
2395
2396void glFinish ()
1651 2397
1652void glClear (int mask) 2398void glClear (int mask)
1653 2399
1654void glClearColor (float r, float g, float b, float a = 1.0) 2400void glClearColor (float r, float g, float b, float a = 1.0)
1655 PROTOTYPE: @ 2401 PROTOTYPE: @
1679void glPushMatrix () 2425void glPushMatrix ()
1680 2426
1681void glPopMatrix () 2427void glPopMatrix ()
1682 2428
1683void glLoadIdentity () 2429void glLoadIdentity ()
2430
2431void glDrawBuffer (int buffer)
2432
2433void glReadBuffer (int buffer)
1684 2434
1685# near_ and far_ are due to microsofts buggy "c" compiler 2435# near_ and far_ are due to microsofts buggy "c" compiler
1686void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 2436void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1687 2437
1688# near_ and far_ are due to microsofts buggy "c" compiler 2438# near_ and far_ are due to microsofts buggy "c" compiler
1718 r *= a; 2468 r *= a;
1719 g *= a; 2469 g *= a;
1720 b *= a; 2470 b *= a;
1721 } 2471 }
1722 // microsoft visual "c" rounds instead of truncating... 2472 // microsoft visual "c" rounds instead of truncating...
1723 glColor4ub (MIN ((int)(r * 256.f), 255), 2473 glColor4f (r, g, b, a);
1724 MIN ((int)(g * 256.f), 255),
1725 MIN ((int)(b * 256.f), 255),
1726 MIN ((int)(a * 256.f), 255));
1727 2474
1728void glInterleavedArrays (int format, int stride, char *data) 2475void glInterleavedArrays (int format, int stride, char *data)
1729 2476
1730void glDrawElements (int mode, int count, int type, char *indices) 2477void glDrawElements (int mode, int count, int type, char *indices)
1731 2478
1773 2520
1774void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border) 2521void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1775 2522
1776void glDrawPixels (int width, int height, int format, int type, char *pixels) 2523void glDrawPixels (int width, int height, int format, int type, char *pixels)
1777 2524
2525void glPixelZoom (float x, float y)
2526
1778void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR) 2527void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
1779 2528
1780int glGenTexture () 2529int glGenTexture ()
1781 CODE: 2530 CODE:
1782{ 2531 RETVAL = gen_texture ();
1783 GLuint name;
1784 glGenTextures (1, &name);
1785 RETVAL = name;
1786}
1787 OUTPUT: 2532 OUTPUT:
1788 RETVAL 2533 RETVAL
1789 2534
1790void glDeleteTexture (int name) 2535void glDeleteTexture (int name)
1791 CODE: 2536 CODE:
1792{
1793 GLuint name_ = name;
1794 glDeleteTextures (1, &name_); 2537 del_texture (name);
1795} 2538
1796
1797int glGenList () 2539int glGenList ()
1798 CODE: 2540 CODE:
1799 RETVAL = glGenLists (1); 2541 RETVAL = glGenLists (1);
1800 OUTPUT: 2542 OUTPUT:
1801 RETVAL 2543 RETVAL
1808 2550
1809void glEndList () 2551void glEndList ()
1810 2552
1811void glCallList (int list) 2553void glCallList (int list)
1812 2554
1813

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines