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.52 by root, Wed Apr 19 21:17:15 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
528
529 SDL_EnableUNICODE (1);
530 SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
390 531
391 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL); 532 m = SDL_ListModes (0, SDL_FULLSCREEN | SDL_OPENGL);
392 533
393 if (m && m != (SDL_Rect **)-1) 534 if (m && m != (SDL_Rect **)-1)
394 while (*m) 535 while (*m)
400 541
401 ++m; 542 ++m;
402 } 543 }
403} 544}
404 545
546char *
547SDL_GetError ()
548
405int 549int
406SDL_SetVideoMode (int w, int h, int fullscreen) 550SDL_SetVideoMode (int w, int h, int fullscreen)
407 CODE: 551 CODE:
408 RETVAL = !!SDL_SetVideoMode ( 552 RETVAL = !!SDL_SetVideoMode (
409 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0) 553 w, h, 0, SDL_OPENGL | (fullscreen ? SDL_FULLSCREEN : 0)
410 ); 554 );
555 if (RETVAL)
556 {
411 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 }
412 OUTPUT: 562 OUTPUT:
413 RETVAL 563 RETVAL
564
565void
566SDL_GL_SwapBuffers ()
567
568char *
569SDL_GetKeyName (int sym)
570
571void
572SDL_PollEvent ()
573 PPCODE:
574{
575 SDL_Event ev;
576
577 while (SDL_PollEvent (&ev))
578 {
579 HV *hv = newHV ();
580 hv_store (hv, "type", 4, newSViv (ev.type), 0);
581
582 switch (ev.type)
583 {
584 case SDL_KEYDOWN:
585 case SDL_KEYUP:
586 hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
587 hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
588 hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
589 hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
590 break;
591
592 case SDL_ACTIVEEVENT:
593 hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
594 hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
595 break;
596
597 case SDL_MOUSEMOTION:
598 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
599
600 hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
601 hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
602 hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
603 hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
604 hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
605 break;
606
607 case SDL_MOUSEBUTTONDOWN:
608 case SDL_MOUSEBUTTONUP:
609 hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);
610
611 hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
612 hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
613 hv_store (hv, "x", 1, newSViv (ev.button.x), 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;
622 }
623
624 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
625 }
626}
414 627
415int 628int
416Mix_VolumeMusic (int newvol = -1)
417
418int
419Mix_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);
420 633
421void 634void
422Mix_CloseAudio () 635Mix_CloseAudio ()
423 636
424int 637int
429 CODE: 642 CODE:
430#ifndef _WIN32 643#ifndef _WIN32
431 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val)); 644 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
432#endif 645#endif
433 646
434char *
435gl_version ()
436 CODE:
437 RETVAL = (char *)glGetString (GL_VERSION);
438 OUTPUT:
439 RETVAL
440
441char *
442gl_extensions ()
443 CODE:
444 RETVAL = (char *)glGetString (GL_EXTENSIONS);
445 OUTPUT:
446 RETVAL
447
448void 647void
449add_font (char *file) 648add_font (char *file)
450 CODE: 649 CODE:
451 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */ 650 FcConfigAppFontAddFile (0, (const FcChar8 *)file);
452
453void
454set_font (char *file)
455 CODE:
456{
457 int count;
458 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
459 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
460 FcPatternDestroy (pattern);
461 pango_context_set_font_description (context, font);
462}
463 651
464void 652void
465load_image_inline (SV *image_) 653load_image_inline (SV *image_)
466 ALIAS: 654 ALIAS:
467 load_image_file = 1 655 load_image_file = 1
509 697
510 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE); 698 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
511 699
512 assert (surface2->pitch == surface2->w * 4); 700 assert (surface2->pitch == surface2->w * 4);
513 701
702 SDL_LockSurface (surface2);
514 EXTEND (SP, 5); 703 EXTEND (SP, 6);
515 PUSHs (sv_2mortal (newSViv (surface2->w))); 704 PUSHs (sv_2mortal (newSViv (surface2->w)));
516 PUSHs (sv_2mortal (newSViv (surface2->h))); 705 PUSHs (sv_2mortal (newSViv (surface2->h)));
517 SDL_LockSurface (surface2);
518 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch))); 706 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
519 SDL_UnlockSurface (surface2);
520 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)));
521 PUSHs (sv_2mortal (newSViv (GL_RGBA))); 708 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
522 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE))); 709 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
710 SDL_UnlockSurface (surface2);
523 711
524 SDL_FreeSurface (surface); 712 SDL_FreeSurface (surface);
525 SDL_FreeSurface (surface2); 713 SDL_FreeSurface (surface2);
526} 714}
527 715
549 PUSHs (sv_2mortal (newSViv (b / y))); 737 PUSHs (sv_2mortal (newSViv (b / y)));
550 PUSHs (sv_2mortal (newSViv (a / y))); 738 PUSHs (sv_2mortal (newSViv (a / y)));
551} 739}
552 740
553void 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
554fatal (char *message) 750fatal (char *message)
555 CODE: 751 CODE:
752 fprintf (stderr, "FATAL: %s\n", message);
556#ifdef _WIN32 753#ifdef _WIN32
557 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND); 754 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
558#else
559 fprintf (stderr, "FATAL: %s\n", message);
560#endif 755#endif
561 exit (1); 756 _exit (1);
562 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
563MODULE = CFClient PACKAGE = CFClient::Layout 787MODULE = CFPlus PACKAGE = CFPlus::Layout
564 788
565CFClient::Layout 789void
566new (SV *class, int base_height = 10) 790reset_glyph_cache ()
791 CODE:
792 tc_clear ();
793
794CFPlus::Layout
795new (SV *class)
567 CODE: 796 CODE:
568 New (0, RETVAL, 1, struct cf_layout); 797 New (0, RETVAL, 1, struct cf_layout);
569 RETVAL->base_height = base_height; 798
570 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
571 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);
572 OUTPUT: 809 OUTPUT:
573 RETVAL 810 RETVAL
574 811
575void 812void
576DESTROY (CFClient::Layout self) 813DESTROY (CFPlus::Layout self)
577 CODE: 814 CODE:
578 g_object_unref (self->pl); 815 g_object_unref (self->pl);
579 Safefree (self); 816 Safefree (self);
580 817
581void 818void
582set_text (CFClient::Layout self, SV *text_) 819set_text (CFPlus::Layout self, SV *text_)
583 CODE: 820 CODE:
584{ 821{
585 STRLEN textlen; 822 STRLEN textlen;
586 char *text = SvPVutf8 (text_, textlen); 823 char *text = SvPVutf8 (text_, textlen);
587 824
588 pango_layout_set_text (self->pl, text, textlen); 825 pango_layout_set_text (self->pl, text, textlen);
589} 826}
590 827
591void 828void
592set_markup (CFClient::Layout self, SV *text_) 829set_markup (CFPlus::Layout self, SV *text_)
593 CODE: 830 CODE:
594{ 831{
595 STRLEN textlen; 832 STRLEN textlen;
596 char *text = SvPVutf8 (text_, textlen); 833 char *text = SvPVutf8 (text_, textlen);
597 834
598 pango_layout_set_markup (self->pl, text, textlen); 835 pango_layout_set_markup (self->pl, text, textlen);
599} 836}
600 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
601SV * 923SV *
602get_text (CFClient::Layout self) 924get_text (CFPlus::Layout self)
603 CODE: 925 CODE:
604 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 926 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
605 SvUTF8_on (RETVAL); 927 sv_utf8_decode (RETVAL);
606 OUTPUT: 928 OUTPUT:
607 RETVAL 929 RETVAL
608 930
609void 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
610set_height (CFClient::Layout self, int base_height) 949set_height (CFPlus::Layout self, int base_height)
611 CODE: 950 CODE:
951 if (self->base_height != base_height)
952 {
612 self->base_height = base_height; 953 self->base_height = base_height;
954 layout_update_font (self);
955 }
613 956
614void 957void
615set_width (CFClient::Layout self, int max_width = -1) 958set_width (CFPlus::Layout self, int max_width = -1)
616 CODE: 959 CODE:
617 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);
618 961
619void 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
620size (CFClient::Layout self) 988size (CFPlus::Layout self)
621 PPCODE: 989 PPCODE:
622{ 990{
623 int w, h; 991 int w, h;
624 992
625 layout_update (self);
626 layout_get_pixel_size (self, &w, &h); 993 layout_get_pixel_size (self, &w, &h);
627 994
628 EXTEND (SP, 2); 995 EXTEND (SP, 2);
629 PUSHs (sv_2mortal (newSViv (w))); 996 PUSHs (sv_2mortal (newSViv (w)));
630 PUSHs (sv_2mortal (newSViv (h))); 997 PUSHs (sv_2mortal (newSViv (h)));
631} 998}
632 999
633int 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
634xy_to_index (CFClient::Layout self, int x, int y) 1013xy_to_index (CFPlus::Layout self, int x, int y)
635 CODE: 1014 CODE:
636{ 1015{
637 int index, trailing; 1016 int index, trailing;
638
639 layout_update (self);
640 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);
641
642 RETVAL = index; 1018 RETVAL = index;
643} 1019}
644 OUTPUT: 1020 OUTPUT:
645 RETVAL 1021 RETVAL
646 1022
647void 1023void
648cursor_pos (CFClient::Layout self, int index) 1024cursor_pos (CFPlus::Layout self, int index)
649 PPCODE: 1025 PPCODE:
650{ 1026{
651 PangoRectangle strong_pos; 1027 PangoRectangle strong_pos;
652 layout_update (self);
653 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 1028 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
654 1029
655 EXTEND (SP, 3); 1030 EXTEND (SP, 3);
656 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE))); 1031 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
657 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 1032 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
658 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 1033 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
659} 1034}
660 1035
661void 1036void
662render (CFClient::Layout self) 1037render (CFPlus::Layout self, float x, float y, int flags = 0)
663 PPCODE: 1038 PPCODE:
664{ 1039 pango_opengl_render_layout_subpixel (
665 SV *retval; 1040 self->pl,
666 int w, h; 1041 x * PANGO_SCALE, y * PANGO_SCALE,
667 FT_Bitmap bitmap; 1042 self->r, self->g, self->b, self->a,
1043 flags
1044 );
668 1045
669 layout_update (self); 1046MODULE = CFPlus PACKAGE = CFPlus::Texture
670 layout_get_pixel_size (self, &w, &h);
671 1047
672 retval = newSV (w * h); 1048void
673 SvPOK_only (retval); 1049pad2pot (SV *data_, SV *w_, SV *h_)
674 SvCUR_set (retval, w * h); 1050 CODE:
1051{
1052 int ow = SvIV (w_);
1053 int oh = SvIV (h_);
675 1054
676 bitmap.rows = h; 1055 if (ow && oh)
677 bitmap.width = w; 1056 {
678 bitmap.pitch = w; 1057 int nw = minpot (ow);
679 bitmap.buffer = (unsigned char*)SvPVX (retval); 1058 int nh = minpot (oh);
680 bitmap.num_grays = 256;
681 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
682 1059
683 memset (bitmap.buffer, 0, w * h); 1060 if (nw != ow || nh != oh)
684 1061 {
685 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));
686 1068
687 EXTEND (SP, 3); 1069 SvPOK_only (result_);
688 PUSHs (sv_2mortal (newSViv (w))); 1070 SvCUR_set (result_, nw * nh * bpp);
689 PUSHs (sv_2mortal (newSViv (h)));
690 PUSHs (sv_2mortal (retval));
691}
692 1071
693MODULE = 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);
694 1075
1076 sv_setsv (data_, result_);
1077 }
1078
1079 sv_setiv (w_, nw);
1080 sv_setiv (h_, nh);
1081 }
1082 }
1083}
1084
695void 1085void
696draw_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.)
697 PROTOTYPE: $$$;$$ 1087 PROTOTYPE: $$$;$$
1088 ALIAS:
1089 draw_quad_alpha = 1
1090 draw_quad_alpha_premultiplied = 2
698 CODE: 1091 CODE:
699{ 1092{
700 HV *hv = (HV *)SvRV (self); 1093 HV *hv = (HV *)SvRV (self);
701 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1094 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
702 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1095 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
703 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1096 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
704 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
705 1097
706 if (items < 5) 1098 if (items < 5)
707 { 1099 {
708 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1100 w = SvNV (*hv_fetch (hv, "w", 1, 1));
709 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1101 h = SvNV (*hv_fetch (hv, "h", 1, 1));
710 } 1102 }
711 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
712 glBindTexture (GL_TEXTURE_2D, name); 1118 glBindTexture (GL_TEXTURE_2D, name);
713 if (wrap_mode) { 1119
714 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
715 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
716 }
717 glBegin (GL_QUADS); 1120 glBegin (GL_QUADS);
718 glTexCoord2f (0, 0); glVertex2f (x , y ); 1121 glTexCoord2f (0, 0); glVertex2f (x , y );
719 glTexCoord2f (0, t); glVertex2f (x , y + h); 1122 glTexCoord2f (0, t); glVertex2f (x , y + h);
720 glTexCoord2f (s, t); glVertex2f (x + w, y + h); 1123 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
721 glTexCoord2f (s, 0); glVertex2f (x + w, y ); 1124 glTexCoord2f (s, 0); glVertex2f (x + w, y );
722 glEnd (); 1125 glEnd ();
723}
724 1126
1127 if (ix)
1128 {
1129 glDisable (GL_ALPHA_TEST);
1130 glDisable (GL_BLEND);
1131 }
1132}
1133
725MODULE = CFClient PACKAGE = CFClient::Map 1134MODULE = CFPlus PACKAGE = CFPlus::Map
726 1135
727CFClient::Map 1136CFPlus::Map
728new (SV *class, int map_width, int map_height) 1137new (SV *class, int map_width, int map_height)
729 CODE: 1138 CODE:
730 New (0, RETVAL, 1, struct map); 1139 New (0, RETVAL, 1, struct map);
731 RETVAL->x = 0; 1140 RETVAL->x = 0;
732 RETVAL->y = 0; 1141 RETVAL->y = 0;
742 RETVAL->row = 0; 1151 RETVAL->row = 0;
743 OUTPUT: 1152 OUTPUT:
744 RETVAL 1153 RETVAL
745 1154
746void 1155void
747DESTROY (CFClient::Map self) 1156DESTROY (CFPlus::Map self)
748 CODE: 1157 CODE:
749{ 1158{
750 map_clear (self); 1159 map_clear (self);
751 Safefree (self->face); 1160 Safefree (self->face);
1161 Safefree (self->tex);
752 Safefree (self); 1162 Safefree (self);
753} 1163}
754 1164
755void 1165void
756clear (CFClient::Map self) 1166clear (CFPlus::Map self)
757 CODE: 1167 CODE:
758 map_clear (self); 1168 map_clear (self);
759 1169
760void 1170void
761set_face (CFClient::Map self, int face, int texid) 1171set_face (CFPlus::Map self, int face, int texid)
762 CODE: 1172 CODE:
763{ 1173{
764 while (self->faces <= face) 1174 while (self->faces <= face)
765 { 1175 {
766 Append (mapface, self->face, self->faces, self->faces); 1176 Append (mapface, self->face, self->faces, self->faces);
769 1179
770 self->face [face] = texid; 1180 self->face [face] = texid;
771} 1181}
772 1182
773void 1183void
774set_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)
775 CODE: 1185 CODE:
776{ 1186{
777 while (self->texs <= texid) 1187 while (self->texs <= texid)
778 { 1188 {
779 Append (maptex, self->tex, self->texs, self->texs); 1189 Append (maptex, self->tex, self->texs, self->texs);
791 tex->r = r; 1201 tex->r = r;
792 tex->g = g; 1202 tex->g = g;
793 tex->b = b; 1203 tex->b = b;
794 tex->a = a; 1204 tex->a = a;
795 } 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);
796} 1215}
797 1216
798int 1217int
799ox (CFClient::Map self) 1218ox (CFPlus::Map self)
800 ALIAS: 1219 ALIAS:
801 oy = 1 1220 oy = 1
1221 x = 2
1222 y = 3
1223 w = 4
1224 h = 5
802 CODE: 1225 CODE:
803 switch (ix) 1226 switch (ix)
804 { 1227 {
805 case 0: RETVAL = self->ox; break; 1228 case 0: RETVAL = self->ox; break;
806 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;
807 } 1234 }
808 OUTPUT: 1235 OUTPUT:
809 RETVAL 1236 RETVAL
810 1237
811void 1238void
812scroll (CFClient::Map self, int dx, int dy) 1239scroll (CFPlus::Map self, int dx, int dy)
813 CODE: 1240 CODE:
814{ 1241{
815 if (dx > 0) 1242 if (dx > 0)
816 map_blank (self, self->x, self->y, dx - 1, self->h); 1243 map_blank (self, self->x, self->y, dx - 1, self->h);
817 else if (dx < 0) 1244 else if (dx < 0)
833 self->y += MAP_EXTEND_Y; 1260 self->y += MAP_EXTEND_Y;
834 } 1261 }
835} 1262}
836 1263
837void 1264void
838map1a_update (CFClient::Map self, SV *data_) 1265map1a_update (CFPlus::Map self, SV *data_, int extmap)
839 CODE: 1266 CODE:
840{ 1267{
841 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1268 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
842 uint8_t *data_end = (uint8_t *)SvEND (data_); 1269 uint8_t *data_end = (uint8_t *)SvEND (data_);
843 mapcell *cell; 1270 mapcell *cell;
845 1272
846 while (data < data_end) 1273 while (data < data_end)
847 { 1274 {
848 flags = (data [0] << 8) + data [1]; data += 2; 1275 flags = (data [0] << 8) + data [1]; data += 2;
849 1276
850 x = ((flags >> 10) & 63) + self->x; 1277 x = self->x + ((flags >> 10) & 63);
851 y = ((flags >> 4) & 63) + self->y; 1278 y = self->y + ((flags >> 4) & 63);
852 1279
853 cell = map_get_cell (self, x, y); 1280 cell = map_get_cell (self, x, y);
854 1281
855 if (flags & 15) 1282 if (flags & 15)
856 { 1283 {
860 cell->face [0] = 0; 1287 cell->face [0] = 0;
861 cell->face [1] = 0; 1288 cell->face [1] = 0;
862 cell->face [2] = 0; 1289 cell->face [2] = 0;
863 } 1290 }
864 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
865 cell->darkness = flags & 8 ? *data++ : 255; 1313 cell->darkness = flags & 8 ? *data++ : 255;
1314 }
866 1315
867 //TODO: don't trust server data to be in-range(!) 1316 //TODO: don't trust server data to be in-range(!)
868 1317
869 if (flags & 4) 1318 if (flags & 4)
870 { 1319 {
885 cell->darkness = -1; 1334 cell->darkness = -1;
886 } 1335 }
887} 1336}
888 1337
889SV * 1338SV *
890mapmap (CFClient::Map self, int w, int h) 1339mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
891 CODE: 1340 CODE:
892{ 1341{
893 int x0, x1, x; 1342 int x1, x;
894 int y0, y1, y; 1343 int y1, y;
895 int z; 1344 int z;
896 SV *map_sv = newSV (w * h * sizeof (uint32_t)); 1345 SV *map_sv = newSV (w * h * sizeof (uint32_t));
897 uint32_t *map = (uint32_t *)SvPVX (map_sv); 1346 uint32_t *map = (uint32_t *)SvPVX (map_sv);
898 1347
899 SvPOK_only (map_sv); 1348 SvPOK_only (map_sv);
900 SvCUR_set (map_sv, w * h * sizeof (uint32_t)); 1349 SvCUR_set (map_sv, w * h * sizeof (uint32_t));
901 1350
902 x0 = self->x - w / 2; x1 = x0 + w; 1351 x0 += self->x; x1 = x0 + w;
903 y0 = self->y - h / 2; y1 = y0 + h; 1352 y0 += self->y; y1 = y0 + h;
904 1353
905 for (y = y0; y < y1; y++) 1354 for (y = y0; y < y1; y++)
906 { 1355 {
907 maprow *row = 0 <= y && y < self->rows 1356 maprow *row = 0 <= y && y < self->rows
908 ? self->row + y 1357 ? self->row + y
945} 1394}
946 OUTPUT: 1395 OUTPUT:
947 RETVAL 1396 RETVAL
948 1397
949void 1398void
950draw (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)
951 PPCODE: 1400 CODE:
952{ 1401{
953 int vx, vy; 1402 int vx, vy;
954 int x, y, z; 1403 int x, y, z;
955 int last_name; 1404 int last_name;
956 mapface face; 1405 mapface face;
957 int sw4 = (sw + 3) & ~3;
958 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
959 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
960 1406
961 memset (darkness, 255, sw4 * sh);
962 SvPOK_only (darkness_sv);
963 SvCUR_set (darkness_sv, sw4 * sh);
964
965 vx = self->x + (self->w - sw) / 2 - shift_x; 1407 vx = self->x + self->w / 2 - sw / 2 - shift_x;
966 vy = self->y + (self->h - sh) / 2 - shift_y; 1408 vy = self->y + self->h / 2 - sh / 2 - shift_y;
967 1409
968 /* 1410 /*
969 int vx = self->vx = self->w >= sw 1411 int vx = self->vx = self->w >= sw
970 ? self->x + (self->w - sw) / 2 1412 ? self->x + (self->w - sw) / 2
971 : 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));
975 : 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));
976 */ 1418 */
977 1419
978 glColor4ub (255, 255, 255, 255); 1420 glColor4ub (255, 255, 255, 255);
979 1421
1422 glEnable (GL_BLEND);
980 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1423 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
981 glEnable (GL_BLEND);
982 glEnable (GL_TEXTURE_2D); 1424 glEnable (GL_TEXTURE_2D);
983 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1425 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
984 1426
985 glBegin (GL_QUADS); 1427 glBegin (GL_QUADS);
986 1428
994 1436
995 for (x = 0; x < sw; x++) 1437 for (x = 0; x < sw; x++)
996 if (row->c0 <= x + vx && x + vx < row->c1) 1438 if (row->c0 <= x + vx && x + vx < row->c1)
997 { 1439 {
998 mapcell *cell = row->col + (x + vx - row->c0); 1440 mapcell *cell = row->col + (x + vx - row->c0);
999
1000 darkness[y * sw4 + x] = cell->darkness < 0
1001 ? 255 - FOW_DARKNESS
1002 : 255 - cell->darkness;
1003 1441
1004 face = cell->face [z]; 1442 face = cell->face [z];
1005 1443
1006 if (face) 1444 if (face)
1007 { 1445 {
1028 1466
1029 glEnd (); 1467 glEnd ();
1030 1468
1031 glDisable (GL_TEXTURE_2D); 1469 glDisable (GL_TEXTURE_2D);
1032 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 }
1033 1565
1034 EXTEND (SP, 3); 1566 EXTEND (SP, 3);
1035 PUSHs (sv_2mortal (newSViv (sw4))); 1567 PUSHs (sv_2mortal (newSViv (sw4)));
1036 PUSHs (sv_2mortal (newSViv (sh))); 1568 PUSHs (sv_2mortal (newSViv (sh)));
1037 PUSHs (darkness_sv); 1569 PUSHs (darkness_sv);
1038} 1570}
1039 1571
1040SV * 1572SV *
1041get_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)
1042 CODE: 1574 CODE:
1043{ 1575{
1044 int x, y, x1, y1; 1576 int x, y, x1, y1;
1045 SV *data_sv = newSV (w * h * 7 + 5); 1577 SV *data_sv = newSV (w * h * 7 + 5);
1046 uint8_t *data = (uint8_t *)SvPVX (data_sv); 1578 uint8_t *data = (uint8_t *)SvPVX (data_sv);
1048 *data++ = 0; /* version 0 format */ 1580 *data++ = 0; /* version 0 format */
1049 *data++ = w >> 8; *data++ = w; 1581 *data++ = w >> 8; *data++ = w;
1050 *data++ = h >> 8; *data++ = h; 1582 *data++ = h >> 8; *data++ = h;
1051 1583
1052 // 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
1053 // TODO: treat rows as we treat 1585 // TODO: treat rows as we treat columns
1054 map_get_row (self, y0 + self->y - self->oy);//D 1586 map_get_row (self, y0 + self->y - self->oy);//D
1055 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
1056 1588
1057 x0 += self->x - self->ox; 1589 x0 += self->x - self->ox;
1058 y0 += self->y - self->oy; 1590 y0 += self->y - self->oy;
1108} 1640}
1109 OUTPUT: 1641 OUTPUT:
1110 RETVAL 1642 RETVAL
1111 1643
1112void 1644void
1113set_rect (CFClient::Map self, int x0, int y0, uint8_t *data) 1645set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data)
1114 PPCODE: 1646 PPCODE:
1115{ 1647{
1116 int x, y, z; 1648 int x, y, z;
1117 int w, h; 1649 int w, h;
1118 int x1, y1; 1650 int x1, y1;
1122 1654
1123 w = *data++ << 8; w |= *data++; 1655 w = *data++ << 8; w |= *data++;
1124 h = *data++ << 8; h |= *data++; 1656 h = *data++ << 8; h |= *data++;
1125 1657
1126 // 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
1127 // TODO: treat rows as we treat 1659 // TODO: treat rows as we treat columns
1128 map_get_row (self, y0 + self->y - self->oy);//D 1660 map_get_row (self, y0 + self->y - self->oy);//D
1129 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
1130 1662
1131 x0 += self->x - self->ox; 1663 x0 += self->x - self->ox;
1132 y0 += self->y - self->oy; 1664 y0 += self->y - self->oy;
1167 } 1699 }
1168 } 1700 }
1169 } 1701 }
1170} 1702}
1171 1703
1172MODULE = CFClient PACKAGE = CFClient::MixChunk 1704MODULE = CFPlus PACKAGE = CFPlus::MixChunk
1173 1705
1174CFClient::MixChunk 1706CFPlus::MixChunk
1175new_from_file (SV *class, char *path) 1707new_from_file (SV *class, char *path)
1176 CODE: 1708 CODE:
1177 RETVAL = Mix_LoadWAV (path); 1709 RETVAL = Mix_LoadWAV (path);
1178 OUTPUT: 1710 OUTPUT:
1179 RETVAL 1711 RETVAL
1180 1712
1181void 1713void
1182DESTROY (CFClient::MixChunk self) 1714DESTROY (CFPlus::MixChunk self)
1183 CODE: 1715 CODE:
1184 Mix_FreeChunk (self); 1716 Mix_FreeChunk (self);
1185 1717
1186int 1718int
1187volume (CFClient::MixChunk self, int volume = -1) 1719volume (CFPlus::MixChunk self, int volume = -1)
1188 CODE: 1720 CODE:
1189 RETVAL = Mix_VolumeChunk (self, volume); 1721 RETVAL = Mix_VolumeChunk (self, volume);
1190 OUTPUT: 1722 OUTPUT:
1191 RETVAL 1723 RETVAL
1192 1724
1193int 1725int
1194play (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)
1195 CODE: 1727 CODE:
1196 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 1728 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
1197 OUTPUT: 1729 OUTPUT:
1198 RETVAL 1730 RETVAL
1199 1731
1200MODULE = CFClient PACKAGE = CFClient::MixMusic 1732MODULE = CFPlus PACKAGE = CFPlus::MixMusic
1201 1733
1202int 1734int
1203volume (int volume = -1) 1735volume (int volume = -1)
1204 CODE: 1736 CODE:
1205 RETVAL = Mix_VolumeMusic (volume); 1737 RETVAL = Mix_VolumeMusic (volume);
1206 OUTPUT: 1738 OUTPUT:
1207 RETVAL 1739 RETVAL
1208 1740
1209CFClient::MixMusic 1741CFPlus::MixMusic
1210new_from_file (SV *class, char *path) 1742new_from_file (SV *class, char *path)
1211 CODE: 1743 CODE:
1212 RETVAL = Mix_LoadMUS (path); 1744 RETVAL = Mix_LoadMUS (path);
1213 OUTPUT: 1745 OUTPUT:
1214 RETVAL 1746 RETVAL
1215 1747
1216void 1748void
1217DESTROY (CFClient::MixMusic self) 1749DESTROY (CFPlus::MixMusic self)
1218 CODE: 1750 CODE:
1219 Mix_FreeMusic (self); 1751 Mix_FreeMusic (self);
1220 1752
1221int 1753int
1222play (CFClient::MixMusic self, int loops = -1) 1754play (CFPlus::MixMusic self, int loops = -1)
1223 CODE: 1755 CODE:
1224 RETVAL = Mix_PlayMusic (self, loops); 1756 RETVAL = Mix_PlayMusic (self, loops);
1225 OUTPUT: 1757 OUTPUT:
1226 RETVAL 1758 RETVAL
1227 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