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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.208 by root, Sat Jul 21 16:07:53 2007 UTC vs.
Revision 1.224 by root, Sat Aug 11 11:21:46 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>
27	#include <stdio.h>	32	#include <stdio.h>
28	#include <stdlib.h>	33	#include <stdlib.h>
		34
		35	#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
29		36
30	#include <SDL.h>	37	#include <SDL.h>
31	#include <SDL_thread.h>	38	#include <SDL_thread.h>
32	#include <SDL_endian.h>	39	#include <SDL_endian.h>
33	#include <SDL_image.h>	40	#include <SDL_image.h>
…		…
107	av_push (texture_av, (SV *)(size_t)name);	114	av_push (texture_av, (SV *)(size_t)name);
108	glDeleteTextures (1, &name);	115	glDeleteTextures (1, &name);
109	}	116	}
110		117
111	#include "texcache.c"	118	#include "texcache.c"
		119	#include "rendercache.c"
112		120
113	#include "pango-font.c"	121	#include "pango-font.c"
114	#include "pango-fontmap.c"	122	#include "pango-fontmap.c"
115	#include "pango-render.c"	123	#include "pango-render.c"
116		124
		125	typedef IV CFPlus__Channel;
		126	typedef SDL_RWops *CFPlus__RW;
117	typedef Mix_Chunk *CFPlus__MixChunk;	127	typedef Mix_Chunk *CFPlus__MixChunk;
118	typedef Mix_Music *CFPlus__MixMusic;	128	typedef Mix_Music *CFPlus__MixMusic;
119		129
120	typedef PangoFontDescription *CFPlus__Font;	130	typedef PangoFontDescription *CFPlus__Font;
121		131
…		…
434	/* SDL should provide this, really. */	444	/* SDL should provide this, really. */
435	#define SDLK_MODIFIER_MIN 300	445	#define SDLK_MODIFIER_MIN 300
436	#define SDLK_MODIFIER_MAX 314	446	#define SDLK_MODIFIER_MAX 314
437		447
438	/******************************************************************************/	448	/******************************************************************************/
		449
		450	static GV draw_x_gv, draw_y_gv, draw_w_gv, draw_h_gv;
		451	static GV *hover_gv;
439		452
440	static int	453	static int
441	within_widget (SV *widget, NV x, NV y)	454	within_widget (SV *widget, NV x, NV y)
442	{	455	{
443	HV *self;	456	HV *self;
…		…
797	XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));	810	XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));
798	}	811	}
799	}	812	}
800		813
801	int	814	int
802	Mix_OpenAudio (int frequency = 48000, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 2048)	815	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)
803	POSTCALL:	816	POSTCALL:
804	Mix_HookMusicFinished (music_finished);	817	Mix_HookMusicFinished (music_finished);
805	Mix_ChannelFinished (channel_finished);	818	Mix_ChannelFinished (channel_finished);
806		819
807	void	820	void
808	Mix_CloseAudio ()	821	Mix_CloseAudio ()
809		822
810	int	823	int
811	Mix_AllocateChannels (int numchans = -1)	824	Mix_AllocateChannels (int numchans = -1)
		825
		826	const char *
		827	Mix_GetError ()
812		828
813	void	829	void
814	lowdelay (int fd, int val = 1)	830	lowdelay (int fd, int val = 1)
815	CODE:	831	CODE:
816	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));	832	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, (void *)&val, sizeof (val));
…		…
858	STRLEN image_len;	874	STRLEN image_len;
859	char image = (char )SvPVbyte (image_, image_len);	875	char image = (char )SvPVbyte (image_, image_len);
860	SDL_Surface surface, surface2;	876	SDL_Surface surface, surface2;
861	SDL_PixelFormat fmt;	877	SDL_PixelFormat fmt;
862	SDL_RWops *rw = ix	878	SDL_RWops *rw = ix
863	? SDL_RWFromFile (image, "r")	879	? SDL_RWFromFile (image, "rb")
864	: SDL_RWFromConstMem (image, image_len);	880	: SDL_RWFromConstMem (image, image_len);
865		881
866	if (!rw)	882	if (!rw)
867	croak ("load_image: %s", SDL_GetError ());	883	croak ("load_image: %s", SDL_GetError ());
868		884
…		…
1340	HV hv = (HV )SvRV (self);	1356	HV hv = (HV )SvRV (self);
1341	float s = SvNV (*hv_fetch (hv, "s", 1, 1));	1357	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
1342	float t = SvNV (*hv_fetch (hv, "t", 1, 1));	1358	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
1343	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	1359	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
1344		1360
		1361	if (name <= 0)
		1362	XSRETURN_EMPTY;
		1363
1345	if (items < 5)	1364	if (items < 5)
1346	{	1365	{
1347	w = SvNV (*hv_fetch (hv, "w", 1, 1));	1366	w = SvNV (*hv_fetch (hv, "w", 1, 1));
1348	h = SvNV (*hv_fetch (hv, "h", 1, 1));	1367	h = SvNV (*hv_fetch (hv, "h", 1, 1));
1349	}	1368	}
…		…
1537	self->rows += MAP_EXTEND_Y;	1556	self->rows += MAP_EXTEND_Y;
1538	self->y += MAP_EXTEND_Y;	1557	self->y += MAP_EXTEND_Y;
1539	}	1558	}
1540	}	1559	}
1541		1560
1542	void	1561	SV *
1543	map1a_update (CFPlus::Map self, SV *data_, int extmap)	1562	map1a_update (CFPlus::Map self, SV *data_, int extmap)
1544	CODE:	1563	CODE:
1545	{	1564	{
1546	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	1565	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
1547	uint8_t data_end = (uint8_t )SvEND (data_);	1566	uint8_t data_end = (uint8_t )SvEND (data_);
1548	mapcell *cell;	1567	mapcell *cell;
1549	int x, y, flags;	1568	int x, y, z, flags;
		1569	AV *missing = newAV ();
		1570	RETVAL = newRV_noinc ((SV *)missing);
1550		1571
1551	while (data < data_end - 1)	1572	while (data < data_end - 1)
1552	{	1573	{
1553	flags = (data [0] << 8) + data [1]; data += 2;	1574	flags = (data [0] << 8) + data [1]; data += 2;
1554		1575
…		…
1605	}	1626	}
1606	else	1627	else
1607	cell->darkness = *data++ + 1;	1628	cell->darkness = *data++ + 1;
1608	}	1629	}
1609		1630
		1631	for (z = 0; z <= 2; ++z)
1610	if (flags & 4)	1632	if (flags & (4 >> z))
1611	{	1633	{
1612	faceid face = (data [0] << 8) + data [1]; data += 2;	1634	faceid face = (data [0] << 8) + data [1]; data += 2;
1613	need_facenum (self, face);	1635	need_facenum (self, face);
1614	cell->tile [0] = self->face2tile [face];	1636	cell->tile [z] = self->face2tile [face];
		1637
		1638	if (cell->tile [z])
		1639	{
		1640	maptex *tex = self->tex + cell->tile [z];
		1641	if (!tex->name)
		1642	av_push (missing, newSViv (cell->tile [z]));
		1643
		1644	if (tex->smoothtile)
		1645	{
		1646	maptex *smooth = self->tex + tex->smoothtile;
		1647	if (!smooth->name)
		1648	av_push (missing, newSViv (tex->smoothtile));
		1649	}
		1650	}
1615	}	1651	}
1616
1617	if (flags & 2)
1618	{
1619	faceid face = (data [0] << 8) + data [1]; data += 2;
1620	need_facenum (self, face);
1621	cell->tile [1] = self->face2tile [face];
1622	}
1623
1624	if (flags & 1)
1625	{
1626	faceid face = (data [0] << 8) + data [1]; data += 2;
1627	need_facenum (self, face);
1628	cell->tile [2] = self->face2tile [face];
1629	}
1630	}	1652	}
1631	else	1653	else
1632	cell->darkness = 0;	1654	cell->darkness = 0;
1633	}	1655	}
1634	}	1656	}
		1657	OUTPUT:
		1658	RETVAL
