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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.262 by root, Wed Jul 16 20:12:27 2008 UTC vs.
Revision 1.298 by root, Tue Dec 22 00:46:05 2009 UTC

…		…
19		19
20	#ifdef _WIN32	20	#ifdef _WIN32
21	# undef pipe	21	# undef pipe
22	// microsoft vs. C	22	// microsoft vs. C
23	# define sqrtf(x) sqrt(x)	23	# define sqrtf(x) sqrt(x)
24	# define roundf(x) (int)(x)
25	# define atan2f(x,y) atan2(x,y)	24	# define atan2f(x,y) atan2(x,y)
26	# define M_PI 3.14159265f	25	# define M_PI 3.14159265f
27	#endif	26	#endif
28		27
29	#include <assert.h>	28	#include <assert.h>
…		…
38	#include <SDL_thread.h>	37	#include <SDL_thread.h>
39	#include <SDL_endian.h>	38	#include <SDL_endian.h>
40	#include <SDL_image.h>	39	#include <SDL_image.h>
41	#include <SDL_mixer.h>	40	#include <SDL_mixer.h>
42	#include <SDL_opengl.h>	41	#include <SDL_opengl.h>
		42
		43	/* work around os x broken headers */
		44	#ifdef __MACOSX__
		45	typedef void (APIENTRYP PFNGLBLENDFUNCSEPARATEPROC) (GLenum sfactorRGB, GLenum dfactorRGB, GLenum sfactorAlpha, GLenum dfactorAlpha);
		46	typedef void (APIENTRYP PFNGLACTIVETEXTUREPROC) (GLenum texture);
		47	typedef void (APIENTRYP PFNGLMULTITEXCOORD2FPROC) (GLenum target, GLfloat s, GLfloat t);
		48	#endif
43		49
44	#define PANGO_ENABLE_BACKEND	50	#define PANGO_ENABLE_BACKEND
45	#define G_DISABLE_CAST_CHECKS	51	#define G_DISABLE_CAST_CHECKS
46		52
47	#include <glib/gmacros.h>	53	#include <glib/gmacros.h>
…		…
76	#define expect_false(expr) expect ((expr) != 0, 0)	82	#define expect_false(expr) expect ((expr) != 0, 0)
77	#define expect_true(expr) expect ((expr) != 0, 1)	83	#define expect_true(expr) expect ((expr) != 0, 1)
78		84
79	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */	85	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
80		86
		87	/* this is used as fow flag as well, so has to have a different value */
		88	/* then anything that is computed by incoming darkness */
81	#define FOW_DARKNESS 32	89	#define FOW_DARKNESS 50
		90	#define DARKNESS_ADJUST(n) (n)
82		91
83	#define MAP_EXTEND_X 32	92	#define MAP_EXTEND_X 32
84	#define MAP_EXTEND_Y 512	93	#define MAP_EXTEND_Y 512
85		94
86	#define MIN_FONT_HEIGHT 10	95	#define MIN_FONT_HEIGHT 10
87		96
88	/* mask out modifiers we are not interested in */	97	/* mask out modifiers we are not interested in */
89	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)	98	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)
90		99
91	#if 1	100	#define KMOD_LRAM 0x10000 // our extension
92	# define PARACHUTE SDL_INIT_NOPARACHUTE	101
93	#else	102	#define TEXID_SPEECH 1
94	# define PARACHUTE 0	103	#define TEXID_NOFACE 2
95	#endif
96		104
97	static AV *texture_av;	105	static AV *texture_av;
98		106
99	static struct	107	static struct
100	{	108	{
…		…
232	int w, h;	240	int w, h;
233	float s, t;	241	float s, t;
234	uint8_t r, g, b, a;	242	uint8_t r, g, b, a;
235	tileid smoothtile;	243	tileid smoothtile;
236	uint8_t smoothlevel;	244	uint8_t smoothlevel;
		245	uint8_t unused; /* set to zero on use */
237	} maptex;	246	} maptex;
238		247
239	typedef struct {	248	typedef struct {
240	uint32_t player;	249	uint32_t player;
241	tileid tile[3];	250	tileid tile[3];
…		…
373	self->oy = 0;	382	self->oy = 0;
374	self->row = 0;	383	self->row = 0;
375	self->rows = 0;	384	self->rows = 0;
376	}	385	}
377		386
		387	#define CELL_CLEAR(cell) \
		388	do { \
		389	if ((cell)->player) \
		390	(cell)->tile [2] = 0; \
		391	(cell)->darkness = 0; \
		392	(cell)->stat_hp = 0; \
		393	(cell)->flags = 0; \
		394	(cell)->player = 0; \
		395	} while (0)
		396
378	static void	397	static void
379	map_blank (DC__Map self, int x0, int y0, int w, int h)	398	map_blank (DC__Map self, int x0, int y0, int w, int h)
380	{	399	{
381	int x, y;	400	int x, y;
382	maprow *row;	401	maprow *row;
…		…
396	if (x >= row->c1)	415	if (x >= row->c1)
397	break;	416	break;
398		417
399	cell = row->col + x - row->c0;	418	cell = row->col + x - row->c0;
400		419
401	cell->darkness = 0;	420	CELL_CLEAR (cell);
402	cell->stat_hp = 0;
403	cell->flags = 0;
404	cell->player = 0;
405	}	421	}
406	}	422	}
407	}	423	}
408		424
409	typedef struct {	425	typedef struct {
…		…
520	if (!svp \|\| !SvTRUE (*svp))	536	if (!svp \|\| !SvTRUE (*svp))
521	return 0;	537	return 0;
522		538
523	return 1;	539	return 1;
524	}	540	}
		541
		542	/******************************************************************************/
		543
		544	/* process keyboard modifiers */
		545	static int
		546	mod_munge (int mod)
		547	{
		548	mod &= MOD_MASK;
		549
		550	if (mod & (KMOD_META \| KMOD_ALT))
		551	mod \|= KMOD_LRAM;
		552
		553	return mod;
		554	}
		555
		556	static void
		557	deliantra_main ()
		558	{
		559	char *argv[] = { 0 };
		560	call_argv ("::main", G_DISCARD \| G_VOID, argv);
		561	}
		562
		563	#ifdef __MACOSX__
		564	/* to due surprising braindamage on the side of SDL design, we
		565	* 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,
		567	* due to share dlibrary magic, calls -lSDLmain's main, not perl's main,
		568	* and which calls our main (== SDL_main) back.
		569	*/
		570	extern C_LINKAGE int
		571	main (int argc, char *argv[])
		572	{
		573	deliantra_main ();
		574	}
		575
		576	#undef main
		577
		578	extern C_LINKAGE int main (int argc, char *argv[]);
		579
		580	static void
		581	SDL_braino (void)
		582	{
		583	char *argv[] = { "deliantra client", 0 };
		584	(main) (1, argv);
		585	}
		586	#else
		587	static void
		588	SDL_braino (void)
		589	{
		590	deliantra_main ();
		591	}
		592	#endif
525		593
526	MODULE = Deliantra::Client PACKAGE = DC	594	MODULE = Deliantra::Client PACKAGE = DC
527		595
528	PROTOTYPES: ENABLE	596	PROTOTYPES: ENABLE
529		597
…		…
558	const_iv (SDL_USEREVENT),	626	const_iv (SDL_USEREVENT),
559		627
560	const_iv (SDL_APPINPUTFOCUS),	628	const_iv (SDL_APPINPUTFOCUS),
561	const_iv (SDL_APPMOUSEFOCUS),	629	const_iv (SDL_APPMOUSEFOCUS),
562	const_iv (SDL_APPACTIVE),	630	const_iv (SDL_APPACTIVE),
		631
		632
		633	const_iv (SDLK_UNKNOWN),
		634	const_iv (SDLK_FIRST),
		635	const_iv (SDLK_BACKSPACE),
		636	const_iv (SDLK_TAB),
		637	const_iv (SDLK_CLEAR),
		638	const_iv (SDLK_RETURN),
		639	const_iv (SDLK_PAUSE),
		640	const_iv (SDLK_ESCAPE),
		641	const_iv (SDLK_SPACE),
		642	const_iv (SDLK_EXCLAIM),
		643	const_iv (SDLK_QUOTEDBL),
		644	const_iv (SDLK_HASH),
		645	const_iv (SDLK_DOLLAR),
		646	const_iv (SDLK_AMPERSAND),
		647	const_iv (SDLK_QUOTE),
		648	const_iv (SDLK_LEFTPAREN),
		649	const_iv (SDLK_RIGHTPAREN),
		650	const_iv (SDLK_ASTERISK),
		651	const_iv (SDLK_PLUS),
		652	const_iv (SDLK_COMMA),
		653	const_iv (SDLK_MINUS),
		654	const_iv (SDLK_PERIOD),
		655	const_iv (SDLK_SLASH),
		656	const_iv (SDLK_0),
		657	const_iv (SDLK_1),
		658	const_iv (SDLK_2),
		659	const_iv (SDLK_3),
		660	const_iv (SDLK_4),
		661	const_iv (SDLK_5),
		662	const_iv (SDLK_6),
		663	const_iv (SDLK_7),
		664	const_iv (SDLK_8),
		665	const_iv (SDLK_9),
		666	const_iv (SDLK_COLON),
		667	const_iv (SDLK_SEMICOLON),
		668	const_iv (SDLK_LESS),
		669	const_iv (SDLK_EQUALS),
		670	const_iv (SDLK_GREATER),
		671	const_iv (SDLK_QUESTION),
		672	const_iv (SDLK_AT),
		673
		674	const_iv (SDLK_LEFTBRACKET),
		675	const_iv (SDLK_BACKSLASH),
		676	const_iv (SDLK_RIGHTBRACKET),
		677	const_iv (SDLK_CARET),
		678	const_iv (SDLK_UNDERSCORE),
		679	const_iv (SDLK_BACKQUOTE),
		680	const_iv (SDLK_DELETE),
563		681
564	const_iv (SDLK_FIRST),	682	const_iv (SDLK_FIRST),
565	const_iv (SDLK_LAST),	683	const_iv (SDLK_LAST),
566	const_iv (SDLK_KP0),	684	const_iv (SDLK_KP0),
567	const_iv (SDLK_KP1),	685	const_iv (SDLK_KP1),
…		…
643	const_iv (KMOD_RMETA),	761	const_iv (KMOD_RMETA),
644	const_iv (KMOD_NUM),	762	const_iv (KMOD_NUM),
645	const_iv (KMOD_CAPS),	763	const_iv (KMOD_CAPS),
646	const_iv (KMOD_MODE),	764	const_iv (KMOD_MODE),
647		765
		766	const_iv (KMOD_LRAM),
		767
648	const_iv (MIX_DEFAULT_FORMAT),	768	const_iv (MIX_DEFAULT_FORMAT),
		769
		770	const_iv (SDL_INIT_TIMER),
		771	const_iv (SDL_INIT_AUDIO),
		772	const_iv (SDL_INIT_VIDEO),
		773	const_iv (SDL_INIT_CDROM),
		774	const_iv (SDL_INIT_JOYSTICK),
		775	const_iv (SDL_INIT_EVERYTHING),
		776	const_iv (SDL_INIT_NOPARACHUTE),
		777	const_iv (SDL_INIT_EVENTTHREAD),
		778
		779	const_iv (SDL_GL_RED_SIZE),
		780	const_iv (SDL_GL_GREEN_SIZE),
		781	const_iv (SDL_GL_BLUE_SIZE),
		782	const_iv (SDL_GL_ALPHA_SIZE),
		783	const_iv (SDL_GL_DOUBLEBUFFER),
		784	const_iv (SDL_GL_BUFFER_SIZE),
		785	const_iv (SDL_GL_DEPTH_SIZE),
		786	const_iv (SDL_GL_STENCIL_SIZE),
		787	const_iv (SDL_GL_ACCUM_RED_SIZE),
		788	const_iv (SDL_GL_ACCUM_GREEN_SIZE),
		789	const_iv (SDL_GL_ACCUM_BLUE_SIZE),
		790	const_iv (SDL_GL_ACCUM_ALPHA_SIZE),
		791	const_iv (SDL_GL_STEREO),
		792	const_iv (SDL_GL_MULTISAMPLEBUFFERS),
		793	const_iv (SDL_GL_MULTISAMPLESAMPLES),
		794	const_iv (SDL_GL_ACCELERATED_VISUAL),
		795	const_iv (SDL_GL_SWAP_CONTROL),
		796
		797	const_iv (FOW_DARKNESS)
649	# undef const_iv	798	# undef const_iv
650	};	799	};
651		800
652	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	801	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
653	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	802	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
674	NV ceil (NV x)	823	NV ceil (NV x)
675		824
676	IV minpot (UV n)	825	IV minpot (UV n)
677		826
678	IV popcount (UV n)	827	IV popcount (UV n)
		828
		829	NV distance (NV dx, NV dy)
		830	CODE:
		831	RETVAL = pow (dx * dx + dy * dy, 0.5);
		832	OUTPUT:
		833	RETVAL
679		834
680	void	835	void
681	pango_init ()	836	pango_init ()
682	CODE:	837	CODE:
683	{	838	{
…		…
689	pango_context_set_language (opengl_context, pango_language_from_string ("en"));	844	pango_context_set_language (opengl_context, pango_language_from_string ("en"));
690	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/	845	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/
691	#endif	846	#endif
692	}	847	}
693		848
694	char *
695	SDL_GetError ()	849	char *SDL_GetError ()
696		850
697	int	851	void SDL_braino ()
698	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO \| PARACHUTE)
699		852
700	void	853	int SDL_Init (U32 flags)
		854
		855	int SDL_InitSubSystem (U32 flags)
		856
		857	void SDL_QuitSubSystem (U32 flags)
		858
701	SDL_Quit ()	859	void SDL_Quit ()
		860
		861	int SDL_GL_SetAttribute (int attr, int value)
		862
		863	int SDL_GL_GetAttribute (int attr)
		864	CODE:
		865	if (SDL_GL_GetAttribute (attr, &RETVAL))
		866	XSRETURN_UNDEF;
		867	OUTPUT:
		868	RETVAL
702		869
703	void	870	void
704	SDL_ListModes (int rgb, int alpha)	871	SDL_ListModes (int rgb, int alpha)
705	PPCODE:	872	PPCODE:
706	{	873	{
…		…
718	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);	885	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
719	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);	886	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
720	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);	887	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
721		888
722	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);	889	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);	890	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
726	#endif
727		891
728	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);	892	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
729		893
730	if (m && m != (SDL_Rect **)-1)	894	if (m && m != (SDL_Rect **)-1)
731	while (*m)	895	while (*m)
732	{	896	{
733	if ((m)->w >= 800 && (m)->h >= 480)	897	if ((m)->w >= 400 && (m)->h >= 300)
734	{	898	{
735	AV *av = newAV ();	899	AV *av = newAV ();
736	av_push (av, newSViv ((*m)->w));	900	av_push (av, newSViv ((*m)->w));
737	av_push (av, newSViv ((*m)->h));	901	av_push (av, newSViv ((*m)->h));
738	av_push (av, newSViv (rgb));	902	av_push (av, newSViv (rgb));
…		…
801	{	965	{
802	case SDL_KEYDOWN:	966	case SDL_KEYDOWN:
803	case SDL_KEYUP:	967	case SDL_KEYUP:
804	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);	968	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
805	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);	969	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);	970	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 */	971	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);	972	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
809	break;	973	break;
810		974
811	case SDL_ACTIVEEVENT:	975	case SDL_ACTIVEEVENT:
812	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);	976	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
…		…
830	x = ev.motion.x;	994	x = ev.motion.x;
831	y = ev.motion.y;	995	y = ev.motion.y;
832	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));	996	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
833	}	997	}
834		998
835	hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);	999	hv_store (hv, "mod", 3, newSViv (mod_munge (SDL_GetModState ())), 0);
836	hv_store (hv, "state", 5, newSViv (state), 0);	1000	hv_store (hv, "state", 5, newSViv (state), 0);
837	hv_store (hv, "x", 1, newSViv (x), 0);	1001	hv_store (hv, "x", 1, newSViv (x), 0);
838	hv_store (hv, "y", 1, newSViv (y), 0);	1002	hv_store (hv, "y", 1, newSViv (y), 0);
839	hv_store (hv, "xrel", 4, newSViv (xrel), 0);	1003	hv_store (hv, "xrel", 4, newSViv (xrel), 0);
840	hv_store (hv, "yrel", 4, newSViv (yrel), 0);	1004	hv_store (hv, "yrel", 4, newSViv (yrel), 0);
…		…
1056	#if DEBUG	1220	#if DEBUG
1057	VALGRIND_DO_LEAK_CHECK;	1221	VALGRIND_DO_LEAK_CHECK;
1058	#endif	1222	#endif
1059	}	1223	}
1060		1224
		1225	int
		1226	SvREFCNT (SV *sv)
		1227	CODE:
		1228	RETVAL = SvREFCNT (sv);
		1229	OUTPUT:
		1230	RETVAL
		1231
1061	MODULE = Deliantra::Client PACKAGE = DC::Font	1232	MODULE = Deliantra::Client PACKAGE = DC::Font
1062		1233
1063	PROTOTYPES: DISABLE	1234	PROTOTYPES: DISABLE
1064		1235
1065	DC::Font	1236	DC::Font
…		…
1494	if (ix)	1665	if (ix)
1495	{	1666	{
1496	glDisable (GL_ALPHA_TEST);	1667	glDisable (GL_ALPHA_TEST);
1497	glDisable (GL_BLEND);	1668	glDisable (GL_BLEND);
1498	}	1669	}
		1670	}
		1671
		1672	void
		1673	draw_fow_texture (float intensity, int hidden_tex, int name1, uint8_t data1, float s, float t, int w, int h, float blend = 0.f, int dx = 0, int dy = 0, int name2 = 0, uint8_t data2 = data1)
		1674	PROTOTYPE: @
		1675	CODE:
		1676	{
		1677	glEnable (GL_TEXTURE_2D);
		1678	glEnable (GL_BLEND);
		1679	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
		1680	glBindTexture (GL_TEXTURE_2D, name1);
		1681
		1682	glColor3f (intensity, intensity, intensity);
		1683	glPushMatrix ();
		1684	glScalef (1./3, 1./3, 1.);
		1685
		1686	if (blend > 0.f)
		1687	{
		1688	float dx3 = dx * -3.f / w;
		1689	float dy3 = dy * -3.f / h;
		1690	GLfloat env_color[4] = { 0., 0., 0., blend };
		1691
		1692	/* interpolate the two shadow textures */
		1693	/* stage 0 == rgb(glcolor) + alpha(t0) */
		1694	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		1695
		1696	/* stage 1 == rgb(glcolor) + alpha(interpolate t0, t1, texenv) */
		1697	gl.ActiveTexture (GL_TEXTURE1);
		1698	glEnable (GL_TEXTURE_2D);
		1699	glBindTexture (GL_TEXTURE_2D, name2);
		1700	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_COMBINE);
		1701
		1702	/* rgb == rgb(glcolor) */
		1703	glTexEnvi (GL_TEXTURE_ENV, GL_COMBINE_RGB, GL_REPLACE);
		1704	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE0_RGB, GL_CONSTANT);
		1705	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND0_RGB, GL_SRC_COLOR);
		1706
		1707	/* alpha = interpolate t0, t1 by env_alpha */
		1708	glTexEnvfv (GL_TEXTURE_ENV, GL_TEXTURE_ENV_COLOR, env_color);
		1709
		1710	glTexEnvi (GL_TEXTURE_ENV, GL_COMBINE_ALPHA, GL_INTERPOLATE);
		1711	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE0_ALPHA, GL_TEXTURE);
		1712	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND0_ALPHA, GL_SRC_ALPHA);
		1713
		1714	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE1_ALPHA, GL_PREVIOUS);
		1715	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND1_ALPHA, GL_SRC_ALPHA);
		1716
		1717	glTexEnvi (GL_TEXTURE_ENV, GL_SOURCE2_ALPHA, GL_CONSTANT);
		1718	glTexEnvi (GL_TEXTURE_ENV, GL_OPERAND2_ALPHA, GL_SRC_ALPHA);
		1719
		1720	glBegin (GL_QUADS);
		1721	gl.MultiTexCoord2f (GL_TEXTURE0, 0, 0); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 , dy3 ); glVertex2i (0, 0);
		1722	gl.MultiTexCoord2f (GL_TEXTURE0, 0, t); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 , dy3 + t); glVertex2i (0, h);
		1723	gl.MultiTexCoord2f (GL_TEXTURE0, s, t); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 + s, dy3 + t); glVertex2i (w, h);
		1724	gl.MultiTexCoord2f (GL_TEXTURE0, s, 0); gl.MultiTexCoord2f (GL_TEXTURE1, dx3 + s, dy3 ); glVertex2i (w, 0);
		1725	glEnd ();
		1726
		1727	glDisable (GL_TEXTURE_2D);
		1728	gl.ActiveTexture (GL_TEXTURE0);
		1729	}
		1730	else
		1731	{
		1732	/* simple blending of one texture, also opengl <1.3 path */
		1733	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		1734
		1735	glBegin (GL_QUADS);
		1736	glTexCoord2f (0, 0); glVertex2f (0, 0);
		1737	glTexCoord2f (0, t); glVertex2f (0, h);
		1738	glTexCoord2f (s, t); glVertex2f (w, h);
		1739	glTexCoord2f (s, 0); glVertex2f (w, 0);
		1740	glEnd ();
		1741	}
		1742
		1743	/* draw ?-marks or equivalent, this is very clumsy code :/ */
		1744	{
		1745	int x, y;
		1746	int dx3 = dx * 3;
		1747	int dy3 = dy * 3;
		1748
		1749	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
		1750	glBindTexture (GL_TEXTURE_2D, hidden_tex);
		1751	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
		1752	glTranslatef (-1., -1., 0);
		1753	glBegin (GL_QUADS);
		1754
		1755	for (y = 1; y < h; y += 3)
		1756	{
		1757	int y1 = y - dy3;
		1758	int y1valid = y1 >= 0 && y1 < h;
		1759
		1760	for (x = 1; x < w; x += 3)
		1761	{
		1762	int x1 = x - dx3;
		1763	uint8_t h1 = data1 [x + y * w] == DARKNESS_ADJUST (255 - FOW_DARKNESS);
		1764	uint8_t h2;
		1765
		1766	if (y1valid && x1 >= 0 && x1 < w)
		1767	h2 = data2 [x1 + y1 * w] == DARKNESS_ADJUST (255 - FOW_DARKNESS);
		1768	else
		1769	h2 = 1; /* out of range == invisible */
		1770
		1771	if (h1 \|\| h2)
		1772	{
		1773	float alpha = h1 == h2 ? 1.f : h1 ? 1.f - blend : blend;
		1774	glColor4f (1., 1., 1., alpha);
		1775
		1776	glTexCoord2f (0, 0.); glVertex2i (x , y );
		1777	glTexCoord2f (0, 1.); glVertex2i (x , y + 3);
		1778	glTexCoord2f (1, 1.); glVertex2i (x + 3, y + 3);
		1779	glTexCoord2f (1, 0.); glVertex2i (x + 3, y );
		1780	}
		1781	}
		1782	}
		1783	}
		1784
		1785	glEnd ();
		1786
		1787	glPopMatrix ();
		1788
		1789	glDisable (GL_TEXTURE_2D);
		1790	glDisable (GL_BLEND);
1499	}	1791	}
1500		1792
1501	IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)	1793	IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1502	CODE:	1794	CODE:
1503	{	1795	{
…		…
1609	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);	1901	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1610	// use uglier nearest interpolation because linear suffers	1902	// use uglier nearest interpolation because linear suffers
1611	// from transparent color bleeding and ugly wrapping effects.	1903	// from transparent color bleeding and ugly wrapping effects.
1612	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);	1904	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1613	}	1905	}
		1906
		1907	void
		1908	expire_textures (DC::Map self, int texid, int count)
		1909	PPCODE:
		1910	for (; texid < self->texs && count; ++texid, --count)
		1911	{
		1912	maptex *tex = self->tex + texid;
		1913
		1914	if (tex->name)
		1915	{
		1916	if (tex->unused)
		1917	{
		1918	tex->name = 0;
		1919	tex->unused = 0;
		1920	XPUSHs (sv_2mortal (newSViv (texid)));
		1921	}
		1922	else
		1923	tex->unused = 1;
		1924	}
		1925	}
