[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/Client.xs

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.212 by root, Sun Jul 29 03:58:26 2007 UTC vs.
Revision 1.225 by root, Sat Aug 11 12:07:54 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
…		…
144	typedef struct cf_layout {	150	typedef 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
151	static CFPlus__Font default_font;	158	static CFPlus__Font default_font;
152	static PangoContext *opengl_context;	159	static PangoContext *opengl_context;
153	static PangoFontMap *opengl_fontmap;	160	static PangoFontMap *opengl_fontmap;
…		…
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
808	int	815	int
809	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)	816	Mix_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
814	void	821	void
815	Mix_CloseAudio ()	822	Mix_CloseAudio ()
816		823
817	int	824	int
818	Mix_AllocateChannels (int numchans = -1)	825	Mix_AllocateChannels (int numchans = -1)
		826
		827	const char *
		828	Mix_GetError ()
819		829
820	void	830	void
821	lowdelay (int fd, int val = 1)	831	lowdelay (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
1038	void	1049	void
1039	DESTROY (CFPlus::Layout self)	1050	DESTROY (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
1044	void	1056	void
1045	set_text (CFPlus::Layout self, SV *text_)	1057	set_text (CFPlus::Layout self, SV *text_)
1046	CODE:	1058	CODE:
…		…
1298	}	1310	}
1299	}	1311	}
1300		1312
1301	void	1313	void
1302	render (CFPlus::Layout self, float x, float y, int flags = 0)	1314	render (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
		1328	void
		1329	draw (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
1311	MODULE = CFPlus PACKAGE = CFPlus::Texture	1347	MODULE = CFPlus PACKAGE = CFPlus::Texture
1312		1348
1313	PROTOTYPES: ENABLE	1349	PROTOTYPES: 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
1549	void	1588	SV *
1550	map1a_update (CFPlus::Map self, SV *data_, int extmap)	1589	map1a_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
1643	SV *	1687	SV *
1644	mapmap (CFPlus::Map self, int x0, int y0, int w, int h)	1688	mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1645	CODE:	1689	CODE:
1646	{	1690	{
…		…
1697		1741
1698	void	1742	void
1699	draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)	1743	draw (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, fats 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	1822	// suppressing texture state switches here
1774	// is only moderately effective, but worth the extra effort	1823	// is only moderately effective, but worth the extra effort
1775	if (last_name != tex.name)	1824	if (key.texname != tex.name)
1776	{	1825	{
1777	if (!tex.name)	1826	if (!tex.name)
1778	tex = self->tex [2]; /* missing, replace by noface */	1827	tex = self->tex [2]; /* missing, replace by noface */
1779		1828
1780	glEnd ();	1829	key.texname = tex.name;
1781	glBindTexture (GL_TEXTURE_2D, last_name = tex.name);	1830	arr = rc_array (rc, &key);
1782	glBegin (GL_QUADS);
1783	}	1831	}
1784		1832
1785	glTexCoord2f (0 , 0 ); glVertex2f (px , py );	1833	px = (x + 1) * T - tex.w;
		1834	py = (y + 1) * T - tex.h;
		1835
		1836	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1786	glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);	1837	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);	1838	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 );	1839	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1789		1840
1790	if (cell->flags && z == 2)	1841	if (cell->flags && z == 2)
1791	{	1842	{
		1843	// overlays such as the speech bubble, probably more to come
1792	if (cell->flags & 1)	1844	if (cell->flags & 1)
1793	{	1845	{
1794	maptex tex = self->tex [1];	1846	maptex tex = self->tex [1];
1795	int px = x * T + T * 2 / 32;	1847	int px = x * T + T * 2 / 32;
1796	int py = y * T - T * 6 / 32;	1848	int py = y * T - T * 6 / 32;
1797		1849
		1850	if (tex.name)
1798	glEnd ();	1851	{
1799	glBindTexture (GL_TEXTURE_2D, last_name = tex.name);	1852	if (key.texname != tex.name)
		1853	{
		1854	key.texname = tex.name;
		1855	arr = rc_array (rc, &key);
		1856	}
		1857
		1858	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		1859	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
		1860	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
		1861	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1800	glBegin (GL_QUADS);	1862	}
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	}	1863	}
1807	}	1864	}
1808		1865
1809	// update smooth hash	1866	// update smooth hash
1810	if (tex.smoothtile)	1867	if (tex.smoothtile)
…		…
1845	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	1902	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1846	}	1903	}
1847	}	1904	}
1848	}	1905	}
1849	}	1906	}
		1907
		1908	rc_draw (rc);
		1909	rc_clear (rc);
1850		1910
1851	// go through all smoothlevels, lowest to highest, then draw.	1911	// go through all smoothlevels, lowest to highest, then draw.
1852	// this is basically counting sort	1912	// this is basically counting sort
1853	{	1913	{
1854	int w, b;	1914	int w, 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
1890
1891	glEnd ();	1949	{
1892	glBindTexture (GL_TEXTURE_2D, last_name = tex.name);	1950	key.texname = tex.name;
1893	glBegin (GL_QUADS);	1951	arr = rc_array (rc, &key);
1894	}	1952	}
1895		1953
1896	if (border)	1954	if (border)
1897	{	1955	{
1898	float ox = border * dx;	1956	float ox = border * dx;
1899		1957
1900	glTexCoord2f (ox , 0.f ); glVertex2f (px , py );	1958	rc_t2f_v3f (arr, ox , 0.f , px , py , 0);
1901	glTexCoord2f (ox , dy ); glVertex2f (px , py + T);	1959	rc_t2f_v3f (arr, ox , dy , px , py + T, 0);
1902	glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T);	1960	rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0);
1903	glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py );	1961	rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0);
1904	}	1962	}
1905		1963
1906	if (corner)	1964	if (corner)
1907	{	1965	{
1908	float ox = corner * dx;	1966	float ox = corner * dx;
1909		1967
1910	glTexCoord2f (ox , dy ); glVertex2f (px , py );	1968	rc_t2f_v3f (arr, ox , dy , px , py , 0);
1911	glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T);	1969	rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0);
1912	glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T);	1970	rc_t2f_v3f (arr, ox + dx, dy * 2.f, px + T, py + T, 0);
1913	glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py );	1971	rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0);
		1972	}
1914	}	1973	}
1915	}	1974	}
1916	}	1975	}
1917	}	1976	}
1918	}	1977	}
1919	}	1978	}
1920		1979
1921	hv_clear (smooth);	1980	hv_clear (smooth);
		1981	rc_draw (rc);
		1982	rc_clear (rc);
1922	}	1983	}
1923		1984
1924	glEnd ();
1925
1926	glDisable (GL_TEXTURE_2D);
1927	glDisable (GL_BLEND);	1985	glDisable (GL_BLEND);
		1986	rc_free (rc);
1928		1987
1929	// top layer: overlays such as the health bar	1988	// top layer: overlays such as the health bar
1930	for (y = 0; y < sh; y++)	1989	for (y = 0; y < sh; y++)
1931	if (0 <= y + my && y + my < self->rows)	1990	if (0 <= y + my && y + my < self->rows)
1932	{	1991	{
…		…
2257	CODE:	2316	CODE:
2258	RETVAL = SDL_RWFromFile (path, mode);	2317	RETVAL = SDL_RWFromFile (path, mode);
2259	OUTPUT:	2318	OUTPUT:
2260	RETVAL	2319	RETVAL
2261		2320
		2321	# fails on win32:
		2322	# CFPlus.xs(2268) : error C2059: syntax error : '('
2262	void	2323	#void
2263	close (CFPlus::RW self)	2324	#close (CFPlus::RW self)
2264	CODE:	2325	# CODE:
2265	SDL_RWclose (self);	2326	# (self->(close)) (self);
2266		2327
2267	MODULE = CFPlus PACKAGE = CFPlus::Channel	2328	MODULE = CFPlus PACKAGE = CFPlus::Channel
2268		2329
2269	PROTOTYPES: DISABLE	2330	PROTOTYPES: DISABLE
		2331
		2332	CFPlus::Channel
		2333	find ()
		2334	CODE:
		2335	{
		2336	RETVAL = Mix_GroupAvailable (-1);
		2337
		2338	if (RETVAL < 0)
		2339	{
		2340	RETVAL = Mix_GroupOldest (-1);
		2341
		2342	if (RETVAL < 0)
		2343	XSRETURN_UNDEF;
		2344
		2345	Mix_HaltChannel (RETVAL);
		2346	}
		2347
		2348	Mix_UnregisterAllEffects (RETVAL);
		2349	Mix_Volume (RETVAL, 128);
		2350	}
		2351	OUTPUT:
		2352	RETVAL
		2353
		2354	void
		2355	halt (CFPlus::Channel self)
		2356	CODE:
		2357	Mix_HaltChannel (self);
		2358
		2359	void
		2360	expire (CFPlus::Channel self, int ticks = -1)
		2361	CODE:
		2362	Mix_ExpireChannel (self, ticks);
		2363
		2364	void
		2365	fade_out (CFPlus::Channel self, int ticks = -1)
		2366	CODE:
		2367	Mix_FadeOutChannel (self, ticks);
2270		2368
2271	int	2369	int
2272	volume (CFPlus::Channel self, int volume)	2370	volume (CFPlus::Channel self, int volume)
2273	CODE:	2371	CODE:
2274	RETVAL = Mix_Volume (self, volume);	2372	RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2275	OUTPUT:	2373	OUTPUT:
2276	RETVAL	2374	RETVAL
2277		2375
2278	int	2376	void
2279	unregister_all_effects (CFPlus::Channel self)	2377	unregister_all_effects (CFPlus::Channel self)
2280	CODE:	2378	CODE:
2281	RETVAL = Mix_UnregisterAllEffects (self);	2379	Mix_UnregisterAllEffects (self);
2282	OUTPUT:
2283	RETVAL
2284		2380
2285	int	2381	void
2286	set_panning (CFPlus::Channel self, int left, int right)	2382	set_panning (CFPlus::Channel self, int left, int right)
2287	CODE:	2383	CODE:
		2384	left = CLAMP (left , 0, 255);
		2385	right = CLAMP (right, 0, 255);
2288	RETVAL = Mix_SetPanning (self, left, right);	2386	Mix_SetPanning (self, left, right);
2289	OUTPUT:
2290	RETVAL
2291		2387
2292	int	2388	void
2293	set_distance (CFPlus::Channel self, int distance)	2389	set_distance (CFPlus::Channel self, int distance)
2294	CODE:	2390	CODE:
2295	RETVAL = Mix_SetDistance (self, distance);	2391	Mix_SetDistance (self, CLAMP (distance, 0, 255));
2296	OUTPUT:
2297	RETVAL
2298		2392
2299	int	2393	void
2300	set_position (CFPlus::Channel self, int angle, int distance)	2394	set_position (CFPlus::Channel self, int angle, int distance)
2301	CODE:	2395	CODE:
		2396
		2397	void
		2398	set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
		2399	CODE:
		2400	{
		2401	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
		2402	int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2302	RETVAL = Mix_SetPosition (self, angle, distance);	2403	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2303	OUTPUT:	2404	}
2304	RETVAL
2305		2405
2306	int	2406	void
2307	set_reverse_stereo (CFPlus::Channel self, int flip)	2407	set_reverse_stereo (CFPlus::Channel self, int flip)
2308	CODE:	2408	CODE:
2309	RETVAL = Mix_SetReverseStereo (self, flip);	2409	Mix_SetReverseStereo (self, flip);
2310	OUTPUT:
2311	RETVAL
2312		2410
2313	MODULE = CFPlus PACKAGE = CFPlus::MixChunk	2411	MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2314		2412
2315	PROTOTYPES: DISABLE	2413	PROTOTYPES: DISABLE
2316		2414
…		…
2327	Mix_FreeChunk (self);	2425	Mix_FreeChunk (self);
2328		2426
2329	int	2427	int
2330	volume (CFPlus::MixChunk self, int volume = -1)	2428	volume (CFPlus::MixChunk self, int volume = -1)
2331	CODE:	2429	CODE:
		2430	if (items > 1)
		2431	volume = CLAMP (volume, 0, 128);
2332	RETVAL = Mix_VolumeChunk (self, volume);	2432	RETVAL = Mix_VolumeChunk (self, volume);
2333	OUTPUT:	2433	OUTPUT:
2334	RETVAL	2434	RETVAL
2335		2435
2336	CFPlus::Channel	2436	CFPlus::Channel
2337	play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)	2437	play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
2338	CODE:	2438	CODE:
		2439	{
2339	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);	2440	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		2441
		2442	if (RETVAL < 0)
		2443	XSRETURN_UNDEF;
		2444
		2445	if (channel < 0)
		2446	{
2340	Mix_UnregisterAllEffects (RETVAL);	2447	Mix_UnregisterAllEffects (RETVAL);
		2448	Mix_Volume (RETVAL, 128);
		2449	}
		2450	}
