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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.304 by root, Fri Apr 23 16:30:38 2010 UTC vs.
Revision 1.321 by root, Sun Nov 18 01:15:04 2018 UTC

…		…
48	#endif	48	#endif
49		49
50	#define PANGO_ENABLE_BACKEND	50	#define PANGO_ENABLE_BACKEND
51	#define G_DISABLE_CAST_CHECKS	51	#define G_DISABLE_CAST_CHECKS
52		52
53	#include <glib/gmacros.h>	53	#include <glib.h>
54		54
55	#include <pango/pango.h>	55	#include <pango/pango.h>
56		56
57	#ifndef PANGO_VERSION_CHECK	57	#ifndef PANGO_VERSION_CHECK
58	# define PANGO_VERSION_CHECK(a,b,c) 0	58	# define PANGO_VERSION_CHECK(a,b,c) 0
…		…
100	#define KMOD_LRAM 0x10000 // our extension	100	#define KMOD_LRAM 0x10000 // our extension
101		101
102	#define TEXID_SPEECH 1	102	#define TEXID_SPEECH 1
103	#define TEXID_NOFACE 2	103	#define TEXID_NOFACE 2
104		104
		105	static char *
		106	fast_sv_grow (SV *sv, STRLEN need)
		107	{
		108	STRLEN len = SvLEN (sv);
		109	STRLEN want = SvCUR (sv) + need;
		110
		111	if (expect_false (len < want))
		112	{
		113	do
		114	len *= 2;
		115	while (len < want);
		116
		117	sv_grow (sv, len);
		118	}
		119
		120	SvCUR_set (sv, want);
		121	return SvEND (sv) - need;
		122	}
		123
105	static AV *texture_av;	124	static AV *texture_av;
106		125
107	static struct	126	static struct
108	{	127	{
109	#define GL_FUNC(ptr,name) ptr name;	128	#define GL_FUNC(ptr,name) ptr name;
…		…
165	{	184	{
166	GSList *attrs = run->item->analysis.extra_attrs;	185	GSList *attrs = run->item->analysis.extra_attrs;
167		186
168	while (attrs)	187	while (attrs)
169	{	188	{
170	PangoAttribute *attr = attrs->data;	189	PangoAttribute attr = (PangoAttribute )attrs->data;
171		190
172	if (attr->klass->type == PANGO_ATTR_SHAPE)	191	if (attr->klass->type == PANGO_ATTR_SHAPE)
173	return 1;	192	return 1;
174		193
175	attrs = attrs->next;	194	attrs = attrs->next;
…		…
193	static void	212	static void
194	substitute_func (FcPattern *pattern, gpointer data)	213	substitute_func (FcPattern *pattern, gpointer data)
195	{	214	{
196	FcPatternAddBool (pattern, FC_HINTING, 1);	215	FcPatternAddBool (pattern, FC_HINTING, 1);
197	#ifdef FC_HINT_STYLE	216	#ifdef FC_HINT_STYLE
198	FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);	217	FcPatternAddInteger (pattern, FC_HINT_STYLE, FC_HINT_FULL);
199	#endif	218	#endif
200	FcPatternAddBool (pattern, FC_AUTOHINT, 0);	219	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
201	}	220	}
202		221
203	static void	222	static void
…		…
462	ev.data2 = 0;	481	ev.data2 = 0;
463		482
464	SDL_PushEvent ((SDL_Event *)&ev);	483	SDL_PushEvent ((SDL_Event *)&ev);
465	}	484	}
466		485
		486	// approximately divide by 255
		487	static unsigned int
		488	div255 (unsigned int n)
		489	{
		490	return (n + (n >> 8)) >> 8;
		491	}
		492
467	static unsigned int	493	static unsigned int
468	minpot (unsigned int n)	494	minpot (unsigned int n)
469	{	495	{
470	if (!n)	496	if (!n)
471	return 0;	497	return 0;
…		…
552		578
553	return mod;	579	return mod;
554	}	580	}
555		581
556	static void	582	static void
557	deliantra_main ()	583	deliantra_main (SV *real_main)
558	{	584	{
559	char *argv[] = { 0 };	585	dSP;
560	call_argv ("::main", G_DISCARD \| G_VOID, argv);	586
		587	PUSHMARK (SP);
		588	call_sv (real_main, G_DISCARD \| G_VOID);
561	}	589	}
562		590
563	#ifdef __MACOSX__	591	#ifdef __MACOSX__
		592	static SV *real_main;
		593
564	/* to due surprising braindamage on the side of SDL design, we	594	/* to due surprising braindamage on the side of SDL design, we
565	* do some mind-boggling hack here: SDL requires a custom main()	595	* do some mind-boggling hack here: SDL requires a custom main()
566	* on OS X, so... we provide one and call the original main(), which,	596	* on OS X, so... we provide one and call the original main(), which,
567	* due to share dlibrary magic, calls -lSDLmain's main, not perl's main,	597	* due to shared library magic, calls -lSDLmain's main, not perl's main,
568	* and which calls our main (== SDL_main) back.	598	* and which calls our main (== SDL_main) back.
569	*/	599	*/
570	extern C_LINKAGE int	600	extern C_LINKAGE int
571	main (int argc, char *argv[])	601	main (int argc, char *argv[])
572	{	602	{
573	deliantra_main ();	603	deliantra_main (real_main);
574	}	604	}
575		605
576	#undef main	606	#undef main
577		607
578	extern C_LINKAGE int main (int argc, char *argv[]);	608	extern C_LINKAGE int main (int argc, char *argv[]);
579		609
580	static void	610	static void
581	SDL_braino (void)	611	SDL_main_hack (SV *real_main_)
582	{	612	{
		613	real_main = real_main_;
		614
583	char *argv[] = { "deliantra client", 0 };	615	char *argv[] = { "deliantra client", 0 };
584	(main) (1, argv);	616	(main) (1, argv);
585	}	617	}
586	#else	618	#else
587	static void	619	static void
588	SDL_braino (void)	620	SDL_main_hack (SV *real_main)
589	{	621	{
590	deliantra_main ();	622	deliantra_main (real_main);
591	}	623	}
592	#endif	624	#endif
593		625
594	MODULE = Deliantra::Client PACKAGE = DC	626	MODULE = Deliantra::Client PACKAGE = DC
595		627
…		…
796		828
797	const_iv (FOW_DARKNESS)	829	const_iv (FOW_DARKNESS)
798	# undef const_iv	830	# undef const_iv
799	};	831	};
800		832
801	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	833	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
802	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	834	newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
803		835
804	assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);	836	assert (SDLK_MODIFIER_MIN == SDLK_NUMLOCK);
805	assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);	837	assert (SDLK_MODIFIER_MAX == SDLK_COMPOSE);
806	}	838	}
807		839
…		…
846	#endif	878	#endif
847	}	879	}
848		880
849	char *SDL_GetError ()	881	char *SDL_GetError ()
850		882
851	void SDL_braino ()	883	void SDL_main_hack (SV *real_main)
		884	PROTOTYPE: &