1614		1926
1615	int	1927	int
1616	ox (DC::Map self)	1928	ox (DC::Map self)
1617	ALIAS:	1929	ALIAS:
1618	oy = 1	1930	oy = 1
…		…
1699	{	2011	{
1700	ext = *data++;	2012	ext = *data++;
1701	cmd = ext & 0x7f;	2013	cmd = ext & 0x7f;
1702		2014
1703	if (cmd < 4)	2015	if (cmd < 4)
1704	cell->darkness = 255 - ext * 64 + 1;	2016	cell->darkness = 255 - ext * 64 + 1; /* make sure this doesn't collide with FOW_DARKNESS */
1705	else if (cmd == 5) // health	2017	else if (cmd == 5) // health
1706	{	2018	{
1707	cell->stat_width = 1;	2019	cell->stat_width = 1;
1708	cell->stat_hp = *data++;	2020	cell->stat_hp = *data++;
1709	}	2021	}
…		…
1739	cell->tile [z] = self->face2tile [face];	2051	cell->tile [z] = self->face2tile [face];
1740		2052
1741	if (cell->tile [z])	2053	if (cell->tile [z])
1742	{	2054	{
1743	maptex *tex = self->tex + cell->tile [z];	2055	maptex *tex = self->tex + cell->tile [z];
		2056	tex->unused = 0;
1744	if (!tex->name)	2057	if (!tex->name)
1745	av_push (missing, newSViv (cell->tile [z]));	2058	av_push (missing, newSViv (cell->tile [z]));
1746		2059
1747	if (tex->smoothtile)	2060	if (tex->smoothtile)
1748	{	2061	{
1749	maptex *smooth = self->tex + tex->smoothtile;	2062	maptex *smooth = self->tex + tex->smoothtile;
		2063	smooth->unused = 0;
1750	if (!smooth->name)	2064	if (!smooth->name)
1751	av_push (missing, newSViv (tex->smoothtile));	2065	av_push (missing, newSViv (tex->smoothtile));
1752	}	2066	}
1753	}	2067	}
1754	}	2068	}
1755	}	2069	}
1756	else	2070	else
1757	cell->darkness = 0;	2071	CELL_CLEAR (cell);
1758	}	2072	}
1759	}	2073	}
1760	OUTPUT:	2074	OUTPUT:
1761	RETVAL	2075	RETVAL
1762		2076
…		…
1814	}	2128	}
1815	OUTPUT:	2129	OUTPUT:
1816	RETVAL	2130	RETVAL
1817		2131
1818	void	2132	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)	2133	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:	2134	CODE:
1821	{	2135	{
1822	int x, y, z;	2136	int x, y, z;
1823		2137
1824	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	2138	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
1825	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	2139	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)	2140	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1827	smooth_key skey;	2141	smooth_key skey;
1828	int pl_x, pl_y;	2142	int pl_x, pl_y;
1829	maptex pl_tex;	2143	maptex pl_tex;
1830	rc_t *rc = rc_alloc ();	2144	rc_t *rc = rc_alloc ();
		2145	rc_t *rc_ov = rc_alloc ();
1831	rc_key_t key;	2146	rc_key_t key;
1832	rc_array_t *arr;	2147	rc_array_t *arr;
1833		2148
1834	pl_tex.name = 0;	2149	pl_tex.name = 0;
1835		2150
1836	// thats current max. sorry.	2151	// that's current max. sorry.
1837	if (sw > 255) sw = 255;	2152	if (sw > 255) sw = 255;
1838	if (sh > 255) sh = 255;	2153	if (sh > 255) sh = 255;
1839		2154
1840	// clear key, in case of extra padding	2155	// clear key, in case of extra padding
1841	memset (&skey, 0, sizeof (skey));	2156	memset (&skey, 0, sizeof (skey));
…		…
1845	key.g = 255;	2160	key.g = 255;
1846	key.b = 255;	2161	key.b = 255;
1847	key.a = 255;	2162	key.a = 255;
1848	key.mode = GL_QUADS;	2163	key.mode = GL_QUADS;
1849	key.format = GL_T2F_V3F;	2164	key.format = GL_T2F_V3F;
1850	key.texname = -1;
1851		2165
1852	mx += self->x;	2166	mx += self->x;
1853	my += self->y;	2167	my += self->y;
1854		2168
1855	// first pass: determine smooth_max	2169	// first pass: determine smooth_max
…		…
1879	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2193	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1880		2194
1881	for (z = 0; z <= 2; z++)	2195	for (z = 0; z <= 2; z++)
1882	{	2196	{
1883	memset (smooth_level, 0, sizeof (smooth_level));	2197	memset (smooth_level, 0, sizeof (smooth_level));
		2198	key.texname = -1;
1884		2199
1885	for (y = 0; y < sh; y++)	2200	for (y = 0; y < sh; y++)
1886	if (0 <= y + my && y + my < self->rows)	2201	if (0 <= y + my && y + my < self->rows)
1887	{	2202	{
1888	maprow *row = self->row + (y + my);	2203	maprow *row = self->row + (y + my);
…		…
1894	tileid tile = cell->tile [z];	2209	tileid tile = cell->tile [z];
1895		2210
1896	if (tile)	2211	if (tile)
1897	{	2212	{
1898	maptex tex = self->tex [tile];	2213	maptex tex = self->tex [tile];
1899	int px = (x + 1) * T - tex.w;	2214	int px, py;
1900	int py = (y + 1) * T - tex.h;
1901		2215
1902	if (key.texname != tex.name)	2216	if (key.texname != tex.name)
1903	{	2217	{
		2218	self->tex [tile].unused = 0;
		2219
1904	if (!tex.name)	2220	if (!tex.name)
1905	tex = self->tex [2]; /* missing, replace by noface */	2221	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
1906		2222
1907	key.texname = tex.name;	2223	key.texname = tex.name;
1908	arr = rc_array (rc, &key);	2224	arr = rc_array (rc, &key);
1909	}	2225	}
		2226
		2227	px = (x + 1) * T - tex.w;
		2228	py = (y + 1) * T - tex.h;
1910		2229
1911	if (expect_false (cell->player == player) && expect_false (z == 2))	2230	if (expect_false (cell->player == player) && expect_false (z == 2))
1912	{	2231	{
1913	pl_x = px;	2232	pl_x = px;
1914	pl_y = py;	2233	pl_y = py;
…		…
1919	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2238	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1920	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2239	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1921	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2240	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1922	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2241	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1923		2242
1924	if (expect_false (cell->flags) && expect_false (z == 2))
1925	{
1926	// overlays such as the speech bubble, probably more to come
1927	if (cell->flags & 1)
1928	{
1929	maptex tex = self->tex [1];
1930	int px = x * T + T * 2 / 32;
1931	int py = y * T - T * 6 / 32;
1932
1933	if (tex.name)
1934	{
1935	if (key.texname != tex.name)
1936	{
1937	key.texname = tex.name;
1938	arr = rc_array (rc, &key);
1939	}
1940
1941	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1942	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1943	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1944	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1945	}
1946	}
1947	}
1948
1949	// update smooth hash	2243	// update smooth hash
1950	if (tex.smoothtile)	2244	if (tex.smoothtile)
1951	{	2245	{
1952	skey.tile = tex.smoothtile;	2246	skey.tile = tex.smoothtile;
1953	skey.level = tex.smoothlevel;	2247	skey.level = tex.smoothlevel;
…		…
1981	// corners	2275	// corners
1982	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);	2276	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1983	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);	2277	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1984	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);	2278	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1985	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	2279	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
		2280	}
		2281	}
		2282
		2283	if (expect_false (z == 2) && expect_false (cell->flags))
		2284	{
		2285	// overlays such as the speech bubble, probably more to come
		2286	if (cell->flags & 1)
		2287	{
		2288	rc_key_t key_ov = key;
		2289	maptex tex = self->tex [TEXID_SPEECH];
		2290	rc_array_t *arr;
		2291	int px = x * T + T * 2 / 32;
		2292	int py = y * T - T * 6 / 32;
		2293
		2294	key_ov.texname = tex.name;
		2295	arr = rc_array (rc_ov, &key_ov);
		2296
		2297	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		2298	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
		2299	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
		2300	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1986	}	2301	}
1987	}	2302	}
1988	}	2303	}
1989	}	2304	}
1990		2305
…		…
2030	{	2345	{
2031	// this time avoiding texture state changes	2346	// this time avoiding texture state changes
2032	// save gobs of state changes.	2347	// save gobs of state changes.
2033	if (key.texname != tex.name)	2348	if (key.texname != tex.name)
2034	{	2349	{
		2350	self->tex [skey->tile].unused = 0;
		2351
2035	glEnd ();	2352	glEnd ();
2036	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);	2353	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
2037	glBegin (GL_QUADS);	2354	glBegin (GL_QUADS);
2038	}	2355	}
2039		2356
…		…
2071	}	2388	}
2072		2389
2073	if (pl_tex.name)	2390	if (pl_tex.name)
2074	{	2391	{
2075	maptex tex = pl_tex;	2392	maptex tex = pl_tex;
2076	int px = pl_x + pdx;	2393	int px = pl_x + sdx;
2077	int py = pl_y + pdy;	2394	int py = pl_y + sdy;
2078		2395
2079	key.texname = tex.name;	2396	key.texname = tex.name;
2080	arr = rc_array (rc, &key);	2397	arr = rc_array (rc, &key);
2081		2398
2082	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2399	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
…		…
2085	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2402	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
2086		2403
2087	rc_draw (rc);	2404	rc_draw (rc);
2088	}	2405	}
2089		2406
		2407	rc_draw (rc_ov);
		2408	rc_clear (rc_ov);
		2409
2090	glDisable (GL_BLEND);	2410	glDisable (GL_BLEND);
2091	rc_free (rc);	2411	rc_free (rc);
		2412	rc_free (rc_ov);
2092		2413
2093	// top layer: overlays such as the health bar	2414	// top layer: overlays such as the health bar
2094	for (y = 0; y < sh; y++)	2415	for (y = 0; y < sh; y++)
2095	if (0 <= y + my && y + my < self->rows)	2416	if (0 <= y + my && y + my < self->rows)
2096	{	2417	{
…		…
2101	{	2422	{
2102	mapcell *cell = row->col + (x + mx - row->c0);	2423	mapcell *cell = row->col + (x + mx - row->c0);
2103		2424
2104	int px = x * T;	2425	int px = x * T;
2105	int py = y * T;	2426	int py = y * T;
		2427
		2428	if (expect_false (cell->player == player))
		2429	{
		2430	px += sdx;
		2431	py += sdy;
		2432	}
2106		2433
2107	if (cell->stat_hp)	2434	if (cell->stat_hp)
2108	{	2435	{
2109	int width = cell->stat_width * T;	2436	int width = cell->stat_width * T;
2110	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;	2437	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
…		…
2121	}	2448	}
2122	}	2449	}
2123	}	2450	}
2124		2451
2125	void	2452	void
2126	draw_magicmap (DC::Map self, int dx, int dy, int w, int h, unsigned char *data)	2453	draw_magicmap (DC::Map self, int w, int h, unsigned char *data)
2127	CODE:	2454	CODE:
2128	{	2455	{
2129	static float color[16][3] = {	2456	static float color[16][3] = {
2130	{ 0.00F, 0.00F, 0.00F },	2457	{ 0.00f, 0.00f, 0.00f },
2131	{ 1.00F, 1.00F, 1.00F },	2458	{ 1.00f, 1.00f, 1.00f },
2132	{ 0.00F, 0.00F, 0.55F },	2459	{ 0.00f, 0.00f, 0.55f },
2133	{ 1.00F, 0.00F, 0.00F },	2460	{ 1.00f, 0.00f, 0.00f },
2134		2461
2135	{ 1.00F, 0.54F, 0.00F },	2462	{ 1.00f, 0.54f, 0.00f },
2136	{ 0.11F, 0.56F, 1.00F },	2463	{ 0.11f, 0.56f, 1.00f },
2137	{ 0.93F, 0.46F, 0.00F },	2464	{ 0.93f, 0.46f, 0.00f },
2138	{ 0.18F, 0.54F, 0.34F },	2465	{ 0.18f, 0.54f, 0.34f },
2139		2466
2140	{ 0.56F, 0.73F, 0.56F },	2467	{ 0.56f, 0.73f, 0.56f },
2141	{ 0.80F, 0.80F, 0.80F },	2468	{ 0.80f, 0.80f, 0.80f },
2142	{ 0.55F, 0.41F, 0.13F },	2469	{ 0.55f, 0.41f, 0.13f },
2143	{ 0.99F, 0.77F, 0.26F },	2470	{ 0.99f, 0.77f, 0.26f },
2144		2471
2145	{ 0.74F, 0.65F, 0.41F },	2472	{ 0.74f, 0.65f, 0.41f },
2146		2473
2147	{ 0.00F, 1.00F, 1.00F },	2474	{ 0.00f, 1.00f, 1.00f },
2148	{ 1.00F, 0.00F, 1.00F },	2475	{ 1.00f, 0.00f, 1.00f },
2149	{ 1.00F, 1.00F, 0.00F },	2476	{ 1.00f, 1.00f, 0.00f },
2150	};	2477	};
2151		2478
2152	int x, y;	2479	int x, y;
2153		2480
2154	glEnable (GL_TEXTURE_2D);	2481	glEnable (GL_TEXTURE_2D);
		2482	/* GL_REPLACE would be correct, as we don't need to modulate alpha,
		2483	* but the nvidia driver (185.18.14) mishandles alpha textures
		2484	* and takes the colour from god knows where instead of using
		2485	* Cp. MODULATE results in the same colour, but slightly different
		2486	* alpha, but atcually gives us the correct colour with nvidia.
		2487	*/
2155	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2488	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
2156	glEnable (GL_BLEND);	2489	glEnable (GL_BLEND);
2157	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2490	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2158	glBegin (GL_QUADS);	2491	glBegin (GL_QUADS);
2159		2492
2160	for (y = 0; y < h; y++)	2493	for (y = 0; y < h; y++)
…		…
2164		2497
2165	if (m)	2498	if (m)
2166	{	2499	{
2167	float *c = color [m & 15];	2500	float *c = color [m & 15];
2168		2501
2169	float tx1 = m & 0x40 ? 0.5 : 0.;	2502	float tx1 = m & 0x40 ? 0.5f : 0.f;
2170	float tx2 = tx1 + 0.5;	2503	float tx2 = tx1 + 0.5f;
2171		2504
2172	glColor4f (c[0], c[1], c[2], 0.75);	2505	glColor4f (c[0], c[1], c[2], 1);
2173	glTexCoord2f (tx1, 0.); glVertex2i (x , y );	2506	glTexCoord2f (tx1, 0.); glVertex2i (x , y );
2174	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);	2507	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
2175	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);	2508	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
2176	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );	2509	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
2177	}	2510	}
…		…
2185	void	2518	void
2186	fow_texture (DC::Map self, int mx, int my, int sw, int sh)	2519	fow_texture (DC::Map self, int mx, int my, int sw, int sh)
2187	PPCODE:	2520	PPCODE:
2188	{	2521	{
2189	int x, y;	2522	int x, y;
2190	int sw1 = sw + 2;	2523	int sw1 = sw + 2;
2191	int sh1 = sh + 2;	2524	int sh1 = sh + 2;
2192	int sh3 = sh * 3;	2525	int sh3 = sh * 3;
2193	int sw34 = (sw * 3 + 3) & ~3;	2526	int sw3 = sw * 3;
2194	uint8_t darkness1 = (uint8_t )malloc (sw1 * sh1);	2527	uint8_t darkness1 = (uint8_t )malloc (sw1 * sh1);
2195	SV darkness3_sv = sv_2mortal (newSV (sw34 sh3));	2528	SV darkness3_sv = sv_2mortal (newSV (sw3 sh3));
2196	uint8_t darkness3 = (uint8_t )SvPVX (darkness3_sv);	2529	uint8_t darkness3 = (uint8_t )SvPVX (darkness3_sv);
2197		2530
2198	SvPOK_only (darkness3_sv);	2531	SvPOK_only (darkness3_sv);
2199	SvCUR_set (darkness3_sv, sw34 * sh3);	2532	SvCUR_set (darkness3_sv, sw3 * sh3);
2200		2533
2201	mx += self->x - 1;	2534	mx += self->x - 1;
2202	my += self->y - 1;	2535	my += self->y - 1;
2203
2204	memset (darkness1, 255, sw1 * sh1);
2205		2536
2206	for (y = 0; y < sh1; y++)	2537	for (y = 0; y < sh1; y++)
2207	if (0 <= y + my && y + my < self->rows)	2538	if (0 <= y + my && y + my < self->rows)
2208	{	2539	{
2209	maprow *row = self->row + (y + my);	2540	maprow *row = self->row + (y + my);
…		…
2212	if (row->c0 <= x + mx && x + mx < row->c1)	2543	if (row->c0 <= x + mx && x + mx < row->c1)
2213	{	2544	{
2214	mapcell *cell = row->col + (x + mx - row->c0);	2545	mapcell *cell = row->col + (x + mx - row->c0);
2215		2546
2216	darkness1 [y * sw1 + x] = cell->darkness	2547	darkness1 [y * sw1 + x] = cell->darkness
2217	? 255 - (cell->darkness - 1)	2548	? DARKNESS_ADJUST (255 - (cell->darkness - 1))
2218	: 255 - FOW_DARKNESS;	2549	: DARKNESS_ADJUST (255 - FOW_DARKNESS);
2219	}	2550	}
2220	}	2551	}
2221		2552
2222	for (y = 0; y < sh; ++y)	2553	for (y = 0; y < sh; ++y)
2223	for (x = 0; x < sw; ++x)	2554	for (x = 0; x < sw; ++x)
…		…
2242		2573
2243	uint8_t r13 = (d13 + d23 + d12) / 3;	2574	uint8_t r13 = (d13 + d23 + d12) / 3;
2244	uint8_t r23 = d23;	2575	uint8_t r23 = d23;
2245	uint8_t r33 = (d23 + d33 + d32) / 3;	2576	uint8_t r33 = (d23 + d33 + d32) / 3;
2246		2577
2247	darkness3 [(y * 3 ) * sw34 + (x * 3 )] = MAX (d22, r11);	2578	darkness3 [(y * 3 ) * sw3 + (x * 3 )] = MAX (d22, r11);
2248	darkness3 [(y * 3 ) * sw34 + (x * 3 + 1)] = MAX (d22, r21);	2579	darkness3 [(y * 3 ) * sw3 + (x * 3 + 1)] = MAX (d22, r21);
2249	darkness3 [(y * 3 ) * sw34 + (x * 3 + 2)] = MAX (d22, r31);	2580	darkness3 [(y * 3 ) * sw3 + (x * 3 + 2)] = MAX (d22, r31);
2250	darkness3 [(y * 3 + 1) * sw34 + (x * 3 )] = MAX (d22, r12);	2581	darkness3 [(y * 3 + 1) * sw3 + (x * 3 )] = MAX (d22, r12);
2251	darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 1)] = MAX (d22, r22);	2582	darkness3 [(y * 3 + 1) * sw3 + (x * 3 + 1)] = MAX (d22, r22); /* this MUST be == d22 */
2252	darkness3 [(y * 3 + 1) * sw34 + (x * 3 + 2)] = MAX (d22, r32);	2583	darkness3 [(y * 3 + 1) * sw3 + (x * 3 + 2)] = MAX (d22, r32);
2253	darkness3 [(y * 3 + 2) * sw34 + (x * 3 )] = MAX (d22, r13);	2584	darkness3 [(y * 3 + 2) * sw3 + (x * 3 )] = MAX (d22, r13);
2254	darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 1)] = MAX (d22, r23);	2585	darkness3 [(y * 3 + 2) * sw3 + (x * 3 + 1)] = MAX (d22, r23);
2255	darkness3 [(y * 3 + 2) * sw34 + (x * 3 + 2)] = MAX (d22, r33);	2586	darkness3 [(y * 3 + 2) * sw3 + (x * 3 + 2)] = MAX (d22, r33);
2256	}	2587	}
2257		2588
2258	free (darkness1);	2589	free (darkness1);
2259		2590
2260	EXTEND (SP, 3);	2591	EXTEND (SP, 3);
2261	PUSHs (sv_2mortal (newSViv (sw34)));	2592	PUSHs (sv_2mortal (newSViv (sw3)));
2262	PUSHs (sv_2mortal (newSViv (sh3)));	2593	PUSHs (sv_2mortal (newSViv (sh3)));
2263	PUSHs (darkness3_sv);	2594	PUSHs (darkness3_sv);
2264	}	2595	}
2265		2596
2266	SV *	2597	SV *
…		…
2523	void	2854	void
2524	set_position_r (DC::Channel self, int dx, int dy, int maxdistance)	2855	set_position_r (DC::Channel self, int dx, int dy, int maxdistance)
2525	CODE:	2856	CODE:
2526	{	2857	{
2527	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));	2858	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2528	int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);	2859	int angle = atan2f (dx, -dy) * 180.f / (float)M_PI + 360.f;
2529	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));	2860	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2530	}	2861	}
2531		2862
2532	void	2863	void
2533	set_reverse_stereo (DC::Channel self, int flip)	2864	set_reverse_stereo (DC::Channel self, int flip)
…		…
2636	} *civ, const_iv[] = {	2967	} *civ, const_iv[] = {
2637	# define const_iv(name) { # name, (IV)name }	2968	# define const_iv(name) { # name, (IV)name }
2638	const_iv (GL_VENDOR),	2969	const_iv (GL_VENDOR),
2639	const_iv (GL_VERSION),	2970	const_iv (GL_VERSION),
2640	const_iv (GL_EXTENSIONS),	2971	const_iv (GL_EXTENSIONS),
		2972	const_iv (GL_MAX_TEXTURE_UNITS),
2641	const_iv (GL_COLOR_MATERIAL),	2973	const_iv (GL_COLOR_MATERIAL),
2642	const_iv (GL_SMOOTH),	2974	const_iv (GL_SMOOTH),
2643	const_iv (GL_FLAT),	2975	const_iv (GL_FLAT),
2644	const_iv (GL_DITHER),	2976	const_iv (GL_DITHER),
2645	const_iv (GL_BLEND),	2977	const_iv (GL_BLEND),
…		…
2657	const_iv (GL_ZERO),	2989	const_iv (GL_ZERO),
2658	const_iv (GL_SRC_ALPHA),	2990	const_iv (GL_SRC_ALPHA),
2659	const_iv (GL_DST_ALPHA),	2991	const_iv (GL_DST_ALPHA),
2660	const_iv (GL_ONE_MINUS_SRC_ALPHA),	2992	const_iv (GL_ONE_MINUS_SRC_ALPHA),
2661	const_iv (GL_ONE_MINUS_DST_ALPHA),	2993	const_iv (GL_ONE_MINUS_DST_ALPHA),
		2994	const_iv (GL_SRC_COLOR),
		2995	const_iv (GL_DST_COLOR),
		2996	const_iv (GL_ONE_MINUS_SRC_COLOR),
		2997	const_iv (GL_ONE_MINUS_DST_COLOR),
2662	const_iv (GL_SRC_ALPHA_SATURATE),	2998	const_iv (GL_SRC_ALPHA_SATURATE),
2663	const_iv (GL_RGB),	2999	const_iv (GL_RGB),
2664	const_iv (GL_RGBA),	3000	const_iv (GL_RGBA),
2665	const_iv (GL_RGBA4),	3001	const_iv (GL_RGBA4),
2666	const_iv (GL_RGBA8),	3002	const_iv (GL_RGBA8),
…		…
2734	const_iv (GL_NICEST),	3070	const_iv (GL_NICEST),
2735	const_iv (GL_V2F),	3071	const_iv (GL_V2F),
2736	const_iv (GL_V3F),	3072	const_iv (GL_V3F),
2737	const_iv (GL_T2F_V3F),	3073	const_iv (GL_T2F_V3F),
2738	const_iv (GL_T2F_N3F_V3F),	3074	const_iv (GL_T2F_N3F_V3F),
		3075	const_iv (GL_FUNC_ADD),
		3076	const_iv (GL_FUNC_SUBTRACT),
		3077	const_iv (GL_FUNC_REVERSE_SUBTRACT),
2739	# undef const_iv	3078	# undef const_iv
2740	};	3079	};
2741		3080
2742	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	3081	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
2743	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	3082	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
2750	disable_GL_EXT_blend_func_separate ()	3089	disable_GL_EXT_blend_func_separate ()
2751	CODE:	3090	CODE:
2752	gl.BlendFuncSeparate = 0;	3091	gl.BlendFuncSeparate = 0;
2753	gl.BlendFuncSeparateEXT = 0;	3092	gl.BlendFuncSeparateEXT = 0;
2754		3093
		3094	void
		3095	apple_nvidia_bug (int enable)
		3096
