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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.256 by root, Mon Mar 24 00:24:46 2008 UTC vs.
Revision 1.291 by root, Thu Nov 26 07:19:11 2009 UTC

…		…
39	#include <SDL_endian.h>	39	#include <SDL_endian.h>
40	#include <SDL_image.h>	40	#include <SDL_image.h>
41	#include <SDL_mixer.h>	41	#include <SDL_mixer.h>
42	#include <SDL_opengl.h>	42	#include <SDL_opengl.h>
43		43
		44	/* work around os x broken headers */
		45	#ifdef __MACOSX__
		46	typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha);
		47	#endif
		48
44	#define PANGO_ENABLE_BACKEND	49	#define PANGO_ENABLE_BACKEND
45	#define G_DISABLE_CAST_CHECKS	50	#define G_DISABLE_CAST_CHECKS
46		51
47	#include <glib/gmacros.h>	52	#include <glib/gmacros.h>
48		53
…		…
65	# include <netinet/in.h>	70	# include <netinet/in.h>
66	# include <netinet/tcp.h>	71	# include <netinet/tcp.h>
67	# include <inttypes.h>	72	# include <inttypes.h>
68	#endif	73	#endif
69		74
		75	#if __GNUC__ >= 4
		76	# define expect(expr,value) __builtin_expect ((expr),(value))
		77	#else
		78	# define expect(expr,value) (expr)
		79	#endif
		80
		81	#define expect_false(expr) expect ((expr) != 0, 0)
		82	#define expect_true(expr) expect ((expr) != 0, 1)
		83
70	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */	84	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
71		85
72	#define FOW_DARKNESS 32	86	#define FOW_DARKNESS 64
73		87
74	#define MAP_EXTEND_X 32	88	#define MAP_EXTEND_X 32
75	#define MAP_EXTEND_Y 512	89	#define MAP_EXTEND_Y 512
76		90
77	#define MIN_FONT_HEIGHT 10	91	#define MIN_FONT_HEIGHT 10
78		92
79	/* mask out modifiers we are not interested in */	93	/* mask out modifiers we are not interested in */
80	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)	94	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)
81		95
82	#if 0	96	#define KMOD_LRAM 0x10000 // our extension
83	# define PARACHUTE SDL_INIT_NOPARACHUTE	97
84	#else	98	#define TEXID_SPEECH 1
85	# define PARACHUTE 0	99	#define TEXID_NOFACE 2
86	#endif	100	#define TEXID_HIDDEN 3
87		101
88	static AV *texture_av;	102	static AV *texture_av;
89		103
90	static struct	104	static struct
91	{	105	{
…		…
185		199
186	static void	200	static void
187	layout_update_font (DC__Layout self)	201	layout_update_font (DC__Layout self)
188	{	202	{
189	/* use a random scale factor to account for unknown descenders, 0.8 works	203	/* use a random scale factor to account for unknown descenders, 0.8 works
190	* reasonably well with bitstream vera	204	* reasonably well with dejavu/bistream fonts
191	*/	205	*/
192	PangoFontDescription *font = self->font ? self->font : default_font;	206	PangoFontDescription *font = self->font ? self->font : default_font;
193		207
194	pango_font_description_set_absolute_size (font,	208	pango_font_description_set_absolute_size (font,
195	MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));	209	MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));
…		…
223	int w, h;	237	int w, h;
224	float s, t;	238	float s, t;
225	uint8_t r, g, b, a;	239	uint8_t r, g, b, a;
226	tileid smoothtile;	240	tileid smoothtile;
227	uint8_t smoothlevel;	241	uint8_t smoothlevel;
		242	uint8_t unused; /* set to zero on use */
228	} maptex;	243	} maptex;
229		244
230	typedef struct {	245	typedef struct {
231	uint32_t player;	246	uint32_t player;
232	tileid tile[3];	247	tileid tile[3];
…		…
364	self->oy = 0;	379	self->oy = 0;
365	self->row = 0;	380	self->row = 0;
366	self->rows = 0;	381	self->rows = 0;
367	}	382	}
368		383
		384	#define CELL_CLEAR(cell) \
		385	do { \
		386	if ((cell)->player) \
		387	(cell)->tile [2] = 0; \
		388	(cell)->darkness = 0; \
		389	(cell)->stat_hp = 0; \
		390	(cell)->flags = 0; \
		391	(cell)->player = 0; \
		392	} while (0)
		393
369	static void	394	static void
370	map_blank (DC__Map self, int x0, int y0, int w, int h)	395	map_blank (DC__Map self, int x0, int y0, int w, int h)
371	{	396	{
372	int x, y;	397	int x, y;
373	maprow *row;	398	maprow *row;
…		…
387	if (x >= row->c1)	412	if (x >= row->c1)
388	break;	413	break;
389		414
390	cell = row->col + x - row->c0;	415	cell = row->col + x - row->c0;
391		416
392	cell->darkness = 0;	417	CELL_CLEAR (cell);
393	cell->stat_hp = 0;
394	cell->flags = 0;
395	cell->player = 0;
396	}	418	}
397	}	419	}
398	}	420	}
399		421
400	typedef struct {	422	typedef struct {
…		…
511	if (!svp \|\| !SvTRUE (*svp))	533	if (!svp \|\| !SvTRUE (*svp))
512	return 0;	534	return 0;
513		535
514	return 1;	536	return 1;
515	}	537	}
		538
		539	/******************************************************************************/
		540
		541	/* process keyboard modifiers */
		542	static int
		543	mod_munge (int mod)
		544	{
		545	mod &= MOD_MASK;
		546
		547	if (mod & (KMOD_META \| KMOD_ALT))
		548	mod \|= KMOD_LRAM;
		549
		550	return mod;
		551	}
		552
		553	static void
		554	deliantra_main ()
		555	{
		556	char *argv[] = { 0 };
		557	call_argv ("::main", G_DISCARD \| G_VOID, argv);
		558	}
		559
		560	#ifdef __MACOSX__
		561	/* to due surprising braindamage on the side of SDL design, we
		562	* do some mind-boggling hack here: SDL requires a custom main()
		563	* on OS X, so... we provide one and call the original main(), which,
		564	* due to share dlibrary magic, calls -lSDLmain's main, not perl's main,
		565	* and which calls our main (== SDL_main) back.
		566	*/
		567	extern C_LINKAGE int
		568	main (int argc, char *argv[])
		569	{
		570	deliantra_main ();
		571	}
		572
		573	#undef main
		574
		575	extern C_LINKAGE int main (int argc, char *argv[]);
		576
		577	static void
		578	SDL_braino (void)
		579	{
		580	char *argv[] = { "deliantra client", 0 };
		581	(main) (1, argv);
		582	}
		583	#else
		584	static void
		585	SDL_braino (void)
		586	{
		587	deliantra_main ();
		588	}
		589	#endif
516		590
517	MODULE = Deliantra::Client PACKAGE = DC	591	MODULE = Deliantra::Client PACKAGE = DC
518		592
519	PROTOTYPES: ENABLE	593	PROTOTYPES: ENABLE
520		594
…		…
549	const_iv (SDL_USEREVENT),	623	const_iv (SDL_USEREVENT),
550		624
551	const_iv (SDL_APPINPUTFOCUS),	625	const_iv (SDL_APPINPUTFOCUS),
552	const_iv (SDL_APPMOUSEFOCUS),	626	const_iv (SDL_APPMOUSEFOCUS),
553	const_iv (SDL_APPACTIVE),	627	const_iv (SDL_APPACTIVE),
		628
		629
		630	const_iv (SDLK_UNKNOWN),
		631	const_iv (SDLK_FIRST),
		632	const_iv (SDLK_BACKSPACE),
		633	const_iv (SDLK_TAB),
		634	const_iv (SDLK_CLEAR),
		635	const_iv (SDLK_RETURN),
		636	const_iv (SDLK_PAUSE),
		637	const_iv (SDLK_ESCAPE),
		638	const_iv (SDLK_SPACE),
		639	const_iv (SDLK_EXCLAIM),
		640	const_iv (SDLK_QUOTEDBL),
		641	const_iv (SDLK_HASH),
		642	const_iv (SDLK_DOLLAR),
		643	const_iv (SDLK_AMPERSAND),
		644	const_iv (SDLK_QUOTE),
		645	const_iv (SDLK_LEFTPAREN),
		646	const_iv (SDLK_RIGHTPAREN),
		647	const_iv (SDLK_ASTERISK),
		648	const_iv (SDLK_PLUS),
		649	const_iv (SDLK_COMMA),
		650	const_iv (SDLK_MINUS),
		651	const_iv (SDLK_PERIOD),
		652	const_iv (SDLK_SLASH),
		653	const_iv (SDLK_0),
		654	const_iv (SDLK_1),
		655	const_iv (SDLK_2),
		656	const_iv (SDLK_3),
		657	const_iv (SDLK_4),
		658	const_iv (SDLK_5),
		659	const_iv (SDLK_6),
		660	const_iv (SDLK_7),
		661	const_iv (SDLK_8),
		662	const_iv (SDLK_9),
		663	const_iv (SDLK_COLON),
		664	const_iv (SDLK_SEMICOLON),
		665	const_iv (SDLK_LESS),
		666	const_iv (SDLK_EQUALS),
		667	const_iv (SDLK_GREATER),
		668	const_iv (SDLK_QUESTION),
		669	const_iv (SDLK_AT),
		670
		671	const_iv (SDLK_LEFTBRACKET),
		672	const_iv (SDLK_BACKSLASH),
		673	const_iv (SDLK_RIGHTBRACKET),
		674	const_iv (SDLK_CARET),
		675	const_iv (SDLK_UNDERSCORE),
		676	const_iv (SDLK_BACKQUOTE),
		677	const_iv (SDLK_DELETE),
554		678
555	const_iv (SDLK_FIRST),	679	const_iv (SDLK_FIRST),
556	const_iv (SDLK_LAST),	680	const_iv (SDLK_LAST),
557	const_iv (SDLK_KP0),	681	const_iv (SDLK_KP0),
558	const_iv (SDLK_KP1),	682	const_iv (SDLK_KP1),
…		…
634	const_iv (KMOD_RMETA),	758	const_iv (KMOD_RMETA),
635	const_iv (KMOD_NUM),	759	const_iv (KMOD_NUM),
636	const_iv (KMOD_CAPS),	760	const_iv (KMOD_CAPS),
637	const_iv (KMOD_MODE),	761	const_iv (KMOD_MODE),
638		762
		763	const_iv (KMOD_LRAM),
		764
639	const_iv (MIX_DEFAULT_FORMAT),	765	const_iv (MIX_DEFAULT_FORMAT),
		766
		767	const_iv (SDL_INIT_TIMER),
		768	const_iv (SDL_INIT_AUDIO),
		769	const_iv (SDL_INIT_VIDEO),
		770	const_iv (SDL_INIT_CDROM),
		771	const_iv (SDL_INIT_JOYSTICK),
		772	const_iv (SDL_INIT_EVERYTHING),
		773	const_iv (SDL_INIT_NOPARACHUTE),
		774	const_iv (SDL_INIT_EVENTTHREAD),
		775
		776	const_iv (SDL_GL_RED_SIZE),
		777	const_iv (SDL_GL_GREEN_SIZE),
		778	const_iv (SDL_GL_BLUE_SIZE),
		779	const_iv (SDL_GL_ALPHA_SIZE),
		780	const_iv (SDL_GL_DOUBLEBUFFER),
		781	const_iv (SDL_GL_BUFFER_SIZE),
		782	const_iv (SDL_GL_DEPTH_SIZE),
		783	const_iv (SDL_GL_STENCIL_SIZE),
		784	const_iv (SDL_GL_ACCUM_RED_SIZE),
		785	const_iv (SDL_GL_ACCUM_GREEN_SIZE),
		786	const_iv (SDL_GL_ACCUM_BLUE_SIZE),
		787	const_iv (SDL_GL_ACCUM_ALPHA_SIZE),
		788	const_iv (SDL_GL_STEREO),
		789	const_iv (SDL_GL_MULTISAMPLEBUFFERS),
		790	const_iv (SDL_GL_MULTISAMPLESAMPLES),
		791	const_iv (SDL_GL_ACCELERATED_VISUAL),
		792	const_iv (SDL_GL_SWAP_CONTROL),
		793
		794	const_iv (FOW_DARKNESS)
640	# undef const_iv	795	# undef const_iv
641	};	796	};
642		797
643	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	798	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
644	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	799	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
673	CODE:	828	CODE:
674	{	829	{
675	opengl_fontmap = pango_opengl_font_map_new ();	830	opengl_fontmap = pango_opengl_font_map_new ();
676	pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);	831	pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
677	opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);	832	opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
		833	/pango_context_set_font_description (opengl_context, default_font);/
678	#if PANGO_VERSION_CHECK (1, 15, 2)	834	#if PANGO_VERSION_CHECK (1, 15, 2)
679	pango_context_set_language (opengl_context, pango_language_from_string ("en"));	835	pango_context_set_language (opengl_context, pango_language_from_string ("en"));
680	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/	836	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/
681	#endif	837	#endif
682	}	838	}
683		839
684	char *
685	SDL_GetError ()	840	char *SDL_GetError ()
686		841
687	int	842	void SDL_braino ()
688	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO \| PARACHUTE)
689		843
690	void	844	int SDL_Init (U32 flags)
		845
		846	int SDL_InitSubSystem (U32 flags)
		847
		848	void SDL_QuitSubSystem (U32 flags)
		849
691	SDL_Quit ()	850	void SDL_Quit ()
		851
		852	int SDL_GL_SetAttribute (int attr, int value)
		853
		854	int SDL_GL_GetAttribute (int attr)
		855	CODE:
		856	if (SDL_GL_GetAttribute (attr, &RETVAL))
		857	XSRETURN_UNDEF;
		858	OUTPUT:
		859	RETVAL