1635		1659
1636	SV *	1660	SV *
1637	mapmap (CFPlus::Map self, int x0, int y0, int w, int h)	1661	mapmap (CFPlus::Map self, int x0, int y0, int w, int h)
1638	CODE:	1662	CODE:
1639	{	1663	{
…		…
1690		1714
1691	void	1715	void
1692	draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)	1716	draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)
1693	CODE:	1717	CODE:
1694	{	1718	{
		1719	int x, y, z;
		1720
1695	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	1721	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
1696	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	1722	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1697	static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)	1723	static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)
1698	smooth_key skey;	1724	smooth_key skey;
1699	int x, y, z;	1725
1700	int last_name;	1726	rc_t *rc = rc_alloc ();
		1727	rc_key_t key;
		1728	rc_array_t *arr;
1701		1729
1702	// thats current max. sorry.	1730	// thats current max. sorry.
1703	if (sw > 255) sw = 255;	1731	if (sw > 255) sw = 255;
1704	if (sh > 255) sh = 255;	1732	if (sh > 255) sh = 255;
1705		1733
1706	// clear key, in case of extra padding	1734	// clear key, in case of extra padding
1707	memset (&skey, 0, sizeof (skey));	1735	memset (&skey, 0, sizeof (skey));
1708		1736
1709	glColor4ub (255, 255, 255, 255);	1737	memset (&key, 0, sizeof (key));
1710		1738	key.r = 255;
1711	glEnable (GL_BLEND);	1739	key.g = 255;
1712	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	1740	key.b = 255;
1713	glEnable (GL_TEXTURE_2D);	1741	key.a = 255;
1714	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	1742	key.mode = GL_QUADS;
1715		1743	key.format = GL_T2F_V3F;
1716	glBegin (GL_QUADS);	1744	key.texname = -1;
1717
1718	last_name = 0;
1719		1745
1720	mx += self->x;	1746	mx += self->x;
1721	my += self->y;	1747	my += self->y;
1722		1748
1723	// first pass: determine smooth_max	1749	// first pass: determine smooth_max
…		…
1739	MAX (self->tex [cell->tile [0]].smoothlevel,	1765	MAX (self->tex [cell->tile [0]].smoothlevel,
1740	MAX (self->tex [cell->tile [1]].smoothlevel,	1766	MAX (self->tex [cell->tile [1]].smoothlevel,
1741	self->tex [cell->tile [2]].smoothlevel));	1767	self->tex [cell->tile [2]].smoothlevel));
1742	}	1768	}
1743	}	1769	}
		1770
		1771	glEnable (GL_BLEND);
		1772	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
		1773	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1744		1774
1745	for (z = 0; z <= 2; z++)	1775	for (z = 0; z <= 2; z++)
1746	{	1776	{
1747	memset (smooth_level, 0, sizeof (smooth_level));	1777	memset (smooth_level, 0, sizeof (smooth_level));
1748		1778
…		…
1758	tileid tile = cell->tile [z];	1788	tileid tile = cell->tile [z];
1759		1789
1760	if (tile)	1790	if (tile)
1761	{	1791	{
1762	maptex tex = self->tex [tile];	1792	maptex tex = self->tex [tile];
1763	int px = (x + 1) * T - tex.w;	1793	int px, py;
1764	int py = (y + 1) * T - tex.h;
1765		1794
1766	// suppressing texture state switches here	1795	// suppressing texture state switches here
1767	// is only moderately effective, but worth the extra effort	1796	// is only moderately effective, but worth the extra effort
1768	if (last_name != tex.name)	1797	if (key.texname != tex.name)
1769	{	1798	{
1770	if (!tex.name)	1799	if (!tex.name)
1771	tex = self->tex [2]; /* missing, replace by noface */	1800	tex = self->tex [2]; /* missing, replace by noface */
1772		1801
1773	glEnd ();	1802	key.texname = tex.name;
1774	glBindTexture (GL_TEXTURE_2D, last_name = tex.name);	1803	arr = rc_array (rc, &key);
1775	glBegin (GL_QUADS);
1776	}	1804	}
1777		1805
1778	glTexCoord2f (0 , 0 ); glVertex2f (px , py );	1806	px = (x + 1) * T - tex.w;
		1807	py = (y + 1) * T - tex.h;
		1808
		1809	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1779	glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);	1810	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1780	glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);	1811	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1781	glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );	1812	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1782		1813
1783	if (cell->flags && z == 2)	1814	if (cell->flags && z == 2)
1784	{	1815	{
		1816	// overlays such as the speech bubble, probably more to come
1785	if (cell->flags & 1)	1817	if (cell->flags & 1)
1786	{	1818	{
1787	maptex tex = self->tex [1];	1819	maptex tex = self->tex [1];
1788	int px = x * T + T * 2 / 32;	1820	int px = x * T + T * 2 / 32;
1789	int py = y * T - T * 6 / 32;	1821	int py = y * T - T * 6 / 32;
1790		1822
		1823	if (tex.name)
1791	glEnd ();	1824	{
1792	glBindTexture (GL_TEXTURE_2D, last_name = tex.name);	1825	if (key.texname != tex.name)
		1826	{
		1827	key.texname = tex.name;
		1828	arr = rc_array (rc, &key);
		1829	}
		1830
		1831	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		1832	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
		1833	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
		1834	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1793	glBegin (GL_QUADS);	1835	}
1794
1795	glTexCoord2f (0 , 0 ); glVertex2f (px , py );
1796	glTexCoord2f (0 , tex.t); glVertex2f (px , py + T);
1797	glTexCoord2f (tex.s, tex.t); glVertex2f (px + T, py + T);
1798	glTexCoord2f (tex.s, 0 ); glVertex2f (px + T, py );
1799	}	1836	}
1800	}	1837	}
1801		1838
1802	// update smooth hash	1839	// update smooth hash
1803	if (tex.smoothtile)	1840	if (tex.smoothtile)
…		…
1838	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	1875	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
1839	}	1876	}
1840	}	1877	}
1841	}	1878	}
1842	}	1879	}
		1880
		1881	rc_draw (rc);
		1882	rc_clear (rc);
1843		1883
1844	// go through all smoothlevels, lowest to highest, then draw.	1884	// go through all smoothlevels, lowest to highest, then draw.
1845	// this is basically counting sort	1885	// this is basically counting sort
1846	{	1886	{
1847	int w, b;	1887	int w, b;
…		…
1872	int border = bits & 15;	1912	int border = bits & 15;
1873	int corner = (bits >> 8) & ~(bits >> 4) & 15;	1913	int corner = (bits >> 8) & ~(bits >> 4) & 15;
1874	float dx = tex.s * .0625f; // 16 images/row	1914	float dx = tex.s * .0625f; // 16 images/row
1875	float dy = tex.t * .5f ; // 2 images/column	1915	float dy = tex.t * .5f ; // 2 images/column
1876		1916
1877	// this time naively avoiding texture state changes
1878	// save gobs of state changes.
1879	if (last_name != tex.name)	1917	if (tex.name)
1880	{	1918	{
		1919	// this time avoiding texture state changes
		1920	// save gobs of state changes.
1881	if (!tex.name)	1921	if (key.texname != tex.name)
1882	continue; // smoothing not yet available
1883
1884	glEnd ();	1922	{
1885	glBindTexture (GL_TEXTURE_2D, last_name = tex.name);	1923	key.texname = tex.name;
1886	glBegin (GL_QUADS);	1924	arr = rc_array (rc, &key);
1887	}	1925	}
1888		1926
1889	if (border)	1927	if (border)
1890	{	1928	{
1891	float ox = border * dx;	1929	float ox = border * dx;
1892		1930
1893	glTexCoord2f (ox , 0.f ); glVertex2f (px , py );	1931	rc_t2f_v3f (arr, ox , 0.f , px , py , 0);
1894	glTexCoord2f (ox , dy ); glVertex2f (px , py + T);	1932	rc_t2f_v3f (arr, ox , dy , px , py + T, 0);
1895	glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py + T);	1933	rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0);
1896	glTexCoord2f (ox + dx, 0.f ); glVertex2f (px + T, py );	1934	rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0);
1897	}	1935	}
1898		1936
1899	if (corner)	1937	if (corner)
1900	{	1938	{
1901	float ox = corner * dx;	1939	float ox = corner * dx;
1902		1940
1903	glTexCoord2f (ox , dy ); glVertex2f (px , py );	1941	rc_t2f_v3f (arr, ox , dy , px , py , 0);
1904	glTexCoord2f (ox , dy * 2.f); glVertex2f (px , py + T);	1942	rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0);
1905	glTexCoord2f (ox + dx, dy * 2.f); glVertex2f (px + T, py + T);	1943	rc_t2f_v3f (arr, ox + dx, dy * 2.f, px + T, py + T, 0);
1906	glTexCoord2f (ox + dx, dy ); glVertex2f (px + T, py );	1944	rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0);
		1945	}
1907	}	1946	}
1908	}	1947	}
1909	}	1948	}
1910	}	1949	}
1911	}	1950	}
1912	}	1951	}
1913		1952
1914	hv_clear (smooth);	1953	hv_clear (smooth);
		1954	rc_draw (rc);
		1955	rc_clear (rc);
1915	}	1956	}
1916		1957
1917	glEnd ();
1918
1919	glDisable (GL_TEXTURE_2D);
1920	glDisable (GL_BLEND);	1958	glDisable (GL_BLEND);
		1959	rc_free (rc);
1921		1960
1922	// top layer: overlays such as the health bar	1961	// top layer: overlays such as the health bar
1923	for (y = 0; y < sh; y++)	1962	for (y = 0; y < sh; y++)
1924	if (0 <= y + my && y + my < self->rows)	1963	if (0 <= y + my && y + my < self->rows)
1925	{	1964	{
…		…
2229	}	2268	}
2230	}	2269	}
2231	}	2270	}
2232	}	2271	}
2233		2272
		2273	MODULE = CFPlus PACKAGE = CFPlus::RW
		2274
		2275	CFPlus::RW
		2276	new (SV class, SV data_sv)
		2277	CODE:
		2278	{
		2279	STRLEN datalen;
		2280	char *data = SvPVbyte (data_sv, datalen);
		2281
		2282	RETVAL = SDL_RWFromConstMem (data, datalen);
		2283	}
		2284	OUTPUT:
		2285	RETVAL
		2286
		2287	CFPlus::RW
		2288	new_from_file (SV class, const char path, const char *mode = "rb")
		2289	CODE:
		2290	RETVAL = SDL_RWFromFile (path, mode);
		2291	OUTPUT:
		2292	RETVAL
		2293
		2294	# fails on win32:
		2295	# CFPlus.xs(2268) : error C2059: syntax error : '('
		2296	#void
		2297	#close (CFPlus::RW self)
		2298	# CODE:
		2299	# (self->(close)) (self);
		2300
		2301	MODULE = CFPlus PACKAGE = CFPlus::Channel
		2302
		2303	PROTOTYPES: DISABLE
		2304
		2305	CFPlus::Channel
		2306	find ()
		2307	CODE:
		2308	{
		2309	RETVAL = Mix_GroupAvailable (-1);
		2310
		2311	if (RETVAL < 0)
		2312	{
		2313	RETVAL = Mix_GroupOldest (-1);
		2314
		2315	if (RETVAL < 0)
		2316	XSRETURN_UNDEF;
		2317
		2318	Mix_HaltChannel (RETVAL);
		2319	}
		2320
		2321	Mix_UnregisterAllEffects (RETVAL);
		2322	Mix_Volume (RETVAL, 128);
		2323	}
		2324	OUTPUT:
		2325	RETVAL
		2326
		2327	void
		2328	halt (CFPlus::Channel self)
		2329	CODE:
		2330	Mix_HaltChannel (self);
		2331
		2332	void
		2333	expire (CFPlus::Channel self, int ticks = -1)
		2334	CODE:
		2335	Mix_ExpireChannel (self, ticks);
		2336
		2337	void
		2338	fade_out (CFPlus::Channel self, int ticks = -1)
		2339	CODE:
		2340	Mix_FadeOutChannel (self, ticks);
		2341
		2342	int
		2343	volume (CFPlus::Channel self, int volume)
		2344	CODE:
		2345	RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
		2346	OUTPUT:
		2347	RETVAL
		2348
		2349	void
		2350	unregister_all_effects (CFPlus::Channel self)
		2351	CODE:
		2352	Mix_UnregisterAllEffects (self);
		2353
		2354	void
		2355	set_panning (CFPlus::Channel self, int left, int right)
		2356	CODE:
		2357	left = CLAMP (left , 0, 255);
		2358	right = CLAMP (right, 0, 255);
		2359	Mix_SetPanning (self, left, right);
		2360
		2361	void
		2362	set_distance (CFPlus::Channel self, int distance)
		2363	CODE:
		2364	Mix_SetDistance (self, CLAMP (distance, 0, 255));
		2365
		2366	void
		2367	set_position (CFPlus::Channel self, int angle, int distance)
		2368	CODE:
		2369
		2370	void
		2371	set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)
		2372	CODE:
		2373	{
		2374	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
		2375	int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
		2376	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
		2377	}
		2378
		2379	void
		2380	set_reverse_stereo (CFPlus::Channel self, int flip)
		2381	CODE:
		2382	Mix_SetReverseStereo (self, flip);
		2383
2234	MODULE = CFPlus PACKAGE = CFPlus::MixChunk	2384	MODULE = CFPlus PACKAGE = CFPlus::MixChunk
2235		2385
2236	PROTOTYPES: DISABLE	2386	PROTOTYPES: DISABLE
2237		2387
2238	CFPlus::MixChunk	2388	CFPlus::MixChunk
2239	new_from_file (SV class, char path)	2389	new (SV *class, CFPlus::RW rwops)
2240	CODE:	2390	CODE:
2241	RETVAL = Mix_LoadWAV (path);	2391	RETVAL = Mix_LoadWAV_RW (rwops, 1);
2242	OUTPUT:	2392	OUTPUT:
2243	RETVAL	2393	RETVAL
2244		2394
2245	void	2395	void
2246	DESTROY (CFPlus::MixChunk self)	2396	DESTROY (CFPlus::MixChunk self)
…		…
2248	Mix_FreeChunk (self);	2398	Mix_FreeChunk (self);
2249		2399
2250	int	2400	int
2251	volume (CFPlus::MixChunk self, int volume = -1)	2401	volume (CFPlus::MixChunk self, int volume = -1)
2252	CODE:	2402	CODE:
		2403	if (items > 1)
		2404	volume = CLAMP (volume, 0, 128);
2253	RETVAL = Mix_VolumeChunk (self, volume);	2405	RETVAL = Mix_VolumeChunk (self, volume);
2254	OUTPUT:	2406	OUTPUT:
2255	RETVAL	2407	RETVAL
2256		2408
2257	int	2409	CFPlus::Channel
2258	play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)	2410	play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
2259	CODE:	2411	CODE:
		2412	{
2260	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);	2413	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		2414
		2415	if (RETVAL < 0)
		2416	XSRETURN_UNDEF;
		2417
		2418	if (channel < 0)
		2419	{
		2420	Mix_UnregisterAllEffects (RETVAL);
		2421	Mix_Volume (RETVAL, 128);
		2422	}
		2423	}
2261	OUTPUT:	2424	OUTPUT:
2262	RETVAL	2425	RETVAL
2263		2426
2264	MODULE = CFPlus PACKAGE = CFPlus::MixMusic	2427	MODULE = CFPlus PACKAGE = CFPlus::MixMusic
2265		2428
2266	int	2429	int
2267	volume (int volume = -1)	2430	volume (int volume = -1)
2268	PROTOTYPE: ;$	2431	PROTOTYPE: ;$
2269	CODE:	2432	CODE:
		2433	if (items > 0)
		2434	volume = CLAMP (volume, 0, 128);
2270	RETVAL = Mix_VolumeMusic (volume);	2435	RETVAL = Mix_VolumeMusic (volume);
2271	OUTPUT:	2436	OUTPUT:
2272	RETVAL	2437	RETVAL
2273		2438
2274	int	2439	void
2275	fade_out (int ms)	2440	fade_out (int ms)
2276	CODE:	2441	CODE:
2277	RETVAL = Mix_FadeOutMusic (ms);	2442	Mix_FadeOutMusic (ms);
2278	OUTPUT:	2443
2279	RETVAL	2444	void
		2445	halt ()
		2446	CODE:
		2447	Mix_HaltMusic ();
2280		2448
2281	CFPlus::MixMusic	2449	CFPlus::MixMusic
2282	new_from_file (SV class, char path)	2450	new (SV *class, CFPlus::RW rwops)
2283	CODE:	2451	CODE:
2284	RETVAL = Mix_LoadMUS (path);	2452	RETVAL = Mix_LoadMUS_RW (rwops);
2285	OUTPUT:	2453	OUTPUT:
2286	RETVAL	2454	RETVAL
2287		2455
2288	void	2456	void
2289	DESTROY (CFPlus::MixMusic self)	2457	DESTROY (CFPlus::MixMusic self)
…		…
2295	CODE:	2463	CODE:
2296	RETVAL = Mix_PlayMusic (self, loops);	2464	RETVAL = Mix_PlayMusic (self, loops);
2297	OUTPUT:	2465	OUTPUT:
2298	RETVAL	2466	RETVAL
2299		2467
2300	int	2468	void
2301	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)	2469	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
2302	CODE:	2470	CODE:
2303	RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);	2471	Mix_FadeInMusicPos (self, loops, ms, position);
2304	OUTPUT:
2305	RETVAL
2306		2472
2307	MODULE = CFPlus PACKAGE = CFPlus::OpenGL	2473	MODULE = CFPlus PACKAGE = CFPlus::OpenGL
2308		2474
2309	PROTOTYPES: ENABLE	2475	PROTOTYPES: ENABLE
2310		2476
…		…
2544		2710
2545	void glTexCoord (float s, float t)	2711	void glTexCoord (float s, float t)
2546	CODE:	2712	CODE:
2547	glTexCoord2f (s, t);	2713	glTexCoord2f (s, t);
2548		2714
		2715	void glRect (float x1, float y1, float x2, float y2)
		2716	CODE:
		2717	glRectf (x1, y1, x2, y2);
		2718
2549	PROTOTYPES: ENABLE	2719	PROTOTYPES: ENABLE
2550		2720
2551	void glBegin (int mode)	2721	void glBegin (int mode)
2552		2722
2553	void glEnd ()	2723	void glEnd ()
…		…
2626	MODULE = CFPlus PACKAGE = CFPlus::UI::Base	2796	MODULE = CFPlus PACKAGE = CFPlus::UI::Base
2627		2797
2628	PROTOTYPES: DISABLE	2798	PROTOTYPES: DISABLE
2629		2799
2630	void	2800	void
2631	find_widget (SV *widget, NV x, NV y)	2801	find_widget (SV *self, NV x, NV y)
2632	PPCODE:	2802	PPCODE:
2633	{	2803	{
2634	if (within_widget (widget, x, y))	2804	if (within_widget (self, x, y))
2635	XPUSHs (widget);	2805	XPUSHs (self);
2636	}	2806	}
2637		2807
		2808	BOOT:
		2809	{
		2810	hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);
		2811
		2812	draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);
		2813	draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);
		2814	draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);
		2815	draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);
		2816	}
		2817
		2818	void
		2819	draw (SV *self)
		2820	CODE:
		2821	{
		2822	HV *hv;
		2823	SV **svp;
		2824	NV x, y, w, h;
		2825	SV *draw_x_sv = GvSV (draw_x_gv);
		2826	SV *draw_y_sv = GvSV (draw_y_gv);
		2827	SV *draw_w_sv = GvSV (draw_w_gv);
		2828	SV *draw_h_sv = GvSV (draw_h_gv);
		2829	SV *hover;
		2830	double draw_x, draw_y, draw_w, draw_h;
		2831
		2832	if (!SvROK (self))
		2833	croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));
		2834
		2835	hv = (HV *)SvRV (self);
		2836
		2837	if (SvTYPE (hv) != SVt_PVHV)
		2838	croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));
		2839
		2840	svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
		2841	svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
		2842
		2843	if (!h \|\| !w)
		2844	XSRETURN_EMPTY;
		2845
		2846	svp = hv_fetch (hv, "x", 1, 0); x = svp ? SvNV (*svp) : 0.;
		2847	svp = hv_fetch (hv, "y", 1, 0); y = svp ? SvNV (*svp) : 0.;
		2848
		2849	draw_x = SvNV (draw_x_sv) + x;
		2850	draw_y = SvNV (draw_y_sv) + y;
		2851
		2852	if (draw_x + w < 0 \|\| draw_x >= SvNV (draw_w_sv)
		2853	\|\| draw_y + h < 0 \|\| draw_y >= SvNV (draw_h_sv))
		2854	XSRETURN_EMPTY;
		2855
		2856	sv_setnv (draw_x_sv, draw_x);
		2857	sv_setnv (draw_y_sv, draw_y);
		2858
		2859	glPushMatrix ();
		2860	glTranslated (x, y, 0);
		2861
		2862	if (SvROK (GvSV (hover_gv)) && SvRV (GvSV (hover_gv)) == (SV *)hv)
		2863	{
		2864	svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
		2865
		2866	if (svp && SvTRUE (*svp))
		2867	{
		2868	glColor4f (10.2f, 0.80.2f, 0.5*0.2f, 0.2f);
		2869	glEnable (GL_BLEND);
		2870	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
		2871	glBegin (GL_QUADS);
		2872	glVertex2f (0, 0);
		2873	glVertex2f (w, 0);
		2874	glVertex2f (w, h);
		2875	glVertex2f (0, h);
		2876	glEnd ();
		2877	glDisable (GL_BLEND);
		2878	}
		2879	}
		2880	#if 0
		2881	if ($ENV{CFPLUS_DEBUG} & 1) {
		2882	glPushMatrix;
		2883	glColor 1, 1, 0, 1;
		2884	glTranslate 0.375, 0.375;
		2885	glBegin GL_LINE_LOOP;
		2886	glVertex 0 , 0;
		2887	glVertex $self->{w} - 1, 0;
		2888	glVertex $self->{w} - 1, $self->{h} - 1;
		2889	glVertex 0 , $self->{h} - 1;
		2890	glEnd;
		2891	glPopMatrix;
		2892	#CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
		2893	}
		2894	#endif
		2895	PUSHMARK (SP);
		2896	XPUSHs (self);
		2897	PUTBACK;
		2898	call_method ("_draw", G_VOID \| G_DISCARD);
		2899	SPAGAIN;
		2900
		2901	glPopMatrix ();
		2902
		2903	draw_x = draw_x - x; sv_setnv (draw_x_sv, draw_x);
		2904	draw_y = draw_y - y; sv_setnv (draw_y_sv, draw_y);
		2905	}
		2906

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.208 by root, Sat Jul 21 16:07:53 2007 UTC vs. Revision 1.224 by root, Sat Aug 11 11:21:46 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.208 by root, Sat Jul 21 16:07:53 2007 UTC vs.
Revision 1.224 by root, Sat Aug 11 11:21:46 2007 UTC