2755	char *	3097	char *
2756	gl_vendor ()	3098	gl_vendor ()
2757	CODE:	3099	CODE:
2758	RETVAL = (char *)glGetString (GL_VENDOR);	3100	RETVAL = (char *)glGetString (GL_VENDOR);
2759	OUTPUT:	3101	OUTPUT:
…		…
2808		3150
2809	void glBlendFuncSeparate (int sa, int da, int saa, int daa)	3151	void glBlendFuncSeparate (int sa, int da, int saa, int daa)
2810	CODE:	3152	CODE:
2811	gl_BlendFuncSeparate (sa, da, saa, daa);	3153	gl_BlendFuncSeparate (sa, da, saa, daa);
2812		3154
		3155	# void glBlendEquation (int se)
		3156
2813	void glDepthMask (int flag)	3157	void glDepthMask (int flag)
2814		3158
2815	void glLogicOp (int opcode)	3159	void glLogicOp (int opcode)
2816		3160
2817	void glColorMask (int red, int green, int blue, int alpha)	3161	void glColorMask (int red, int green, int blue, int alpha)
…		…
2851	void glRotate (float angle, float x, float y, float z)	3195	void glRotate (float angle, float x, float y, float z)
2852	CODE:	3196	CODE:
2853	glRotatef (angle, x, y, z);	3197	glRotatef (angle, x, y, z);
2854		3198
2855	void glColor (float r, float g, float b, float a = 1.0)	3199	void glColor (float r, float g, float b, float a = 1.0)
		3200	PROTOTYPE: @
2856	ALIAS:	3201	ALIAS:
2857	glColor_premultiply = 1	3202	glColor_premultiply = 1
2858	CODE:	3203	CODE:
2859	if (ix)	3204	if (ix)
2860	{	3205	{
…		…
2965	void glNewList (int list, int mode = GL_COMPILE)	3310	void glNewList (int list, int mode = GL_COMPILE)
2966		3311
2967	void glEndList ()	3312	void glEndList ()
2968		3313
2969	void glCallList (int list)	3314	void glCallList (int list)
		3315
		3316	void c_init ()
		3317	CODE:
		3318	glPixelStorei (GL_PACK_ALIGNMENT , 1);
		3319	glPixelStorei (GL_UNPACK_ALIGNMENT, 1);
2970		3320
2971	MODULE = Deliantra::Client PACKAGE = DC::UI::Base	3321	MODULE = Deliantra::Client PACKAGE = DC::UI::Base
2972		3322
2973	PROTOTYPES: DISABLE	3323	PROTOTYPES: DISABLE
2974		3324

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.262 by root, Wed Jul 16 20:12:27 2008 UTC vs. Revision 1.298 by root, Tue Dec 22 00:46:05 2009 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.262 by root, Wed Jul 16 20:12:27 2008 UTC vs.
Revision 1.298 by root, Tue Dec 22 00:46:05 2009 UTC