692		860
693	void	861	void
694	SDL_ListModes (int rgb, int alpha)	862	SDL_ListModes (int rgb, int alpha)
695	PPCODE:	863	PPCODE:
696	{	864	{
…		…
708	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);	876	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
709	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);	877	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
710	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);	878	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
711		879
712	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);	880	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
713	#if SDL_VERSION_ATLEAST(1,2,10)
714	SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
715	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);	881	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
716	#endif
717		882
718	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);	883	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
719		884
720	if (m && m != (SDL_Rect **)-1)	885	if (m && m != (SDL_Rect **)-1)
721	while (*m)	886	while (*m)
722	{	887	{
723	if ((m)->w >= 800 && (m)->h >= 480)	888	if ((m)->w >= 400 && (m)->h >= 300)
724	{	889	{
725	AV *av = newAV ();	890	AV *av = newAV ();
726	av_push (av, newSViv ((*m)->w));	891	av_push (av, newSViv ((*m)->w));
727	av_push (av, newSViv ((*m)->h));	892	av_push (av, newSViv ((*m)->h));
728	av_push (av, newSViv (rgb));	893	av_push (av, newSViv (rgb));
…		…
791	{	956	{
792	case SDL_KEYDOWN:	957	case SDL_KEYDOWN:
793	case SDL_KEYUP:	958	case SDL_KEYUP:
794	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);	959	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
795	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);	960	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
796	hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod & MOD_MASK), 0);	961	hv_store (hv, "mod", 3, newSViv (mod_munge (ev.key.keysym.mod)), 0);
797	hv_store (hv, "cmod", 4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */	962	hv_store (hv, "cmod", 4, newSViv (mod_munge (SDL_GetModState ())), 0); /* current mode */
798	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);	963	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
799	break;	964	break;
800		965
801	case SDL_ACTIVEEVENT:	966	case SDL_ACTIVEEVENT:
802	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);	967	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
…		…
820	x = ev.motion.x;	985	x = ev.motion.x;
821	y = ev.motion.y;	986	y = ev.motion.y;
822	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));	987	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
823	}	988	}
824		989
825	hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);	990	hv_store (hv, "mod", 3, newSViv (mod_munge (SDL_GetModState ())), 0);
826	hv_store (hv, "state", 5, newSViv (state), 0);	991	hv_store (hv, "state", 5, newSViv (state), 0);
827	hv_store (hv, "x", 1, newSViv (x), 0);	992	hv_store (hv, "x", 1, newSViv (x), 0);
828	hv_store (hv, "y", 1, newSViv (y), 0);	993	hv_store (hv, "y", 1, newSViv (y), 0);
829	hv_store (hv, "xrel", 4, newSViv (xrel), 0);	994	hv_store (hv, "xrel", 4, newSViv (xrel), 0);
830	hv_store (hv, "yrel", 4, newSViv (yrel), 0);	995	hv_store (hv, "yrel", 4, newSViv (yrel), 0);
…		…
915	}	1080	}
916	}	1081	}
917	#endif	1082	#endif
918	}	1083	}
919		1084
920	void	1085	int
921	add_font (char *file)	1086	add_font (char *file)
922	CODE:	1087	CODE:
923	FcConfigAppFontAddFile (0, (const FcChar8 *)file);	1088	RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file);
		1089	OUTPUT:
		1090	RETVAL
924		1091
925	void	1092	void
926	load_image_inline (SV *image_)	1093	load_image_inline (SV *image_)
927	ALIAS:	1094	ALIAS:
928	load_image_file = 1	1095	load_image_file = 1
…		…
1044	#if DEBUG	1211	#if DEBUG
1045	VALGRIND_DO_LEAK_CHECK;	1212	VALGRIND_DO_LEAK_CHECK;
1046	#endif	1213	#endif
1047	}	1214	}
1048		1215
		1216	int
		1217	SvREFCNT (SV *sv)
		1218	CODE:
		1219	RETVAL = SvREFCNT (sv);
		1220	OUTPUT:
		1221	RETVAL
		1222
1049	MODULE = Deliantra::Client PACKAGE = DC::Font	1223	MODULE = Deliantra::Client PACKAGE = DC::Font
1050		1224
1051	PROTOTYPES: DISABLE	1225	PROTOTYPES: DISABLE
1052		1226
1053	DC::Font	1227	DC::Font
…		…
1597	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);	1771	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1598	// use uglier nearest interpolation because linear suffers	1772	// use uglier nearest interpolation because linear suffers
1599	// from transparent color bleeding and ugly wrapping effects.	1773	// from transparent color bleeding and ugly wrapping effects.
1600	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);	1774	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1601	}	1775	}
		1776
		1777	void
		1778	expire_textures (DC::Map self, int texid, int count)
		1779	PPCODE:
		1780	for (; texid < self->texs && count; ++texid, --count)
		1781	{
		1782	maptex *tex = self->tex + texid;
		1783
		1784	if (tex->name)
		1785	{
		1786	if (tex->unused)
		1787	{
		1788	tex->name = 0;
		1789	tex->unused = 0;
		1790	XPUSHs (sv_2mortal (newSViv (texid)));
		1791	}
		1792	else
		1793	tex->unused = 1;
		1794	}
		1795	}
