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.70 by root, Sun Apr 30 09:21:47 2006 UTC vs.
Revision 1.194 by root, Thu Jul 12 17:56:50 2007 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines