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.38 by root, Fri Apr 14 23:32:28 2006 UTC vs.
Revision 1.94 by root, Tue May 23 18:57:35 2006 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines