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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines