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.213 by root, Sun Jul 29 04:14:45 2007 UTC vs.
Revision 1.232 by root, Sun Aug 19 15:57:40 2007 UTC

… …
17#include "perl.h" 17#include "perl.h"
18#include "XSUB.h" 18#include "XSUB.h"
19 19
20#ifdef _WIN32 20#ifdef _WIN32
21# undef pipe 21# undef pipe
22// microsoft vs. C
23# define sqrtf(x) sqrt(x)
24# define roundf(x) (int)(x)
25# define atan2f(x,y) atan2(x,y)
26# define M_PI 3.14159265f
22#endif 27#endif
23 28
24#include <assert.h> 29#include <assert.h>
25#include <math.h> 30#include <math.h>
26#include <string.h> 31#include <string.h>
… …
109 av_push (texture_av, (SV *)(size_t)name); 114 av_push (texture_av, (SV *)(size_t)name);
110 glDeleteTextures (1, &name); 115 glDeleteTextures (1, &name);
111} 116}
112 117
113#include "texcache.c" 118#include "texcache.c"
119#include "rendercache.c"
114 120
115#include "pango-font.c" 121#include "pango-font.c"
116#include "pango-fontmap.c" 122#include "pango-fontmap.c"
117#include "pango-render.c" 123#include "pango-render.c"
118 124
… …
144typedef struct cf_layout { 150typedef struct cf_layout {
145 PangoLayout *pl; 151 PangoLayout *pl;
146 float r, g, b, a; // default color for rgba mode 152 float r, g, b, a; // default color for rgba mode
147 int base_height; 153 int base_height;
148 CFPlus__Font font; 154 CFPlus__Font font;
155 rc_t *rc;
149} *CFPlus__Layout; 156} *CFPlus__Layout;
150 157
151static CFPlus__Font default_font; 158static CFPlus__Font default_font;
152static PangoContext *opengl_context; 159static PangoContext *opengl_context;
153static PangoFontMap *opengl_fontmap; 160static PangoFontMap *opengl_fontmap;
… …
196 203
197typedef uint16_t tileid; 204typedef uint16_t tileid;
198typedef uint16_t faceid; 205typedef uint16_t faceid;
199 206
200typedef struct { 207typedef struct {
201 int name; 208 GLuint name;
202 int w, h; 209 int w, h;
203 float s, t; 210 float s, t;
204 uint8_t r, g, b, a; 211 uint8_t r, g, b, a;
205 tileid smoothtile; 212 tileid smoothtile;
206 uint8_t smoothlevel; 213 uint8_t smoothlevel;
… …
708 715
709 if (RETVAL) 716 if (RETVAL)
710 { 717 {
711 av_clear (texture_av); 718 av_clear (texture_av);
712 719
713 SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+"); 720 SDL_WM_SetCaption ("Crossfire TRT Client " VERSION, "Crossfire TRT");
714#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name); 721#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
715#include "glfunc.h" 722#include "glfunc.h"
716#undef GL_FUNC 723#undef GL_FUNC
717 } 724 }
718} 725}
… …
804 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1)))); 811 XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
805 } 812 }
806} 813}
807 814
808int 815int
809Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096) 816Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
810 POSTCALL: 817 POSTCALL:
811 Mix_HookMusicFinished (music_finished); 818 Mix_HookMusicFinished (music_finished);
812 Mix_ChannelFinished (channel_finished); 819 Mix_ChannelFinished (channel_finished);
813 820
814void 821void
815Mix_CloseAudio () 822Mix_CloseAudio ()
816 823
817int 824int
818Mix_AllocateChannels (int numchans = -1) 825Mix_AllocateChannels (int numchans = -1)
826
827const char *
828Mix_GetError ()
819 829
820void 830void
821lowdelay (int fd, int val = 1) 831lowdelay (int fd, int val = 1)
822 CODE: 832 CODE:
823 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val)); 833 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
… …
1027 RETVAL->g = 1.; 1037 RETVAL->g = 1.;
1028 RETVAL->b = 1.; 1038 RETVAL->b = 1.;
1029 RETVAL->a = 1.; 1039 RETVAL->a = 1.;
1030 RETVAL->base_height = MIN_FONT_HEIGHT; 1040 RETVAL->base_height = MIN_FONT_HEIGHT;
1031 RETVAL->font = 0; 1041 RETVAL->font = 0;
1042 RETVAL->rc = rc_alloc ();
1032 1043
1033 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR); 1044 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
1034 layout_update_font (RETVAL); 1045 layout_update_font (RETVAL);
1035 OUTPUT: 1046 OUTPUT:
1036 RETVAL 1047 RETVAL
1037 1048
1038void 1049void
1039DESTROY (CFPlus::Layout self) 1050DESTROY (CFPlus::Layout self)
1040 CODE: 1051 CODE:
1041 g_object_unref (self->pl); 1052 g_object_unref (self->pl);
1053 rc_free (self->rc);
1042 Safefree (self); 1054 Safefree (self);
1043 1055
1044void 1056void
1045set_text (CFPlus::Layout self, SV *text_) 1057set_text (CFPlus::Layout self, SV *text_)
1046 CODE: 1058 CODE:
… …
1298 } 1310 }
1299} 1311}
1300 1312
1301void 1313void
1302render (CFPlus::Layout self, float x, float y, int flags = 0) 1314render (CFPlus::Layout self, float x, float y, int flags = 0)
1303 PPCODE: 1315 CODE:
1316 rc_clear (self->rc);
1304 pango_opengl_render_layout_subpixel ( 1317 pango_opengl_render_layout_subpixel (
1305 self->pl, 1318 self->pl,
1319 self->rc,
1306 x * PANGO_SCALE, y * PANGO_SCALE, 1320 x * PANGO_SCALE, y * PANGO_SCALE,
1307 self->r, self->g, self->b, self->a, 1321 self->r, self->g, self->b, self->a,
1308 flags 1322 flags
1309 ); 1323 );
1324 // we assume that context_change actually clears/frees stuff
1325 // and does not do any recomputation...
1326 pango_layout_context_changed (self->pl);
1327
1328void
1329draw (CFPlus::Layout self)
1330 CODE:
1331{
1332 glEnable (GL_TEXTURE_2D);
1333 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
1334 glEnable (GL_BLEND);
1335 gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1336 GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1337 glEnable (GL_ALPHA_TEST);
1338 glAlphaFunc (GL_GREATER, 7.f / 255.f);
1339
1340 rc_draw (self->rc);
1341
1342 glDisable (GL_ALPHA_TEST);
1343 glDisable (GL_BLEND);
1344 glDisable (GL_TEXTURE_2D);
1345}
1310 1346
1311MODULE = CFPlus PACKAGE = CFPlus::Texture 1347MODULE = CFPlus PACKAGE = CFPlus::Texture
1312 1348
1313PROTOTYPES: ENABLE 1349PROTOTYPES: ENABLE
1314 1350
… …
1346{ 1382{
1347 HV *hv = (HV *)SvRV (self); 1383 HV *hv = (HV *)SvRV (self);
1348 float s = SvNV (*hv_fetch (hv, "s", 1, 1)); 1384 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1349 float t = SvNV (*hv_fetch (hv, "t", 1, 1)); 1385 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1350 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 1386 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1387
1388 if (name <= 0)
1389 XSRETURN_EMPTY;
1351 1390
1352 if (items < 5) 1391 if (items < 5)
1353 { 1392 {
1354 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 1393 w = SvNV (*hv_fetch (hv, "w", 1, 1));
1355 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 1394 h = SvNV (*hv_fetch (hv, "h", 1, 1));
… …
1544 self->rows += MAP_EXTEND_Y; 1583 self->rows += MAP_EXTEND_Y;
1545 self->y += MAP_EXTEND_Y; 1584 self->y += MAP_EXTEND_Y;
1546 } 1585 }
1547} 1586}
1548 1587
1549void 1588SV *
1550map1a_update (CFPlus::Map self, SV *data_, int extmap) 1589map1a_update (CFPlus::Map self, SV *data_, int extmap)
1551 CODE: 1590 CODE:
1552{ 1591{
1553 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_); 1592 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
1554 uint8_t *data_end = (uint8_t *)SvEND (data_); 1593 uint8_t *data_end = (uint8_t *)SvEND (data_);
1555 mapcell *cell; 1594 mapcell *cell;
1556 int x, y, flags; 1595 int x, y, z, flags;
1596 AV *missing = newAV ();
1597 RETVAL = newRV_noinc ((SV *)missing);
1557 1598
1558 while (data < data_end - 1) 1599 while (data < data_end - 1)
1559 { 1600 {
1560 flags = (data [0] << 8) + data [1]; data += 2; 1601 flags = (data [0] << 8) + data [1]; data += 2;
1561 1602
… …
1612 } 1653 }
1613 else 1654 else
1614 cell->darkness = *data++ + 1; 1655 cell->darkness = *data++ + 1;
1615 } 1656 }
1616 1657
1658 for (z = 0; z <= 2; ++z)
1617 if (flags & 4) 1659 if (flags & (4 >> z))
1618 { 1660 {
1619 faceid face = (data [0] << 8) + data [1]; data += 2; 1661 faceid face = (data [0] << 8) + data [1]; data += 2;
1620 need_facenum (self, face); 1662 need_facenum (self, face);
1621 cell->tile [0] = self->face2tile [face]; 1663 cell->tile [z] = self->face2tile [face];
1664
1665 if (cell->tile [z])
1666 {
1667 maptex *tex = self->tex + cell->tile [z];
1668 if (!tex->name)
1669 av_push (missing, newSViv (cell->tile [z]));
1670
1671 if (tex->smoothtile)
1672 {
1673 maptex *smooth = self->tex + tex->smoothtile;
1674 if (!smooth->name)
1675 av_push (missing, newSViv (tex->smoothtile));
1676 }
1677 }
1622 } 1678 }
1623
1624 if (flags & 2)
1625 {
1626 faceid face = (data [0] << 8) + data [1]; data += 2;
1627 need_facenum (self, face);
1628 cell->tile [1] = self->face2tile [face];
1629 }
1630
1631 if (flags & 1)
1632 {
1633 faceid face = (data [0] << 8) + data [1]; data += 2;
1634 need_facenum (self, face);
1635 cell->tile [2] = self->face2tile [face];
1636 }
1637 } 1679 }
1638 else 1680 else
1639 cell->darkness = 0; 1681 cell->darkness = 0;
1640 } 1682 }
1641} 1683}
1684 OUTPUT:
1685 RETVAL
1642 1686
1643SV * 1687SV *
1644mapmap (CFPlus::Map self, int x0, int y0, int w, int h) 1688mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1645 CODE: 1689 CODE:
1646{ 1690{
… …
1697 1741
1698void 1742void
1699draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T) 1743draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)
1700 CODE: 1744 CODE:
1701{ 1745{
1746 int x, y, z;
1747
1702 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ()); 1748 HV *smooth = (HV *)sv_2mortal ((SV *)newHV ());
1703 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level 1749 uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1704 static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k) 1750 static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1705 smooth_key skey; 1751 smooth_key skey;
1706 int x, y, z; 1752
1707 int last_name; 1753 rc_t *rc = rc_alloc ();
1754 rc_key_t key;
1755 rc_array_t *arr;
1708 1756
1709 // thats current max. sorry. 1757 // thats current max. sorry.
1710 if (sw > 255) sw = 255; 1758 if (sw > 255) sw = 255;
1711 if (sh > 255) sh = 255; 1759 if (sh > 255) sh = 255;
1712 1760
1713 // clear key, in case of extra padding 1761 // clear key, in case of extra padding
1714 memset (&skey, 0, sizeof (skey)); 1762 memset (&skey, 0, sizeof (skey));
1715 1763
1716 glColor4ub (255, 255, 255, 255); 1764 memset (&key, 0, sizeof (key));
1717 1765 key.r = 255;
1718 glEnable (GL_BLEND); 1766 key.g = 255;
1719 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 1767 key.b = 255;
1720 glEnable (GL_TEXTURE_2D); 1768 key.a = 255;
1721 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE); 1769 key.mode = GL_QUADS;
1722 1770 key.format = GL_T2F_V3F;
1723 glBegin (GL_QUADS); 1771 key.texname = -1;
1724
1725 last_name = 0;
1726 1772
1727 mx += self->x; 1773 mx += self->x;
1728 my += self->y; 1774 my += self->y;
1729 1775
1730 // first pass: determine smooth_max 1776 // first pass: determine smooth_max
… …
1746 MAX (self->tex [cell->tile [0]].smoothlevel, 1792 MAX (self->tex [cell->tile [0]].smoothlevel,
1747 MAX (self->tex [cell->tile [1]].smoothlevel, 1793 MAX (self->tex [cell->tile [1]].smoothlevel,
1748 self->tex [cell->tile [2]].smoothlevel)); 1794 self->tex [cell->tile [2]].smoothlevel));
1749 } 1795 }
1750 } 1796 }
1797
1798 glEnable (GL_BLEND);
1799 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1800 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1751 1801
1752 for (z = 0; z <= 2; z++) 1802 for (z = 0; z <= 2; z++)
1753 { 1803 {
1754 memset (smooth_level, 0, sizeof (smooth_level)); 1804 memset (smooth_level, 0, sizeof (smooth_level));
1755 1805
… …
1765 tileid tile = cell->tile [z]; 1815 tileid tile = cell->tile [z];
1766 1816
1767 if (tile) 1817 if (tile)
1768 { 1818 {
1769 maptex tex = self->tex [tile]; 1819 maptex tex = self->tex [tile];
1770 int px = (x + 1) * T - tex.w; 1820 int px, py;
1771 int py = (y + 1) * T - tex.h;
1772 1821
1773 // suppressing texture state switches here
1774 // is only moderately effective, but worth the extra effort
1775 if (last_name != tex.name) 1822 if (key.texname != tex.name)
1776 { 1823 {
1777 if (!tex.name) 1824 if (!tex.name)
1778 tex = self->tex [2]; /* missing, replace by noface */ 1825 tex = self->tex [2]; /* missing, replace by noface */
1779 1826
1780 glEnd (); 1827 key.texname = tex.name;
1781 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 1828 arr = rc_array (rc, &key);
1782 glBegin (GL_QUADS);
1783 } 1829 }
1784 1830
1785 glTexCoord2f (0 , 0 ); glVertex2f (px , py ); 1831 px = (x + 1) * T - tex.w;
1832 py = (y + 1) * T - tex.h;
1833
1834 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1786 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h); 1835 rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1787 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h); 1836 rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1788 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py ); 1837 rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1789 1838
1790 if (cell->flags && z == 2) 1839 if (cell->flags && z == 2)
1791 { 1840 {
1841 // overlays such as the speech bubble, probably more to come
1792 if (cell->flags & 1) 1842 if (cell->flags & 1)
1793 { 1843 {
1794 maptex tex = self->tex [1]; 1844 maptex tex = self->tex [1];
1795 int px = x * T + T * 2 / 32; 1845 int px = x * T + T * 2 / 32;
1796 int py = y * T - T * 6 / 32; 1846 int py = y * T - T * 6 / 32;
1797 1847
1848 if (tex.name)
1798 glEnd (); 1849 {
1799 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 1850 if (key.texname != tex.name)
1851 {
1852 key.texname = tex.name;
1853 arr = rc_array (rc, &key);
1854 }
1855
1856 rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1857 rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1858 rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1859 rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1800 glBegin (GL_QUADS); 1860 }
1801
1802 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1803 glTexCoord2f (0 , tex.t); glVertex2f (px , py + T);
1804 glTexCoord2f (tex.s, tex.t); glVertex2f (px + T, py + T);
1805 glTexCoord2f (tex.s, 0 ); glVertex2f (px + T, py );
1806 } 1861 }
1807 } 1862 }
1808 1863
1809 // update smooth hash 1864 // update smooth hash
1810 if (tex.smoothtile) 1865 if (tex.smoothtile)
… …
1846 } 1901 }
1847 } 1902 }
1848 } 1903 }
1849 } 1904 }
1850 1905
1906 rc_draw (rc);
1907 rc_clear (rc);
1908
1851 // go through all smoothlevels, lowest to highest, then draw. 1909 // go through all smoothlevels, lowest to highest, then draw.
1852 // this is basically counting sort 1910 // this is basically counting sort
1853 { 1911 {
1854 int w, b; 1912 int w, b;
1855 1913
1914 glEnable (GL_TEXTURE_2D);
1915 glBegin (GL_QUADS);
1856 for (w = 0; w < 256 / 32; ++w) 1916 for (w = 0; w < 256 / 32; ++w)
1857 { 1917 {
1858 uint32_t smask = smooth_level [w]; 1918 uint32_t smask = smooth_level [w];
1859 if (smask) 1919 if (smask)
1860 for (b = 0; b < 32; ++b) 1920 for (b = 0; b < 32; ++b)
… …
1879 int border = bits & 15; 1939 int border = bits & 15;
1880 int corner = (bits >> 8) & ~(bits >> 4) & 15; 1940 int corner = (bits >> 8) & ~(bits >> 4) & 15;
1881 float dx = tex.s * .0625f; // 16 images/row 1941 float dx = tex.s * .0625f; // 16 images/row
1882 float dy = tex.t * .5f ; // 2 images/column 1942 float dy = tex.t * .5f ; // 2 images/column
1883 1943
1884 // this time naively avoiding texture state changes
1885 // save gobs of state changes.
1886 if (last_name != tex.name) 1944 if (tex.name)
1887 { 1945 {
1946 // this time avoiding texture state changes
1947 // save gobs of state changes.
1888 if (!tex.name) 1948 if (key.texname != tex.name)
1889 continue; // smoothing not yet available 1949 {
1890
1891 glEnd (); 1950 glEnd ();
1892 glBindTexture (GL_TEXTURE_2D, last_name = tex.name); 1951 glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1893 glBegin (GL_QUADS); 1952 glBegin (GL_QUADS);
1894 } 1953 }
1895 1954
1896 if (border) 1955 if (border)
1897 { 1956 {
1898 float ox = border * dx; 1957 float ox = border * dx;
1899 1958
1900 glTexCoord2f (ox , 0.f ); glVertex2f (px , py ); 1959 glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
1901 glTexCoord2f (ox , dy ); glVertex2f (px , py + T); 1960 glTexCoord2f (ox , dy ); glVertex2i (px , py + T);
1902 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T); 1961 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);
1903 glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py ); 1962 glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );
1904 } 1963 }
1905 1964
1906 if (corner) 1965 if (corner)
1907 { 1966 {
1908 float ox = corner * dx; 1967 float ox = corner * dx;
1909 1968
1910 glTexCoord2f (ox , dy ); glVertex2f (px , py ); 1969 glTexCoord2f (ox , dy ); glVertex2i (px , py );
1911 glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T); 1970 glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1912 glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T); 1971 glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);
1913 glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py ); 1972 glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
1973 }
1914 } 1974 }
1915 } 1975 }
1916 } 1976 }
1917 } 1977 }
1918 } 1978 }
1979
1980 glEnd ();
1981 glDisable (GL_TEXTURE_2D);
1982 key.texname = -1;
1919 } 1983 }
1920 1984
1921 hv_clear (smooth); 1985 hv_clear (smooth);
1922 } 1986 }
1923 1987
1924 glEnd ();
1925
1926 glDisable (GL_TEXTURE_2D);
1927 glDisable (GL_BLEND); 1988 glDisable (GL_BLEND);
1989 rc_free (rc);
1928 1990
1929 // top layer: overlays such as the health bar 1991 // top layer: overlays such as the health bar
1930 for (y = 0; y < sh; y++) 1992 for (y = 0; y < sh; y++)
1931 if (0 <= y + my && y + my < self->rows) 1993 if (0 <= y + my && y + my < self->rows)
1932 { 1994 {
… …
2181 int x, y, z; 2243 int x, y, z;
2182 int w, h; 2244 int w, h;
2183 int x1, y1; 2245 int x1, y1;
2184 2246
2185 if (*data++ != 0) 2247 if (*data++ != 0)
2186 return; /* version mismatch */ 2248 XSRETURN_EMPTY; /* version mismatch */
2187 2249
2188 w = *data++ << 8; w |= *data++; 2250 w = *data++ << 8; w |= *data++;
2189 h = *data++ << 8; h |= *data++; 2251 h = *data++ << 8; h |= *data++;
2190 2252
2191 // we need to do this 'cause we don't keep an absolute coord system for rows 2253 // we need to do this 'cause we don't keep an absolute coord system for rows
… …
2257 CODE: 2319 CODE:
2258 RETVAL = SDL_RWFromFile (path, mode); 2320 RETVAL = SDL_RWFromFile (path, mode);
2259 OUTPUT: 2321 OUTPUT:
2260 RETVAL 2322 RETVAL
2261 2323
2324# fails on win32:
2325# CFPlus.xs(2268) : error C2059: syntax error : '('
2262void 2326#void
2263close (CFPlus::RW self) 2327#close (CFPlus::RW self)
2264 CODE: 2328# CODE:
2265 SDL_RWclose (self); 2329# (self->(close)) (self);
2266 2330
2267MODULE = CFPlus PACKAGE = CFPlus::Channel 2331MODULE = CFPlus PACKAGE = CFPlus::Channel
2268 2332
2269PROTOTYPES: DISABLE 2333PROTOTYPES: DISABLE
2334
2335CFPlus::Channel
2336find ()
2337 CODE:
2338{
2339 RETVAL = Mix_GroupAvailable (-1);
2340
2341 if (RETVAL < 0)
2342 {
2343 RETVAL = Mix_GroupOldest (-1);
2344
2345 if (RETVAL < 0)
2346 XSRETURN_UNDEF;
2347
2348 Mix_HaltChannel (RETVAL);
2349 }
2350
2351 Mix_UnregisterAllEffects (RETVAL);
2352 Mix_Volume (RETVAL, 128);
2353}
2354 OUTPUT:
2355 RETVAL
2270 2356
2271void 2357void
2272halt (CFPlus::Channel self) 2358halt (CFPlus::Channel self)
2273 CODE: 2359 CODE:
2274 Mix_HaltChannel (self); 2360 Mix_HaltChannel (self);
… …
2284 Mix_FadeOutChannel (self, ticks); 2370 Mix_FadeOutChannel (self, ticks);
2285 2371
2286int 2372int
2287volume (CFPlus::Channel self, int volume) 2373volume (CFPlus::Channel self, int volume)
2288 CODE: 2374 CODE:
2289 RETVAL = Mix_Volume (self, volume); 2375 RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2290 OUTPUT: 2376 OUTPUT:
2291 RETVAL 2377 RETVAL
2292 2378
2293void 2379void
2294unregister_all_effects (CFPlus::Channel self) 2380unregister_all_effects (CFPlus::Channel self)
… …
2296 Mix_UnregisterAllEffects (self); 2382 Mix_UnregisterAllEffects (self);
2297 2383
2298void 2384void
2299set_panning (CFPlus::Channel self, int left, int right) 2385set_panning (CFPlus::Channel self, int left, int right)
2300 CODE: 2386 CODE:
2387 left = CLAMP (left , 0, 255);
2388 right = CLAMP (right, 0, 255);
2301 Mix_SetPanning (self, left, right); 2389 Mix_SetPanning (self, left, right);
2302 2390
2303void 2391void
2304set_distance (CFPlus::Channel self, int distance) 2392set_distance (CFPlus::Channel self, int distance)
2305 CODE: 2393 CODE:
2306 Mix_SetDistance (self, distance); 2394 Mix_SetDistance (self, CLAMP (distance, 0, 255));
2307 2395
2308void 2396void
2309set_position (CFPlus::Channel self, int angle, int distance) 2397set_position (CFPlus::Channel self, int angle, int distance)
2310 CODE: 2398 CODE:
2399
2400void
2401set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
2402 CODE:
2403{
2404 int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2405 int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2311 Mix_SetPosition (self, angle, distance); 2406 Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2407}
2312 2408
2313void 2409void
2314set_reverse_stereo (CFPlus::Channel self, int flip) 2410set_reverse_stereo (CFPlus::Channel self, int flip)
2315 CODE: 2411 CODE:
2316 Mix_SetReverseStereo (self, flip); 2412 Mix_SetReverseStereo (self, flip);
… …
2332 Mix_FreeChunk (self); 2428 Mix_FreeChunk (self);
2333 2429
2334int 2430int
2335volume (CFPlus::MixChunk self, int volume = -1) 2431volume (CFPlus::MixChunk self, int volume = -1)
2336 CODE: 2432 CODE:
2433 if (items > 1)
2434 volume = CLAMP (volume, 0, 128);
2337 RETVAL = Mix_VolumeChunk (self, volume); 2435 RETVAL = Mix_VolumeChunk (self, volume);
2338 OUTPUT: 2436 OUTPUT:
2339 RETVAL 2437 RETVAL
2340 2438
2341CFPlus::Channel 2439CFPlus::Channel
2342play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1) 2440play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
2343 CODE: 2441 CODE:
2442{
2344 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks); 2443 RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2444
2445 if (RETVAL < 0)
2446 XSRETURN_UNDEF;
2447
2448 if (channel < 0)
2449 {
2345 Mix_UnregisterAllEffects (RETVAL); 2450 Mix_UnregisterAllEffects (RETVAL);
2451 Mix_Volume (RETVAL, 128);
2452 }
2453}
2346 OUTPUT: 2454 OUTPUT:
2347 RETVAL 2455 RETVAL
2348 2456
2349MODULE = CFPlus PACKAGE = CFPlus::MixMusic 2457MODULE = CFPlus PACKAGE = CFPlus::MixMusic
2350 2458
2351int 2459int
2352volume (int volume = -1) 2460volume (int volume = -1)
2353 PROTOTYPE: ;$ 2461 PROTOTYPE: ;$
2354 CODE: 2462 CODE:
2463 if (items > 0)
2464 volume = CLAMP (volume, 0, 128);
2355 RETVAL = Mix_VolumeMusic (volume); 2465 RETVAL = Mix_VolumeMusic (volume);
2356 OUTPUT: 2466 OUTPUT:
2357 RETVAL 2467 RETVAL
2358 2468
2359void 2469void
… …
2439 const_iv (GL_INTENSITY), 2549 const_iv (GL_INTENSITY),
2440 const_iv (GL_LUMINANCE), 2550 const_iv (GL_LUMINANCE),
2441 const_iv (GL_LUMINANCE_ALPHA), 2551 const_iv (GL_LUMINANCE_ALPHA),
2442 const_iv (GL_FLOAT), 2552 const_iv (GL_FLOAT),
2443 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV), 2553 const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
2554 const_iv (GL_COMPRESSED_ALPHA_ARB),
2555 const_iv (GL_COMPRESSED_LUMINANCE_ARB),
2556 const_iv (GL_COMPRESSED_LUMINANCE_ALPHA_ARB),
2557 const_iv (GL_COMPRESSED_INTENSITY_ARB),
2558 const_iv (GL_COMPRESSED_RGB_ARB),
2559 const_iv (GL_COMPRESSED_RGBA_ARB),
2444 const_iv (GL_COMPILE), 2560 const_iv (GL_COMPILE),
2445 const_iv (GL_PROXY_TEXTURE_1D), 2561 const_iv (GL_PROXY_TEXTURE_1D),
2446 const_iv (GL_PROXY_TEXTURE_2D), 2562 const_iv (GL_PROXY_TEXTURE_2D),
2447 const_iv (GL_TEXTURE_1D), 2563 const_iv (GL_TEXTURE_1D),
2448 const_iv (GL_TEXTURE_2D), 2564 const_iv (GL_TEXTURE_2D),
… …
2487 const_iv (GL_PERSPECTIVE_CORRECTION_HINT), 2603 const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2488 const_iv (GL_POINT_SMOOTH_HINT), 2604 const_iv (GL_POINT_SMOOTH_HINT),
2489 const_iv (GL_LINE_SMOOTH_HINT), 2605 const_iv (GL_LINE_SMOOTH_HINT),
2490 const_iv (GL_POLYGON_SMOOTH_HINT), 2606 const_iv (GL_POLYGON_SMOOTH_HINT),
2491 const_iv (GL_GENERATE_MIPMAP_HINT), 2607 const_iv (GL_GENERATE_MIPMAP_HINT),
2608 const_iv (GL_TEXTURE_COMPRESSION_HINT),
2492 const_iv (GL_FASTEST), 2609 const_iv (GL_FASTEST),
2493 const_iv (GL_DONT_CARE), 2610 const_iv (GL_DONT_CARE),
2494 const_iv (GL_NICEST), 2611 const_iv (GL_NICEST),
2495 const_iv (GL_V2F), 2612 const_iv (GL_V2F),
2496 const_iv (GL_V3F), 2613 const_iv (GL_V3F),
… …
2504 2621
2505 texture_av = newAV (); 2622 texture_av = newAV ();
2506 AvREAL_off (texture_av); 2623 AvREAL_off (texture_av);
2507} 2624}
2508 2625
2626void
2627disable_GL_EXT_blend_func_separate ()
2628 CODE:
2629 gl.BlendFuncSeparate = 0;
2630 gl.BlendFuncSeparateEXT = 0;
2631
2509char * 2632char *
2510gl_vendor () 2633gl_vendor ()
2511 CODE: 2634 CODE:
2512 RETVAL = (char *)glGetString (GL_VENDOR); 2635 RETVAL = (char *)glGetString (GL_VENDOR);
2513 OUTPUT: 2636 OUTPUT:
… …
2744 NV x, y, w, h; 2867 NV x, y, w, h;
2745 SV *draw_x_sv = GvSV (draw_x_gv); 2868 SV *draw_x_sv = GvSV (draw_x_gv);
2746 SV *draw_y_sv = GvSV (draw_y_gv); 2869 SV *draw_y_sv = GvSV (draw_y_gv);
2747 SV *draw_w_sv = GvSV (draw_w_gv); 2870 SV *draw_w_sv = GvSV (draw_w_gv);
2748 SV *draw_h_sv = GvSV (draw_h_gv); 2871 SV *draw_h_sv = GvSV (draw_h_gv);
2749 SV *hover;
2750 double draw_x, draw_y, draw_w, draw_h; 2872 double draw_x, draw_y;
2751 2873
2752 if (!SvROK (self)) 2874 if (!SvROK (self))
2753 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self)); 2875 croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
2754 2876
2755 hv = (HV *)SvRV (self); 2877 hv = (HV *)SvRV (self);
… …
2783 { 2905 {
2784 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0); 2906 svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2785 2907
2786 if (svp && SvTRUE (*svp)) 2908 if (svp && SvTRUE (*svp))
2787 { 2909 {
2788 glColor4f (1*0.2f, 0.8*0.2f, 0.5*0.2f, 0.2f); 2910 glColor4f (1.0f * 0.2f, 0.8f * 0.2f, 0.5f * 0.2f, 0.2f);
2789 glEnable (GL_BLEND); 2911 glEnable (GL_BLEND);
2790 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA); 2912 glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2791 glBegin (GL_QUADS); 2913 glBegin (GL_QUADS);
2792 glVertex2f (0, 0); 2914 glVertex2f (0, 0);
2793 glVertex2f (w, 0); 2915 glVertex2f (w, 0);

Diff Legend

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