852		885
853	int SDL_Init (U32 flags)	886	int SDL_Init (U32 flags)
854		887
855	int SDL_InitSubSystem (U32 flags)	888	int SDL_InitSubSystem (U32 flags)
856		889
857	void SDL_QuitSubSystem (U32 flags)	890	void SDL_QuitSubSystem (U32 flags)
858		891
859	void SDL_Quit ()	892	void SDL_Quit ()
860		893
861	int SDL_GL_SetAttribute (int attr, int value)	894	int SDL_GL_SetAttribute (int attr, int value)
		895	C_ARGS: (SDL_GLattr)attr, value
862		896
863	int SDL_GL_GetAttribute (int attr)	897	int SDL_GL_GetAttribute (int attr)
864	CODE:	898	CODE:
865	if (SDL_GL_GetAttribute (attr, &RETVAL))	899	if (SDL_GL_GetAttribute ((SDL_GLattr)attr, &RETVAL))
866	XSRETURN_UNDEF;	900	XSRETURN_UNDEF;
867	OUTPUT:	901	OUTPUT:
868	RETVAL	902	RETVAL
869		903
870	void	904	void
…		…
925	);	959	);
926		960
927	if (RETVAL)	961	if (RETVAL)
928	{	962	{
929	av_clear (texture_av);	963	av_clear (texture_av);
930
931	SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
932	#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);	964	#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
933	#include "glfunc.h"	965	#include "glfunc.h"
934	#undef GL_FUNC	966	#undef GL_FUNC
935
936	if (!gl.ActiveTexture ) gl.ActiveTexture = gl.ActiveTextureARB;	967	if (!gl.ActiveTexture ) gl.ActiveTexture = gl.ActiveTextureARB;
937	if (!gl.MultiTexCoord2f) gl.MultiTexCoord2f = gl.MultiTexCoord2fARB;	968	if (!gl.MultiTexCoord2f) gl.MultiTexCoord2f = gl.MultiTexCoord2fARB;
938	}	969	}
939	}	970	}
940	OUTPUT:	971	OUTPUT:
941	RETVAL	972	RETVAL
942		973
943	void	974	void
		975	SDL_WM_SetCaption (const char title, const char icon)
		976
		977	void
944	SDL_GL_SwapBuffers ()	978	SDL_GL_SwapBuffers ()
945		979
946	char *	980	char *
947	SDL_GetKeyName (int sym)	981	SDL_GetKeyName (int sym)
		982	C_ARGS: (SDLKey)sym
948		983
949	int	984	int
950	SDL_GetAppState ()	985	SDL_GetAppState ()
951		986
952	int	987	int
953	SDL_GetModState ()	988	SDL_GetModState ()
954		989
		990	int
		991	SDL_WaitEvent ()
		992	C_ARGS: 0
		993
955	void	994	void
		995	SDL_PumpEvents ()
		996
		997	void
956	poll_events ()	998	peep_events ()
957	PPCODE:	999	PPCODE:
958	{	1000	{
959	SDL_Event ev;	1001	SDL_Event ev;
960		1002
961	SDL_PumpEvents ();	1003	SDL_PumpEvents ();
…		…
1042	OUTPUT:	1084	OUTPUT:
1043	RETVAL	1085	RETVAL
1044		1086
1045	int	1087	int
1046	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)	1088	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
1047	POSTCALL:	1089	POSTCALL:
1048	Mix_HookMusicFinished (music_finished);	1090	Mix_HookMusicFinished (music_finished);
1049	Mix_ChannelFinished (channel_finished);	1091	Mix_ChannelFinished (channel_finished);
1050		1092
1051	void	1093	void
1052	Mix_QuerySpec ()	1094	Mix_QuerySpec ()
…		…
1111	add_font (char *file)	1153	add_font (char *file)
1112	CODE:	1154	CODE:
1113	RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file);	1155	RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file);
1114	OUTPUT:	1156	OUTPUT:
1115	RETVAL	1157	RETVAL
		1158
		1159	void
		1160	IMG_Init (int flags = IMG_INIT_JPG \| IMG_INIT_PNG)
		1161
		1162	# MIX_INIT_MP3 gives smpeg + libstdc++ + libgcc_s
		1163	void
		1164	Mix_Init (int flags = MIX_INIT_MOD \| MIX_INIT_OGG)
