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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.261 by root, Sun Jul 13 12:17:00 2008 UTC vs.
Revision 1.294 by root, Sat Dec 19 05:06:56 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
…		…
76	#define expect_false(expr) expect ((expr) != 0, 0)	81	#define expect_false(expr) expect ((expr) != 0, 0)
77	#define expect_true(expr) expect ((expr) != 0, 1)	82	#define expect_true(expr) expect ((expr) != 0, 1)
78		83
79	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */	84	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
80		85
81	#define FOW_DARKNESS 32	86	#define FOW_DARKNESS 64
		87	#define DARKNESS_ADJUST(n) ((29 * (int)(n)) >> 5) /* times 0.9 */
82		88
83	#define MAP_EXTEND_X 32	89	#define MAP_EXTEND_X 32
84	#define MAP_EXTEND_Y 512	90	#define MAP_EXTEND_Y 512
85		91
86	#define MIN_FONT_HEIGHT 10	92	#define MIN_FONT_HEIGHT 10
87		93
88	/* mask out modifiers we are not interested in */	94	/* mask out modifiers we are not interested in */
89	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)	95	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)
90		96
91	#if 1	97	#define KMOD_LRAM 0x10000 // our extension
92	# define PARACHUTE SDL_INIT_NOPARACHUTE	98
93	#else	99	#define TEXID_SPEECH 1
94	# define PARACHUTE 0	100	#define TEXID_NOFACE 2
95	#endif	101	#define TEXID_HIDDEN 3
96		102
97	static AV *texture_av;	103	static AV *texture_av;
98		104
99	static struct	105	static struct
100	{	106	{
…		…
232	int w, h;	238	int w, h;
233	float s, t;	239	float s, t;
234	uint8_t r, g, b, a;	240	uint8_t r, g, b, a;
235	tileid smoothtile;	241	tileid smoothtile;
236	uint8_t smoothlevel;	242	uint8_t smoothlevel;
		243	uint8_t unused; /* set to zero on use */
237	} maptex;	244	} maptex;
238		245
239	typedef struct {	246	typedef struct {
240	uint32_t player;	247	uint32_t player;
241	tileid tile[3];	248	tileid tile[3];
…		…
373	self->oy = 0;	380	self->oy = 0;
374	self->row = 0;	381	self->row = 0;
375	self->rows = 0;	382	self->rows = 0;
376	}	383	}
377		384
		385	#define CELL_CLEAR(cell) \
		386	do { \
		387	if ((cell)->player) \
		388	(cell)->tile [2] = 0; \
		389	(cell)->darkness = 0; \
		390	(cell)->stat_hp = 0; \
		391	(cell)->flags = 0; \
		392	(cell)->player = 0; \
		393	} while (0)
		394
378	static void	395	static void
379	map_blank (DC__Map self, int x0, int y0, int w, int h)	396	map_blank (DC__Map self, int x0, int y0, int w, int h)
380	{	397	{
381	int x, y;	398	int x, y;
382	maprow *row;	399	maprow *row;
…		…
396	if (x >= row->c1)	413	if (x >= row->c1)
397	break;	414	break;
398		415
399	cell = row->col + x - row->c0;	416	cell = row->col + x - row->c0;
400		417
401	cell->darkness = 0;	418	CELL_CLEAR (cell);
402	cell->stat_hp = 0;
403	cell->flags = 0;
404	cell->player = 0;
405	}	419	}
406	}	420	}
407	}	421	}
408		422
409	typedef struct {	423	typedef struct {
…		…
520	if (!svp \|\| !SvTRUE (*svp))	534	if (!svp \|\| !SvTRUE (*svp))
521	return 0;	535	return 0;
522		536
523	return 1;	537	return 1;
524	}	538	}
		539
		540	/******************************************************************************/
		541
		542	/* process keyboard modifiers */
		543	static int
		544	mod_munge (int mod)
		545	{
		546	mod &= MOD_MASK;
		547
		548	if (mod & (KMOD_META \| KMOD_ALT))
		549	mod \|= KMOD_LRAM;
		550
		551	return mod;
		552	}
		553
		554	static void
		555	deliantra_main ()
		556	{
		557	char *argv[] = { 0 };
		558	call_argv ("::main", G_DISCARD \| G_VOID, argv);
		559	}
		560
		561	#ifdef __MACOSX__
		562	/* to due surprising braindamage on the side of SDL design, we
		563	* do some mind-boggling hack here: SDL requires a custom main()
		564	* on OS X, so... we provide one and call the original main(), which,
		565	* due to share dlibrary magic, calls -lSDLmain's main, not perl's main,
		566	* and which calls our main (== SDL_main) back.
		567	*/
		568	extern C_LINKAGE int
		569	main (int argc, char *argv[])
		570	{
		571	deliantra_main ();
		572	}
		573
		574	#undef main
		575
		576	extern C_LINKAGE int main (int argc, char *argv[]);
		577
		578	static void
		579	SDL_braino (void)
		580	{
		581	char *argv[] = { "deliantra client", 0 };
		582	(main) (1, argv);
		583	}
		584	#else
		585	static void
		586	SDL_braino (void)
		587	{
		588	deliantra_main ();
		589	}
		590	#endif
525		591
526	MODULE = Deliantra::Client PACKAGE = DC	592	MODULE = Deliantra::Client PACKAGE = DC
527		593
528	PROTOTYPES: ENABLE	594	PROTOTYPES: ENABLE
529		595
…		…
558	const_iv (SDL_USEREVENT),	624	const_iv (SDL_USEREVENT),
559		625
560	const_iv (SDL_APPINPUTFOCUS),	626	const_iv (SDL_APPINPUTFOCUS),
561	const_iv (SDL_APPMOUSEFOCUS),	627	const_iv (SDL_APPMOUSEFOCUS),
562	const_iv (SDL_APPACTIVE),	628	const_iv (SDL_APPACTIVE),
		629
		630
		631	const_iv (SDLK_UNKNOWN),
		632	const_iv (SDLK_FIRST),
		633	const_iv (SDLK_BACKSPACE),
		634	const_iv (SDLK_TAB),
		635	const_iv (SDLK_CLEAR),
		636	const_iv (SDLK_RETURN),
		637	const_iv (SDLK_PAUSE),
		638	const_iv (SDLK_ESCAPE),
		639	const_iv (SDLK_SPACE),
		640	const_iv (SDLK_EXCLAIM),
		641	const_iv (SDLK_QUOTEDBL),
		642	const_iv (SDLK_HASH),
		643	const_iv (SDLK_DOLLAR),
		644	const_iv (SDLK_AMPERSAND),
		645	const_iv (SDLK_QUOTE),
		646	const_iv (SDLK_LEFTPAREN),
		647	const_iv (SDLK_RIGHTPAREN),
		648	const_iv (SDLK_ASTERISK),
		649	const_iv (SDLK_PLUS),
		650	const_iv (SDLK_COMMA),
		651	const_iv (SDLK_MINUS),
		652	const_iv (SDLK_PERIOD),
		653	const_iv (SDLK_SLASH),
		654	const_iv (SDLK_0),
		655	const_iv (SDLK_1),
		656	const_iv (SDLK_2),
		657	const_iv (SDLK_3),
		658	const_iv (SDLK_4),
		659	const_iv (SDLK_5),
		660	const_iv (SDLK_6),
		661	const_iv (SDLK_7),
		662	const_iv (SDLK_8),
		663	const_iv (SDLK_9),
		664	const_iv (SDLK_COLON),
		665	const_iv (SDLK_SEMICOLON),
		666	const_iv (SDLK_LESS),
		667	const_iv (SDLK_EQUALS),
		668	const_iv (SDLK_GREATER),
		669	const_iv (SDLK_QUESTION),
		670	const_iv (SDLK_AT),
		671
		672	const_iv (SDLK_LEFTBRACKET),
		673	const_iv (SDLK_BACKSLASH),
		674	const_iv (SDLK_RIGHTBRACKET),
		675	const_iv (SDLK_CARET),
		676	const_iv (SDLK_UNDERSCORE),
		677	const_iv (SDLK_BACKQUOTE),
		678	const_iv (SDLK_DELETE),
563		679
564	const_iv (SDLK_FIRST),	680	const_iv (SDLK_FIRST),
565	const_iv (SDLK_LAST),	681	const_iv (SDLK_LAST),
566	const_iv (SDLK_KP0),	682	const_iv (SDLK_KP0),
567	const_iv (SDLK_KP1),	683	const_iv (SDLK_KP1),
…		…
643	const_iv (KMOD_RMETA),	759	const_iv (KMOD_RMETA),
644	const_iv (KMOD_NUM),	760	const_iv (KMOD_NUM),
645	const_iv (KMOD_CAPS),	761	const_iv (KMOD_CAPS),
646	const_iv (KMOD_MODE),	762	const_iv (KMOD_MODE),
647		763
		764	const_iv (KMOD_LRAM),
		765
648	const_iv (MIX_DEFAULT_FORMAT),	766	const_iv (MIX_DEFAULT_FORMAT),
		767
		768	const_iv (SDL_INIT_TIMER),
		769	const_iv (SDL_INIT_AUDIO),
		770	const_iv (SDL_INIT_VIDEO),
		771	const_iv (SDL_INIT_CDROM),
		772	const_iv (SDL_INIT_JOYSTICK),
		773	const_iv (SDL_INIT_EVERYTHING),
		774	const_iv (SDL_INIT_NOPARACHUTE),
		775	const_iv (SDL_INIT_EVENTTHREAD),
		776
		777	const_iv (SDL_GL_RED_SIZE),
		778	const_iv (SDL_GL_GREEN_SIZE),
		779	const_iv (SDL_GL_BLUE_SIZE),
		780	const_iv (SDL_GL_ALPHA_SIZE),
		781	const_iv (SDL_GL_DOUBLEBUFFER),
		782	const_iv (SDL_GL_BUFFER_SIZE),
		783	const_iv (SDL_GL_DEPTH_SIZE),
		784	const_iv (SDL_GL_STENCIL_SIZE),
		785	const_iv (SDL_GL_ACCUM_RED_SIZE),
		786	const_iv (SDL_GL_ACCUM_GREEN_SIZE),
		787	const_iv (SDL_GL_ACCUM_BLUE_SIZE),
		788	const_iv (SDL_GL_ACCUM_ALPHA_SIZE),
		789	const_iv (SDL_GL_STEREO),
		790	const_iv (SDL_GL_MULTISAMPLEBUFFERS),
		791	const_iv (SDL_GL_MULTISAMPLESAMPLES),
		792	const_iv (SDL_GL_ACCELERATED_VISUAL),
		793	const_iv (SDL_GL_SWAP_CONTROL),
		794
		795	const_iv (FOW_DARKNESS)
649	# undef const_iv	796	# undef const_iv
650	};	797	};
651		798
652	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	799	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
653	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	800	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
689	pango_context_set_language (opengl_context, pango_language_from_string ("en"));	836	pango_context_set_language (opengl_context, pango_language_from_string ("en"));
690	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/	837	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/
691	#endif	838	#endif
692	}	839	}
693		840
694	char *
695	SDL_GetError ()	841	char *SDL_GetError ()
696		842
697	int	843	void SDL_braino ()
698	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO \| PARACHUTE)
699		844
700	void	845	int SDL_Init (U32 flags)
		846
		847	int SDL_InitSubSystem (U32 flags)
		848
		849	void SDL_QuitSubSystem (U32 flags)
		850
701	SDL_Quit ()	851	void SDL_Quit ()
		852
		853	int SDL_GL_SetAttribute (int attr, int value)
		854
		855	int SDL_GL_GetAttribute (int attr)
		856	CODE:
		857	if (SDL_GL_GetAttribute (attr, &RETVAL))
		858	XSRETURN_UNDEF;
		859	OUTPUT:
		860	RETVAL
702		861
703	void	862	void
704	SDL_ListModes (int rgb, int alpha)	863	SDL_ListModes (int rgb, int alpha)
705	PPCODE:	864	PPCODE:
706	{	865	{
…		…
718	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);	877	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
719	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);	878	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
720	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);	879	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
721		880
722	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);	881	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
723	#if SDL_VERSION_ATLEAST(1,2,10)
724	SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
725	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);	882	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
726	#endif
727		883
728	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);	884	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
729		885
730	if (m && m != (SDL_Rect **)-1)	886	if (m && m != (SDL_Rect **)-1)
731	while (*m)	887	while (*m)
732	{	888	{
733	if ((m)->w >= 800 && (m)->h >= 480)	889	if ((m)->w >= 400 && (m)->h >= 300)
734	{	890	{
735	AV *av = newAV ();	891	AV *av = newAV ();
736	av_push (av, newSViv ((*m)->w));	892	av_push (av, newSViv ((*m)->w));
737	av_push (av, newSViv ((*m)->h));	893	av_push (av, newSViv ((*m)->h));
738	av_push (av, newSViv (rgb));	894	av_push (av, newSViv (rgb));
…		…
801	{	957	{
802	case SDL_KEYDOWN:	958	case SDL_KEYDOWN:
803	case SDL_KEYUP:	959	case SDL_KEYUP:
804	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);	960	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
805	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);	961	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
806	hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod & MOD_MASK), 0);	962	hv_store (hv, "mod", 3, newSViv (mod_munge (ev.key.keysym.mod)), 0);
807	hv_store (hv, "cmod", 4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */	963	hv_store (hv, "cmod", 4, newSViv (mod_munge (SDL_GetModState ())), 0); /* current mode */
808	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);	964	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
809	break;	965	break;
810		966
811	case SDL_ACTIVEEVENT:	967	case SDL_ACTIVEEVENT:
812	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);	968	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
…		…
830	x = ev.motion.x;	986	x = ev.motion.x;
831	y = ev.motion.y;	987	y = ev.motion.y;
832	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));	988	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
833	}	989	}
834		990
835	hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);	991	hv_store (hv, "mod", 3, newSViv (mod_munge (SDL_GetModState ())), 0);
836	hv_store (hv, "state", 5, newSViv (state), 0);	992	hv_store (hv, "state", 5, newSViv (state), 0);
837	hv_store (hv, "x", 1, newSViv (x), 0);	993	hv_store (hv, "x", 1, newSViv (x), 0);
838	hv_store (hv, "y", 1, newSViv (y), 0);	994	hv_store (hv, "y", 1, newSViv (y), 0);
839	hv_store (hv, "xrel", 4, newSViv (xrel), 0);	995	hv_store (hv, "xrel", 4, newSViv (xrel), 0);
840	hv_store (hv, "yrel", 4, newSViv (yrel), 0);	996	hv_store (hv, "yrel", 4, newSViv (yrel), 0);
…		…
1056	#if DEBUG	1212	#if DEBUG
1057	VALGRIND_DO_LEAK_CHECK;	1213	VALGRIND_DO_LEAK_CHECK;
1058	#endif	1214	#endif
1059	}	1215	}
1060		1216
		1217	int
		1218	SvREFCNT (SV *sv)
		1219	CODE:
		1220	RETVAL = SvREFCNT (sv);
		1221	OUTPUT:
		1222	RETVAL
		1223
1061	MODULE = Deliantra::Client PACKAGE = DC::Font	1224	MODULE = Deliantra::Client PACKAGE = DC::Font
1062		1225
1063	PROTOTYPES: DISABLE	1226	PROTOTYPES: DISABLE
1064		1227
1065	DC::Font	1228	DC::Font
…		…
1494	if (ix)	1657	if (ix)
1495	{	1658	{
1496	glDisable (GL_ALPHA_TEST);	1659	glDisable (GL_ALPHA_TEST);
1497	glDisable (GL_BLEND);	1660	glDisable (GL_BLEND);
1498	}	1661	}
		1662	}
		1663
		1664	void
		1665	draw_fow_texture (float intensity, int name1, float s1, float t1, float w1, float h1, float blend = 0.f, float dx = 0.f, float dy = 0.f, int name2 = 0, float s2 = 0.f, float t2 = 0.f, float w2 = 0.f, float h2 = 0.f)
		1666	PROTOTYPE: @
		1667	CODE:
		1668	{
		1669	glEnable (GL_TEXTURE_2D);
		1670	glEnable (GL_BLEND);
		1671	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
		1672	glBindTexture (GL_TEXTURE_2D, name1);
		1673
		1674	glColor3f (intensity, intensity, intensity);
		1675	glPushMatrix ();
		1676	glScalef (1./3, 1./3, 1.);
		1677
		1678	if (blend > 0.f)
		1679	{
		1680	float S2, T2; /* 0. 0. for texture 2 */
		1681	float w = w1 > w2 ? w1 : w2;
		1682	float h = h1 > h2 ? h1 : h2;
		1683	GLfloat env_color[4] = { 0., 0., 0., blend };
		1684
		1685	/* interpolate the two shadow textures */
		1686	/* stage 0 == rgb(glcolor) + alpha(t0) */
		1687	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		1688
		1689	/* stage 1 == rgb(glcolor) + alpha(interpolate t0, t1, texenv) */
		1690	gl.ActiveTexture (GL_TEXTURE1);
		1691	glEnable (GL_TEXTURE_2D);
		1692	glBindTexture (GL_TEXTURE_2D, name2);
		1693	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE);
		1694
		1695	/* rgb == rgb(glcolor) */
		1696	glTexEnvi (GL_TEXTURE_ENV, GL_COMBINE_RGB, GL_REPLACE);
		1697	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE0_RGB, GL_CONSTANT);
		1698	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND0_RGB, GL_SRC_COLOR);
		1699
		1700	/* alpha = interpolate t0, t1 by env_alpha */
		1701	glTexEnvfv (GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, env_color);
		1702
		1703	glTexEnvi (GL_TEXTURE_ENV, GL_COMBINE_ALPHA, GL_INTERPOLATE);
		1704	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE0_ALPHA, GL_TEXTURE);
		1705	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND0_ALPHA, GL_SRC_ALPHA);
		1706
		1707	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE1_ALPHA, GL_PREVIOUS);
		1708	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND1_ALPHA, GL_SRC_ALPHA);
		1709
		1710	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE2_ALPHA, GL_CONSTANT);
		1711	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND2_ALPHA, GL_SRC_ALPHA);
		1712
		1713	s1 *= w / w1;
		1714	t1 *= h / h1;
		1715
		1716	dx *= -3.f / w2;
		1717	dy *= -3.f / h2;
		1718	dx *= w / w2;
		1719	dy *= h / h2;
		1720
		1721	s2 *= w / w2;
		1722	t2 *= h / h2;
		1723
		1724	glBegin (GL_QUADS);
		1725	gl.MultiTexCoord2f (GL_TEXTURE0, 0, 0); gl.MultiTexCoord2f (GL_TEXTURE1, dx , dy ); glVertex2f ( 0, 0);
		1726	gl.MultiTexCoord2f (GL_TEXTURE0, 0, t1); gl.MultiTexCoord2f (GL_TEXTURE1, dx , dy + t2); glVertex2f ( 0, h1);
		1727	gl.MultiTexCoord2f (GL_TEXTURE0, s1, t1); gl.MultiTexCoord2f (GL_TEXTURE1, dx + s2, dy + t2); glVertex2f (w1, h1);
		1728	gl.MultiTexCoord2f (GL_TEXTURE0, s1, 0); gl.MultiTexCoord2f (GL_TEXTURE1, dx + s2, dy ); glVertex2f (w1, 0);
		1729	glEnd ();
		1730
		1731	glDisable (GL_TEXTURE_2D);
		1732	gl.ActiveTexture (GL_TEXTURE0);
		1733	}
		1734	else
		1735	{
		1736	/* simple blending of one texture, also opengl <1.3 path */
		1737	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		1738
		1739	glBegin (GL_QUADS);
		1740	glTexCoord2f ( 0, 0); glVertex2f ( 0, 0);
		1741	glTexCoord2f ( 0, t1); glVertex2f ( 0, h1);
		1742	glTexCoord2f (s1, t1); glVertex2f (w1, h1);
		1743	glTexCoord2f (s1, 0); glVertex2f (w1, 0);
		1744	glEnd ();
		1745	}
		1746
		1747	glPopMatrix ();
		1748
		1749	glDisable (GL_TEXTURE_2D);
		1750	glDisable (GL_BLEND);
1499	}	1751	}
1500		1752
1501	IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)	1753	IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1502	CODE:	1754	CODE:
1503	{	1755	{
…		…
1609	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);	1861	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1610	// use uglier nearest interpolation because linear suffers	1862	// use uglier nearest interpolation because linear suffers
1611	// from transparent color bleeding and ugly wrapping effects.	1863	// from transparent color bleeding and ugly wrapping effects.
1612	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);	1864	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1613	}	1865	}
		1866
		1867	void
		1868	expire_textures (DC::Map self, int texid, int count)
		1869	PPCODE:
		1870	for (; texid < self->texs && count; ++texid, --count)
		1871	{
		1872	maptex *tex = self->tex + texid;
		1873
		1874	if (tex->name)
		1875	{
		1876	if (tex->unused)
		1877	{
		1878	tex->name = 0;
		1879	tex->unused = 0;
		1880	XPUSHs (sv_2mortal (newSViv (texid)));
		1881	}
		1882	else
		1883	tex->unused = 1;
		1884	}
		1885	}
1614		1886
1615	int	1887	int
1616	ox (DC::Map self)	1888	ox (DC::Map self)
1617	ALIAS:	1889	ALIAS:
1618	oy = 1	1890	oy = 1
…		…
1739	cell->tile [z] = self->face2tile [face];	2011	cell->tile [z] = self->face2tile [face];
1740		2012
1741	if (cell->tile [z])	2013	if (cell->tile [z])
1742	{	2014	{
1743	maptex *tex = self->tex + cell->tile [z];	2015	maptex *tex = self->tex + cell->tile [z];
		2016	tex->unused = 0;
1744	if (!tex->name)	2017	if (!tex->name)
1745	av_push (missing, newSViv (cell->tile [z]));	2018	av_push (missing, newSViv (cell->tile [z]));
1746		2019
1747	if (tex->smoothtile)	2020	if (tex->smoothtile)
1748	{	2021	{
1749	maptex *smooth = self->tex + tex->smoothtile;	2022	maptex *smooth = self->tex + tex->smoothtile;
		2023	smooth->unused = 0;
1750	if (!smooth->name)	2024	if (!smooth->name)
1751	av_push (missing, newSViv (tex->smoothtile));	2025	av_push (missing, newSViv (tex->smoothtile));
1752	}	2026	}
1753	}	2027	}
1754	}	2028	}
1755	}	2029	}
1756	else	2030	else
1757	cell->darkness = 0;	2031	CELL_CLEAR (cell);
1758	}	2032	}
1759	}	2033	}
1760	OUTPUT:	2034	OUTPUT:
1761	RETVAL	2035	RETVAL
1762		2036
…		…
1814	}	2088	}
1815	OUTPUT:	2089	OUTPUT:
1816	RETVAL	2090	RETVAL
1817		2091
1818	void	2092	void
1819	draw (DC::Map self, int mx, int my, int sw, int sh, int T, U32 player = 0xffffffff, int pdx = 0, int pdy = 0)	2093	draw (DC::Map self, int mx, int my, int sw, int sh, int T, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
1820	CODE:	2094	CODE:
1821	{	2095	{
1822	int x, y, z;	2096	int x, y, z;
1823		2097
1824	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	2098	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
1825	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	2099	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1826	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)	2100	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1827	smooth_key skey;	2101	smooth_key skey;
1828	int pl_x, pl_y;	2102	int pl_x, pl_y;
1829	maptex pl_tex;	2103	maptex pl_tex;
		2104	rc_t *rc = rc_alloc ();
		2105	rc_t *rc_ov = rc_alloc ();
		2106	rc_key_t key;
		2107	rc_array_t arr, arr_hidden;
1830		2108
1831	pl_tex.name = 0;	2109	pl_tex.name = 0;
1832		2110
1833	rc_t *rc = rc_alloc ();
1834	rc_key_t key;
1835	rc_array_t *arr;
1836
1837	// thats current max. sorry.	2111	// that's current max. sorry.
1838	if (sw > 255) sw = 255;	2112	if (sw > 255) sw = 255;
1839	if (sh > 255) sh = 255;	2113	if (sh > 255) sh = 255;
1840		2114
1841	// clear key, in case of extra padding	2115	// clear key, in case of extra padding
1842	memset (&skey, 0, sizeof (skey));	2116	memset (&skey, 0, sizeof (skey));
…		…
1846	key.g = 255;	2120	key.g = 255;
1847	key.b = 255;	2121	key.b = 255;
1848	key.a = 255;	2122	key.a = 255;
1849	key.mode = GL_QUADS;	2123	key.mode = GL_QUADS;
1850	key.format = GL_T2F_V3F;	2124	key.format = GL_T2F_V3F;
1851	key.texname = -1;
1852		2125
1853	mx += self->x;	2126	mx += self->x;
1854	my += self->y;	2127	my += self->y;
1855		2128
1856	// first pass: determine smooth_max	2129	// first pass: determine smooth_max
…		…
1877		2150
1878	glEnable (GL_BLEND);	2151	glEnable (GL_BLEND);
1879	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2152	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1880	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2153	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1881		2154
		2155	key.texname = self->tex [TEXID_HIDDEN].name;
		2156	arr_hidden = rc_array (rc_ov, &key);
		2157
1882	for (z = 0; z <= 2; z++)	2158	for (z = 0; z <= 2; z++)
1883	{	2159	{
1884	memset (smooth_level, 0, sizeof (smooth_level));	2160	memset (smooth_level, 0, sizeof (smooth_level));
		2161	key.texname = -1;
1885		2162
1886	for (y = 0; y < sh; y++)	2163	for (y = 0; y < sh; y++)
1887	if (0 <= y + my && y + my < self->rows)	2164	if (0 <= y + my && y + my < self->rows)
1888	{	2165	{
1889	maprow *row = self->row + (y + my);	2166	maprow *row = self->row + (y + my);
…		…
1895	tileid tile = cell->tile [z];	2172	tileid tile = cell->tile [z];
1896		2173
1897	if (tile)	2174	if (tile)
1898	{	2175	{
1899	maptex tex = self->tex [tile];	2176	maptex tex = self->tex [tile];
1900	int px = (x + 1) * T - tex.w;	2177	int px, py;
1901	int py = (y + 1) * T - tex.h;
1902		2178
1903	if (key.texname != tex.name)	2179	if (key.texname != tex.name)
1904	{	2180	{
		2181	self->tex [tile].unused = 0;
		2182
1905	if (!tex.name)	2183	if (!tex.name)
1906	tex = self->tex [2]; /* missing, replace by noface */	2184	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
1907		2185
1908	key.texname = tex.name;	2186	key.texname = tex.name;
1909	arr = rc_array (rc, &key);	2187	arr = rc_array (rc, &key);
1910	}	2188	}
		2189
		2190	px = (x + 1) * T - tex.w;
		2191	py = (y + 1) * T - tex.h;
1911		2192
1912	if (expect_false (cell->player == player) && expect_false (z == 2))	2193	if (expect_false (cell->player == player) && expect_false (z == 2))
1913	{	2194	{
1914	pl_x = px;	2195	pl_x = px;
1915	pl_y = py;	2196	pl_y = py;
…		…
1920	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2201	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1921	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2202	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1922	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2203	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1923	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2204	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1924		2205
1925	if (expect_false (cell->flags) && expect_false (z == 2))
1926	{
1927	// overlays such as the speech bubble, probably more to come
1928	if (cell->flags & 1)
1929	{
1930	maptex tex = self->tex [1];
1931	int px = x * T + T * 2 / 32;
1932	int py = y * T - T * 6 / 32;
1933
1934	if (tex.name)
1935	{
1936	if (key.texname != tex.name)
1937	{
1938	key.texname = tex.name;
1939	arr = rc_array (rc, &key);
1940	}
1941
1942	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1943	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1944	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1945	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1946	}
1947	}
1948	}
1949
1950	// update smooth hash	2206	// update smooth hash
1951	if (tex.smoothtile)	2207	if (tex.smoothtile)
1952	{	2208	{
1953	skey.tile = tex.smoothtile;	2209	skey.tile = tex.smoothtile;
1954	skey.level = tex.smoothlevel;	2210	skey.level = tex.smoothlevel;
…		…
1982	// corners	2238	// corners
1983	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);	2239	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1984	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);	2240	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1985	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);	2241	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1986	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	2242	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
		2243	}
		2244	}
		2245
		2246	if (expect_false (z == 2))
		2247	{
		2248	/* draw question marks on top of hidden spaces */
		2249	if (!cell->darkness)
		2250	{
		2251	maptex tex = self->tex [TEXID_HIDDEN];
		2252	int px = (x + 1) * T - tex.w;
		2253	int py = (y + 1) * T - tex.h;
		2254
		2255	rc_t2f_v3f (arr_hidden, 0 , 0 , px , py , 0);
		2256	rc_t2f_v3f (arr_hidden, 0 , tex.t, px , py + tex.h, 0);
		2257	rc_t2f_v3f (arr_hidden, tex.s, tex.t, px + tex.w, py + tex.h, 0);
		2258	rc_t2f_v3f (arr_hidden, tex.s, 0 , px + tex.w, py , 0);
		2259	}
		2260
		2261	if (expect_false (cell->flags))
		2262	{
		2263	// overlays such as the speech bubble, probably more to come
		2264	if (cell->flags & 1)
		2265	{
		2266	rc_key_t key_ov = key;
		2267	maptex tex = self->tex [TEXID_SPEECH];
		2268	rc_array_t *arr;
		2269	int px = x * T + T * 2 / 32;
		2270	int py = y * T - T * 6 / 32;
		2271
		2272	key_ov.texname = tex.name;
		2273	arr = rc_array (rc_ov, &key_ov);
		2274
		2275	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		2276	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
		2277	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
		2278	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
		2279	}
1987	}	2280	}
1988	}	2281	}
1989	}	2282	}
1990	}	2283	}
1991		2284
…		…
2031	{	2324	{
2032	// this time avoiding texture state changes	2325	// this time avoiding texture state changes
2033	// save gobs of state changes.	2326	// save gobs of state changes.
2034	if (key.texname != tex.name)	2327	if (key.texname != tex.name)
2035	{	2328	{
		2329	self->tex [skey->tile].unused = 0;
		2330
2036	glEnd ();	2331	glEnd ();
2037	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);	2332	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
2038	glBegin (GL_QUADS);	2333	glBegin (GL_QUADS);
2039	}	2334	}
2040		2335
…		…
2072	}	2367	}
2073		2368
2074	if (pl_tex.name)	2369	if (pl_tex.name)
2075	{	2370	{
2076	maptex tex = pl_tex;	2371	maptex tex = pl_tex;
2077	int px = pl_x + pdx;	2372	int px = pl_x + sdx;
2078	int py = pl_y + pdy;	2373	int py = pl_y + sdy;
2079		2374
2080	key.texname = tex.name;	2375	key.texname = tex.name;
2081	arr = rc_array (rc, &key);	2376	arr = rc_array (rc, &key);
2082		2377
2083	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2378	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
…		…
2086	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2381	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
2087		2382
2088	rc_draw (rc);	2383	rc_draw (rc);
2089	}	2384	}
2090		2385
		2386	rc_draw (rc_ov);
		2387	rc_clear (rc_ov);
		2388