1602		1796
1603	int	1797	int
1604	ox (DC::Map self)	1798	ox (DC::Map self)
1605	ALIAS:	1799	ALIAS:
1606	oy = 1	1800	oy = 1
…		…
1684	uint8_t ext, cmd;	1878	uint8_t ext, cmd;
1685		1879
1686	do	1880	do
1687	{	1881	{
1688	ext = *data++;	1882	ext = *data++;
1689	cmd = ext & 0x3f;	1883	cmd = ext & 0x7f;
1690		1884
1691	if (cmd < 4)	1885	if (cmd < 4)
1692	cell->darkness = 255 - ext * 64 + 1;	1886	cell->darkness = 255 - ext * 64 + 1;
1693	else if (cmd == 5) // health	1887	else if (cmd == 5) // health
1694	{	1888	{
…		…
1697	}	1891	}
1698	else if (cmd == 6) // monster width	1892	else if (cmd == 6) // monster width
1699	cell->stat_width = *data++ + 1;	1893	cell->stat_width = *data++ + 1;
1700	else if (cmd == 0x47)	1894	else if (cmd == 0x47)
1701	{	1895	{
1702	if (*data == 4)	1896	if (*data == 1) cell->player = data [1];
1703	; // decode player count	1897	else if (*data == 2) cell->player = data [2] + (data [1] << 8);
		1898	else if (*data == 3) cell->player = data [3] + (data [2] << 8) + (data [1] << 16);
		1899	else if (*data == 4) cell->player = data [4] + (data [3] << 8) + (data [2] << 16) + (data [1] << 24);
1704		1900
1705	data += *data + 1;	1901	data += *data + 1;
1706	}	1902	}
1707	else if (cmd == 8) // cell flags	1903	else if (cmd == 8) // cell flags
1708	cell->flags = *data++;	1904	cell->flags = *data++;
…		…
1725	cell->tile [z] = self->face2tile [face];	1921	cell->tile [z] = self->face2tile [face];
1726		1922
1727	if (cell->tile [z])	1923	if (cell->tile [z])
1728	{	1924	{
1729	maptex *tex = self->tex + cell->tile [z];	1925	maptex *tex = self->tex + cell->tile [z];
		1926	tex->unused = 0;
1730	if (!tex->name)	1927	if (!tex->name)
1731	av_push (missing, newSViv (cell->tile [z]));	1928	av_push (missing, newSViv (cell->tile [z]));
1732		1929
1733	if (tex->smoothtile)	1930	if (tex->smoothtile)
1734	{	1931	{
1735	maptex *smooth = self->tex + tex->smoothtile;	1932	maptex *smooth = self->tex + tex->smoothtile;
		1933	smooth->unused = 0;
1736	if (!smooth->name)	1934	if (!smooth->name)
1737	av_push (missing, newSViv (tex->smoothtile));	1935	av_push (missing, newSViv (tex->smoothtile));
1738	}	1936	}
1739	}	1937	}
1740	}	1938	}
1741	}	1939	}
1742	else	1940	else
1743	cell->darkness = 0;	1941	CELL_CLEAR (cell);
1744	}	1942	}
1745	}	1943	}
1746	OUTPUT:	1944	OUTPUT:
1747	RETVAL	1945	RETVAL
1748		1946
…		…
1800	}	1998	}
1801	OUTPUT:	1999	OUTPUT:
1802	RETVAL	2000	RETVAL
1803		2001
1804	void	2002	void
1805	draw (DC::Map self, int mx, int my, int sw, int sh, int T)	2003	draw (DC::Map self, int mx, int my, int sw, int sh, int T, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
1806	CODE:	2004	CODE:
1807	{	2005	{
1808	int x, y, z;	2006	int x, y, z;
1809		2007
1810	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	2008	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
1811	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	2009	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1812	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)	2010	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1813	smooth_key skey;	2011	smooth_key skey;
1814		2012	int pl_x, pl_y;
		2013	maptex pl_tex;
1815	rc_t *rc = rc_alloc ();	2014	rc_t *rc = rc_alloc ();
		2015	rc_t *rc_ov = rc_alloc ();
1816	rc_key_t key;	2016	rc_key_t key;
1817	rc_array_t *arr;	2017	rc_array_t arr, arr_hidden;
1818		2018
		2019	pl_tex.name = 0;
		2020
1819	// thats current max. sorry.	2021	// that's current max. sorry.
1820	if (sw > 255) sw = 255;	2022	if (sw > 255) sw = 255;
1821	if (sh > 255) sh = 255;	2023	if (sh > 255) sh = 255;
1822		2024
1823	// clear key, in case of extra padding	2025	// clear key, in case of extra padding
1824	memset (&skey, 0, sizeof (skey));	2026	memset (&skey, 0, sizeof (skey));
…		…
1828	key.g = 255;	2030	key.g = 255;
1829	key.b = 255;	2031	key.b = 255;
1830	key.a = 255;	2032	key.a = 255;
1831	key.mode = GL_QUADS;	2033	key.mode = GL_QUADS;
1832	key.format = GL_T2F_V3F;	2034	key.format = GL_T2F_V3F;
1833	key.texname = -1;
1834		2035
1835	mx += self->x;	2036	mx += self->x;
1836	my += self->y;	2037	my += self->y;
1837		2038
1838	// first pass: determine smooth_max	2039	// first pass: determine smooth_max
…		…
1859		2060
1860	glEnable (GL_BLEND);	2061	glEnable (GL_BLEND);
1861	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2062	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1862	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2063	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1863		2064
		2065	key.texname = self->tex [TEXID_HIDDEN].name;
		2066	arr_hidden = rc_array (rc_ov, &key);
		2067
1864	for (z = 0; z <= 2; z++)	2068	for (z = 0; z <= 2; z++)
1865	{	2069	{
1866	memset (smooth_level, 0, sizeof (smooth_level));	2070	memset (smooth_level, 0, sizeof (smooth_level));
		2071	key.texname = -1;
1867		2072
1868	for (y = 0; y < sh; y++)	2073	for (y = 0; y < sh; y++)
1869	if (0 <= y + my && y + my < self->rows)	2074	if (0 <= y + my && y + my < self->rows)
1870	{	2075	{
1871	maprow *row = self->row + (y + my);	2076	maprow *row = self->row + (y + my);
…		…
1881	maptex tex = self->tex [tile];	2086	maptex tex = self->tex [tile];
1882	int px, py;	2087	int px, py;
1883		2088
1884	if (key.texname != tex.name)	2089	if (key.texname != tex.name)
1885	{	2090	{
		2091	self->tex [tile].unused = 0;
		2092
1886	if (!tex.name)	2093	if (!tex.name)
1887	tex = self->tex [2]; /* missing, replace by noface */	2094	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
1888		2095
1889	key.texname = tex.name;	2096	key.texname = tex.name;
1890	arr = rc_array (rc, &key);	2097	arr = rc_array (rc, &key);
1891	}	2098	}
1892		2099
1893	px = (x + 1) * T - tex.w;	2100	px = (x + 1) * T - tex.w;
1894	py = (y + 1) * T - tex.h;	2101	py = (y + 1) * T - tex.h;
		2102
		2103	if (expect_false (cell->player == player) && expect_false (z == 2))
		2104	{
		2105	pl_x = px;
		2106	pl_y = py;
		2107	pl_tex = tex;
		2108	continue;
		2109	}
1895		2110
1896	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2111	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1897	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2112	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1898	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2113	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1899	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2114	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1900
1901	if (cell->flags && z == 2)
1902	{
1903	// overlays such as the speech bubble, probably more to come
1904	if (cell->flags & 1)
1905	{
1906	maptex tex = self->tex [1];
1907	int px = x * T + T * 2 / 32;
1908	int py = y * T - T * 6 / 32;
1909
1910	if (tex.name)
1911	{
1912	if (key.texname != tex.name)
1913	{
1914	key.texname = tex.name;
1915	arr = rc_array (rc, &key);
1916	}
1917
1918	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1919	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1920	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1921	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1922	}
1923	}
1924	}
1925		2115
1926	// update smooth hash	2116	// update smooth hash
1927	if (tex.smoothtile)	2117	if (tex.smoothtile)
1928	{	2118	{
1929	skey.tile = tex.smoothtile;	2119	skey.tile = tex.smoothtile;
…		…
1958	// corners	2148	// corners
1959	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);	2149	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1960	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);	2150	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1961	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);	2151	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1962	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	2152	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
		2153	}
		2154	}
		2155
		2156	if (expect_false (z == 2))
		2157	{
		2158	/* draw question marks on top of hidden spaces */
		2159	if (!cell->darkness)
		2160	{
		2161	maptex tex = self->tex [TEXID_HIDDEN];
		2162	int px = (x + 1) * T - tex.w;
		2163	int py = (y + 1) * T - tex.h;
		2164
		2165	rc_t2f_v3f (arr_hidden, 0 , 0 , px , py , 0);
		2166	rc_t2f_v3f (arr_hidden, 0 , tex.t, px , py + tex.h, 0);
		2167	rc_t2f_v3f (arr_hidden, tex.s, tex.t, px + tex.w, py + tex.h, 0);
		2168	rc_t2f_v3f (arr_hidden, tex.s, 0 , px + tex.w, py , 0);
		2169	}
		2170
		2171	if (expect_false (cell->flags))
		2172	{
		2173	// overlays such as the speech bubble, probably more to come
		2174	if (cell->flags & 1)
		2175	{
		2176	rc_key_t key_ov = key;
		2177	maptex tex = self->tex [TEXID_SPEECH];
		2178	rc_array_t *arr;
		2179	int px = x * T + T * 2 / 32;
		2180	int py = y * T - T * 6 / 32;
		2181
		2182	key_ov.texname = tex.name;
		2183	arr = rc_array (rc_ov, &key_ov);
		2184
		2185	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		2186	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
		2187	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
		2188	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
		2189	}
1963	}	2190	}
1964	}	2191	}
1965	}	2192	}
1966	}	2193	}
1967		2194
…		…
2007	{	2234	{
2008	// this time avoiding texture state changes	2235	// this time avoiding texture state changes
2009	// save gobs of state changes.	2236	// save gobs of state changes.
2010	if (key.texname != tex.name)	2237	if (key.texname != tex.name)
2011	{	2238	{
		2239	self->tex [skey->tile].unused = 0;
		2240
2012	glEnd ();	2241	glEnd ();
2013	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);	2242	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
2014	glBegin (GL_QUADS);	2243	glBegin (GL_QUADS);
2015	}	2244	}
2016		2245
…		…
2045	}	2274	}
2046		2275
2047	hv_clear (smooth);	2276	hv_clear (smooth);
2048	}	2277	}
2049		2278
		2279	if (pl_tex.name)
		2280	{
		2281	maptex tex = pl_tex;
		2282	int px = pl_x + sdx;
		2283	int py = pl_y + sdy;
		2284
		2285	key.texname = tex.name;
		2286	arr = rc_array (rc, &key);
		2287
		2288	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		2289	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
		2290	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
		2291	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
		2292
		2293	rc_draw (rc);
		2294	}
		2295
		2296	rc_draw (rc_ov);
		2297	rc_clear (rc_ov);
		2298
2050	glDisable (GL_BLEND);	2299	glDisable (GL_BLEND);
2051	rc_free (rc);	2300	rc_free (rc);
		2301	rc_free (rc_ov);
2052		2302
2053	// top layer: overlays such as the health bar	2303	// top layer: overlays such as the health bar
2054	for (y = 0; y < sh; y++)	2304	for (y = 0; y < sh; y++)
2055	if (0 <= y + my && y + my < self->rows)	2305	if (0 <= y + my && y + my < self->rows)
2056	{	2306	{
…		…
2061	{	2311	{
2062	mapcell *cell = row->col + (x + mx - row->c0);	2312	mapcell *cell = row->col + (x + mx - row->c0);
2063		2313
2064	int px = x * T;	2314	int px = x * T;
2065	int py = y * T;	2315	int py = y * T;
		2316
		2317	if (expect_false (cell->player == player))
		2318	{
		2319	px += sdx;
		2320	py += sdy;
		2321	}
2066		2322
2067	if (cell->stat_hp)	2323	if (cell->stat_hp)
2068	{	2324	{
2069	int width = cell->stat_width * T;	2325	int width = cell->stat_width * T;
2070	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;	2326	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
…		…
2110	};	2366	};
2111		2367
2112	int x, y;	2368	int x, y;
2113		2369
2114	glEnable (GL_TEXTURE_2D);	2370	glEnable (GL_TEXTURE_2D);
		2371	/* GL_REPLACE would be correct, as we don't need to modulate alpha,
		2372	* but the nvidia driver (185.18.14) mishandles alpha textures
		2373	* ansd takes the colour from god knows where instead of using
		2374	* Cp. MODULATE results in the same colour, but slightly different
		2375	* alpha, but atcually gives us the correct colour with nvidia.
		2376	*/
2115	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2377	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
2116	glEnable (GL_BLEND);	2378	glEnable (GL_BLEND);
2117	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2379	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2118	glBegin (GL_QUADS);	2380	glBegin (GL_QUADS);
2119		2381
2120	for (y = 0; y < h; y++)	2382	for (y = 0; y < h; y++)
…		…
2127	float *c = color [m & 15];	2389	float *c = color [m & 15];
2128		2390
2129	float tx1 = m & 0x40 ? 0.5 : 0.;	2391	float tx1 = m & 0x40 ? 0.5 : 0.;
2130	float tx2 = tx1 + 0.5;	2392	float tx2 = tx1 + 0.5;
2131		2393
2132	glColor4f (c[0], c[1], c[2], 0.75);	2394	glColor4f (c[0], c[1], c[2], 1);
2133	glTexCoord2f (tx1, 0.); glVertex2i (x , y );	2395	glTexCoord2f (tx1, 0.); glVertex2i (x , y );
2134	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);	2396	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
2135	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);	2397	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
2136	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );	2398	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
2137	}	2399	}
…		…
2159	SvCUR_set (darkness3_sv, sw34 * sh3);	2421	SvCUR_set (darkness3_sv, sw34 * sh3);
2160		2422
2161	mx += self->x - 1;	2423	mx += self->x - 1;
2162	my += self->y - 1;	2424	my += self->y - 1;
2163		2425
2164	memset (darkness1, 255, sw1 * sh1);	2426	memset (darkness1, 255 - FOW_DARKNESS, sw1 * sh1);
2165		2427
2166	for (y = 0; y < sh1; y++)	2428	for (y = 0; y < sh1; y++)
2167	if (0 <= y + my && y + my < self->rows)	2429	if (0 <= y + my && y + my < self->rows)
2168	{	2430	{
2169	maprow *row = self->row + (y + my);	2431	maprow *row = self->row + (y + my);
…		…
2289	else	2551	else
2290	*data++ = 0;	2552	*data++ = 0;
2291	}	2553	}
2292	}	2554	}
2293		2555
		2556	/* if size is wh + 5 then no data has been found /
		2557	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)
		2558	{
2294	SvPOK_only (data_sv);	2559	SvPOK_only (data_sv);
2295	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));	2560	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
		2561	}
		2562
2296	RETVAL = data_sv;	2563	RETVAL = data_sv;
2297	}	2564	}
2298	OUTPUT:	2565	OUTPUT:
2299	RETVAL	2566	RETVAL
2300		2567
2301	void	2568	void
2302	set_rect (DC::Map self, int x0, int y0, uint8_t *data)	2569	set_rect (DC::Map self, int x0, int y0, SV *data_sv)
2303	PPCODE:	2570	PPCODE:
2304	{	2571	{
2305	int x, y, z;	2572	int x, y, z;
2306	int w, h;	2573	int w, h;
2307	int x1, y1;	2574	int x1, y1;
		2575	STRLEN len;
		2576	uint8_t data, end;
		2577
		2578	len = SvLEN (data_sv);
		2579	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
		2580	data = SvPVbyte_nolen (data_sv);
		2581	end = data + len + 8;
		2582
		2583	if (len < 5)
		2584	XSRETURN_EMPTY;
2308		2585
2309	if (*data++ != 0)	2586	if (*data++ != 0)
2310	XSRETURN_EMPTY; /* version mismatch */	2587	XSRETURN_EMPTY; /* version mismatch */
2311		2588
2312	w = data++ << 8; w \|= data++;	2589	w = data++ << 8; w \|= data++;
…		…
2327	{	2604	{
2328	maprow *row = map_get_row (self, y);	2605	maprow *row = map_get_row (self, y);
2329		2606
2330	for (x = x0; x < x1; x++)	2607	for (x = x0; x < x1; x++)
2331	{	2608	{
		2609	uint8_t flags;
		2610
		2611	if (data + 7 >= end)
		2612	XSRETURN_EMPTY;
		2613
2332	uint8_t flags = *data++;	2614	flags = *data++;
2333		2615
2334	if (flags)	2616	if (flags)
2335	{	2617	{
2336	mapcell *cell = row_get_cell (row, x);	2618	mapcell *cell = row_get_cell (row, x);
2337	tileid tile[3] = { 0, 0, 0 };	2619	tileid tile[3] = { 0, 0, 0 };
…		…
2340	if (flags & 2) { tile[1] = data++ << 8; tile[1] \|= data++; }	2622	if (flags & 2) { tile[1] = data++ << 8; tile[1] \|= data++; }
2341	if (flags & 4) { tile[2] = data++ << 8; tile[2] \|= data++; }	2623	if (flags & 4) { tile[2] = data++ << 8; tile[2] \|= data++; }
2342		2624
2343	if (cell->darkness == 0)	2625	if (cell->darkness == 0)
2344	{	2626	{
2345	cell->darkness = 0;	2627	/cell->darkness = 0;/
		2628	EXTEND (SP, 3);
2346		2629
2347	for (z = 0; z <= 2; z++)	2630	for (z = 0; z <= 2; z++)
2348	{	2631	{
2349	tileid t = tile [z];	2632	tileid t = tile [z];
2350		2633
2351	if (t >= self->texs \|\| (t && !self->tex [t].name))	2634	if (t >= self->texs \|\| (t && !self->tex [t].name))
2352	{	2635	{
2353	XPUSHs (sv_2mortal (newSViv (t)));	2636	PUSHs (sv_2mortal (newSViv (t)));
2354	need_texid (self, t);	2637	need_texid (self, t);
2355	}	2638	}
2356		2639
2357	cell->tile [z] = t;	2640	cell->tile [z] = t;
2358	}	2641	}
…		…
2673	const_iv (GL_NICEST),	2956	const_iv (GL_NICEST),
2674	const_iv (GL_V2F),	2957	const_iv (GL_V2F),
2675	const_iv (GL_V3F),	2958	const_iv (GL_V3F),
2676	const_iv (GL_T2F_V3F),	2959	const_iv (GL_T2F_V3F),
2677	const_iv (GL_T2F_N3F_V3F),	2960	const_iv (GL_T2F_N3F_V3F),
		2961	const_iv (GL_FUNC_ADD),
		2962	const_iv (GL_FUNC_SUBTRACT),
		2963	const_iv (GL_FUNC_REVERSE_SUBTRACT),
2678	# undef const_iv	2964	# undef const_iv
2679	};	2965	};
2680		2966
2681	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	2967	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
2682	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	2968	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
2689	disable_GL_EXT_blend_func_separate ()	2975	disable_GL_EXT_blend_func_separate ()
2690	CODE:	2976	CODE:
2691	gl.BlendFuncSeparate = 0;	2977	gl.BlendFuncSeparate = 0;
2692	gl.BlendFuncSeparateEXT = 0;	2978	gl.BlendFuncSeparateEXT = 0;
2693		2979
		2980	void
		2981	apple_nvidia_bug (int enable)
		2982
2694	char *	2983	char *
2695	gl_vendor ()	2984	gl_vendor ()
2696	CODE:	2985	CODE:
2697	RETVAL = (char *)glGetString (GL_VENDOR);	2986	RETVAL = (char *)glGetString (GL_VENDOR);
2698	OUTPUT:	2987	OUTPUT:
…		…
2747		3036
2748	void glBlendFuncSeparate (int sa, int da, int saa, int daa)	3037	void glBlendFuncSeparate (int sa, int da, int saa, int daa)
2749	CODE:	3038	CODE:
2750	gl_BlendFuncSeparate (sa, da, saa, daa);	3039	gl_BlendFuncSeparate (sa, da, saa, daa);
2751		3040
		3041	void glBlendEquation (int se)
		3042
2752	void glDepthMask (int flag)	3043	void glDepthMask (int flag)
2753		3044
2754	void glLogicOp (int opcode)	3045	void glLogicOp (int opcode)
2755		3046
2756	void glColorMask (int red, int green, int blue, int alpha)	3047	void glColorMask (int red, int green, int blue, int alpha)
…		…
2790	void glRotate (float angle, float x, float y, float z)	3081	void glRotate (float angle, float x, float y, float z)
2791	CODE:	3082	CODE:
2792	glRotatef (angle, x, y, z);	3083	glRotatef (angle, x, y, z);
2793		3084
2794	void glColor (float r, float g, float b, float a = 1.0)	3085	void glColor (float r, float g, float b, float a = 1.0)
		3086	PROTOTYPE: @
2795	ALIAS:	3087	ALIAS:
2796	glColor_premultiply = 1	3088	glColor_premultiply = 1
2797	CODE:	3089	CODE:
2798	if (ix)	3090	if (ix)
2799	{	3091	{

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.256 by root, Mon Mar 24 00:24:46 2008 UTC vs. Revision 1.291 by root, Thu Nov 26 07:19:11 2009 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.256 by root, Mon Mar 24 00:24:46 2008 UTC vs.
Revision 1.291 by root, Thu Nov 26 07:19:11 2009 UTC