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.5 by root, Sun Apr 9 00:06:09 2006 UTC vs.
Revision 1.95 by root, Wed May 24 01:46:53 2006 UTC

1#ifdef _WIN32
2# define _WIN32_WINNT 0x0500 // needed to get win2000 api calls
3# include <malloc.h>
4# include <windows.h>
5# pragma warning(disable:4244)
6#endif
7
1#include "EXTERN.h" 8#include "EXTERN.h"
2#include "perl.h" 9#include "perl.h"
3#include "XSUB.h" 10#include "XSUB.h"
4 11
12#include <math.h>
5#include <string.h> 13#include <string.h>
14#include <stdio.h>
6 15
7#include <SDL.h> 16#include <SDL.h>
17#include <SDL_endian.h>
18#include <SDL_image.h>
19#include <SDL_mixer.h>
8#include <SDL_opengl.h> 20#include <SDL_opengl.h>
9 21
22#include <glib/gmacros.h>
23
10#include <pango/pango.h> 24#include <pango/pango.h>
25#include <pango/pangofc-fontmap.h>
11#include <pango/pangoft2.h> 26#include <pango/pangoft2.h>
27#include <pango/pangocairo.h>
12 28
13static PangoContext *context; 29#ifndef _WIN32
14static PangoFontMap *fontmap; 30# include <sys/types.h>
31# include <sys/socket.h>
32# include <netinet/in.h>
33# include <netinet/tcp.h>
34# 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
15 43
44#include "glext.h"
45
46#define FOW_DARKNESS 32
47
48#define MAP_EXTEND_X 32
49#define MAP_EXTEND_Y 512
50
51#define MIN_FONT_HEIGHT 10
52
53#define GL_CALL(type,func,args) \
54 { \
55 static int init_; \
56 static type fptr_; \
57 \
58 if (!init_) \
59 { \
60 init_ = 1; \
61 fptr_ = (type)SDL_GL_GetProcAddress (# func); \
62 } \
63 \
64 if (fptr_) \
65 fptr_ args; \
66 }
67
68typedef Mix_Chunk *CFClient__MixChunk;
69typedef Mix_Music *CFClient__MixMusic;
70
71typedef PangoFontDescription *CFClient__Font;
72
73typedef struct cf_layout {
74 PangoLayout *pl; // either derived from a cairo or ft2 context
75 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
76 float r, g, b, a; // default color for rgba mode
77 int base_height;
78 CFClient__Font font;
79} *CFClient__Layout;
80
81static CFClient__Font default_font;
82static PangoContext *ft2_context, *cairo_context;
83static PangoFontMap *ft2_fontmap, *cairo_fontmap;
84
85static void
86substitute_func (FcPattern *pattern, gpointer data)
87{
88 FcPatternAddBool (pattern, FC_HINTING , 1);
89#ifdef _WIN32
90 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
91#else
92 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
93#endif
94}
95
96static void
97layout_update_font (CFClient__Layout self)
98{
99 /* use a random scale factor to account for unknown descenders, 0.8 works
100 * reasonably well with bitstream vera
101 */
102 PangoFontDescription *font = self->font ? self->font : default_font;
103
104 pango_font_description_set_absolute_size (font,
105 MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));
106
107 pango_layout_set_font_description (self->pl, font);
108}
109
110static void
111layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
112{
113 pango_layout_get_pixel_size (self->pl, w, h);
114
115 if (!*w) *w = 1;
116 if (!*h) *h = 1;
117
118 *w = (*w + 3) & ~3;
119}
120
121typedef uint16_t mapface;
122
123typedef struct {
124 GLint name;
125 int w, h;
126 float s, t;
127 uint8_t r, g, b, a;
128} maptex;
129
130typedef struct {
131 int16_t darkness;
132 mapface face[3];
133} mapcell;
134
135typedef struct {
136 int32_t c0, c1;
137 mapcell *col;
138} maprow;
139
140typedef struct map {
141 int x, y, w, h;
142 int ox, oy; /* offset to virtual global coordinate system */
143 int faces;
144 mapface *face;
145
146 int texs;
147 maptex *tex;
148
149 int32_t rows;
150 maprow *row;
151} *CFClient__Map;
152
153static char *
154prepend (char *ptr, int sze, int inc)
155{
156 char *p;
157
158 New (0, p, sze + inc, char);
159 Zero (p, inc, char);
160 Move (ptr, p + inc, sze, char);
161 Safefree (ptr);
162
163 return p;
164}
165
166static char *
167append (char *ptr, int sze, int inc)
168{
169 Renew (ptr, sze + inc, char);
170 Zero (ptr + sze, inc, char);
171
172 return ptr;
173}
174
175#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
176#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
177
178static maprow *
179map_get_row (CFClient__Map self, int y)
180{
181 if (0 > y)
182 {
183 int extend = - y + MAP_EXTEND_Y;
184 Prepend (maprow, self->row, self->rows, extend);
185
186 self->rows += extend;
187 self->y += extend;
188 y += extend;
189 }
190 else if (y >= self->rows)
191 {
192 int extend = y - self->rows + MAP_EXTEND_Y;
193 Append (maprow, self->row, self->rows, extend);
194 self->rows += extend;
195 }
196
197 return self->row + y;
198}
199
200static mapcell *
201row_get_cell (maprow *row, int x)
202{
203 if (!row->col)
204 {
205 Newz (0, row->col, MAP_EXTEND_X, mapcell);
206 row->c0 = x - MAP_EXTEND_X / 4;
207 row->c1 = row->c0 + MAP_EXTEND_X;
208 }
209
210 if (row->c0 > x)
211 {
212 int extend = row->c0 - x + MAP_EXTEND_X;
213 Prepend (mapcell, row->col, row->c1 - row->c0, extend);
214 row->c0 -= extend;
215 }
216 else if (x >= row->c1)
217 {
218 int extend = x - row->c1 + MAP_EXTEND_X;
219 Append (mapcell, row->col, row->c1 - row->c0, extend);
220 row->c1 += extend;
221 }
222
223 return row->col + (x - row->c0);
224}
225
226static mapcell *
227map_get_cell (CFClient__Map self, int x, int y)
228{
229 return row_get_cell (map_get_row (self, y), x);
230}
231
232static void
233map_clear (CFClient__Map self)
234{
235 int r;
236
237 for (r = 0; r < self->rows; r++)
238 Safefree (self->row[r].col);
239
240 Safefree (self->row);
241
242 self->x = 0;
243 self->y = 0;
244 self->ox = 0;
245 self->oy = 0;
246 self->row = 0;
247 self->rows = 0;
248}
249
250static void
251map_blank (CFClient__Map self, int x0, int y0, int w, int h)
252{
253 int x, y;
254 maprow *row;
255
256 for (y = y0; y < y0 + h; y++)
257 if (y >= 0)
258 {
259 if (y >= self->rows)
260 break;
261
262 row = self->row + y;
263
264 for (x = x0; x < x0 + w; x++)
265 if (x >= row->c0)
266 {
267 if (x >= row->c1)
268 break;
269
270 row->col[x - row->c0].darkness = -1;
271 }
272 }
273}
274
275static void
276music_finished (void)
277{
278 SDL_UserEvent ev;
279
280 ev.type = SDL_USEREVENT;
281 ev.code = 0;
282 ev.data1 = 0;
283 ev.data2 = 0;
284
285 SDL_PushEvent ((SDL_Event *)&ev);
286}
287
288static void
289channel_finished (int channel)
290{
291 SDL_UserEvent ev;
292
293 ev.type = SDL_USEREVENT;
294 ev.code = 1;
295 ev.data1 = (void *)(long)channel;
296 ev.data2 = 0;
297
298 SDL_PushEvent ((SDL_Event *)&ev);
299}
300
16MODULE = Crossfire::Client PACKAGE = Crossfire::Client 301MODULE = CFClient PACKAGE = CFClient
302
303PROTOTYPES: ENABLE
17 304
18BOOT: 305BOOT:
19{ 306{
307 HV *stash = gv_stashpv ("CFClient", 1);
308 static const struct {
309 const char *name;
310 IV iv;
311 } *civ, const_iv[] = {
312# define const_iv(name) { # name, (IV)name }
313 const_iv (SDL_ACTIVEEVENT),
314 const_iv (SDL_KEYDOWN),
315 const_iv (SDL_KEYUP),
316 const_iv (SDL_MOUSEMOTION),
317 const_iv (SDL_MOUSEBUTTONDOWN),
318 const_iv (SDL_MOUSEBUTTONUP),
319 const_iv (SDL_JOYAXISMOTION),
320 const_iv (SDL_JOYBALLMOTION),
321 const_iv (SDL_JOYHATMOTION),
322 const_iv (SDL_JOYBUTTONDOWN),
323 const_iv (SDL_JOYBUTTONUP),
324 const_iv (SDL_QUIT),
325 const_iv (SDL_SYSWMEVENT),
326 const_iv (SDL_EVENT_RESERVEDA),
327 const_iv (SDL_EVENT_RESERVEDB),
328 const_iv (SDL_VIDEORESIZE),
329 const_iv (SDL_VIDEOEXPOSE),
330 const_iv (SDL_USEREVENT),
331 const_iv (SDLK_KP0),
332 const_iv (SDLK_KP1),
333 const_iv (SDLK_KP2),
334 const_iv (SDLK_KP3),
335 const_iv (SDLK_KP4),
336 const_iv (SDLK_KP5),
337 const_iv (SDLK_KP6),
338 const_iv (SDLK_KP7),
339 const_iv (SDLK_KP8),
340 const_iv (SDLK_KP9),
341 const_iv (SDLK_KP_PERIOD),
342 const_iv (SDLK_KP_DIVIDE),
343 const_iv (SDLK_KP_MULTIPLY),
344 const_iv (SDLK_KP_MINUS),
345 const_iv (SDLK_KP_PLUS),
346 const_iv (SDLK_KP_ENTER),
347 const_iv (SDLK_KP_EQUALS),
348 const_iv (SDLK_UP),
349 const_iv (SDLK_DOWN),
350 const_iv (SDLK_RIGHT),
351 const_iv (SDLK_LEFT),
352 const_iv (SDLK_INSERT),
353 const_iv (SDLK_HOME),
354 const_iv (SDLK_END),
355 const_iv (SDLK_PAGEUP),
356 const_iv (SDLK_PAGEDOWN),
357 const_iv (SDLK_F1),
358 const_iv (SDLK_F2),
359 const_iv (SDLK_F3),
360 const_iv (SDLK_F4),
361 const_iv (SDLK_F5),
362 const_iv (SDLK_F6),
363 const_iv (SDLK_F7),
364 const_iv (SDLK_F8),
365 const_iv (SDLK_F9),
366 const_iv (SDLK_F10),
367 const_iv (SDLK_F11),
368 const_iv (SDLK_F12),
369 const_iv (SDLK_F13),
370 const_iv (SDLK_F14),
371 const_iv (SDLK_F15),
372 const_iv (SDLK_NUMLOCK),
373 const_iv (SDLK_CAPSLOCK),
374 const_iv (SDLK_SCROLLOCK),
375 const_iv (SDLK_RSHIFT),
376 const_iv (SDLK_LSHIFT),
377 const_iv (SDLK_RCTRL),
378 const_iv (SDLK_LCTRL),
379 const_iv (SDLK_RALT),
380 const_iv (SDLK_LALT),
381 const_iv (SDLK_RMETA),
382 const_iv (SDLK_LMETA),
383 const_iv (SDLK_LSUPER),
384 const_iv (SDLK_RSUPER),
385 const_iv (SDLK_MODE),
386 const_iv (SDLK_COMPOSE),
387 const_iv (SDLK_HELP),
388 const_iv (SDLK_PRINT),
389 const_iv (SDLK_SYSREQ),
390 const_iv (SDLK_BREAK),
391 const_iv (SDLK_MENU),
392 const_iv (SDLK_POWER),
393 const_iv (SDLK_EURO),
394 const_iv (SDLK_UNDO),
395 const_iv (KMOD_NONE),
396 const_iv (KMOD_LSHIFT),
397 const_iv (KMOD_RSHIFT),
398 const_iv (KMOD_LCTRL),
399 const_iv (KMOD_RCTRL),
400 const_iv (KMOD_LALT),
401 const_iv (KMOD_RALT),
402 const_iv (KMOD_LMETA),
403 const_iv (KMOD_RMETA),
404 const_iv (KMOD_NUM),
405 const_iv (KMOD_CAPS),
406 const_iv (KMOD_MODE),
407 const_iv (KMOD_CTRL),
408 const_iv (KMOD_SHIFT),
409 const_iv (KMOD_ALT),
410 const_iv (KMOD_META)
411# undef const_iv
412 };
413
414 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
415 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
416}
417
418void
419pango_init ()
420 CODE:
421{
422 // delayed, so it can pick up new fonts added by AddFontResourceEx
20 fontmap = pango_ft2_font_map_new (); 423 ft2_fontmap = pango_ft2_font_map_new ();
21 context = pango_context_new (); 424 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0);
22 pango_context_set_font_map (context, fontmap); 425 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap);
426
427 cairo_fontmap = pango_cairo_font_map_get_default ();
428 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
23} 429}
430
431int
432SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
433
434void
435SDL_Quit ()
436
437void
438SDL_ListModes ()
439 PPCODE:
440{
441 SDL_Rect **m;
442
443 SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
444 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
445 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
446 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
447
448 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
449 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16);
450
451 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
452 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
453 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
454 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
455
456 SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
457
458 SDL_EnableUNICODE (1);
459 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
460
461 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
462
463 if (m && m != (SDL_Rect **)-1)
464 while (*m)
465 {
466 AV *av = newAV ();
467 av_push (av, newSViv ((*m)->w));
468 av_push (av, newSViv ((*m)->h));
469 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
470
471 ++m;
472 }
473}
474
475char *
476SDL_GetError ()
477
478int
479SDL_SetVideoMode (int w, int h, int fullscreen)
480 CODE:
481 RETVAL = !!SDL_SetVideoMode (
482 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
483 );
484 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
485 OUTPUT:
486 RETVAL
487
488void
489SDL_GL_SwapBuffers ()
490
491char *
492SDL_GetKeyName (int sym)
493
494void
495SDL_PollEvent ()
496 PPCODE:
497{
498 SDL_Event ev;
499
500 while (SDL_PollEvent (&ev))
501 {
502 HV *hv = newHV ();
503 hv_store (hv, "type", 4, newSViv (ev.type), 0);
504
505 switch (ev.type)
506 {
507 case SDL_KEYDOWN:
508 case SDL_KEYUP:
509 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
510 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
511 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
512 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
513 break;
514
515 case SDL_ACTIVEEVENT:
516 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
517 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
518 break;
519
520 case SDL_MOUSEMOTION:
521 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
522
523 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
524 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
525 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
526 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
527 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
528 break;
529
530 case SDL_MOUSEBUTTONDOWN:
531 case SDL_MOUSEBUTTONUP:
532 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
533
534 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
535 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
536 hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
537 hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
538 break;
539
540 case SDL_USEREVENT:
541 hv_store (hv, "code", 4, newSViv (ev.user.code), 0);
542 hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
543 hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
544 break;
545 }
546
547 XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
548 }
549}
550
551int
552Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048)
553 POSTCALL:
554 Mix_HookMusicFinished (music_finished);
555 Mix_ChannelFinished (channel_finished);
556
557void
558Mix_CloseAudio ()
559
560int
561Mix_AllocateChannels (int numchans = -1)
562
563void
564lowdelay (int fd, int val = 1)
565 CODE:
566#ifndef _WIN32
567 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
568#endif
569
570char *
571gl_vendor ()
572 CODE:
573 RETVAL = (char *)glGetString (GL_VENDOR);
574 OUTPUT:
575 RETVAL
24 576
25char * 577char *
26gl_version () 578gl_version ()
27 CODE: 579 CODE:
28 RETVAL = (char *)glGetString (GL_VERSION); 580 RETVAL = (char *)glGetString (GL_VERSION);
… …
35 RETVAL = (char *)glGetString (GL_EXTENSIONS); 587 RETVAL = (char *)glGetString (GL_EXTENSIONS);
36 OUTPUT: 588 OUTPUT:
37 RETVAL 589 RETVAL
38 590
39void 591void
40font_render (SV *text_, int height) 592add_font (char *file)
593 CODE:
594 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
595#ifdef _WIN32
596 // cairo... sigh... requires win2000
597 AddFontResourceEx (file, FR_PRIVATE, 0);
598#endif
599
600void
601load_image_inline (SV *image_)
602 ALIAS:
603 load_image_file = 1
41 PPCODE: 604 PPCODE:
605{
606 STRLEN image_len;
607 char *image = (char *)SvPVbyte (image_, image_len);
608 SDL_Surface *surface, *surface2;
609 SDL_PixelFormat fmt;
610 SDL_RWops *rw = ix
611 ? SDL_RWFromFile (image, "r")
612 : SDL_RWFromConstMem (image, image_len);
613
614 if (!rw)
615 croak ("load_image: %s", SDL_GetError ());
616
617 surface = IMG_Load_RW (rw, 1);
618 if (!surface)
619 croak ("load_image: %s", SDL_GetError ());
620
621 fmt.palette = NULL;
622 fmt.BitsPerPixel = 32;
623 fmt.BytesPerPixel = 4;
624#if SDL_BYTEORDER == SDL_LIL_ENDIAN
625 fmt.Rmask = 0x000000ff;
626 fmt.Gmask = 0x0000ff00;
627 fmt.Bmask = 0x00ff0000;
628 fmt.Amask = 0xff000000;
629#else
630 fmt.Rmask = 0xff000000;
631 fmt.Gmask = 0x00ff0000;
632 fmt.Bmask = 0x0000ff00;
633 fmt.Amask = 0x000000ff;
634#endif
635 fmt.Rloss = 0;
636 fmt.Gloss = 0;
637 fmt.Bloss = 0;
638 fmt.Aloss = 0;
639 fmt.Rshift = 0;
640 fmt.Gshift = 8;
641 fmt.Bshift = 16;
642 fmt.Ashift = 24;
643 fmt.colorkey = 0;
644 fmt.alpha = 0;
645
646 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
647
648 assert (surface2->pitch == surface2->w * 4);
649
650 EXTEND (SP, 5);
651 PUSHs (sv_2mortal (newSViv (surface2->w)));
652 PUSHs (sv_2mortal (newSViv (surface2->h)));
653 SDL_LockSurface (surface2);
654 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
655 SDL_UnlockSurface (surface2);
656 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
657 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
658 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
659
660 SDL_FreeSurface (surface);
661 SDL_FreeSurface (surface2);
662}
663
664void
665average (int x, int y, uint32_t *data)
666 PPCODE:
667{
668 uint32_t r = 0, g = 0, b = 0, a = 0;
669
670 x = y = x * y;
671
672 while (x--)
673 {
674 uint32_t p = *data++;
675
676 r += (p ) & 255;
677 g += (p >> 8) & 255;
678 b += (p >> 16) & 255;
679 a += (p >> 24) & 255;
680 }
681
682 EXTEND (SP, 4);
683 PUSHs (sv_2mortal (newSViv (r / y)));
684 PUSHs (sv_2mortal (newSViv (g / y)));
685 PUSHs (sv_2mortal (newSViv (b / y)));
686 PUSHs (sv_2mortal (newSViv (a / y)));
687}
688
689void
690error (char *message)
691 CODE:
692 fprintf (stderr, "ERROR: %s\n", message);
693#ifdef _WIN32
694 MessageBox (0, message, "Crossfire+ Error", MB_OK | MB_ICONERROR);
695#endif
696
697void
698fatal (char *message)
699 CODE:
700 fprintf (stderr, "FATAL: %s\n", message);
701#ifdef _WIN32
702 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
703#endif
704 exit (1);
705
706MODULE = CFClient PACKAGE = CFClient::Font
707
708CFClient::Font
709new_from_file (SV *class, char *path, int id = 0)
710 CODE:
711{
712 int count;
713 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
714 RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
715 FcPatternDestroy (pattern);
716}
717 OUTPUT:
718 RETVAL
719
720void
721DESTROY (CFClient::Font self)
722 CODE:
723 pango_font_description_free (self);
724
725void
726make_default (CFClient::Font self)
727 CODE:
728 default_font = self;
729
730MODULE = CFClient PACKAGE = CFClient::Layout
731
732CFClient::Layout
733new (SV *class, int rgba = 0)
734 CODE:
735#if _WIN32
736 rgba = 0;//D
737#endif
738 New (0, RETVAL, 1, struct cf_layout);
739
740 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
741 RETVAL->rgba = rgba;
742 RETVAL->r = 1.;
743 RETVAL->g = 1.;
744 RETVAL->b = 1.;
745 RETVAL->a = 1.;
746 RETVAL->base_height = MIN_FONT_HEIGHT;
747 RETVAL->font = 0;
748
749 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
750 layout_update_font (RETVAL);
751 OUTPUT:
752 RETVAL
753
754void
755DESTROY (CFClient::Layout self)
756 CODE:
757 g_object_unref (self->pl);
758 Safefree (self);
759
760int
761is_rgba (CFClient::Layout self)
762 CODE:
763 RETVAL = self->rgba;
764 OUTPUT:
765 RETVAL
766
767void
768set_text (CFClient::Layout self, SV *text_)
769 CODE:
42{ 770{
43 STRLEN textlen; 771 STRLEN textlen;
44 char *text = SvPVutf8 (text_, textlen); 772 char *text = SvPVutf8 (text_, textlen);
773
774 pango_layout_set_text (self->pl, text, textlen);
775}
776
777void
778set_markup (CFClient::Layout self, SV *text_)
779 CODE:
780{
781 STRLEN textlen;
782 char *text = SvPVutf8 (text_, textlen);
783
784 pango_layout_set_markup (self->pl, text, textlen);
785}
786
787SV *
788get_text (CFClient::Layout self)
789 CODE:
790 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
791 SvUTF8_on (RETVAL);
792 OUTPUT:
793 RETVAL
794
795void
796set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.)
797 CODE:
798 self->r = r;
799 self->g = g;
800 self->b = b;
801 self->a = a;
802
803void
804set_font (CFClient::Layout self, CFClient::Font font = 0)
805 CODE:
806 if (self->font != font)
807 {
808 self->font = font;
809 layout_update_font (self);
810 }
811
812void
813set_height (CFClient::Layout self, int base_height)
814 CODE:
815 if (self->base_height != base_height)
816 {
817 self->base_height = base_height;
818 layout_update_font (self);
819 }
820
821void
822set_width (CFClient::Layout self, int max_width = -1)
823 CODE:
824 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
825
826void
827set_indent (CFClient::Layout self, int indent)
828 CODE:
829 pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
830
831void
832set_spacing (CFClient::Layout self, int spacing)
833 CODE:
834 pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
835
836void
837set_ellipsise (CFClient::Layout self, int ellipsise)
838 CODE:
839 pango_layout_set_ellipsize (self->pl,
840 ellipsise == 1 ? PANGO_ELLIPSIZE_START
841 : ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
842 : ellipsise == 3 ? PANGO_ELLIPSIZE_END
843 : PANGO_ELLIPSIZE_NONE
844 );
845
846void
847set_single_paragraph_mode (CFClient::Layout self, int spm)
848 CODE:
849 pango_layout_set_single_paragraph_mode (self->pl, !!spm);
850
851void
852size (CFClient::Layout self)
853 PPCODE:
854{
855 int w, h;
856
857 layout_get_pixel_size (self, &w, &h);
858
859 EXTEND (SP, 2);
860 PUSHs (sv_2mortal (newSViv (w)));
861 PUSHs (sv_2mortal (newSViv (h)));
862}
863
864int
865xy_to_index (CFClient::Layout self, int x, int y)
866 CODE:
867{
868 int index, trailing;
869 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
870 RETVAL = index;
871}
872 OUTPUT:
873 RETVAL
874
875void
876cursor_pos (CFClient::Layout self, int index)
877 PPCODE:
878{
879 PangoRectangle strong_pos;
880 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
881
882 EXTEND (SP, 3);
883 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
884 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
885 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
886}
887
888void
889render (CFClient::Layout self)
890 PPCODE:
891{
45 SV *retval; 892 SV *retval;
46 int w, h; 893 int w, h;
894
895 layout_get_pixel_size (self, &w, &h);
896
897 if (self->rgba)
898 {
899 cairo_surface_t *surface;
900 cairo_t *cairo;
901
902 retval = newSV (w * h * 4);
903 SvPOK_only (retval);
904 SvCUR_set (retval, w * h * 4);
905
906 memset (SvPVX (retval), 0, w * h * 4);
907
908 surface = cairo_image_surface_create_for_data (
909 (void*)SvPVX (retval), CAIRO_FORMAT_ARGB32, w, h, w * 4);
910 cairo = cairo_create (surface);
911 cairo_set_source_rgba (cairo, self->r, self->g, self->b, self->a);
912
913 pango_cairo_show_layout (cairo, self->pl);
914
915 cairo_destroy (cairo);
916 cairo_surface_destroy (surface);
917
918 // what a mess, and its premultiplied, too :(
919 {
920 uint32_t *p = (uint32_t *)SvPVX (retval);
921 uint32_t *e = p + w * h;
922
923 while (p < e)
924 {
925 uint32_t rgba = *p;
926 rgba = (rgba >> 24) | (rgba << 8);
927#if 0
928#ifdef _WIN32
929 {//D
930 uint8_t r = rgba >> 24;
931 uint8_t g = rgba >> 16;
932 uint8_t b = rgba >> 8;
933 uint8_t a = rgba >> 0;
934
935 rgba = (rgba & 0xffffff00) | a;
936 }
937#endif
938#endif
939 rgba = SDL_SwapBE32 (rgba);
940 *p++ = rgba;
941 }
942 }
943
944 EXTEND (SP, 5);
945 PUSHs (sv_2mortal (newSViv (w)));
946 PUSHs (sv_2mortal (newSViv (h)));
947 PUSHs (sv_2mortal (retval));
948 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
949 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
950 }
951 else
952 {
47 FT_Bitmap bitmap; 953 FT_Bitmap bitmap;
48 PangoLayout *layout;
49 PangoFontDescription *font = pango_context_get_font_description (context);
50 pango_font_description_set_absolute_size (font, 40 * PANGO_SCALE);
51 954
52 layout = pango_layout_new (context);
53 pango_layout_set_markup (layout, text, textlen);
54 pango_layout_get_pixel_size (layout, &w, &h);
55
56 w = (w + 3) & ~3;
57 if (h == 0) h = 1;
58
59 retval = newSV (w * h); 955 retval = newSV (w * h);
60 SvPOK_only (retval); 956 SvPOK_only (retval);
61 SvCUR_set (retval, w * h); 957 SvCUR_set (retval, w * h);
62 958
63 bitmap.rows = h; 959 bitmap.rows = h;
64 bitmap.width = w; 960 bitmap.width = w;
65 bitmap.pitch = w; 961 bitmap.pitch = w;
66 bitmap.buffer = (unsigned char*)SvPVX (retval); 962 bitmap.buffer = (unsigned char*)SvPVX (retval);
67 bitmap.num_grays = 256; 963 bitmap.num_grays = 256;
68 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 964 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
69 965
70 memset (bitmap.buffer, 0, w * h); 966 memset (bitmap.buffer, 0, w * h);
967
968 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
969
970 EXTEND (SP, 5);
971 PUSHs (sv_2mortal (newSViv (w)));
972 PUSHs (sv_2mortal (newSViv (h)));
973 PUSHs (sv_2mortal (retval));
974 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
975 PUSHs (sv_2mortal (newSViv (GL_ALPHA)));
976 }
977}
978
979MODULE = CFClient PACKAGE = CFClient::Texture
980
981void
982draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
983 PROTOTYPE: $$$;$$
984 ALIAS:
985 draw_quad_alpha = 1
986 draw_quad_alpha_premultiplied = 2
987 CODE:
988{
989 HV *hv = (HV *)SvRV (self);
990 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
991 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
992 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
993 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
994
995 if (items < 5)
996 {
997 w = SvNV (*hv_fetch (hv, "w", 1, 1));
998 h = SvNV (*hv_fetch (hv, "h", 1, 1));
999 }
1000
1001 if (ix)
1002 {
1003 glEnable (GL_BLEND);
1004 glBlendFunc (ix == 1 ? GL_SRC_ALPHA : GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
1005 glEnable (GL_ALPHA_TEST);
1006 glAlphaFunc (GL_GREATER, 0.01f);
1007 }
1008
1009 glBindTexture (GL_TEXTURE_2D, name);
1010
1011 if (wrap_mode)
1012 {
1013 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
1014 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
1015 }
1016
1017 glBegin (GL_QUADS);
1018 glTexCoord2f (0, 0); glVertex2f (x , y );
1019 glTexCoord2f (0, t); glVertex2f (x , y + h);
1020 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
1021 glTexCoord2f (s, 0); glVertex2f (x + w, y );
1022 glEnd ();
1023
1024 if (ix)
1025 {
1026 glDisable (GL_ALPHA_TEST);
1027 glDisable (GL_BLEND);
1028 }
1029}
1030
1031MODULE = CFClient PACKAGE = CFClient::Map
1032
1033CFClient::Map
1034new (SV *class, int map_width, int map_height)
1035 CODE:
1036 New (0, RETVAL, 1, struct map);
1037 RETVAL->x = 0;
1038 RETVAL->y = 0;
1039 RETVAL->w = map_width;
1040 RETVAL->h = map_height;
1041 RETVAL->ox = 0;
1042 RETVAL->oy = 0;
1043 RETVAL->faces = 8192;
1044 Newz (0, RETVAL->face, RETVAL->faces, mapface);
1045 RETVAL->texs = 8192;
1046 Newz (0, RETVAL->tex, RETVAL->texs, maptex);
1047 RETVAL->rows = 0;
1048 RETVAL->row = 0;
1049 OUTPUT:
1050 RETVAL
1051
1052void
1053DESTROY (CFClient::Map self)
1054 CODE:
1055{
1056 map_clear (self);
1057 Safefree (self->face);
1058 Safefree (self);
1059}
1060
1061void
1062clear (CFClient::Map self)
1063 CODE:
1064 map_clear (self);
1065
1066void
1067set_face (CFClient::Map self, int face, int texid)
1068 CODE:
1069{
1070 while (self->faces <= face)
1071 {
1072 Append (mapface, self->face, self->faces, self->faces);
1073 self->faces *= 2;
1074 }
1075
1076 self->face [face] = texid;
1077}
1078
1079void
1080set_texture (CFClient::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1081 CODE:
1082{
1083 while (self->texs <= texid)
1084 {
1085 Append (maptex, self->tex, self->texs, self->texs);
1086 self->texs *= 2;
1087 }
1088
1089 {
1090 maptex *tex = self->tex + texid;
1091
1092 tex->name = name;
1093 tex->w = w;
1094 tex->h = h;
1095 tex->s = s;
1096 tex->t = t;
1097 tex->r = r;
1098 tex->g = g;
1099 tex->b = b;
1100 tex->a = a;
1101 }
1102
1103 // somewhat hackish, but for textures that require it, it really
1104 // improves the look, and most others don't suffer.
1105 glBindTexture (GL_TEXTURE_2D, name);
1106 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
1107 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
1108}
1109
1110int
1111ox (CFClient::Map self)
1112 ALIAS:
1113 oy = 1
1114 CODE:
1115 switch (ix)
1116 {
1117 case 0: RETVAL = self->ox; break;
1118 case 1: RETVAL = self->oy; break;
1119 }
1120 OUTPUT:
1121 RETVAL
1122
1123void
1124scroll (CFClient::Map self, int dx, int dy)
1125 CODE:
1126{
1127 if (dx > 0)
1128 map_blank (self, self->x, self->y, dx - 1, self->h);
1129 else if (dx < 0)
1130 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
1131
1132 if (dy > 0)
1133 map_blank (self, self->x, self->y, self->w, dy - 1);
1134 else if (dy < 0)
1135 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
1136
1137 self->ox += dx; self->x += dx;
1138 self->oy += dy; self->y += dy;
1139
1140 while (self->y < 0)
1141 {
1142 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
1143
1144 self->rows += MAP_EXTEND_Y;
1145 self->y += MAP_EXTEND_Y;
1146 }
1147}
1148
1149void
1150map1a_update (CFClient::Map self, SV *data_)
1151 CODE:
1152{
1153 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1154 uint8_t *data_end = (uint8_t *)SvEND (data_);
1155 mapcell *cell;
1156 int x, y, flags;
1157
1158 while (data < data_end)
1159 {
1160 flags = (data [0] << 8) + data [1]; data += 2;
71 1161
72 pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 1162 x = ((flags >> 10) & 63) + self->x;
73 g_object_unref (layout); 1163 y = ((flags >> 4) & 63) + self->y;
1164
1165 cell = map_get_cell (self, x, y);
1166
1167 if (flags & 15)
1168 {
1169 if (cell->darkness < 0)
1170 {
1171 cell->darkness = 0;
1172 cell->face [0] = 0;
1173 cell->face [1] = 0;
1174 cell->face [2] = 0;
1175 }
1176
1177 cell->darkness = flags & 8 ? *data++ : 255;
1178
1179 //TODO: don't trust server data to be in-range(!)
1180
1181 if (flags & 4)
1182 {
1183 cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2;
1184 }
1185
1186 if (flags & 2)
1187 {
1188 cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2;
1189 }
1190
1191 if (flags & 1)
1192 {
1193 cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
1194 }
1195 }
1196 else
1197 cell->darkness = -1;
1198 }
1199}
1200
1201SV *
1202mapmap (CFClient::Map self, int x0, int y0, int w, int h)
1203 CODE:
1204{
1205 int x1, x;
1206 int y1, y;
1207 int z;
1208 SV *map_sv = newSV (w * h * sizeof (uint32_t));
1209 uint32_t *map = (uint32_t *)SvPVX (map_sv);
1210
1211 SvPOK_only (map_sv);
1212 SvCUR_set (map_sv, w * h * sizeof (uint32_t));
1213
1214 x0 += self->x; x1 = x0 + w;
1215 y0 += self->y; y1 = y0 + h;
1216
1217 for (y = y0; y < y1; y++)
1218 {
1219 maprow *row = 0 <= y && y < self->rows
1220 ? self->row + y
1221 : 0;
1222
1223 for (x = x0; x < x1; x++)
1224 {
1225 int r = 32, g = 32, b = 32, a = 192;
1226
1227 if (row && row->c0 <= x && x < row->c1)
1228 {
1229 mapcell *cell = row->col + (x - row->c0);
1230
1231 for (z = 0; z <= 0; z++)
1232 {
1233 mapface face = cell->face [z];
1234
1235 if (face)
1236 {
1237 maptex tex = self->tex [face];
1238 int a0 = 255 - tex.a;
1239 int a1 = tex.a;
1240
1241 r = (r * a0 + tex.r * a1) / 255;
1242 g = (g * a0 + tex.g * a1) / 255;
1243 b = (b * a0 + tex.b * a1) / 255;
1244 a = (a * a0 + tex.a * a1) / 255;
1245 }
1246 }
1247 }
1248
1249 *map++ = (r )
1250 | (g << 8)
1251 | (b << 16)
1252 | (a << 24);
1253 }
1254 }
1255
1256 RETVAL = map_sv;
1257}
1258 OUTPUT:
1259 RETVAL
1260
1261void
1262draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1263 PPCODE:
1264{
1265 int vx, vy;
1266 int x, y, z;
1267 int last_name;
1268 mapface face;
1269 int sw4 = (sw + 3) & ~3;
1270 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1271 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1272
1273 memset (darkness, 255, sw4 * sh);
1274 SvPOK_only (darkness_sv);
1275 SvCUR_set (darkness_sv, sw4 * sh);
1276
1277 vx = self->x + (self->w - sw) / 2 - shift_x;
1278 vy = self->y + (self->h - sh) / 2 - shift_y;
1279
1280 /*
1281 int vx = self->vx = self->w >= sw
1282 ? self->x + (self->w - sw) / 2
1283 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
1284
1285 int vy = self->vy = self->h >= sh
1286 ? self->y + (self->h - sh) / 2
1287 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
1288 */
1289
1290 glColor4ub (255, 255, 255, 255);
1291
1292 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1293 glEnable (GL_BLEND);
1294 glEnable (GL_TEXTURE_2D);
1295 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1296
1297 glBegin (GL_QUADS);
1298
1299 last_name = 0;
1300
1301 for (z = 0; z < 3; z++)
1302 for (y = 0; y < sh; y++)
1303 if (0 <= y + vy && y + vy < self->rows)
1304 {
1305 maprow *row = self->row + (y + vy);
1306
1307 for (x = 0; x < sw; x++)
1308 if (row->c0 <= x + vx && x + vx < row->c1)
1309 {
1310 mapcell *cell = row->col + (x + vx - row->c0);
1311
1312 darkness[y * sw4 + x] = cell->darkness < 0
1313 ? 255 - FOW_DARKNESS
1314 : 255 - cell->darkness;
1315
1316 face = cell->face [z];
1317
1318 if (face)
1319 {
1320 maptex tex = self->tex [face];
1321
1322 int px = (x + 1) * 32 - tex.w;
1323 int py = (y + 1) * 32 - tex.h;
1324
1325 if (last_name != tex.name)
1326 {
1327 glEnd ();
1328 last_name = tex.name;
1329 glBindTexture (GL_TEXTURE_2D, last_name);
1330 glBegin (GL_QUADS);
1331 }
1332
1333 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1334 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
1335 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
1336 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
1337 }
1338 }
1339 }
1340
1341 glEnd ();
1342
1343 glDisable (GL_TEXTURE_2D);
1344 glDisable (GL_BLEND);
74 1345
75 EXTEND (SP, 3); 1346 EXTEND (SP, 3);
76 PUSHs (sv_2mortal (newSViv (w))); 1347 PUSHs (sv_2mortal (newSViv (sw4)));
77 PUSHs (sv_2mortal (newSViv (h))); 1348 PUSHs (sv_2mortal (newSViv (sh)));
78 PUSHs (sv_2mortal (retval)); 1349 PUSHs (darkness_sv);
79} 1350}
1351
1352SV *
1353get_rect (CFClient::Map self, int x0, int y0, int w, int h)
1354 CODE:
1355{
1356 int x, y, x1, y1;
1357 SV *data_sv = newSV (w * h * 7 + 5);
1358 uint8_t *data = (uint8_t *)SvPVX (data_sv);
1359
1360 *data++ = 0; /* version 0 format */
1361 *data++ = w >> 8; *data++ = w;
1362 *data++ = h >> 8; *data++ = h;
1363
1364 // we need to do this 'cause we don't keep an absolute coord system for rows
1365 // TODO: treat rows as we treat columns
1366 map_get_row (self, y0 + self->y - self->oy);//D
1367 map_get_row (self, y0 + self->y - self->oy + h - 1);//D
1368
1369 x0 += self->x - self->ox;
1370 y0 += self->y - self->oy;
1371
1372 x1 = x0 + w;
1373 y1 = y0 + h;
1374
1375 for (y = y0; y < y1; y++)
1376 {
1377 maprow *row = 0 <= y && y < self->rows
1378 ? self->row + y
1379 : 0;
1380
1381 for (x = x0; x < x1; x++)
1382 {
1383 if (row && row->c0 <= x && x < row->c1)
1384 {
1385 mapcell *cell = row->col + (x - row->c0);
1386 uint8_t flags = 0;
1387
1388 if (cell->face [0]) flags |= 1;
1389 if (cell->face [1]) flags |= 2;
1390 if (cell->face [2]) flags |= 4;
1391
1392 *data++ = flags;
1393
1394 if (flags & 1)
1395 {
1396 *data++ = cell->face [0] >> 8;
1397 *data++ = cell->face [0];
1398 }
1399
1400 if (flags & 2)
1401 {
1402 *data++ = cell->face [1] >> 8;
1403 *data++ = cell->face [1];
1404 }
1405
1406 if (flags & 4)
1407 {
1408 *data++ = cell->face [2] >> 8;
1409 *data++ = cell->face [2];
1410 }
1411 }
1412 else
1413 *data++ = 0;
1414 }
1415 }
1416
1417 SvPOK_only (data_sv);
1418 SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
1419 RETVAL = data_sv;
1420}
1421 OUTPUT:
1422 RETVAL
1423
1424void
1425set_rect (CFClient::Map self, int x0, int y0, uint8_t *data)
1426 PPCODE:
1427{
1428 int x, y, z;
1429 int w, h;
1430 int x1, y1;
1431
1432 if (*data++ != 0)
1433 return; /* version mismatch */
1434
1435 w = *data++ << 8; w |= *data++;
1436 h = *data++ << 8; h |= *data++;
1437
1438 // we need to do this 'cause we don't keep an absolute coord system for rows
1439 // TODO: treat rows as we treat columns
1440 map_get_row (self, y0 + self->y - self->oy);//D
1441 map_get_row (self, y0 + self->y - self->oy + h - 1);//D
1442
1443 x0 += self->x - self->ox;
1444 y0 += self->y - self->oy;
1445
1446 x1 = x0 + w;
1447 y1 = y0 + h;
1448
1449 for (y = y0; y < y1; y++)
1450 {
1451 maprow *row = map_get_row (self, y);
1452
1453 for (x = x0; x < x1; x++)
1454 {
1455 uint8_t flags = *data++;
1456
1457 if (flags)
1458 {
1459 mapface face[3] = { 0, 0, 0 };
1460
1461 mapcell *cell = row_get_cell (row, x);
1462
1463 if (flags & 1) { face[0] = *data++ << 8; face[0] |= *data++; }
1464 if (flags & 2) { face[1] = *data++ << 8; face[1] |= *data++; }
1465 if (flags & 4) { face[2] = *data++ << 8; face[2] |= *data++; }
1466
1467 if (cell->darkness <= 0)
1468 {
1469 cell->darkness = -1;
1470
1471 for (z = 0; z <= 2; z++)
1472 {
1473 cell->face[z] = face[z];
1474
1475 if (face[z] && (face[z] >= self->texs || !self->tex[face [z]].name))
1476 XPUSHs (sv_2mortal (newSViv (face[z])));
1477 }
1478 }
1479 }
1480 }
1481 }
1482}
1483
1484MODULE = CFClient PACKAGE = CFClient::MixChunk
1485
1486CFClient::MixChunk
1487new_from_file (SV *class, char *path)
1488 CODE:
1489 RETVAL = Mix_LoadWAV (path);
1490 OUTPUT:
1491 RETVAL
1492
1493void
1494DESTROY (CFClient::MixChunk self)
1495 CODE:
1496 Mix_FreeChunk (self);
1497
1498int
1499volume (CFClient::MixChunk self, int volume = -1)
1500 CODE:
1501 RETVAL = Mix_VolumeChunk (self, volume);
1502 OUTPUT:
1503 RETVAL
1504
1505int
1506play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
1507 CODE:
1508 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
1509 OUTPUT:
1510 RETVAL
1511
1512MODULE = CFClient PACKAGE = CFClient::MixMusic
1513
1514int
1515volume (int volume = -1)
1516 CODE:
1517 RETVAL = Mix_VolumeMusic (volume);
1518 OUTPUT:
1519 RETVAL
1520
1521CFClient::MixMusic
1522new_from_file (SV *class, char *path)
1523 CODE:
1524 RETVAL = Mix_LoadMUS (path);
1525 OUTPUT:
1526 RETVAL
1527
1528void
1529DESTROY (CFClient::MixMusic self)
1530 CODE:
1531 Mix_FreeMusic (self);
1532
1533int
1534play (CFClient::MixMusic self, int loops = -1)
1535 CODE:
1536 RETVAL = Mix_PlayMusic (self, loops);
1537 OUTPUT:
1538 RETVAL
1539
1540MODULE = CFClient PACKAGE = CFClient::OpenGL
1541
1542BOOT:
1543{
1544 HV *stash = gv_stashpv ("CFClient::OpenGL", 1);
1545 static const struct {
1546 const char *name;
1547 IV iv;
1548 } *civ, const_iv[] = {
1549# define const_iv(name) { # name, (IV)name }
1550 const_iv (GL_COLOR_MATERIAL),
1551 const_iv (GL_SMOOTH),
1552 const_iv (GL_FLAT),
1553 const_iv (GL_DITHER),
1554 const_iv (GL_BLEND),
1555 const_iv (GL_CULL_FACE),
1556 const_iv (GL_SCISSOR_TEST),
1557 const_iv (GL_DEPTH_TEST),
1558 const_iv (GL_ALPHA_TEST),
1559 const_iv (GL_NORMALIZE),
1560 const_iv (GL_RESCALE_NORMAL),
1561 const_iv (GL_AND),
1562 const_iv (GL_ONE),
1563 const_iv (GL_ZERO),
1564 const_iv (GL_SRC_ALPHA),
1565 const_iv (GL_SRC_ALPHA_SATURATE),
1566 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1567 const_iv (GL_ONE_MINUS_DST_ALPHA),
1568 const_iv (GL_RGB),
1569 const_iv (GL_RGBA),
1570 const_iv (GL_UNSIGNED_BYTE),
1571 const_iv (GL_UNSIGNED_SHORT),
1572 const_iv (GL_UNSIGNED_INT),
1573 const_iv (GL_ALPHA),
1574 const_iv (GL_INTENSITY),
1575 const_iv (GL_LUMINANCE),
1576 const_iv (GL_LUMINANCE_ALPHA),
1577 const_iv (GL_FLOAT),
1578 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
1579 const_iv (GL_COMPILE),
1580 const_iv (GL_TEXTURE_1D),
1581 const_iv (GL_TEXTURE_2D),
1582 const_iv (GL_TEXTURE_ENV),
1583 const_iv (GL_TEXTURE_MAG_FILTER),
1584 const_iv (GL_TEXTURE_MIN_FILTER),
1585 const_iv (GL_TEXTURE_ENV_MODE),
1586 const_iv (GL_TEXTURE_WRAP_S),
1587 const_iv (GL_TEXTURE_WRAP_T),
1588 const_iv (GL_CLAMP),
1589 const_iv (GL_REPEAT),
1590 const_iv (GL_NEAREST),
1591 const_iv (GL_LINEAR),
1592 const_iv (GL_NEAREST_MIPMAP_NEAREST),
1593 const_iv (GL_LINEAR_MIPMAP_NEAREST),
1594 const_iv (GL_NEAREST_MIPMAP_LINEAR),
1595 const_iv (GL_LINEAR_MIPMAP_LINEAR),
1596 const_iv (GL_GENERATE_MIPMAP),
1597 const_iv (GL_MODULATE),
1598 const_iv (GL_DECAL),
1599 const_iv (GL_REPLACE),
1600 const_iv (GL_DEPTH_BUFFER_BIT),
1601 const_iv (GL_COLOR_BUFFER_BIT),
1602 const_iv (GL_PROJECTION),
1603 const_iv (GL_MODELVIEW),
1604 const_iv (GL_COLOR_LOGIC_OP),
1605 const_iv (GL_SEPARABLE_2D),
1606 const_iv (GL_CONVOLUTION_2D),
1607 const_iv (GL_CONVOLUTION_BORDER_MODE),
1608 const_iv (GL_CONSTANT_BORDER),
1609 const_iv (GL_LINES),
1610 const_iv (GL_LINE_LOOP),
1611 const_iv (GL_QUADS),
1612 const_iv (GL_QUAD_STRIP),
1613 const_iv (GL_TRIANGLES),
1614 const_iv (GL_TRIANGLE_STRIP),
1615 const_iv (GL_TRIANGLE_FAN),
1616 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
1617 const_iv (GL_FASTEST),
1618 const_iv (GL_V2F),
1619 const_iv (GL_V3F),
1620 const_iv (GL_T2F_V3F),
1621 const_iv (GL_T2F_N3F_V3F),
1622# undef const_iv
1623 };
1624
1625 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1626 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
1627}
1628
1629int glGetError ()
1630
1631void glClear (int mask)
1632
1633void glClearColor (float r, float g, float b, float a = 1.0)
1634 PROTOTYPE: @
1635
1636void glEnable (int cap)
1637
1638void glDisable (int cap)
1639
1640void glShadeModel (int mode)
1641
1642void glHint (int target, int mode)
1643
1644void glBlendFunc (int sfactor, int dfactor)
1645
1646void glDepthMask (int flag)
1647
1648void glLogicOp (int opcode)
1649
1650void glColorMask (int red, int green, int blue, int alpha)
1651
1652void glMatrixMode (int mode)
1653
1654void glPushMatrix ()
1655
1656void glPopMatrix ()
1657
1658void glLoadIdentity ()
1659
1660# near_ and far_ are due to microsofts buggy "c" compiler
1661void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1662
1663# near_ and far_ are due to microsofts buggy "c" compiler
1664void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
1665
1666void glViewport (int x, int y, int width, int height)
1667
1668void glScissor (int x, int y, int width, int height)
1669
1670void glTranslate (float x, float y, float z = 0.)
1671 CODE:
1672 glTranslatef (x, y, z);
1673
1674void glScale (float x, float y, float z = 1.)
1675 CODE:
1676 glScalef (x, y, z);
1677
1678void glRotate (float angle, float x, float y, float z)
1679 CODE:
1680 glRotatef (angle, x, y, z);
1681
1682void glBegin (int mode)
1683
1684void glEnd ()
1685
1686void glColor (float r, float g, float b, float a = 1.0)
1687 PROTOTYPE: @
1688 CODE:
1689 // microsoft visual "c" rounds instead of truncating...
1690 glColor4ub (MIN ((int)(r * 255.f), 255),
1691 MIN ((int)(g * 255.f), 255),
1692 MIN ((int)(b * 255.f), 255),
1693 MIN ((int)(a * 255.f), 255));
1694
1695void glInterleavedArrays (int format, int stride, char *data)
1696
1697void glDrawElements (int mode, int count, int type, char *indices)
1698
1699# 1.2 void glDrawRangeElements (int mode, int start, int end
1700
1701void glRasterPos (float x, float y, float z = 0.)
1702 CODE:
1703 glRasterPos3f (0, 0, z);
1704 glBitmap (0, 0, 0, 0, x, y, 0);
1705
1706void glVertex (float x, float y, float z = 0.)
1707 CODE:
1708 glVertex3f (x, y, z);
1709
1710void glTexCoord (float s, float t)
1711 CODE:
1712 glTexCoord2f (s, t);
1713
1714void glTexEnv (int target, int pname, float param)
1715 CODE:
1716 glTexEnvf (target, pname, param);
1717
1718void glTexParameter (int target, int pname, float param)
1719 CODE:
1720 glTexParameterf (target, pname, param);
1721
1722void glBindTexture (int target, int name)
1723
1724void glConvolutionParameter (int target, int pname, float params)
1725 CODE:
1726 GL_CALL (PFNGLCONVOLUTIONPARAMETERFEXTPROC, glConvolutionParameterf, (target, pname, params));
1727
1728void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
1729 CODE:
1730 GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D,
1731 (target, internalformat, width, height, format, type, data));
1732
1733void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char *row, char *column)
1734 CODE:
1735 GL_CALL (PFNGLSEPARABLEFILTER2DEXTPROC, glSeparableFilter2D,
1736 (target, internalformat, width, height, format, type, row, column));
1737
1738void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
1739
1740void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
1741
1742void glDrawPixels (int width, int height, int format, int type, char *pixels)
1743
1744void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
1745
1746int glGenTexture ()
1747 CODE:
1748{
1749 GLuint name;
1750 glGenTextures (1, &name);
1751 RETVAL = name;
1752}
1753 OUTPUT:
1754 RETVAL
1755
1756void glDeleteTexture (int name)
1757 CODE:
1758{
1759 GLuint name_ = name;
1760 glDeleteTextures (1, &name_);
1761}
1762
1763int glGenList ()
1764 CODE:
1765 RETVAL = glGenLists (1);
1766 OUTPUT:
1767 RETVAL
1768
1769void glDeleteList (int list)
1770 CODE:
1771 glDeleteLists (list, 1);
1772
1773void glNewList (int list, int mode = GL_COMPILE)
1774
1775void glEndList ()
1776
1777void glCallList (int list)
1778
1779

Diff Legend

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