2091	glDisable (GL_BLEND);	2389	glDisable (GL_BLEND);
2092	rc_free (rc);	2390	rc_free (rc);
		2391	rc_free (rc_ov);
2093		2392
2094	// top layer: overlays such as the health bar	2393	// top layer: overlays such as the health bar
2095	for (y = 0; y < sh; y++)	2394	for (y = 0; y < sh; y++)
2096	if (0 <= y + my && y + my < self->rows)	2395	if (0 <= y + my && y + my < self->rows)
2097	{	2396	{
…		…
2102	{	2401	{
2103	mapcell *cell = row->col + (x + mx - row->c0);	2402	mapcell *cell = row->col + (x + mx - row->c0);
2104		2403
2105	int px = x * T;	2404	int px = x * T;
2106	int py = y * T;	2405	int py = y * T;
		2406
		2407	if (expect_false (cell->player == player))
		2408	{
		2409	px += sdx;
		2410	py += sdy;
		2411	}
2107		2412
2108	if (cell->stat_hp)	2413	if (cell->stat_hp)
2109	{	2414	{
2110	int width = cell->stat_width * T;	2415	int width = cell->stat_width * T;
2111	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;	2416	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
…		…
2151	};	2456	};
2152		2457
2153	int x, y;	2458	int x, y;
2154		2459
2155	glEnable (GL_TEXTURE_2D);	2460	glEnable (GL_TEXTURE_2D);
		2461	/* GL_REPLACE would be correct, as we don't need to modulate alpha,
		2462	* but the nvidia driver (185.18.14) mishandles alpha textures
		2463	* ansd takes the colour from god knows where instead of using
		2464	* Cp. MODULATE results in the same colour, but slightly different
		2465	* alpha, but atcually gives us the correct colour with nvidia.
		2466	*/
2156	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2467	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
2157	glEnable (GL_BLEND);	2468	glEnable (GL_BLEND);
2158	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2469	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2159	glBegin (GL_QUADS);	2470	glBegin (GL_QUADS);
2160		2471
2161	for (y = 0; y < h; y++)	2472	for (y = 0; y < h; y++)
…		…
2168	float *c = color [m & 15];	2479	float *c = color [m & 15];
2169		2480
2170	float tx1 = m & 0x40 ? 0.5 : 0.;	2481	float tx1 = m & 0x40 ? 0.5 : 0.;
2171	float tx2 = tx1 + 0.5;	2482	float tx2 = tx1 + 0.5;
2172		2483
2173	glColor4f (c[0], c[1], c[2], 0.75);	2484	glColor4f (c[0], c[1], c[2], 1);
2174	glTexCoord2f (tx1, 0.); glVertex2i (x , y );	2485	glTexCoord2f (tx1, 0.); glVertex2i (x , y );
2175	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);	2486	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
2176	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);	2487	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
2177	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );	2488	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
2178	}	2489	}
…		…
2200	SvCUR_set (darkness3_sv, sw34 * sh3);	2511	SvCUR_set (darkness3_sv, sw34 * sh3);
2201		2512
2202	mx += self->x - 1;	2513	mx += self->x - 1;
2203	my += self->y - 1;	2514	my += self->y - 1;
2204		2515
2205	memset (darkness1, 255, sw1 * sh1);	2516	memset (darkness1, DARKNESS_ADJUST (255 - FOW_DARKNESS), sw1 * sh1);
2206		2517
2207	for (y = 0; y < sh1; y++)	2518	for (y = 0; y < sh1; y++)
2208	if (0 <= y + my && y + my < self->rows)	2519	if (0 <= y + my && y + my < self->rows)
2209	{	2520	{
2210	maprow *row = self->row + (y + my);	2521	maprow *row = self->row + (y + my);
…		…
2213	if (row->c0 <= x + mx && x + mx < row->c1)	2524	if (row->c0 <= x + mx && x + mx < row->c1)
2214	{	2525	{
2215	mapcell *cell = row->col + (x + mx - row->c0);	2526	mapcell *cell = row->col + (x + mx - row->c0);
2216		2527
2217	darkness1 [y * sw1 + x] = cell->darkness	2528	darkness1 [y * sw1 + x] = cell->darkness
2218	? 255 - (cell->darkness - 1)	2529	? DARKNESS_ADJUST (255 - (cell->darkness - 1))
2219	: 255 - FOW_DARKNESS;	2530	: DARKNESS_ADJUST (255 - FOW_DARKNESS);
2220	}	2531	}
2221	}	2532	}
2222		2533
2223	for (y = 0; y < sh; ++y)	2534	for (y = 0; y < sh; ++y)
2224	for (x = 0; x < sw; ++x)	2535	for (x = 0; x < sw; ++x)
…		…
2637	} *civ, const_iv[] = {	2948	} *civ, const_iv[] = {
2638	# define const_iv(name) { # name, (IV)name }	2949	# define const_iv(name) { # name, (IV)name }
2639	const_iv (GL_VENDOR),	2950	const_iv (GL_VENDOR),
2640	const_iv (GL_VERSION),	2951	const_iv (GL_VERSION),
2641	const_iv (GL_EXTENSIONS),	2952	const_iv (GL_EXTENSIONS),
		2953	const_iv (GL_MAX_TEXTURE_UNITS),
2642	const_iv (GL_COLOR_MATERIAL),	2954	const_iv (GL_COLOR_MATERIAL),
2643	const_iv (GL_SMOOTH),	2955	const_iv (GL_SMOOTH),
2644	const_iv (GL_FLAT),	2956	const_iv (GL_FLAT),
2645	const_iv (GL_DITHER),	2957	const_iv (GL_DITHER),
2646	const_iv (GL_BLEND),	2958	const_iv (GL_BLEND),
…		…
2658	const_iv (GL_ZERO),	2970	const_iv (GL_ZERO),
2659	const_iv (GL_SRC_ALPHA),	2971	const_iv (GL_SRC_ALPHA),
2660	const_iv (GL_DST_ALPHA),	2972	const_iv (GL_DST_ALPHA),
2661	const_iv (GL_ONE_MINUS_SRC_ALPHA),	2973	const_iv (GL_ONE_MINUS_SRC_ALPHA),
2662	const_iv (GL_ONE_MINUS_DST_ALPHA),	2974	const_iv (GL_ONE_MINUS_DST_ALPHA),
		2975	const_iv (GL_SRC_COLOR),
		2976	const_iv (GL_DST_COLOR),
		2977	const_iv (GL_ONE_MINUS_SRC_COLOR),
		2978	const_iv (GL_ONE_MINUS_DST_COLOR),
2663	const_iv (GL_SRC_ALPHA_SATURATE),	2979	const_iv (GL_SRC_ALPHA_SATURATE),
2664	const_iv (GL_RGB),	2980	const_iv (GL_RGB),
2665	const_iv (GL_RGBA),	2981	const_iv (GL_RGBA),
2666	const_iv (GL_RGBA4),	2982	const_iv (GL_RGBA4),
2667	const_iv (GL_RGBA8),	2983	const_iv (GL_RGBA8),
…		…
2735	const_iv (GL_NICEST),	3051	const_iv (GL_NICEST),
2736	const_iv (GL_V2F),	3052	const_iv (GL_V2F),
2737	const_iv (GL_V3F),	3053	const_iv (GL_V3F),
2738	const_iv (GL_T2F_V3F),	3054	const_iv (GL_T2F_V3F),
2739	const_iv (GL_T2F_N3F_V3F),	3055	const_iv (GL_T2F_N3F_V3F),
		3056	const_iv (GL_FUNC_ADD),
		3057	const_iv (GL_FUNC_SUBTRACT),
		3058	const_iv (GL_FUNC_REVERSE_SUBTRACT),
2740	# undef const_iv	3059	# undef const_iv
2741	};	3060	};
2742		3061
2743	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	3062	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
2744	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	3063	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
2751	disable_GL_EXT_blend_func_separate ()	3070	disable_GL_EXT_blend_func_separate ()
2752	CODE:	3071	CODE:
2753	gl.BlendFuncSeparate = 0;	3072	gl.BlendFuncSeparate = 0;
2754	gl.BlendFuncSeparateEXT = 0;	3073	gl.BlendFuncSeparateEXT = 0;
2755		3074
		3075	void
		3076	apple_nvidia_bug (int enable)
		3077
