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.111 by root, Mon Jun 12 13:26:14 2006 UTC vs.
Revision 1.121 by root, Fri Jun 23 20:28:19 2006 UTC

42 typedef signed int int32_t; 42 typedef signed int int32_t;
43#endif 43#endif
44 44
45#include "glext.h" 45#include "glext.h"
46 46
47#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, objetc replacement character */
48
47#define FOW_DARKNESS 32 49#define FOW_DARKNESS 32
48 50
49#define MAP_EXTEND_X 32 51#define MAP_EXTEND_X 32
50#define MAP_EXTEND_Y 512 52#define MAP_EXTEND_Y 512
51 53
70 72
71typedef Mix_Chunk *CFClient__MixChunk; 73typedef Mix_Chunk *CFClient__MixChunk;
72typedef Mix_Music *CFClient__MixMusic; 74typedef Mix_Music *CFClient__MixMusic;
73 75
74typedef 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}
75 95
76typedef struct cf_layout { 96typedef struct cf_layout {
77 PangoLayout *pl; // either derived from a cairo or ft2 context 97 PangoLayout *pl; // either derived from a cairo or ft2 context
78 int rgba; // wether we use rgba (cairo) or grayscale (ft2) 98 int rgba; // wether we use rgba (cairo) or grayscale (ft2)
79 float r, g, b, a; // default color for rgba mode 99 float r, g, b, a; // default color for rgba mode
300 ev.code = 1; 320 ev.code = 1;
301 ev.data1 = (void *)(long)channel; 321 ev.data1 = (void *)(long)channel;
302 ev.data2 = 0; 322 ev.data2 = 0;
303 323
304 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;
305} 342}
306 343
307MODULE = CFClient PACKAGE = CFClient 344MODULE = CFClient PACKAGE = CFClient
308 345
309PROTOTYPES: ENABLE 346PROTOTYPES: ENABLE
419 456
420 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; )
421 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 458 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
422} 459}
423 460
461NV floor (NV x)
462
463NV ceil (NV x)
464
424void 465void
425pango_init () 466pango_init ()
426 CODE: 467 CODE:
427 // delayed, so it can pick up new fonts added by AddFontResourceEx 468 // delayed, so it can pick up new fonts added by AddFontResourceEx
428{ 469{
464 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 505 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
465 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 506 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
466 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 507 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
467 508
468 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 509 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
469 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16); 510 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
470 511
471 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 512 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
472 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 513 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
473 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 514 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
474 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 515 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
704 CODE: 745 CODE:
705 fprintf (stderr, "FATAL: %s\n", message); 746 fprintf (stderr, "FATAL: %s\n", message);
706#ifdef _WIN32 747#ifdef _WIN32
707 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 748 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
708#endif 749#endif
709 _Exit (1); 750 _exit (1);
710 751
711void 752void
712_exit (int retval) 753_exit (int retval)
713 CODE: 754 CODE:
714 _Exit (retval); 755 _exit (retval);
715 756
716MODULE = CFClient PACKAGE = CFClient::Font 757MODULE = CFClient PACKAGE = CFClient::Font
717 758
718CFClient::Font 759CFClient::Font
719new_from_file (SV *class, char *path, int id = 0) 760new_from_file (SV *class, char *path, int id = 0)
788 STRLEN textlen; 829 STRLEN textlen;
789 char *text = SvPVutf8 (text_, textlen); 830 char *text = SvPVutf8 (text_, textlen);
790 831
791 pango_layout_set_markup (self->pl, text, textlen); 832 pango_layout_set_markup (self->pl, text, textlen);
792} 833}
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 = 2;
843
844 while (arg < items && (pos = strstr (pos, OBJ_STR)))
845 {
846 PangoRectangle rect;
847 PangoAttribute *attr;
848
849 int w = SvIV (ST (arg - 1));
850 int h = SvIV (ST (arg));
851
852 arg += 2;
853
854 rect.x = 0;
855 rect.y = -h * PANGO_SCALE;
856 rect.width = w * PANGO_SCALE;
857 rect.height = h * PANGO_SCALE;
858
859 if (!attrs)
860 attrs = pango_layout_get_attributes (self->pl);
861
862 attr = pango_attr_shape_new (&rect, &rect);
863 attr->start_index = pos - text;
864 attr->end_index = attr->start_index + sizeof (OBJ_STR) - 1;
865 pango_attr_list_insert (attrs, attr);
866
867 pos += sizeof (OBJ_STR) - 1;
868 }
869
870 if (attrs)
871 pango_layout_set_attributes (self->pl, attrs);
872}
873
874void
875get_shapes (CFClient::Layout self)
876 PPCODE:
877{
878 PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
879
880 do
881 {
882 PangoLayoutRun *run = pango_layout_iter_get_run (iter);
883
884 if (run && shape_attr_p (run))
885 {
886 PangoRectangle extents;
887 pango_layout_iter_get_run_extents (iter, 0, &extents);
888
889 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.x))));
890 PUSHs (sv_2mortal (newSViv (PANGO_PIXELS (extents.y))));
891 }
892 }
893 while (pango_layout_iter_next_run (iter));
894
895 pango_layout_iter_free (iter);
896}
897
898int
899has_wrapped (CFClient::Layout self)
900 CODE:
901{
902 int lines = 1;
903 const char *text = pango_layout_get_text (self->pl);
904
905 while (*text)
906 lines += *text++ == '\n';
907
908 RETVAL = lines < pango_layout_get_line_count (self->pl);
909}
910 OUTPUT:
911 RETVAL
793 912
794SV * 913SV *
795get_text (CFClient::Layout self) 914get_text (CFClient::Layout self)
796 CODE: 915 CODE:
797 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 916 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
984} 1103}
985 1104
986MODULE = CFClient PACKAGE = CFClient::Texture 1105MODULE = CFClient PACKAGE = CFClient::Texture
987 1106
988void 1107void
1108pad2pot (SV *data_, SV *w_, SV *h_)
1109 CODE:
1110{
1111 int ow = SvIV (w_);
1112 int oh = SvIV (h_);
1113
1114 if (ow && oh)
1115 {
1116 int nw = minpot (ow);
1117 int nh = minpot (oh);
1118
1119 if (nw != ow || nh != oh)
1120 {
1121 if (SvOK (data_))
1122 {
1123 STRLEN datalen;
1124 char *data = SvPVbyte (data_, datalen);
1125 int bpp = datalen / (ow * oh);
1126 SV *result_ = sv_2mortal (newSV (nw * nh * bpp));
1127
1128 SvPOK_only (result_);
1129 SvCUR_set (result_, nw * nh * bpp);
1130
1131 memset (SvPVX (result_), 0, nw * nh * bpp);
1132 while (oh--)
1133 memcpy (SvPVX (result_) + oh * nw * bpp, data + oh * ow * bpp, ow * bpp);
1134
1135 sv_setsv (data_, result_);
1136 }
1137
1138 sv_setiv (w_, nw);
1139 sv_setiv (h_, nh);
1140 }
1141 }
1142}
1143
1144void
989draw_quad (SV *self, float x, float y, float w = 0, float h = 0) 1145draw_quad (SV *self, float x, float y, float w = 0., float h = 0.)
990 PROTOTYPE: $$$;$$ 1146 PROTOTYPE: $$$;$$
991 ALIAS: 1147 ALIAS:
992 draw_quad_alpha = 1 1148 draw_quad_alpha = 1
993 draw_quad_alpha_premultiplied = 2 1149 draw_quad_alpha_premultiplied = 2
994 CODE: 1150 CODE:
1175 1331
1176 while (data < data_end) 1332 while (data < data_end)
1177 { 1333 {
1178 flags = (data [0] << 8) + data [1]; data += 2; 1334 flags = (data [0] << 8) + data [1]; data += 2;
1179 1335
1180 x = ((flags >> 10) & 63) + self->x; 1336 x = self->x + ((flags >> 10) & 63);
1181 y = ((flags >> 4) & 63) + self->y; 1337 y = self->y + ((flags >> 4) & 63);
1182 1338
1183 cell = map_get_cell (self, x, y); 1339 cell = map_get_cell (self, x, y);
1184 1340
1185 if (flags & 15) 1341 if (flags & 15)
1186 { 1342 {
1276 OUTPUT: 1432 OUTPUT:
1277 RETVAL 1433 RETVAL
1278 1434
1279void 1435void
1280draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh) 1436draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1281 PPCODE: 1437 CODE:
1282{ 1438{
1283 int vx, vy; 1439 int vx, vy;
1284 int x, y, z; 1440 int x, y, z;
1285 int last_name; 1441 int last_name;
1286 mapface face; 1442 mapface face;
1287 int sw4 = (sw + 3) & ~3;
1288 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1289 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1290 1443
1291 memset (darkness, 255, sw4 * sh);
1292 SvPOK_only (darkness_sv);
1293 SvCUR_set (darkness_sv, sw4 * sh);
1294
1295 vx = self->x + (self->w - sw) / 2 - shift_x; 1444 vx = self->x + self->w / 2 - sw / 2 - shift_x;
1296 vy = self->y + (self->h - sh) / 2 - shift_y; 1445 vy = self->y + self->h / 2 - sh / 2 - shift_y;
1297 1446
1298 /* 1447 /*
1299 int vx = self->vx = self->w >= sw 1448 int vx = self->vx = self->w >= sw
1300 ? self->x + (self->w - sw) / 2 1449 ? self->x + (self->w - sw) / 2
1301 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx)); 1450 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
1305 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy)); 1454 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
1306 */ 1455 */
1307 1456
1308 glColor4ub (255, 255, 255, 255); 1457 glColor4ub (255, 255, 255, 255);
1309 1458
1459 glEnable (GL_BLEND);
1310 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1460 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1311 glEnable (GL_BLEND);
1312 glEnable (GL_TEXTURE_2D); 1461 glEnable (GL_TEXTURE_2D);
1313 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1462 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1314 1463
1315 glBegin (GL_QUADS); 1464 glBegin (GL_QUADS);
1316 1465
1324 1473
1325 for (x = 0; x < sw; x++) 1474 for (x = 0; x < sw; x++)
1326 if (row->c0 <= x + vx && x + vx < row->c1) 1475 if (row->c0 <= x + vx && x + vx < row->c1)
1327 { 1476 {
1328 mapcell *cell = row->col + (x + vx - row->c0); 1477 mapcell *cell = row->col + (x + vx - row->c0);
1329
1330 darkness[y * sw4 + x] = cell->darkness < 0
1331 ? 255 - FOW_DARKNESS
1332 : 255 - cell->darkness;
1333 1478
1334 face = cell->face [z]; 1479 face = cell->face [z];
1335 1480
1336 if (face) 1481 if (face)
1337 { 1482 {
1358 1503
1359 glEnd (); 1504 glEnd ();
1360 1505
1361 glDisable (GL_TEXTURE_2D); 1506 glDisable (GL_TEXTURE_2D);
1362 glDisable (GL_BLEND); 1507 glDisable (GL_BLEND);
1508}
1509
1510void
1511draw_magicmap (CFClient::Map self, int dx, int dy, int w, int h, unsigned char *data)
1512 CODE:
1513{
1514 static float color[16][3] = {
1515 { 0.00, 0.00, 0.00 },
1516 { 1.00, 1.00, 1.00 },
1517 { 0.00, 0.00, 0.55 },
1518 { 1.00, 0.00, 0.00 },
1519
1520 { 1.00, 0.54, 0.00 },
1521 { 0.11, 0.56, 1.00 },
1522 { 0.93, 0.46, 0.00 },
1523 { 0.18, 0.54, 0.34 },
1524
1525 { 0.56, 0.73, 0.56 },
1526 { 0.80, 0.80, 0.80 },
1527 { 0.55, 0.41, 0.13 },
1528 { 0.99, 0.77, 0.26 },
1529
1530 { 0.74, 0.65, 0.41 },
1531
1532 { 0.00, 1.00, 1.00 },
1533 { 1.00, 0.00, 1.00 },
1534 { 1.00, 1.00, 0.00 },
1535 };
1536
1537 int x, y;
1538
1539 glEnable (GL_TEXTURE_2D);
1540 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1541 glEnable (GL_BLEND);
1542 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1543 glBegin (GL_QUADS);
1544
1545 for (y = 0; y < h; y++)
1546 for (x = 0; x < w; x++)
1547 {
1548 unsigned char m = data [x + y * w];
1549
1550 if (m)
1551 {
1552 float *c = color [m & 15];
1553
1554 float tx1 = m & 0x40 ? 0.5 : 0.;
1555 float tx2 = tx1 + 0.5;
1556
1557 glColor4f (c[0], c[1], c[2], 0.75);
1558 glTexCoord2f (tx1, 0.); glVertex2i (x , y );
1559 glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
1560 glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
1561 glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
1562 }
1563 }
1564
1565 glEnd ();
1566 glDisable (GL_BLEND);
1567 glDisable (GL_TEXTURE_2D);
1568}
1569
1570void
1571fow_texture (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
1572 PPCODE:
1573{
1574 int vx, vy;
1575 int x, y;
1576 int sw4 = (sw + 3) & ~3;
1577 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1578 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1579
1580 memset (darkness, 255, sw4 * sh);
1581 SvPOK_only (darkness_sv);
1582 SvCUR_set (darkness_sv, sw4 * sh);
1583
1584 vx = self->x + (self->w - sw + 1) / 2 - shift_x;
1585 vy = self->y + (self->h - sh + 1) / 2 - shift_y;
1586
1587 for (y = 0; y < sh; y++)
1588 if (0 <= y + vy && y + vy < self->rows)
1589 {
1590 maprow *row = self->row + (y + vy);
1591
1592 for (x = 0; x < sw; x++)
1593 if (row->c0 <= x + vx && x + vx < row->c1)
1594 {
1595 mapcell *cell = row->col + (x + vx - row->c0);
1596
1597 darkness[y * sw4 + x] = cell->darkness < 0
1598 ? 255 - FOW_DARKNESS
1599 : 255 - cell->darkness;
1600 }
1601 }
1363 1602
1364 EXTEND (SP, 3); 1603 EXTEND (SP, 3);
1365 PUSHs (sv_2mortal (newSViv (sw4))); 1604 PUSHs (sv_2mortal (newSViv (sw4)));
1366 PUSHs (sv_2mortal (newSViv (sh))); 1605 PUSHs (sv_2mortal (newSViv (sh)));
1367 PUSHs (darkness_sv); 1606 PUSHs (darkness_sv);
1574 const_iv (GL_SCISSOR_TEST), 1813 const_iv (GL_SCISSOR_TEST),
1575 const_iv (GL_DEPTH_TEST), 1814 const_iv (GL_DEPTH_TEST),
1576 const_iv (GL_ALPHA_TEST), 1815 const_iv (GL_ALPHA_TEST),
1577 const_iv (GL_NORMALIZE), 1816 const_iv (GL_NORMALIZE),
1578 const_iv (GL_RESCALE_NORMAL), 1817 const_iv (GL_RESCALE_NORMAL),
1818 const_iv (GL_FRONT),
1819 const_iv (GL_BACK),
1579 const_iv (GL_AND), 1820 const_iv (GL_AND),
1580 const_iv (GL_ONE), 1821 const_iv (GL_ONE),
1581 const_iv (GL_ZERO), 1822 const_iv (GL_ZERO),
1582 const_iv (GL_SRC_ALPHA), 1823 const_iv (GL_SRC_ALPHA),
1583 const_iv (GL_DST_ALPHA), 1824 const_iv (GL_DST_ALPHA),
1584 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1825 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1585 const_iv (GL_ONE_MINUS_DST_ALPHA), 1826 const_iv (GL_ONE_MINUS_DST_ALPHA),
1586 const_iv (GL_SRC_ALPHA_SATURATE), 1827 const_iv (GL_SRC_ALPHA_SATURATE),
1587 const_iv (GL_RGB), 1828 const_iv (GL_RGB),
1588 const_iv (GL_RGBA), 1829 const_iv (GL_RGBA),
1830 const_iv (GL_RGBA4),
1831 const_iv (GL_RGBA8),
1832 const_iv (GL_RGB5_A1),
1589 const_iv (GL_UNSIGNED_BYTE), 1833 const_iv (GL_UNSIGNED_BYTE),
1590 const_iv (GL_UNSIGNED_SHORT), 1834 const_iv (GL_UNSIGNED_SHORT),
1591 const_iv (GL_UNSIGNED_INT), 1835 const_iv (GL_UNSIGNED_INT),
1592 const_iv (GL_ALPHA), 1836 const_iv (GL_ALPHA),
1593 const_iv (GL_INTENSITY), 1837 const_iv (GL_INTENSITY),
1667 OUTPUT: 1911 OUTPUT:
1668 RETVAL 1912 RETVAL
1669 1913
1670int glGetError () 1914int glGetError ()
1671 1915
1916void glFinish ()
1917
1672void glClear (int mask) 1918void glClear (int mask)
1673 1919
1674void glClearColor (float r, float g, float b, float a = 1.0) 1920void glClearColor (float r, float g, float b, float a = 1.0)
1675 PROTOTYPE: @ 1921 PROTOTYPE: @
1676 1922
1699void glPushMatrix () 1945void glPushMatrix ()
1700 1946
1701void glPopMatrix () 1947void glPopMatrix ()
1702 1948
1703void glLoadIdentity () 1949void glLoadIdentity ()
1950
1951void glDrawBuffer (int buffer)
1952
1953void glReadBuffer (int buffer)
1704 1954
1705# near_ and far_ are due to microsofts buggy "c" compiler 1955# near_ and far_ are due to microsofts buggy "c" compiler
1706void glFrustum (double left, double right, double bottom, double top, double near_, double far_) 1956void glFrustum (double left, double right, double bottom, double top, double near_, double far_)
1707 1957
1708# near_ and far_ are due to microsofts buggy "c" compiler 1958# near_ and far_ are due to microsofts buggy "c" compiler

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines