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.103 by root, Sun Jun 4 23:05:05 2006 UTC vs.
Revision 1.122 by root, Fri Jun 23 22:35:15 2006 UTC

… …
10#include "XSUB.h" 10#include "XSUB.h"
11 11
12#include <math.h> 12#include <math.h>
13#include <string.h> 13#include <string.h>
14#include <stdio.h> 14#include <stdio.h>
15#include <stdlib.h>
15 16
16#include <SDL.h> 17#include <SDL.h>
17#include <SDL_endian.h> 18#include <SDL_endian.h>
18#include <SDL_image.h> 19#include <SDL_image.h>
19#include <SDL_mixer.h> 20#include <SDL_mixer.h>
… …
41 typedef signed int int32_t; 42 typedef signed int int32_t;
42#endif 43#endif
43 44
44#include "glext.h" 45#include "glext.h"
45 46
47#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, objetc replacement character */
48
46#define FOW_DARKNESS 32 49#define FOW_DARKNESS 32
47 50
48#define MAP_EXTEND_X 32 51#define MAP_EXTEND_X 32
49#define MAP_EXTEND_Y 512 52#define MAP_EXTEND_Y 512
50 53
… …
69 72
70typedef Mix_Chunk *CFClient__MixChunk; 73typedef Mix_Chunk *CFClient__MixChunk;
71typedef Mix_Music *CFClient__MixMusic; 74typedef Mix_Music *CFClient__MixMusic;
72 75
73typedef PangoFontDescription *CFClient__Font; 76typedef PangoFontDescription *CFClient__Font;
77
78static int
79shape_attr_p (PangoLayoutRun *run)
80{
81 GSList *attrs = run->item->analysis.extra_attrs;
82
83 while (attrs)
84 {
85 PangoAttribute *attr = attrs->data;
86
87 if (attr->klass->type == PANGO_ATTR_SHAPE)
88 return 1;
89
90 attrs = attrs->next;
91 }
92
93 return 0;
94}
74 95
75typedef struct cf_layout { 96typedef struct cf_layout {
76 PangoLayout *pl; // either derived from a cairo or ft2 context 97 PangoLayout *pl; // either derived from a cairo or ft2 context
77 int rgba; // wether we use rgba (cairo) or grayscale (ft2) 98 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
78 float r, g, b, a; // default color for rgba mode 99 float r, g, b, a; // default color for rgba mode
… …
85static PangoFontMap *ft2_fontmap, *cairo_fontmap; 106static PangoFontMap *ft2_fontmap, *cairo_fontmap;
86 107
87static void 108static void
88substitute_func (FcPattern *pattern, gpointer data) 109substitute_func (FcPattern *pattern, gpointer data)
89{ 110{
90 FcPatternAddBool (pattern, FC_HINTING , 1); 111 FcPatternAddBool (pattern, FC_HINTING, 1);
112#ifdef FC_HINT_STYLE
113 FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);
114#endif
91#ifdef _WIN32 115#ifdef _WIN32
92 FcPatternAddBool (pattern, FC_AUTOHINT, 1); 116 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
93#else 117#else
94 FcPatternAddBool (pattern, FC_AUTOHINT, 0); 118 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
95#endif 119#endif
… …
296 ev.code = 1; 320 ev.code = 1;
297 ev.data1 = (void *)(long)channel; 321 ev.data1 = (void *)(long)channel;
298 ev.data2 = 0; 322 ev.data2 = 0;
299 323
300 SDL_PushEvent ((SDL_Event *)&ev); 324 SDL_PushEvent ((SDL_Event *)&ev);
325}
326
327static unsigned int
328minpot (unsigned int n)
329{
330 if (!n)
331 return 0;
332
333 --n;
334
335 n |= n >> 1;
336 n |= n >> 2;
337 n |= n >> 4;
338 n |= n >> 8;
339 n |= n >> 16;
340
341 return n + 1;
301} 342}
302 343
303MODULE = CFClient PACKAGE = CFClient 344MODULE = CFClient PACKAGE = CFClient
304 345
305PROTOTYPES: ENABLE 346PROTOTYPES: ENABLE
… …
415 456
416 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 457 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
417 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 458 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
418} 459}
419 460
461NV floor (NV x)
462
463NV ceil (NV x)
464
420void 465void
421pango_init () 466pango_init ()
422 CODE: 467 CODE:
423{
424 // delayed, so it can pick up new fonts added by AddFontResourceEx 468 // delayed, so it can pick up new fonts added by AddFontResourceEx
469{
470 {
425 ft2_fontmap = pango_ft2_font_map_new (); 471 ft2_fontmap = pango_ft2_font_map_new ();
426 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0); 472 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)ft2_fontmap, substitute_func, 0, 0);
427 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap); 473 ft2_context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)ft2_fontmap);
428 474 }
475 {
476 cairo_font_options_t *fopt = cairo_font_options_create ();
429 cairo_fontmap = pango_cairo_font_map_get_default (); 477 cairo_fontmap = pango_cairo_font_map_get_default ();
430 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap); 478 cairo_context = pango_cairo_font_map_create_context ((PangoCairoFontMap *)cairo_fontmap);
479#ifdef _WIN32
480 // cairo looks like shit eaten twice on windows
481 cairo_font_options_set_antialias (fopt, CAIRO_ANTIALIAS_NONE);
482#else
483 cairo_font_options_set_antialias (fopt, CAIRO_ANTIALIAS_GRAY);
484#endif
485 cairo_font_options_set_hint_style (fopt, CAIRO_HINT_STYLE_FULL);
486 cairo_font_options_set_hint_metrics (fopt, CAIRO_HINT_METRICS_ON);
487 pango_cairo_context_set_font_options (cairo_context, fopt);
488 cairo_font_options_destroy (fopt);
489 }
431} 490}
432 491
433int 492int
434SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO) 493SDL_Init (U32 flags = SDL_INIT_VIDEO | SDL_INIT_AUDIO)
435 494
… …
446 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 505 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
447 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 506 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
448 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 507 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
449 508
450 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 509 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
451 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16); 510 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
452 511
453 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 512 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
454 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 513 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
455 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 514 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
456 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 515 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
… …
686 CODE: 745 CODE:
687 fprintf (stderr, "FATAL: %s\n", message); 746 fprintf (stderr, "FATAL: %s\n", message);
688#ifdef _WIN32 747#ifdef _WIN32
689 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 748 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
690#endif 749#endif
691 exit (1); 750 _exit (1);
751
752void
753_exit (int retval)
754 CODE:
755 _exit (retval);
692 756
693MODULE = CFClient PACKAGE = CFClient::Font 757MODULE = CFClient PACKAGE = CFClient::Font
694 758
695CFClient::Font 759CFClient::Font
696new_from_file (SV *class, char *path, int id = 0) 760new_from_file (SV *class, char *path, int id = 0)
… …
717MODULE = CFClient PACKAGE = CFClient::Layout 781MODULE = CFClient PACKAGE = CFClient::Layout
718 782
719CFClient::Layout 783CFClient::Layout
720new (SV *class, int rgba = 0) 784new (SV *class, int rgba = 0)
721 CODE: 785 CODE:
722#if _WIN32
723 //rgba = 0;//D makes text nicer, breaks TextView
724#endif
725 New (0, RETVAL, 1, struct cf_layout); 786 New (0, RETVAL, 1, struct cf_layout);
726 787
727 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context); 788 RETVAL->pl = pango_layout_new (rgba ? cairo_context : ft2_context);
728 RETVAL->rgba = rgba; 789 RETVAL->rgba = rgba;
729 RETVAL->r = 1.; 790 RETVAL->r = 1.;
… …
769 char *text = SvPVutf8 (text_, textlen); 830 char *text = SvPVutf8 (text_, textlen);
770 831
771 pango_layout_set_markup (self->pl, text, textlen); 832 pango_layout_set_markup (self->pl, text, textlen);
772} 833}
773 834
835void
836set_shapes (CFClient::Layout self, ...)
837 CODE:
838{
839 PangoAttrList *attrs = 0;
840 const char *text = pango_layout_get_text (self->pl);
841 const char *pos = text;
842 int arg = 4;
843
844 while (arg < items && (pos = strstr (pos, OBJ_STR)))
845 {
846 PangoRectangle inkrect, rect;
847 PangoAttribute *attr;
848
849 int x = SvIV (ST (arg - 3));
850 int y = SvIV (ST (arg - 2));
851 int w = SvIV (ST (arg - 1));
852 int h = SvIV (ST (arg ));
853
854 inkrect.x = 0;
855 inkrect.y = 0;
856 inkrect.width = 0;
857 inkrect.height = 0;
858
859 rect.x = x * PANGO_SCALE;
860 rect.y = y * PANGO_SCALE;
861 rect.width = w * PANGO_SCALE;
862 rect.height = h * PANGO_SCALE;
863
864 if (!attrs)
865 attrs = pango_layout_get_attributes (self->pl);
866
867 attr = pango_attr_shape_new (&inkrect, &rect);
868 attr->start_index = pos - text;
869 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1;
870 pango_attr_list_insert (attrs, attr);
871
872 arg += 4;
873 pos += sizeof (OBJ_STR) - 1;
874 }
875
876 if (attrs)
877 pango_layout_set_attributes (self->pl, attrs);
878}
879
880void
881get_shapes (CFClient::Layout self)
882 PPCODE:
883{
884 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
885
886 do
887 {
888 PangoLayoutRun *run = pango_layout_iter_get_run (iter);
889
890 if (run && shape_attr_p (run))
891 {
892 PangoRectangle extents;
893 pango_layout_iter_get_run_extents (iter, 0, &extents);
894
895 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
896 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
897 }
898 }
899 while (pango_layout_iter_next_run (iter));
900
901 pango_layout_iter_free (iter);
902}
903
904int
905has_wrapped (CFClient::Layout self)
906 CODE:
907{
908 int lines = 1;
909 const char *text = pango_layout_get_text (self->pl);
910
911 while (*text)
912 lines += *text++ == '\n';
913
914 RETVAL = lines < pango_layout_get_line_count (self->pl);
915}
916 OUTPUT:
917 RETVAL
918
774SV * 919SV *
775get_text (CFClient::Layout self) 920get_text (CFClient::Layout self)
776 CODE: 921 CODE:
777 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 922 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
778 SvUTF8_on (RETVAL); 923 sv_utf8_decode (RETVAL);
779 OUTPUT: 924 OUTPUT:
780 RETVAL 925 RETVAL
781 926
782void 927void
783set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.) 928set_foreground (CFClient::Layout self, float r, float g, float b, float a = 1.)
… …
845 990
846 EXTEND (SP, 2); 991 EXTEND (SP, 2);
847 PUSHs (sv_2mortal (newSViv (w))); 992 PUSHs (sv_2mortal (newSViv (w)));
848 PUSHs (sv_2mortal (newSViv (h))); 993 PUSHs (sv_2mortal (newSViv (h)));
849} 994}
995
996int
997descent (CFClient::Layout self)
998 CODE:
999{
1000 PangoRectangle rect;
1001 PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1002 pango_layout_line_get_pixel_extents (line, 0, &rect);
1003 RETVAL = PANGO_DESCENT (rect);
1004}
1005 OUTPUT:
1006 RETVAL
850 1007
851int 1008int
852xy_to_index (CFClient::Layout self, int x, int y) 1009xy_to_index (CFClient::Layout self, int x, int y)
853 CODE: 1010 CODE:
854{ 1011{
… …
964} 1121}
965 1122
966MODULE = CFClient PACKAGE = CFClient::Texture 1123MODULE = CFClient PACKAGE = CFClient::Texture
967 1124
968void 1125void
1126pad2pot (SV *data_, SV *w_, SV *h_)
1127 CODE:
1128{
1129 int ow = SvIV (w_);
1130 int oh = SvIV (h_);
1131
1132 if (ow && oh)
1133 {
1134 int nw = minpot (ow);
1135 int nh = minpot (oh);
1136
1137 if (nw != ow || nh != oh)
1138 {
1139 if (SvOK (data_))
1140 {
1141 STRLEN datalen;
1142 char *data = SvPVbyte (data_, datalen);
1143 int bpp = datalen / (ow * oh);
1144 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1145
1146 SvPOK_only (result_);
1147 SvCUR_set (result_, nw * nh * bpp);
1148
1149 memset (SvPVX (result_), 0, nw * nh * bpp);
1150 while (oh--)
1151 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1152
1153 sv_setsv (data_, result_);
1154 }
1155
1156 sv_setiv (w_, nw);
1157 sv_setiv (h_, nh);
1158 }
1159 }
1160}
1161
1162void
969draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 1163draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
970 PROTOTYPE: $$$;$$ 1164 PROTOTYPE: $$$;$$
971 ALIAS: 1165 ALIAS:
972 draw_quad_alpha = 1 1166 draw_quad_alpha = 1
973 draw_quad_alpha_premultiplied = 2 1167 draw_quad_alpha_premultiplied = 2
974 CODE: 1168 CODE:
… …
990 1184
991 if (ix == 2) 1185 if (ix == 2)
992 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 1186 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
993 else 1187 else
994 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA, 1188 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
995 GL_ONE_MINUS_DST_ALPHA, GL_ONE); 1189 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
996 1190
997 glEnable (GL_ALPHA_TEST); 1191 glEnable (GL_ALPHA_TEST);
998 glAlphaFunc (GL_GREATER, 0.01f); 1192 glAlphaFunc (GL_GREATER, 0.01f);
999 } 1193 }
1000 1194
… …
1039DESTROY (CFClient::Map self) 1233DESTROY (CFClient::Map self)
1040 CODE: 1234 CODE:
1041{ 1235{
1042 map_clear (self); 1236 map_clear (self);
1043 Safefree (self->face); 1237 Safefree (self->face);
1238 Safefree (self->tex);
1044 Safefree (self); 1239 Safefree (self);
1045} 1240}
1046 1241
1047void 1242void
1048clear (CFClient::Map self) 1243clear (CFClient::Map self)
… …
1154 1349
1155 while (data < data_end) 1350 while (data < data_end)
1156 { 1351 {
1157 flags = (data [0] << 8) + data [1]; data += 2; 1352 flags = (data [0] << 8) + data [1]; data += 2;
1158 1353
1159 x = ((flags >> 10) & 63) + self->x; 1354 x = self->x + ((flags >> 10) & 63);
1160 y = ((flags >> 4) & 63) + self->y; 1355 y = self->y + ((flags >> 4) & 63);
1161 1356
1162 cell = map_get_cell (self, x, y); 1357 cell = map_get_cell (self, x, y);
1163 1358
1164 if (flags & 15) 1359 if (flags & 15)
1165 { 1360 {
… …
1255 OUTPUT: 1450 OUTPUT:
1256 RETVAL 1451 RETVAL
1257 1452
1258void 1453void
1259draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1454draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1260 PPCODE: 1455 CODE:
1261{ 1456{
1262 int vx, vy; 1457 int vx, vy;
1263 int x, y, z; 1458 int x, y, z;
1264 int last_name; 1459 int last_name;
1265 mapface face; 1460 mapface face;
1266 int sw4 = (sw + 3) & ~3;
1267 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1268 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1269 1461
1270 memset (darkness, 255, sw4 * sh);
1271 SvPOK_only (darkness_sv);
1272 SvCUR_set (darkness_sv, sw4 * sh);
1273
1274 vx = self->x + (self->w - sw) / 2 - shift_x; 1462 vx = self->x + self->w / 2 - sw / 2 - shift_x;
1275 vy = self->y + (self->h - sh) / 2 - shift_y; 1463 vy = self->y + self->h / 2 - sh / 2 - shift_y;
1276 1464
1277 /* 1465 /*
1278 int vx = self->vx = self->w >= sw 1466 int vx = self->vx = self->w >= sw
1279 ? self->x + (self->w - sw) / 2 1467 ? self->x + (self->w - sw) / 2
1280 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx)); 1468 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
… …
1284 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy)); 1472 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
1285 */ 1473 */
1286 1474
1287 glColor4ub (255, 255, 255, 255); 1475 glColor4ub (255, 255, 255, 255);
1288 1476
1477 glEnable (GL_BLEND);
1289 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1478 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1290 glEnable (GL_BLEND);
1291 glEnable (GL_TEXTURE_2D); 1479 glEnable (GL_TEXTURE_2D);
1292 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1480 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1293 1481
1294 glBegin (GL_QUADS); 1482 glBegin (GL_QUADS);
1295 1483
… …
1303 1491
1304 for (x = 0; x < sw; x++) 1492 for (x = 0; x < sw; x++)
1305 if (row->c0 <= x + vx && x + vx < row->c1) 1493 if (row->c0 <= x + vx && x + vx < row->c1)
1306 { 1494 {
1307 mapcell *cell = row->col + (x + vx - row->c0); 1495 mapcell *cell = row->col + (x + vx - row->c0);
1308
1309 darkness[y * sw4 + x] = cell->darkness < 0
1310 ? 255 - FOW_DARKNESS
1311 : 255 - cell->darkness;
1312 1496
1313 face = cell->face [z]; 1497 face = cell->face [z];
1314 1498
1315 if (face) 1499 if (face)
1316 { 1500 {
… …
1337 1521
1338 glEnd (); 1522 glEnd ();
1339 1523
1340 glDisable (GL_TEXTURE_2D); 1524 glDisable (GL_TEXTURE_2D);
1341 glDisable (GL_BLEND); 1525 glDisable (GL_BLEND);
1526}
1527
1528void
1529draw_magicmap (CFClient::Map self, int dx, int dy, int w, int h, unsigned char *data)
1530 CODE:
1531{
1532 static float color[16][3] = {
1533 { 0.00, 0.00, 0.00 },
1534 { 1.00, 1.00, 1.00 },
1535 { 0.00, 0.00, 0.55 },
1536 { 1.00, 0.00, 0.00 },
1537
1538 { 1.00, 0.54, 0.00 },
1539 { 0.11, 0.56, 1.00 },
1540 { 0.93, 0.46, 0.00 },
1541 { 0.18, 0.54, 0.34 },
1542
1543 { 0.56, 0.73, 0.56 },
1544 { 0.80, 0.80, 0.80 },
1545 { 0.55, 0.41, 0.13 },
1546 { 0.99, 0.77, 0.26 },
1547
1548 { 0.74, 0.65, 0.41 },
1549
1550 { 0.00, 1.00, 1.00 },
1551 { 1.00, 0.00, 1.00 },
1552 { 1.00, 1.00, 0.00 },
1553 };
1554
1555 int x, y;
1556
1557 glEnable (GL_TEXTURE_2D);
1558 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1559 glEnable (GL_BLEND);
1560 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1561 glBegin (GL_QUADS);
1562
1563 for (y = 0; y < h; y++)
1564 for (x = 0; x < w; x++)
1565 {
1566 unsigned char m = data [x + y * w];
1567
1568 if (m)
1569 {
1570 float *c = color [m & 15];
1571
1572 float tx1 = m & 0x40 ? 0.5 : 0.;
1573 float tx2 = tx1 + 0.5;
1574
1575 glColor4f (c[0], c[1], c[2], 0.75);
1576 glTexCoord2f (tx1, 0.); glVertex2i (x , y );
1577 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
1578 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
1579 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
1580 }
1581 }
1582
1583 glEnd ();
1584 glDisable (GL_BLEND);
1585 glDisable (GL_TEXTURE_2D);
1586}
1587
1588void
1589fow_texture (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1590 PPCODE:
1591{
1592 int vx, vy;
1593 int x, y;
1594 int sw4 = (sw + 3) & ~3;
1595 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1596 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1597
1598 memset (darkness, 255, sw4 * sh);
1599 SvPOK_only (darkness_sv);
1600 SvCUR_set (darkness_sv, sw4 * sh);
1601
1602 vx = self->x + (self->w - sw + 1) / 2 - shift_x;
1603 vy = self->y + (self->h - sh + 1) / 2 - shift_y;
1604
1605 for (y = 0; y < sh; y++)
1606 if (0 <= y + vy && y + vy < self->rows)
1607 {
1608 maprow *row = self->row + (y + vy);
1609
1610 for (x = 0; x < sw; x++)
1611 if (row->c0 <= x + vx && x + vx < row->c1)
1612 {
1613 mapcell *cell = row->col + (x + vx - row->c0);
1614
1615 darkness[y * sw4 + x] = cell->darkness < 0
1616 ? 255 - FOW_DARKNESS
1617 : 255 - cell->darkness;
1618 }
1619 }
1342 1620
1343 EXTEND (SP, 3); 1621 EXTEND (SP, 3);
1344 PUSHs (sv_2mortal (newSViv (sw4))); 1622 PUSHs (sv_2mortal (newSViv (sw4)));
1345 PUSHs (sv_2mortal (newSViv (sh))); 1623 PUSHs (sv_2mortal (newSViv (sh)));
1346 PUSHs (darkness_sv); 1624 PUSHs (darkness_sv);
… …
1553 const_iv (GL_SCISSOR_TEST), 1831 const_iv (GL_SCISSOR_TEST),
1554 const_iv (GL_DEPTH_TEST), 1832 const_iv (GL_DEPTH_TEST),
1555 const_iv (GL_ALPHA_TEST), 1833 const_iv (GL_ALPHA_TEST),
1556 const_iv (GL_NORMALIZE), 1834 const_iv (GL_NORMALIZE),
1557 const_iv (GL_RESCALE_NORMAL), 1835 const_iv (GL_RESCALE_NORMAL),
1836 const_iv (GL_FRONT),
1837 const_iv (GL_BACK),
1558 const_iv (GL_AND), 1838 const_iv (GL_AND),
1559 const_iv (GL_ONE), 1839 const_iv (GL_ONE),
1560 const_iv (GL_ZERO), 1840 const_iv (GL_ZERO),
1561 const_iv (GL_SRC_ALPHA), 1841 const_iv (GL_SRC_ALPHA),
1562 const_iv (GL_SRC_ALPHA_SATURATE), 1842 const_iv (GL_DST_ALPHA),
1563 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1843 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1564 const_iv (GL_ONE_MINUS_DST_ALPHA), 1844 const_iv (GL_ONE_MINUS_DST_ALPHA),
1845 const_iv (GL_SRC_ALPHA_SATURATE),
1565 const_iv (GL_RGB), 1846 const_iv (GL_RGB),
1566 const_iv (GL_RGBA), 1847 const_iv (GL_RGBA),
1848 const_iv (GL_RGBA4),
1849 const_iv (GL_RGBA8),
1850 const_iv (GL_RGB5_A1),
1567 const_iv (GL_UNSIGNED_BYTE), 1851 const_iv (GL_UNSIGNED_BYTE),
1568 const_iv (GL_UNSIGNED_SHORT), 1852 const_iv (GL_UNSIGNED_SHORT),
1569 const_iv (GL_UNSIGNED_INT), 1853 const_iv (GL_UNSIGNED_INT),
1570 const_iv (GL_ALPHA), 1854 const_iv (GL_ALPHA),
1571 const_iv (GL_INTENSITY), 1855 const_iv (GL_INTENSITY),
… …
1645 OUTPUT: 1929 OUTPUT:
1646 RETVAL 1930 RETVAL
1647 1931
1648int glGetError () 1932int glGetError ()
1649 1933
1934void glFinish ()
1935
1650void glClear (int mask) 1936void glClear (int mask)
1651 1937
1652void glClearColor (float r, float g, float b, float a = 1.0) 1938void glClearColor (float r, float g, float b, float a = 1.0)
1653 PROTOTYPE: @ 1939 PROTOTYPE: @
1654 1940
… …
1677void glPushMatrix () 1963void glPushMatrix ()
1678 1964
1679void glPopMatrix () 1965void glPopMatrix ()
1680 1966
1681void glLoadIdentity () 1967void glLoadIdentity ()
1968
1969void glDrawBuffer (int buffer)
1970
1971void glReadBuffer (int buffer)
1682 1972
1683# near_ and far_ are due to microsofts buggy "c" compiler 1973# near_ and far_ are due to microsofts buggy "c" compiler
1684void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 1974void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1685 1975
1686# near_ and far_ are due to microsofts buggy "c" compiler 1976# near_ and far_ are due to microsofts buggy "c" compiler

Diff Legend

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