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.8 by root, Sun Apr 9 01:19:15 2006 UTC vs.
Revision 1.152 by root, Sat Aug 19 18:18:36 2006 UTC

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

Diff Legend

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