2756	char *	3078	char *
2757	gl_vendor ()	3079	gl_vendor ()
2758	CODE:	3080	CODE:
2759	RETVAL = (char *)glGetString (GL_VENDOR);	3081	RETVAL = (char *)glGetString (GL_VENDOR);
2760	OUTPUT:	3082	OUTPUT:
…		…
2809		3131
2810	void glBlendFuncSeparate (int sa, int da, int saa, int daa)	3132	void glBlendFuncSeparate (int sa, int da, int saa, int daa)
2811	CODE:	3133	CODE:
2812	gl_BlendFuncSeparate (sa, da, saa, daa);	3134	gl_BlendFuncSeparate (sa, da, saa, daa);
2813		3135
		3136	# void glBlendEquation (int se)
		3137
2814	void glDepthMask (int flag)	3138	void glDepthMask (int flag)
2815		3139
2816	void glLogicOp (int opcode)	3140	void glLogicOp (int opcode)
2817		3141
2818	void glColorMask (int red, int green, int blue, int alpha)	3142	void glColorMask (int red, int green, int blue, int alpha)
…		…
2852	void glRotate (float angle, float x, float y, float z)	3176	void glRotate (float angle, float x, float y, float z)
2853	CODE:	3177	CODE:
2854	glRotatef (angle, x, y, z);	3178	glRotatef (angle, x, y, z);
2855		3179
2856	void glColor (float r, float g, float b, float a = 1.0)	3180	void glColor (float r, float g, float b, float a = 1.0)
		3181	PROTOTYPE: @
2857	ALIAS:	3182	ALIAS:
2858	glColor_premultiply = 1	3183	glColor_premultiply = 1
2859	CODE:	3184	CODE:
2860	if (ix)	3185	if (ix)
2861	{	3186	{

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.261 by root, Sun Jul 13 12:17:00 2008 UTC vs. Revision 1.294 by root, Sat Dec 19 05:06:56 2009 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.261 by root, Sun Jul 13 12:17:00 2008 UTC vs.
Revision 1.294 by root, Sat Dec 19 05:06:56 2009 UTC