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.53 by root, Wed Apr 19 21:38:04 2006 UTC vs.
Revision 1.141 by root, Fri Aug 18 01:01:00 2006 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines