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.110 by root, Sat Jun 10 02:22:33 2006 UTC vs.
Revision 1.121 by root, Fri Jun 23 20:28:19 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
299 ev.code = 1; 320 ev.code = 1;
300 ev.data1 = (void *)(long)channel; 321 ev.data1 = (void *)(long)channel;
301 ev.data2 = 0; 322 ev.data2 = 0;
302 323
303 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;
304} 342}
305 343
306MODULE = CFClient PACKAGE = CFClient 344MODULE = CFClient PACKAGE = CFClient
307 345
308PROTOTYPES: ENABLE 346PROTOTYPES: ENABLE
418 456
419 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; )
420 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 458 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
421} 459}
422 460
461NV floor (NV x)
462
463NV ceil (NV x)
464
423void 465void
424pango_init () 466pango_init ()
425 CODE: 467 CODE:
426 // delayed, so it can pick up new fonts added by AddFontResourceEx 468 // delayed, so it can pick up new fonts added by AddFontResourceEx
427{ 469{
463 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5); 505 SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
464 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5); 506 SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
465 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1); 507 SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
466 508
467 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15); 509 SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
468 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 16); 510 SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
469 511
470 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0); 512 SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
471 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0); 513 SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
472 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0); 514 SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
473 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0); 515 SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
703 CODE: 745 CODE:
704 fprintf (stderr, "FATAL: %s\n", message); 746 fprintf (stderr, "FATAL: %s\n", message);
705#ifdef _WIN32 747#ifdef _WIN32
706 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR); 748 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR);
707#endif 749#endif
708 exit (1); 750 _exit (1);
751
752void
753_exit (int retval)
754 CODE:
755 _exit (retval);
709 756
710MODULE = CFClient PACKAGE = CFClient::Font 757MODULE = CFClient PACKAGE = CFClient::Font
711 758
712CFClient::Font 759CFClient::Font
713new_from_file (SV *class, char *path, int id = 0) 760new_from_file (SV *class, char *path, int id = 0)
782 STRLEN textlen; 829 STRLEN textlen;
783 char *text = SvPVutf8 (text_, textlen); 830 char *text = SvPVutf8 (text_, textlen);
784 831
785 pango_layout_set_markup (self->pl, text, textlen); 832 pango_layout_set_markup (self->pl, text, textlen);
786} 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
787 912
788SV * 913SV *
789get_text (CFClient::Layout self) 914get_text (CFClient::Layout self)
790 CODE: 915 CODE:
791 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0); 916 RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
978} 1103}
979 1104
980MODULE = CFClient PACKAGE = CFClient::Texture 1105MODULE = CFClient PACKAGE = CFClient::Texture
981 1106
982void 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
983draw_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.)
984 PROTOTYPE: $$$;$$ 1146 PROTOTYPE: $$$;$$
985 ALIAS: 1147 ALIAS:
986 draw_quad_alpha = 1 1148 draw_quad_alpha = 1
987 draw_quad_alpha_premultiplied = 2 1149 draw_quad_alpha_premultiplied = 2
988 CODE: 1150 CODE:
1053DESTROY (CFClient::Map self) 1215DESTROY (CFClient::Map self)
1054 CODE: 1216 CODE:
1055{ 1217{
1056 map_clear (self); 1218 map_clear (self);
1057 Safefree (self->face); 1219 Safefree (self->face);
1220 Safefree (self->tex);
1058 Safefree (self); 1221 Safefree (self);
1059} 1222}
1060 1223
1061void 1224void
1062clear (CFClient::Map self) 1225clear (CFClient::Map self)
1168 1331
1169 while (data < data_end) 1332 while (data < data_end)
1170 { 1333 {
1171 flags = (data [0] << 8) + data [1]; data += 2; 1334 flags = (data [0] << 8) + data [1]; data += 2;
1172 1335
1173 x = ((flags >> 10) & 63) + self->x; 1336 x = self->x + ((flags >> 10) & 63);
1174 y = ((flags >> 4) & 63) + self->y; 1337 y = self->y + ((flags >> 4) & 63);
1175 1338
1176 cell = map_get_cell (self, x, y); 1339 cell = map_get_cell (self, x, y);
1177 1340
1178 if (flags & 15) 1341 if (flags & 15)
1179 { 1342 {
1269 OUTPUT: 1432 OUTPUT:
1270 RETVAL 1433 RETVAL
1271 1434
1272void 1435void
1273draw (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)
1274 PPCODE: 1437 CODE:
1275{ 1438{
1276 int vx, vy; 1439 int vx, vy;
1277 int x, y, z; 1440 int x, y, z;
1278 int last_name; 1441 int last_name;
1279 mapface face; 1442 mapface face;
1280 int sw4 = (sw + 3) & ~3;
1281 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
1282 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
1283 1443
1284 memset (darkness, 255, sw4 * sh);
1285 SvPOK_only (darkness_sv);
1286 SvCUR_set (darkness_sv, sw4 * sh);
1287
1288 vx = self->x + (self->w - sw) / 2 - shift_x; 1444 vx = self->x + self->w / 2 - sw / 2 - shift_x;
1289 vy = self->y + (self->h - sh) / 2 - shift_y; 1445 vy = self->y + self->h / 2 - sh / 2 - shift_y;
1290 1446
1291 /* 1447 /*
1292 int vx = self->vx = self->w >= sw 1448 int vx = self->vx = self->w >= sw
1293 ? self->x + (self->w - sw) / 2 1449 ? self->x + (self->w - sw) / 2
1294 : 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));
1298 : 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));
1299 */ 1455 */
1300 1456
1301 glColor4ub (255, 255, 255, 255); 1457 glColor4ub (255, 255, 255, 255);
1302 1458
1459 glEnable (GL_BLEND);
1303 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1460 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1304 glEnable (GL_BLEND);
1305 glEnable (GL_TEXTURE_2D); 1461 glEnable (GL_TEXTURE_2D);
1306 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1462 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1307 1463
1308 glBegin (GL_QUADS); 1464 glBegin (GL_QUADS);
1309 1465
1317 1473
1318 for (x = 0; x < sw; x++) 1474 for (x = 0; x < sw; x++)
1319 if (row->c0 <= x + vx && x + vx < row->c1) 1475 if (row->c0 <= x + vx && x + vx < row->c1)
1320 { 1476 {
1321 mapcell *cell = row->col + (x + vx - row->c0); 1477 mapcell *cell = row->col + (x + vx - row->c0);
1322
1323 darkness[y * sw4 + x] = cell->darkness < 0
1324 ? 255 - FOW_DARKNESS
1325 : 255 - cell->darkness;
1326 1478
1327 face = cell->face [z]; 1479 face = cell->face [z];
1328 1480
1329 if (face) 1481 if (face)
1330 { 1482 {
1351 1503
1352 glEnd (); 1504 glEnd ();
1353 1505
1354 glDisable (GL_TEXTURE_2D); 1506 glDisable (GL_TEXTURE_2D);
1355 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 }
1356 1602
1357 EXTEND (SP, 3); 1603 EXTEND (SP, 3);
1358 PUSHs (sv_2mortal (newSViv (sw4))); 1604 PUSHs (sv_2mortal (newSViv (sw4)));
1359 PUSHs (sv_2mortal (newSViv (sh))); 1605 PUSHs (sv_2mortal (newSViv (sh)));
1360 PUSHs (darkness_sv); 1606 PUSHs (darkness_sv);
1567 const_iv (GL_SCISSOR_TEST), 1813 const_iv (GL_SCISSOR_TEST),
1568 const_iv (GL_DEPTH_TEST), 1814 const_iv (GL_DEPTH_TEST),
1569 const_iv (GL_ALPHA_TEST), 1815 const_iv (GL_ALPHA_TEST),
1570 const_iv (GL_NORMALIZE), 1816 const_iv (GL_NORMALIZE),
1571 const_iv (GL_RESCALE_NORMAL), 1817 const_iv (GL_RESCALE_NORMAL),
1818 const_iv (GL_FRONT),
1819 const_iv (GL_BACK),
1572 const_iv (GL_AND), 1820 const_iv (GL_AND),
1573 const_iv (GL_ONE), 1821 const_iv (GL_ONE),
1574 const_iv (GL_ZERO), 1822 const_iv (GL_ZERO),
1575 const_iv (GL_SRC_ALPHA), 1823 const_iv (GL_SRC_ALPHA),
1576 const_iv (GL_DST_ALPHA), 1824 const_iv (GL_DST_ALPHA),
1577 const_iv (GL_ONE_MINUS_SRC_ALPHA), 1825 const_iv (GL_ONE_MINUS_SRC_ALPHA),
1578 const_iv (GL_ONE_MINUS_DST_ALPHA), 1826 const_iv (GL_ONE_MINUS_DST_ALPHA),
1579 const_iv (GL_SRC_ALPHA_SATURATE), 1827 const_iv (GL_SRC_ALPHA_SATURATE),
1580 const_iv (GL_RGB), 1828 const_iv (GL_RGB),
1581 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),
1582 const_iv (GL_UNSIGNED_BYTE), 1833 const_iv (GL_UNSIGNED_BYTE),
1583 const_iv (GL_UNSIGNED_SHORT), 1834 const_iv (GL_UNSIGNED_SHORT),
1584 const_iv (GL_UNSIGNED_INT), 1835 const_iv (GL_UNSIGNED_INT),
1585 const_iv (GL_ALPHA), 1836 const_iv (GL_ALPHA),
1586 const_iv (GL_INTENSITY), 1837 const_iv (GL_INTENSITY),
1660 OUTPUT: 1911 OUTPUT:
1661 RETVAL 1912 RETVAL
1662 1913
1663int glGetError () 1914int glGetError ()
1664 1915
1916void glFinish ()
1917
1665void glClear (int mask) 1918void glClear (int mask)
1666 1919
1667void glClearColor (float r, float g, float b, float a = 1.0) 1920void glClearColor (float r, float g, float b, float a = 1.0)
1668 PROTOTYPE: @ 1921 PROTOTYPE: @
1669 1922
1692void glPushMatrix () 1945void glPushMatrix ()
1693 1946
1694void glPopMatrix () 1947void glPopMatrix ()
1695 1948
1696void glLoadIdentity () 1949void glLoadIdentity ()
1950
1951void glDrawBuffer (int buffer)
1952
1953void glReadBuffer (int buffer)
1697 1954
1698# near_ and far_ are due to microsofts buggy "c" compiler 1955# near_ and far_ are due to microsofts buggy "c" compiler
1699void 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_)
1700 1957
1701# 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