2341	OUTPUT:	2451	OUTPUT:
2342	RETVAL	2452	RETVAL
2343		2453
2344	MODULE = CFPlus PACKAGE = CFPlus::MixMusic	2454	MODULE = CFPlus PACKAGE = CFPlus::MixMusic
2345		2455
2346	int	2456	int
2347	volume (int volume = -1)	2457	volume (int volume = -1)
2348	PROTOTYPE: ;$	2458	PROTOTYPE: ;$
2349	CODE:	2459	CODE:
		2460	if (items > 0)
		2461	volume = CLAMP (volume, 0, 128);
2350	RETVAL = Mix_VolumeMusic (volume);	2462	RETVAL = Mix_VolumeMusic (volume);
2351	OUTPUT:	2463	OUTPUT:
2352	RETVAL	2464	RETVAL
2353		2465
2354	int	2466	void
2355	fade_out (int ms)	2467	fade_out (int ms)
2356	CODE:	2468	CODE:
2357	RETVAL = Mix_FadeOutMusic (ms);	2469	Mix_FadeOutMusic (ms);
2358	OUTPUT:
2359	RETVAL
2360		2470
2361	void	2471	void
2362	halt ()	2472	halt ()
2363	CODE:	2473	CODE:
2364	Mix_HaltMusic ();	2474	Mix_HaltMusic ();
…		…
2380	CODE:	2490	CODE:
2381	RETVAL = Mix_PlayMusic (self, loops);	2491	RETVAL = Mix_PlayMusic (self, loops);
2382	OUTPUT:	2492	OUTPUT:
2383	RETVAL	2493	RETVAL
2384		2494
2385	int	2495	void
2386	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)	2496	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2387	CODE:	2497	CODE:
2388	RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);	2498	Mix_FadeInMusicPos (self, loops, ms, position);
2389	OUTPUT:
2390	RETVAL
2391		2499
2392	MODULE = CFPlus PACKAGE = CFPlus::OpenGL	2500	MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2393		2501
2394	PROTOTYPES: ENABLE	2502	PROTOTYPES: ENABLE
2395		2503

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.212 by root, Sun Jul 29 03:58:26 2007 UTC vs. Revision 1.225 by root, Sat Aug 11 12:07:54 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.212 by root, Sun Jul 29 03:58:26 2007 UTC vs.
Revision 1.225 by root, Sat Aug 11 12:07:54 2007 UTC