1116		1165
1117	void	1166	void
1118	load_image_inline (SV *image_)	1167	load_image_inline (SV *image_)
1119	ALIAS:	1168	ALIAS:
1120	load_image_file = 1	1169	load_image_file = 1
…		…
1166		1215
1167	SDL_LockSurface (surface2);	1216	SDL_LockSurface (surface2);
1168	EXTEND (SP, 6);	1217	EXTEND (SP, 6);
1169	PUSHs (sv_2mortal (newSViv (surface2->w)));	1218	PUSHs (sv_2mortal (newSViv (surface2->w)));
1170	PUSHs (sv_2mortal (newSViv (surface2->h)));	1219	PUSHs (sv_2mortal (newSViv (surface2->h)));
1171	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	1220	PUSHs (sv_2mortal (newSVpvn ((const char )surface2->pixels, surface2->h surface2->pitch)));
1172	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	1221	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
1173	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	1222	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
1174	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));	1223	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
1175	SDL_UnlockSurface (surface2);	1224	SDL_UnlockSurface (surface2);
1176		1225
…		…
1248	MODULE = Deliantra::Client PACKAGE = DC::Font	1297	MODULE = Deliantra::Client PACKAGE = DC::Font
1249		1298
1250	PROTOTYPES: DISABLE	1299	PROTOTYPES: DISABLE
1251		1300
1252	DC::Font	1301	DC::Font
1253	new_from_file (SV class, char path, int id = 0)	1302	new_from_file (SV klass, char path, int id = 0)
1254	CODE:	1303	CODE:
1255	{	1304	{
1256	int count;	1305	int count;
1257	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);	1306	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);
1258	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);	1307	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
…		…
1287	PROTOTYPE:	1336	PROTOTYPE:
1288	CODE:	1337	CODE:
1289	tc_restore ();	1338	tc_restore ();
1290		1339
1291	DC::Layout	1340	DC::Layout
1292	new (SV *class)	1341	new (SV *klass)
1293	CODE:	1342	CODE:
1294	New (0, RETVAL, 1, struct cf_layout);	1343	New (0, RETVAL, 1, struct cf_layout);
1295		1344
1296	RETVAL->pl = pango_layout_new (opengl_context);	1345	RETVAL->pl = pango_layout_new (opengl_context);
1297	RETVAL->r = 1.;	1346	RETVAL->r = 1.;
…		…
1446		1495
1447	void	1496	void
1448	set_height (DC::Layout self, int base_height)	1497	set_height (DC::Layout self, int base_height)
1449	CODE:	1498	CODE:
1450	if (self->base_height != base_height)	1499	if (self->base_height != base_height)
1451	{	1500	{
1452	self->base_height = base_height;	1501	self->base_height = base_height;
1453	layout_update_font (self);	1502	layout_update_font (self);
1454	}	1503	}
1455		1504
1456	void	1505	void
…		…
1820	MODULE = Deliantra::Client PACKAGE = DC::Map	1869	MODULE = Deliantra::Client PACKAGE = DC::Map
1821		1870
1822	PROTOTYPES: DISABLE	1871	PROTOTYPES: DISABLE
1823		1872
1824	DC::Map	1873	DC::Map
1825	new (SV *class)	1874	new (SV *klass)
1826	CODE:	1875	CODE:
1827	New (0, RETVAL, 1, struct map);	1876	New (0, RETVAL, 1, struct map);
1828	RETVAL->x = 0;	1877	RETVAL->x = 0;
1829	RETVAL->y = 0;	1878	RETVAL->y = 0;
1830	RETVAL->w = 0;	1879	RETVAL->w = 0;
…		…
1869		1918
1870	void	1919	void
1871	set_smooth (DC::Map self, int face, int smooth, int level)	1920	set_smooth (DC::Map self, int face, int smooth, int level)
1872	CODE:	1921	CODE:
1873	{	1922	{
1874	tileid texid;	1923	tileid texid;
1875	maptex *tex;	1924	maptex *tex;
1876		1925
1877	if (face < 0 \|\| face >= self->faces)	1926	if (face < 0 \|\| face >= self->faces)
1878	return;	1927	return;
1879		1928
1880	if (smooth < 0 \|\| smooth >= self->faces)	1929	if (smooth < 0 \|\| smooth >= self->faces)
1881	return;	1930	return;
1882		1931
1883	texid = self->face2tile [face];	1932	texid = self->face2tile [face];
1884		1933
1885	if (!texid)	1934	if (!texid)
1886	return;	1935	return;
1887		1936
1888	tex = self->tex + texid;	1937	tex = self->tex + texid;
…		…
1921	}	1970	}
1922		1971
1923	void	1972	void
1924	expire_textures (DC::Map self, int texid, int count)	1973	expire_textures (DC::Map self, int texid, int count)
1925	PPCODE:	1974	PPCODE:
1926	for (; texid < self->texs && count; ++texid, --count)	1975	for (; texid < self->texs && count; ++texid, --count)
1927	{	1976	{
1928	maptex *tex = self->tex + texid;	1977	maptex *tex = self->tex + texid;
1929		1978
1930	if (tex->name)	1979	if (tex->name)
1931	{	1980	{
…		…
1986	self->y += MAP_EXTEND_Y;	2035	self->y += MAP_EXTEND_Y;
1987	}	2036	}
1988	}	2037	}
1989		2038
1990	SV *	2039	SV *
1991	map1a_update (DC::Map self, SV *data_, int extmap)	2040	map1a_update (DC::Map self, SV *data_)
1992	CODE:	2041	CODE:
1993	{	2042	{
1994	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	2043	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
1995	uint8_t data_end = (uint8_t )SvEND (data_);	2044	uint8_t data_end = (uint8_t )SvEND (data_);
1996	mapcell *cell;	2045	mapcell *cell;
…		…
2017		2066
2018	//TODO: don't trust server data to be in-range(!)	2067	//TODO: don't trust server data to be in-range(!)
2019		2068
2020	if (flags & 8)	2069	if (flags & 8)
2021	{	2070	{
		2071	uint8_t ext, cmd;
		2072
2022	if (extmap)	2073	do
2023	{	2074	{
2024	uint8_t ext, cmd;	2075	ext = *data++;
		2076	cmd = ext & 0x7f;
2025		2077
2026	do	2078	if (cmd < 4)
		2079	cell->darkness = 255 - ext * 64 + 1; /* make sure this doesn't collide with FOW_DARKNESS */
		2080	else if (cmd == 5) // health
2027	{	2081	{
2028	ext = *data++;
2029	cmd = ext & 0x7f;
2030
2031	if (cmd < 4)
2032	cell->darkness = 255 - ext * 64 + 1; /* make sure this doesn't collide with FOW_DARKNESS */
2033	else if (cmd == 5) // health
2034	{
2035	cell->stat_width = 1;	2082	cell->stat_width = 1;
2036	cell->stat_hp = *data++;	2083	cell->stat_hp = *data++;
2037	}
2038	else if (cmd == 6) // monster width
2039	cell->stat_width = *data++ + 1;
2040	else if (cmd == 0x47)
2041	{
2042	if (*data == 1) cell->player = data [1];
2043	else if (*data == 2) cell->player = data [2] + (data [1] << 8);
2044	else if (*data == 3) cell->player = data [3] + (data [2] << 8) + (data [1] << 16);
2045	else if (*data == 4) cell->player = data [4] + (data [3] << 8) + (data [2] << 16) + (data [1] << 24);
2046
2047	data += *data + 1;
2048	}
2049	else if (cmd == 8) // cell flags
2050	cell->flags = *data++;
2051	else if (ext & 0x40) // unknown, multibyte => skip
2052	data += *data + 1;
2053	else
2054	data++;
2055	}	2084	}
2056	while (ext & 0x80);	2085	else if (cmd == 6) // monster width
		2086	cell->stat_width = *data++ + 1;
		2087	else if (cmd == 0x47)
		2088	{
		2089	if (*data == 1) cell->player = data [1];
		2090	else if (*data == 2) cell->player = data [2] + (data [1] << 8);
		2091	else if (*data == 3) cell->player = data [3] + (data [2] << 8) + (data [1] << 16);
		2092	else if (*data == 4) cell->player = data [4] + (data [3] << 8) + (data [2] << 16) + (data [1] << 24);
		2093
		2094	data += *data + 1;
		2095	}
		2096	else if (cmd == 8) // cell flags
		2097	cell->flags = *data++;
		2098	else if (ext & 0x40) // unknown, multibyte => skip
		2099	data += *data + 1;
		2100	else
		2101	data++;
2057	}	2102	}
2058	else	2103	while (ext & 0x80);
2059	cell->darkness = *data++ + 1;
2060	}	2104	}
2061		2105
2062	for (z = 0; z <= 2; ++z)	2106	for (z = 0; z <= 2; ++z)
2063	if (flags & (4 >> z))	2107	if (flags & (4 >> z))
2064	{	2108	{
…		…
2112	? self->row + y	2156	? self->row + y
2113	: 0;	2157	: 0;
2114		2158
2115	for (x = x0; x < x1; x++)	2159	for (x = x0; x < x1; x++)
2116	{	2160	{
2117	int r = 32, g = 32, b = 32, a = 192;	2161	unsigned int r = 32, g = 32, b = 32, a = 192;
2118		2162
2119	if (row && row->c0 <= x && x < row->c1)	2163	if (row && row->c0 <= x && x < row->c1)
2120	{	2164	{
2121	mapcell *cell = row->col + (x - row->c0);	2165	mapcell *cell = row->col + (x - row->c0);
2122		2166
…		…
2124	{	2168	{
2125	maptex tex = self->tex [cell->tile [z]];	2169	maptex tex = self->tex [cell->tile [z]];
2126	int a0 = 255 - tex.a;	2170	int a0 = 255 - tex.a;
2127	int a1 = tex.a;	2171	int a1 = tex.a;
2128		2172
2129	r = (r * a0 + tex.r * a1) / 255;	2173	r = div255 (r * a0 + tex.r * a1);
2130	g = (g * a0 + tex.g * a1) / 255;	2174	g = div255 (g * a0 + tex.g * a1);
2131	b = (b * a0 + tex.b * a1) / 255;	2175	b = div255 (b * a0 + tex.b * a1);
2132	a = (a * a0 + tex.a * a1) / 255;	2176	a = div255 (a * a0 + tex.a * a1);
2133	}	2177	}
2134	}	2178	}
2135		2179
2136	*map++ = (r )	2180	*map++ = (r )
2137	\| (g << 8)	2181	\| (g << 8)
2138	\| (b << 16)	2182	\| (b << 16)
2139	\| (a << 24);	2183	\| (a << 24);
2140	}	2184	}
2141	}	2185	}
2142		2186
2143	RETVAL = map_sv;	2187	RETVAL = map_sv;
2144	}	2188	}
2145	OUTPUT:	2189	OUTPUT:
2146	RETVAL	2190	RETVAL
2147		2191
2148	void	2192	void
2149	draw (DC::Map self, int mx, int my, int sw, int sh, int T, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)	2193	draw (DC::Map self, int mx, int my, int sw, int sh, int Tw, int Th, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
2150	CODE:	2194	CODE:
2151	{	2195	{
2152	int x, y, z;	2196	int x, y, z;
2153		2197
2154	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	2198	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
2155	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	2199	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
2156	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)	2200	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
2157	smooth_key skey;	2201	smooth_key skey;
2158	int pl_x, pl_y;	2202	int pl_x, pl_y;
2159	maptex pl_tex;	2203	maptex pl_tex;
…		…
2238		2282
2239	key.texname = tex.name;	2283	key.texname = tex.name;
2240	arr = rc_array (rc, &key);	2284	arr = rc_array (rc, &key);
2241	}	2285	}
2242		2286
2243	px = (x + 1) * T - tex.w;	2287	px = (x + 1) * Th - tex.w;
2244	py = (y + 1) * T - tex.h;	2288	py = (y + 1) * Tw - tex.h;
2245		2289
2246	if (expect_false (cell->player == player) && expect_false (z == 2))	2290	if (expect_false (cell->player == player) && expect_false (z == 2))
2247	{	2291	{
2248	pl_x = px;	2292	pl_x = px;
2249	pl_y = py;	2293	pl_y = py;
…		…
2302	if (cell->flags & 1)	2346	if (cell->flags & 1)
2303	{	2347	{
2304	rc_key_t key_ov = key;	2348	rc_key_t key_ov = key;
2305	maptex tex = self->tex [TEXID_SPEECH];	2349	maptex tex = self->tex [TEXID_SPEECH];
2306	rc_array_t *arr;	2350	rc_array_t *arr;
2307	int px = x * T + T * 2 / 32;	2351	int px = x * Tw + Tw * 2 / 32;
2308	int py = y * T - T * 6 / 32;	2352	int py = y * Th - Th * 6 / 32;
2309		2353
2310	key_ov.texname = tex.name;	2354	key_ov.texname = tex.name;
2311	arr = rc_array (rc_ov, &key_ov);	2355	arr = rc_array (rc_ov, &key_ov);
2312		2356
2313	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2357	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
2314	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);	2358	rc_t2f_v3f (arr, 0 , tex.t, px , py + Th, 0);
2315	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);	2359	rc_t2f_v3f (arr, tex.s, tex.t, px + Tw, py + Th, 0);
2316	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);	2360	rc_t2f_v3f (arr, tex.s, 0 , px + Tw, py , 0);
2317	}	2361	}
2318	}	2362	}
2319	}	2363	}
2320	}	2364	}
2321		2365
…		…
2348	if (!(bits & 0x1000)	2392	if (!(bits & 0x1000)
2349	&& skey->level == level	2393	&& skey->level == level
2350	&& level > smooth_max [skey->x][skey->y])	2394	&& level > smooth_max [skey->x][skey->y])
2351	{	2395	{
2352	maptex tex = self->tex [skey->tile];	2396	maptex tex = self->tex [skey->tile];
2353	int px = (((int)skey->x) - 1) * T;	2397	int px = (((int)skey->x) - 1) * Tw;
2354	int py = (((int)skey->y) - 1) * T;	2398	int py = (((int)skey->y) - 1) * Th;
2355	int border = bits & 15;	2399	int border = bits & 15;
2356	int corner = (bits >> 8) & ~(bits >> 4) & 15;	2400	int corner = (bits >> 8) & ~(bits >> 4) & 15;
2357	float dx = tex.s * .0625f; // 16 images/row	2401	float dx = tex.s * .0625f; // 16 images/row
2358	float dy = tex.t * .5f ; // 2 images/column	2402	float dy = tex.t * .5f ; // 2 images/column
2359		2403
…		…
2372		2416
2373	if (border)	2417	if (border)
2374	{	2418	{
2375	float ox = border * dx;	2419	float ox = border * dx;
2376		2420
2377	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );	2421	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
2378	glTexCoord2f (ox , dy ); glVertex2i (px , py + T);	2422	glTexCoord2f (ox , dy ); glVertex2i (px , py + Th);
2379	glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);	2423	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py + Th);
2380	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );	2424	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + Tw, py );
2381	}	2425	}
2382		2426
2383	if (corner)	2427	if (corner)
2384	{	2428	{
2385	float ox = corner * dx;	2429	float ox = corner * dx;
2386		2430
2387	glTexCoord2f (ox , dy ); glVertex2i (px , py );	2431	glTexCoord2f (ox , dy ); glVertex2i (px , py );
2388	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);	2432	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + Th);
2389	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);	2433	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + Tw, py + Th);
2390	glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );	2434	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py );
2391	}	2435	}
2392	}	2436	}
2393	}	2437	}
2394	}	2438	}
2395	}	2439	}
…		…
2436	for (x = 0; x < sw; x++)	2480	for (x = 0; x < sw; x++)
2437	if (row->c0 <= x + mx && x + mx < row->c1)	2481	if (row->c0 <= x + mx && x + mx < row->c1)
2438	{	2482	{
2439	mapcell *cell = row->col + (x + mx - row->c0);	2483	mapcell *cell = row->col + (x + mx - row->c0);
2440		2484
2441	int px = x * T;	2485	int px = x * Tw;
2442	int py = y * T;	2486	int py = y * Th;
2443		2487
2444	if (expect_false (cell->player == player))	2488	if (expect_false (cell->player == player))
2445	{	2489	{
2446	px += sdx;	2490	px += sdx;
2447	py += sdy;	2491	py += sdy;
2448	}	2492	}
2449		2493
2450	if (cell->stat_hp)	2494	if (cell->stat_hp)
2451	{	2495	{
2452	int width = cell->stat_width * T;	2496	int width = cell->stat_width * Tw;
2453	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;	2497	int thick = (sh * Th / 32 + 27) / 28 + 1 + cell->stat_width;
2454		2498
2455	glColor3ub (0, 0, 0);	2499	glColor3ub (0, 0, 0);
2456	glRectf (px + 1, py - thick - 2,	2500	glRectf (px + 1, py - thick - 2,
2457	px + width - 1, py);	2501	px + width - 1, py);
2458		2502
…		…
2538	int x, y;	2582	int x, y;
2539	int sw1 = sw + 2;	2583	int sw1 = sw + 2;
2540	int sh1 = sh + 2;	2584	int sh1 = sh + 2;
2541	int sh3 = sh * 3;	2585	int sh3 = sh * 3;
2542	int sw3 = sw * 3;	2586	int sw3 = sw * 3;
2543	uint8_t darkness1 = (uint8_t )malloc (sw1 * sh1);
2544	SV darkness3_sv = sv_2mortal (newSV (sw3 sh3));	2587	SV darkness3_sv = sv_2mortal (newSV (sw3 sh3));
2545	uint8_t darkness3 = (uint8_t )SvPVX (darkness3_sv);	2588	uint8_t darkness3 = (uint8_t )SvPVX (darkness3_sv);
		2589	uint8_t darkness1 = (uint8_t )malloc (sw1 * sh1);
		2590	memset (darkness1, 0, sw1*sh1);
2546		2591
2547	SvPOK_only (darkness3_sv);	2592	SvPOK_only (darkness3_sv);
2548	SvCUR_set (darkness3_sv, sw3 * sh3);	2593	SvCUR_set (darkness3_sv, sw3 * sh3);
2549		2594
2550	mx += self->x - 1;	2595	mx += self->x - 1;
…		…
2676	else	2721	else
2677	*data++ = 0;	2722	*data++ = 0;
2678	}	2723	}
2679	}	2724	}
2680		2725
2681	/* if size is wh + 5 then no data has been found /	2726	/* if size is wh + 5 then no data has been found /
2682	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)	2727	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)
2683	{	2728	{
2684	SvPOK_only (data_sv);	2729	SvPOK_only (data_sv);
2685	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));	2730	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
2686	}	2731	}
2687		2732
2688	RETVAL = data_sv;	2733	RETVAL = data_sv;
2689	}	2734	}
2690	OUTPUT:	2735	OUTPUT:
2691	RETVAL	2736	RETVAL
2692		2737
2693	void	2738	void
…		…
2700	STRLEN len;	2745	STRLEN len;
2701	uint8_t data, end;	2746	uint8_t data, end;
2702		2747
2703	len = SvLEN (data_sv);	2748	len = SvLEN (data_sv);
2704	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more	2749	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
2705	data = SvPVbyte_nolen (data_sv);	2750	data = (uint8_t *)SvPVbyte_nolen (data_sv);
2706	end = data + len + 8;	2751	end = data + len + 8;
2707		2752
2708	if (len < 5)	2753	if (len < 5)
2709	XSRETURN_EMPTY;	2754	XSRETURN_EMPTY;
2710		2755
…		…
2771	}	2816	}
2772		2817
2773	MODULE = Deliantra::Client PACKAGE = DC::RW	2818	MODULE = Deliantra::Client PACKAGE = DC::RW
2774		2819
2775	DC::RW	2820	DC::RW
2776	new (SV class, SV data_sv)	2821	new (SV klass, SV data_sv)
2777	CODE:	2822	CODE:
2778	{	2823	{
2779	STRLEN datalen;	2824	STRLEN datalen;
2780	char *data = SvPVbyte (data_sv, datalen);	2825	char *data = SvPVbyte (data_sv, datalen);
2781		2826
…		…
2783	}	2828	}
2784	OUTPUT:	2829	OUTPUT:
2785	RETVAL	2830	RETVAL
2786		2831
2787	DC::RW	2832	DC::RW
2788	new_from_file (SV class, const char path, const char *mode = "rb")	2833	new_from_file (SV klass, const char path, const char *mode = "rb")
2789	CODE:	2834	CODE:
2790	RETVAL = SDL_RWFromFile (path, mode);	2835	RETVAL = SDL_RWFromFile (path, mode);
2791	OUTPUT:	2836	OUTPUT:
2792	RETVAL	2837	RETVAL
2793		2838
…		…
2902	#else	2947	#else
2903	XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));	2948	XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));
2904	#endif	2949	#endif
2905		2950
2906	DC::MixChunk	2951	DC::MixChunk
2907	new (SV *class, DC::RW rwops)	2952	new (SV *klass, DC::RW rwops)
2908	CODE:	2953	CODE:
2909	RETVAL = Mix_LoadWAV_RW (rwops, 1);	2954	RETVAL = Mix_LoadWAV_RW (rwops, 1);
2910	OUTPUT:	2955	OUTPUT:
2911	RETVAL	2956	RETVAL
2912		2957
…		…
2982	RETVAL = Mix_PlayingMusic ();	3027	RETVAL = Mix_PlayingMusic ();
2983	OUTPUT:	3028	OUTPUT:
2984	RETVAL	3029	RETVAL
2985		3030
2986	DC::MixMusic	3031	DC::MixMusic
2987	new (SV *class, DC::RW rwops)	3032	new (SV *klass, DC::RW rwops)
2988	CODE:	3033	CODE:
2989	RETVAL = Mix_LoadMUS_RW (rwops);	3034	RETVAL = Mix_LoadMUS_RW (rwops);
2990	OUTPUT:	3035	OUTPUT:
2991	RETVAL	3036	RETVAL
2992		3037
…		…
3129	const_iv (GL_FUNC_SUBTRACT),	3174	const_iv (GL_FUNC_SUBTRACT),
3130	const_iv (GL_FUNC_REVERSE_SUBTRACT),	3175	const_iv (GL_FUNC_REVERSE_SUBTRACT),
3131	# undef const_iv	3176	# undef const_iv
3132	};	3177	};
3133		3178
3134	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	3179	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
3135	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	3180	newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
3136		3181
3137	texture_av = newAV ();	3182	texture_av = newAV ();
3138	AvREAL_off (texture_av);	3183	AvREAL_off (texture_av);
3139	}	3184	}
3140		3185
…		…
3145	gl.BlendFuncSeparateEXT = 0;	3190	gl.BlendFuncSeparateEXT = 0;
3146		3191
3147	void	3192	void
3148	apple_nvidia_bug (int enable)	3193	apple_nvidia_bug (int enable)
3149		3194
3150	char *	3195	const char *
3151	gl_vendor ()	3196	gl_vendor ()
3152	CODE:	3197	CODE:
3153	RETVAL = (char *)glGetString (GL_VENDOR);	3198	RETVAL = (const char *)glGetString (GL_VENDOR);
3154	OUTPUT:	3199	OUTPUT:
3155	RETVAL	3200	RETVAL
3156		3201
3157	char *	3202	const char *
3158	gl_version ()	3203	gl_version ()
3159	CODE:	3204	CODE:
3160	RETVAL = (char *)glGetString (GL_VERSION);	3205	RETVAL = (const char *)glGetString (GL_VERSION);
3161	OUTPUT:	3206	OUTPUT:
3162	RETVAL	3207	RETVAL
3163		3208
3164	char *	3209	const char *
3165	gl_extensions ()	3210	gl_extensions ()
3166	CODE:	3211	CODE:
3167	RETVAL = (char *)glGetString (GL_EXTENSIONS);	3212	RETVAL = (const char *)glGetString (GL_EXTENSIONS);
3168	OUTPUT:	3213	OUTPUT:
3169	RETVAL	3214	RETVAL
3170		3215
3171	const char *glGetString (GLenum pname)	3216	const char *glGetString (GLenum pname)
		3217	CODE:
		3218	RETVAL = (const char *)glGetString (pname);
		3219	OUTPUT:
		3220	RETVAL
3172		3221
3173	GLint glGetInteger (GLenum pname)	3222	GLint glGetInteger (GLenum pname)
3174	CODE:	3223	CODE:
3175	glGetIntegerv (pname, &RETVAL);	3224	glGetIntegerv (pname, &RETVAL);
3176	OUTPUT:	3225	OUTPUT:
…		…
3379		3428
3380	void	3429	void
3381	find_widget (SV *self, NV x, NV y)	3430	find_widget (SV *self, NV x, NV y)
3382	PPCODE:	3431	PPCODE:
3383	{	3432	{
3384	if (within_widget (self, x, y))	3433	if (within_widget (self, x, y))
3385	XPUSHs (self);	3434	XPUSHs (self);
3386	}	3435	}
3387		3436
3388	BOOT:	3437	BOOT:
3389	{	3438	{
…		…
3397		3446
3398	void	3447	void
3399	draw (SV *self)	3448	draw (SV *self)
3400	CODE:	3449	CODE:
3401	{	3450	{
3402	HV *hv;	3451	HV *hv;
3403	SV **svp;	3452	SV **svp;
3404	NV x, y, w, h;	3453	NV x, y, w, h;
3405	SV *draw_x_sv = GvSV (draw_x_gv);	3454	SV *draw_x_sv = GvSV (draw_x_gv);
3406	SV *draw_y_sv = GvSV (draw_y_gv);	3455	SV *draw_y_sv = GvSV (draw_y_gv);
3407	SV *draw_w_sv = GvSV (draw_w_gv);	3456	SV *draw_w_sv = GvSV (draw_w_gv);
3408	SV *draw_h_sv = GvSV (draw_h_gv);	3457	SV *draw_h_sv = GvSV (draw_h_gv);

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.304 by root, Fri Apr 23 16:30:38 2010 UTC vs. Revision 1.321 by root, Sun Nov 18 01:15:04 2018 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.304 by root, Fri Apr 23 16:30:38 2010 UTC vs.
Revision 1.321 by root, Sun Nov 18 01:15:04 2018 UTC