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

Diff Legend

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