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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.250 by root, Fri Dec 28 16:09:03 2007 UTC vs.
Revision 1.293 by root, Thu Dec 17 02:49:38 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
49	#include <pango/pango.h>	54	#include <pango/pango.h>
50		55
51	#if !(defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 15, 2))	56	#ifndef PANGO_VERSION_CHECK
		57	# define PANGO_VERSION_CHECK(a,b,c) 0
		58	#endif
		59
		60	#if !PANGO_VERSION_CHECK (1, 15, 2)
52	# define pango_layout_get_line_readonly pango_layout_get_line_readonly	61	# define pango_layout_get_line_readonly pango_layout_get_line
53	# define pango_layout_get_lines_readonly pango_layout_get_lines_readonly	62	# define pango_layout_get_lines_readonly pango_layout_get_lines
54	# define pango_layout_iter_get_line_readonly pango_layout_iter_get_line_readonly	63	# define pango_layout_iter_get_line_readonly pango_layout_iter_get_line
55	# define pango_layout_iter_get_run_readonly pango_layout_iter_get_run_readonly	64	# define pango_layout_iter_get_run_readonly pango_layout_iter_get_run
56	#endif	65	#endif
57		66
58	#ifndef _WIN32	67	#ifndef _WIN32
59	# include <sys/types.h>	68	# include <sys/types.h>
60	# include <sys/socket.h>	69	# include <sys/socket.h>
61	# include <netinet/in.h>	70	# include <netinet/in.h>
62	# include <netinet/tcp.h>	71	# include <netinet/tcp.h>
63	# include <inttypes.h>	72	# include <inttypes.h>
64	#endif	73	#endif
65		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
66	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */	84	#define OBJ_STR "\xef\xbf\xbc" /* U+FFFC, object replacement character */
67		85
68	#define FOW_DARKNESS 32	86	#define FOW_DARKNESS 64
69		87
70	#define MAP_EXTEND_X 32	88	#define MAP_EXTEND_X 32
71	#define MAP_EXTEND_Y 512	89	#define MAP_EXTEND_Y 512
72		90
73	#define MIN_FONT_HEIGHT 10	91	#define MIN_FONT_HEIGHT 10
74		92
75	#if 0	93	/* mask out modifiers we are not interested in */
76	# define PARACHUTE SDL_INIT_NOPARACHUTE	94	#define MOD_MASK (KMOD_CTRL \| KMOD_SHIFT \| KMOD_ALT \| KMOD_META)
77	#else	95
78	# define PARACHUTE 0	96	#define KMOD_LRAM 0x10000 // our extension
79	#endif	97
		98	#define TEXID_SPEECH 1
		99	#define TEXID_NOFACE 2
		100	#define TEXID_HIDDEN 3
80		101
81	static AV *texture_av;	102	static AV *texture_av;
82		103
83	static struct	104	static struct
84	{	105	{
…		…
178		199
179	static void	200	static void
180	layout_update_font (DC__Layout self)	201	layout_update_font (DC__Layout self)
181	{	202	{
182	/* 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
183	* reasonably well with bitstream vera	204	* reasonably well with dejavu/bistream fonts
184	*/	205	*/
185	PangoFontDescription *font = self->font ? self->font : default_font;	206	PangoFontDescription *font = self->font ? self->font : default_font;
186		207
187	pango_font_description_set_absolute_size (font,	208	pango_font_description_set_absolute_size (font,
188	MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));	209	MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));
…		…
216	int w, h;	237	int w, h;
217	float s, t;	238	float s, t;
218	uint8_t r, g, b, a;	239	uint8_t r, g, b, a;
219	tileid smoothtile;	240	tileid smoothtile;
220	uint8_t smoothlevel;	241	uint8_t smoothlevel;
		242	uint8_t unused; /* set to zero on use */
221	} maptex;	243	} maptex;
222		244
223	typedef struct {	245	typedef struct {
224	uint32_t player;	246	uint32_t player;
225	tileid tile[3];	247	tileid tile[3];
…		…
357	self->oy = 0;	379	self->oy = 0;
358	self->row = 0;	380	self->row = 0;
359	self->rows = 0;	381	self->rows = 0;
360	}	382	}
361		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
362	static void	394	static void
363	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)
364	{	396	{
365	int x, y;	397	int x, y;
366	maprow *row;	398	maprow *row;
…		…
380	if (x >= row->c1)	412	if (x >= row->c1)
381	break;	413	break;
382		414
383	cell = row->col + x - row->c0;	415	cell = row->col + x - row->c0;
384		416
385	cell->darkness = 0;	417	CELL_CLEAR (cell);
386	cell->stat_hp = 0;
387	cell->flags = 0;
388	cell->player = 0;
389	}	418	}
390	}	419	}
391	}	420	}
392		421
393	typedef struct {	422	typedef struct {
…		…
504	if (!svp \|\| !SvTRUE (*svp))	533	if (!svp \|\| !SvTRUE (*svp))
505	return 0;	534	return 0;
506		535
507	return 1;	536	return 1;
508	}	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
509		590
510	MODULE = Deliantra::Client PACKAGE = DC	591	MODULE = Deliantra::Client PACKAGE = DC
511		592
512	PROTOTYPES: ENABLE	593	PROTOTYPES: ENABLE
513		594
…		…
542	const_iv (SDL_USEREVENT),	623	const_iv (SDL_USEREVENT),
543		624
544	const_iv (SDL_APPINPUTFOCUS),	625	const_iv (SDL_APPINPUTFOCUS),
545	const_iv (SDL_APPMOUSEFOCUS),	626	const_iv (SDL_APPMOUSEFOCUS),
546	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),
547		678
548	const_iv (SDLK_FIRST),	679	const_iv (SDLK_FIRST),
549	const_iv (SDLK_LAST),	680	const_iv (SDLK_LAST),
550	const_iv (SDLK_KP0),	681	const_iv (SDLK_KP0),
551	const_iv (SDLK_KP1),	682	const_iv (SDLK_KP1),
…		…
627	const_iv (KMOD_RMETA),	758	const_iv (KMOD_RMETA),
628	const_iv (KMOD_NUM),	759	const_iv (KMOD_NUM),
629	const_iv (KMOD_CAPS),	760	const_iv (KMOD_CAPS),
630	const_iv (KMOD_MODE),	761	const_iv (KMOD_MODE),
631		762
		763	const_iv (KMOD_LRAM),
		764
632	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)
633	# undef const_iv	795	# undef const_iv
634	};	796	};
635		797
636	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; )
637	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	799	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
666	CODE:	828	CODE:
667	{	829	{
668	opengl_fontmap = pango_opengl_font_map_new ();	830	opengl_fontmap = pango_opengl_font_map_new ();
669	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);
670	opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);	832	opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
671	#if defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 15, 2)	833	/pango_context_set_font_description (opengl_context, default_font);/
		834	#if PANGO_VERSION_CHECK (1, 15, 2)
672	pango_context_set_language (opengl_context, pango_language_from_string ("en"));	835	pango_context_set_language (opengl_context, pango_language_from_string ("en"));
673	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/	836	/pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);/
674	#endif	837	#endif
675	}	838	}
676		839
677	char *
678	SDL_GetError ()	840	char *SDL_GetError ()
679		841
680	int	842	void SDL_braino ()
681	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO \| PARACHUTE)
682		843
683	void	844	int SDL_Init (U32 flags)
		845
		846	int SDL_InitSubSystem (U32 flags)
		847
		848	void SDL_QuitSubSystem (U32 flags)
		849
684	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
685		860
686	void	861	void
687	SDL_ListModes (int rgb, int alpha)	862	SDL_ListModes (int rgb, int alpha)
688	PPCODE:	863	PPCODE:
689	{	864	{
…		…
701	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);	876	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
702	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);	877	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE , 0);
703	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);	878	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
704		879
705	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);	880	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
706	#if SDL_VERSION_ATLEAST(1,2,10)
707	SDL_GL_SetAttribute (SDL_GL_ACCELERATED_VISUAL, 1);
708	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);	881	SDL_GL_SetAttribute (SDL_GL_SWAP_CONTROL, 1);
709	#endif
710		882
711	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);	883	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
712		884
713	if (m && m != (SDL_Rect **)-1)	885	if (m && m != (SDL_Rect **)-1)
714	while (*m)	886	while (*m)
715	{	887	{
716	if ((m)->w >= 800 && (m)->h >= 480)	888	if ((m)->w >= 400 && (m)->h >= 300)
717	{	889	{
718	AV *av = newAV ();	890	AV *av = newAV ();
719	av_push (av, newSViv ((*m)->w));	891	av_push (av, newSViv ((*m)->w));
720	av_push (av, newSViv ((*m)->h));	892	av_push (av, newSViv ((*m)->h));
721	av_push (av, newSViv (rgb));	893	av_push (av, newSViv (rgb));
…		…
763	SDL_GetKeyName (int sym)	935	SDL_GetKeyName (int sym)
764		936
765	int	937	int
766	SDL_GetAppState ()	938	SDL_GetAppState ()
767		939
		940	int
		941	SDL_GetModState ()
		942
768	void	943	void
769	poll_events ()	944	poll_events ()
770	PPCODE:	945	PPCODE:
771	{	946	{
772	SDL_Event ev;	947	SDL_Event ev;
…		…
781	{	956	{
782	case SDL_KEYDOWN:	957	case SDL_KEYDOWN:
783	case SDL_KEYUP:	958	case SDL_KEYUP:
784	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);	959	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
785	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);	960	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
786	hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);	961	hv_store (hv, "mod", 3, newSViv (mod_munge (ev.key.keysym.mod)), 0);
787	hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */	962	hv_store (hv, "cmod", 4, newSViv (mod_munge (SDL_GetModState ())), 0); /* current mode */
788	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);	963	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
789	break;	964	break;
790		965
791	case SDL_ACTIVEEVENT:	966	case SDL_ACTIVEEVENT:
792	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);	967	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
…		…
810	x = ev.motion.x;	985	x = ev.motion.x;
811	y = ev.motion.y;	986	y = ev.motion.y;
812	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));	987	SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
813	}	988	}
814		989
815	hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);	990	hv_store (hv, "mod", 3, newSViv (mod_munge (SDL_GetModState ())), 0);
816	hv_store (hv, "state", 5, newSViv (state), 0);	991	hv_store (hv, "state", 5, newSViv (state), 0);
817	hv_store (hv, "x", 1, newSViv (x), 0);	992	hv_store (hv, "x", 1, newSViv (x), 0);
818	hv_store (hv, "y", 1, newSViv (y), 0);	993	hv_store (hv, "y", 1, newSViv (y), 0);
819	hv_store (hv, "xrel", 4, newSViv (xrel), 0);	994	hv_store (hv, "xrel", 4, newSViv (xrel), 0);
820	hv_store (hv, "yrel", 4, newSViv (yrel), 0);	995	hv_store (hv, "yrel", 4, newSViv (yrel), 0);
821	}	996	}
822	break;	997	break;
823		998
824	case SDL_MOUSEBUTTONDOWN:	999	case SDL_MOUSEBUTTONDOWN:
825	case SDL_MOUSEBUTTONUP:	1000	case SDL_MOUSEBUTTONUP:
826	hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0);	1001	hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0);
827		1002
828	hv_store (hv, "button", 6, newSViv (ev.button.button), 0);	1003	hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
829	hv_store (hv, "state", 5, newSViv (ev.button.state), 0);	1004	hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
830	hv_store (hv, "x", 1, newSViv (ev.button.x), 0);	1005	hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
831	hv_store (hv, "y", 1, newSViv (ev.button.y), 0);	1006	hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
…		…
905	}	1080	}
906	}	1081	}
907	#endif	1082	#endif
908	}	1083	}
909		1084
910	void	1085	int
911	add_font (char *file)	1086	add_font (char *file)
912	CODE:	1087	CODE:
913	FcConfigAppFontAddFile (0, (const FcChar8 *)file);	1088	RETVAL = FcConfigAppFontAddFile (0, (const FcChar8 *)file);
		1089	OUTPUT:
		1090	RETVAL
914		1091
915	void	1092	void
916	load_image_inline (SV *image_)	1093	load_image_inline (SV *image_)
917	ALIAS:	1094	ALIAS:
918	load_image_file = 1	1095	load_image_file = 1
…		…
1034	#if DEBUG	1211	#if DEBUG
1035	VALGRIND_DO_LEAK_CHECK;	1212	VALGRIND_DO_LEAK_CHECK;
1036	#endif	1213	#endif
1037	}	1214	}
1038		1215
		1216	int
		1217	SvREFCNT (SV *sv)
		1218	CODE:
		1219	RETVAL = SvREFCNT (sv);
		1220	OUTPUT:
		1221	RETVAL
		1222
1039	MODULE = Deliantra::Client PACKAGE = DC::Font	1223	MODULE = Deliantra::Client PACKAGE = DC::Font
1040		1224
1041	PROTOTYPES: DISABLE	1225	PROTOTYPES: DISABLE
1042		1226
1043	DC::Font	1227	DC::Font
…		…
1312		1496
1313	void	1497	void
1314	cursor_pos (DC::Layout self, int index)	1498	cursor_pos (DC::Layout self, int index)
1315	PPCODE:	1499	PPCODE:
1316	{	1500	{
1317	PangoRectangle strong_pos;	1501	PangoRectangle pos;
1318	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);	1502	pango_layout_get_cursor_pos (self->pl, index, &pos, 0);
1319		1503
1320	EXTEND (SP, 3);	1504	EXTEND (SP, 3);
1321	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));	1505	PUSHs (sv_2mortal (newSViv (pos.x / PANGO_SCALE)));
1322	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));	1506	PUSHs (sv_2mortal (newSViv (pos.y / PANGO_SCALE)));
1323	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));	1507	PUSHs (sv_2mortal (newSViv (pos.height / PANGO_SCALE)));
1324	}	1508	}
1325		1509
1326	void	1510	void
1327	index_to_line_x (DC::Layout self, int index, int trailing = 0)	1511	index_to_line_x (DC::Layout self, int index, int trailing = 0)
1328	PPCODE:	1512	PPCODE:
1329	{	1513	{
1330	int line, x;	1514	int line, x;
1331		1515
1332	pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);	1516	pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
1333	#if !(defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 17, 3))	1517	#if !PANGO_VERSION_CHECK (1, 17, 3)
1334	/* pango bug: line is between 1..numlines, not 0..numlines-1 */	1518	/* pango bug: line is between 1..numlines, not 0..numlines-1 */
1335	--line;	1519	--line;
1336	#endif	1520	#endif
1337	EXTEND (SP, 2);	1521	EXTEND (SP, 2);
1338	PUSHs (sv_2mortal (newSViv (line)));	1522	PUSHs (sv_2mortal (newSViv (line)));
…		…
1472	if (ix)	1656	if (ix)
1473	{	1657	{
1474	glDisable (GL_ALPHA_TEST);	1658	glDisable (GL_ALPHA_TEST);
1475	glDisable (GL_BLEND);	1659	glDisable (GL_BLEND);
1476	}	1660	}
		1661	}
		1662
		1663	void
		1664	draw_fow_texture (float intensity, int name1, float s1, float t1, float w1, float h1)
		1665	PROTOTYPE: @
		1666	CODE:
		1667	{
		1668	glEnable (GL_TEXTURE_2D);
		1669	glEnable (GL_BLEND);
		1670	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
		1671	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
		1672
		1673	glColor4f (intensity, intensity, intensity, 0.9);
		1674	glPushMatrix ();
		1675	glScalef (1./3, 1./3, 1.);
		1676
		1677	glBindTexture (GL_TEXTURE_2D, name1);
		1678
		1679	glBegin (GL_QUADS);
		1680	glTexCoord2f ( 0, 0); glVertex2f ( 0, 0);
		1681	glTexCoord2f ( 0, t1); glVertex2f ( 0, h1);
		1682	glTexCoord2f (s1, t1); glVertex2f (w1, h1);
		1683	glTexCoord2f (s1, 0); glVertex2f (w1, 0);
		1684	glEnd ();
		1685
		1686	glPopMatrix ();
		1687
		1688	glDisable (GL_TEXTURE_2D);
		1689	glDisable (GL_BLEND);
1477	}	1690	}
1478		1691
1479	IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)	1692	IV texture_valid_2d (GLint internalformat, GLsizei w, GLsizei h, GLenum format, GLenum type)
1480	CODE:	1693	CODE:
1481	{	1694	{
…		…
1587	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);	1800	//glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
1588	// use uglier nearest interpolation because linear suffers	1801	// use uglier nearest interpolation because linear suffers
1589	// from transparent color bleeding and ugly wrapping effects.	1802	// from transparent color bleeding and ugly wrapping effects.
1590	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);	1803	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1591	}	1804	}
		1805
		1806	void
		1807	expire_textures (DC::Map self, int texid, int count)
		1808	PPCODE:
		1809	for (; texid < self->texs && count; ++texid, --count)
		1810	{
		1811	maptex *tex = self->tex + texid;
		1812
		1813	if (tex->name)
		1814	{
		1815	if (tex->unused)
		1816	{
		1817	tex->name = 0;
		1818	tex->unused = 0;
		1819	XPUSHs (sv_2mortal (newSViv (texid)));
		1820	}
		1821	else
		1822	tex->unused = 1;
		1823	}
		1824	}
1592		1825
1593	int	1826	int
1594	ox (DC::Map self)	1827	ox (DC::Map self)
1595	ALIAS:	1828	ALIAS:
1596	oy = 1	1829	oy = 1
…		…
1674	uint8_t ext, cmd;	1907	uint8_t ext, cmd;
1675		1908
1676	do	1909	do
1677	{	1910	{
1678	ext = *data++;	1911	ext = *data++;
1679	cmd = ext & 0x3f;	1912	cmd = ext & 0x7f;
1680		1913
1681	if (cmd < 4)	1914	if (cmd < 4)
1682	cell->darkness = 255 - ext * 64 + 1;	1915	cell->darkness = 255 - ext * 64 + 1;
1683	else if (cmd == 5) // health	1916	else if (cmd == 5) // health
1684	{	1917	{
…		…
1687	}	1920	}
1688	else if (cmd == 6) // monster width	1921	else if (cmd == 6) // monster width
1689	cell->stat_width = *data++ + 1;	1922	cell->stat_width = *data++ + 1;
1690	else if (cmd == 0x47)	1923	else if (cmd == 0x47)
1691	{	1924	{
1692	if (*data == 4)	1925	if (*data == 1) cell->player = data [1];
1693	; // decode player count	1926	else if (*data == 2) cell->player = data [2] + (data [1] << 8);
		1927	else if (*data == 3) cell->player = data [3] + (data [2] << 8) + (data [1] << 16);
		1928	else if (*data == 4) cell->player = data [4] + (data [3] << 8) + (data [2] << 16) + (data [1] << 24);
1694		1929
1695	data += *data + 1;	1930	data += *data + 1;
1696	}	1931	}
1697	else if (cmd == 8) // cell flags	1932	else if (cmd == 8) // cell flags
1698	cell->flags = *data++;	1933	cell->flags = *data++;
…		…
1715	cell->tile [z] = self->face2tile [face];	1950	cell->tile [z] = self->face2tile [face];
1716		1951
1717	if (cell->tile [z])	1952	if (cell->tile [z])
1718	{	1953	{
1719	maptex *tex = self->tex + cell->tile [z];	1954	maptex *tex = self->tex + cell->tile [z];
		1955	tex->unused = 0;
1720	if (!tex->name)	1956	if (!tex->name)
1721	av_push (missing, newSViv (cell->tile [z]));	1957	av_push (missing, newSViv (cell->tile [z]));
1722		1958
1723	if (tex->smoothtile)	1959	if (tex->smoothtile)
1724	{	1960	{
1725	maptex *smooth = self->tex + tex->smoothtile;	1961	maptex *smooth = self->tex + tex->smoothtile;
		1962	smooth->unused = 0;
1726	if (!smooth->name)	1963	if (!smooth->name)
1727	av_push (missing, newSViv (tex->smoothtile));	1964	av_push (missing, newSViv (tex->smoothtile));
1728	}	1965	}
1729	}	1966	}
1730	}	1967	}
1731	}	1968	}
1732	else	1969	else
1733	cell->darkness = 0;	1970	CELL_CLEAR (cell);
1734	}	1971	}
1735	}	1972	}
1736	OUTPUT:	1973	OUTPUT:
1737	RETVAL	1974	RETVAL
1738		1975
…		…
1790	}	2027	}
1791	OUTPUT:	2028	OUTPUT:
1792	RETVAL	2029	RETVAL
1793		2030
1794	void	2031	void
1795	draw (DC::Map self, int mx, int my, int sw, int sh, int T)	2032	draw (DC::Map self, int mx, int my, int sw, int sh, int T, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
1796	CODE:	2033	CODE:
1797	{	2034	{
1798	int x, y, z;	2035	int x, y, z;
1799		2036
1800	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	2037	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
1801	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	2038	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1802	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)	2039	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1803	smooth_key skey;	2040	smooth_key skey;
1804		2041	int pl_x, pl_y;
		2042	maptex pl_tex;
1805	rc_t *rc = rc_alloc ();	2043	rc_t *rc = rc_alloc ();
		2044	rc_t *rc_ov = rc_alloc ();
1806	rc_key_t key;	2045	rc_key_t key;
1807	rc_array_t *arr;	2046	rc_array_t arr, arr_hidden;
1808		2047
		2048	pl_tex.name = 0;
		2049
1809	// thats current max. sorry.	2050	// that's current max. sorry.
1810	if (sw > 255) sw = 255;	2051	if (sw > 255) sw = 255;
1811	if (sh > 255) sh = 255;	2052	if (sh > 255) sh = 255;
1812		2053
1813	// clear key, in case of extra padding	2054	// clear key, in case of extra padding
1814	memset (&skey, 0, sizeof (skey));	2055	memset (&skey, 0, sizeof (skey));
…		…
1818	key.g = 255;	2059	key.g = 255;
1819	key.b = 255;	2060	key.b = 255;
1820	key.a = 255;	2061	key.a = 255;
1821	key.mode = GL_QUADS;	2062	key.mode = GL_QUADS;
1822	key.format = GL_T2F_V3F;	2063	key.format = GL_T2F_V3F;
1823	key.texname = -1;
1824		2064
1825	mx += self->x;	2065	mx += self->x;
1826	my += self->y;	2066	my += self->y;
1827		2067
1828	// first pass: determine smooth_max	2068	// first pass: determine smooth_max
…		…
1849		2089
1850	glEnable (GL_BLEND);	2090	glEnable (GL_BLEND);
1851	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2091	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
1852	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2092	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
1853		2093
		2094	key.texname = self->tex [TEXID_HIDDEN].name;
		2095	arr_hidden = rc_array (rc_ov, &key);
		2096
1854	for (z = 0; z <= 2; z++)	2097	for (z = 0; z <= 2; z++)
1855	{	2098	{
1856	memset (smooth_level, 0, sizeof (smooth_level));	2099	memset (smooth_level, 0, sizeof (smooth_level));
		2100	key.texname = -1;
1857		2101
1858	for (y = 0; y < sh; y++)	2102	for (y = 0; y < sh; y++)
1859	if (0 <= y + my && y + my < self->rows)	2103	if (0 <= y + my && y + my < self->rows)
1860	{	2104	{
1861	maprow *row = self->row + (y + my);	2105	maprow *row = self->row + (y + my);
…		…
1871	maptex tex = self->tex [tile];	2115	maptex tex = self->tex [tile];
1872	int px, py;	2116	int px, py;
1873		2117
1874	if (key.texname != tex.name)	2118	if (key.texname != tex.name)
1875	{	2119	{
		2120	self->tex [tile].unused = 0;
		2121
1876	if (!tex.name)	2122	if (!tex.name)
1877	tex = self->tex [2]; /* missing, replace by noface */	2123	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
1878		2124
1879	key.texname = tex.name;	2125	key.texname = tex.name;
1880	arr = rc_array (rc, &key);	2126	arr = rc_array (rc, &key);
1881	}	2127	}
1882		2128
1883	px = (x + 1) * T - tex.w;	2129	px = (x + 1) * T - tex.w;
1884	py = (y + 1) * T - tex.h;	2130	py = (y + 1) * T - tex.h;
		2131
		2132	if (expect_false (cell->player == player) && expect_false (z == 2))
		2133	{
		2134	pl_x = px;
		2135	pl_y = py;
		2136	pl_tex = tex;
		2137	continue;
		2138	}
1885		2139
1886	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2140	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1887	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2141	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
1888	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2142	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
1889	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2143	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
1890
1891	if (cell->flags && z == 2)
1892	{
1893	// overlays such as the speech bubble, probably more to come
1894	if (cell->flags & 1)
1895	{
1896	maptex tex = self->tex [1];
1897	int px = x * T + T * 2 / 32;
1898	int py = y * T - T * 6 / 32;
1899
1900	if (tex.name)
1901	{
1902	if (key.texname != tex.name)
1903	{
1904	key.texname = tex.name;
1905	arr = rc_array (rc, &key);
1906	}
1907
1908	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
1909	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
1910	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
1911	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
1912	}
1913	}
1914	}
1915		2144
1916	// update smooth hash	2145	// update smooth hash
1917	if (tex.smoothtile)	2146	if (tex.smoothtile)
1918	{	2147	{
1919	skey.tile = tex.smoothtile;	2148	skey.tile = tex.smoothtile;
…		…
1948	// corners	2177	// corners
1949	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);	2178	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);
1950	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);	2179	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);
1951	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);	2180	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);
1952	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	2181	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);
		2182	}
		2183	}
		2184
		2185	if (expect_false (z == 2))
		2186	{
		2187	/* draw question marks on top of hidden spaces */
		2188	if (!cell->darkness)
		2189	{
		2190	maptex tex = self->tex [TEXID_HIDDEN];
		2191	int px = (x + 1) * T - tex.w;
		2192	int py = (y + 1) * T - tex.h;
		2193
		2194	rc_t2f_v3f (arr_hidden, 0 , 0 , px , py , 0);
		2195	rc_t2f_v3f (arr_hidden, 0 , tex.t, px , py + tex.h, 0);
		2196	rc_t2f_v3f (arr_hidden, tex.s, tex.t, px + tex.w, py + tex.h, 0);
		2197	rc_t2f_v3f (arr_hidden, tex.s, 0 , px + tex.w, py , 0);
		2198	}
		2199
		2200	if (expect_false (cell->flags))
		2201	{
		2202	// overlays such as the speech bubble, probably more to come
		2203	if (cell->flags & 1)
		2204	{
		2205	rc_key_t key_ov = key;
		2206	maptex tex = self->tex [TEXID_SPEECH];
		2207	rc_array_t *arr;
		2208	int px = x * T + T * 2 / 32;
		2209	int py = y * T - T * 6 / 32;
		2210
		2211	key_ov.texname = tex.name;
		2212	arr = rc_array (rc_ov, &key_ov);
		2213
		2214	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		2215	rc_t2f_v3f (arr, 0 , tex.t, px , py + T, 0);
		2216	rc_t2f_v3f (arr, tex.s, tex.t, px + T, py + T, 0);
		2217	rc_t2f_v3f (arr, tex.s, 0 , px + T, py , 0);
		2218	}
1953	}	2219	}
1954	}	2220	}
1955	}	2221	}
1956	}	2222	}
1957		2223
…		…
1997	{	2263	{
1998	// this time avoiding texture state changes	2264	// this time avoiding texture state changes
1999	// save gobs of state changes.	2265	// save gobs of state changes.
2000	if (key.texname != tex.name)	2266	if (key.texname != tex.name)
2001	{	2267	{
		2268	self->tex [skey->tile].unused = 0;
		2269
2002	glEnd ();	2270	glEnd ();
2003	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);	2271	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
2004	glBegin (GL_QUADS);	2272	glBegin (GL_QUADS);
2005	}	2273	}
2006		2274
…		…
2035	}	2303	}
2036		2304
2037	hv_clear (smooth);	2305	hv_clear (smooth);
2038	}	2306	}
2039		2307
		2308	if (pl_tex.name)
		2309	{
		2310	maptex tex = pl_tex;
		2311	int px = pl_x + sdx;
		2312	int py = pl_y + sdy;
		2313
		2314	key.texname = tex.name;
		2315	arr = rc_array (rc, &key);
		2316
		2317	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);
		2318	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);
		2319	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);
		2320	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);
		2321
		2322	rc_draw (rc);
		2323	}
		2324
		2325	rc_draw (rc_ov);
		2326	rc_clear (rc_ov);
		2327
2040	glDisable (GL_BLEND);	2328	glDisable (GL_BLEND);
2041	rc_free (rc);	2329	rc_free (rc);
		2330	rc_free (rc_ov);
2042		2331
2043	// top layer: overlays such as the health bar	2332	// top layer: overlays such as the health bar
2044	for (y = 0; y < sh; y++)	2333	for (y = 0; y < sh; y++)
2045	if (0 <= y + my && y + my < self->rows)	2334	if (0 <= y + my && y + my < self->rows)
2046	{	2335	{
…		…
2051	{	2340	{
2052	mapcell *cell = row->col + (x + mx - row->c0);	2341	mapcell *cell = row->col + (x + mx - row->c0);
2053		2342
2054	int px = x * T;	2343	int px = x * T;
2055	int py = y * T;	2344	int py = y * T;
		2345
		2346	if (expect_false (cell->player == player))
		2347	{
		2348	px += sdx;
		2349	py += sdy;
		2350	}
2056		2351
2057	if (cell->stat_hp)	2352	if (cell->stat_hp)
2058	{	2353	{
2059	int width = cell->stat_width * T;	2354	int width = cell->stat_width * T;
2060	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;	2355	int thick = (sh * T / 32 + 27) / 28 + 1 + cell->stat_width;
…		…
2100	};	2395	};
2101		2396
2102	int x, y;	2397	int x, y;
2103		2398
2104	glEnable (GL_TEXTURE_2D);	2399	glEnable (GL_TEXTURE_2D);
		2400	/* GL_REPLACE would be correct, as we don't need to modulate alpha,
		2401	* but the nvidia driver (185.18.14) mishandles alpha textures
		2402	* ansd takes the colour from god knows where instead of using
		2403	* Cp. MODULATE results in the same colour, but slightly different
		2404	* alpha, but atcually gives us the correct colour with nvidia.
		2405	*/
2105	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2406	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
2106	glEnable (GL_BLEND);	2407	glEnable (GL_BLEND);
2107	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2408	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2108	glBegin (GL_QUADS);	2409	glBegin (GL_QUADS);
2109		2410
2110	for (y = 0; y < h; y++)	2411	for (y = 0; y < h; y++)
…		…
2117	float *c = color [m & 15];	2418	float *c = color [m & 15];
2118		2419
2119	float tx1 = m & 0x40 ? 0.5 : 0.;	2420	float tx1 = m & 0x40 ? 0.5 : 0.;
2120	float tx2 = tx1 + 0.5;	2421	float tx2 = tx1 + 0.5;
2121		2422
2122	glColor4f (c[0], c[1], c[2], 0.75);	2423	glColor4f (c[0], c[1], c[2], 1);
2123	glTexCoord2f (tx1, 0.); glVertex2i (x , y );	2424	glTexCoord2f (tx1, 0.); glVertex2i (x , y );
2124	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);	2425	glTexCoord2f (tx1, 1.); glVertex2i (x , y + 1);
2125	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);	2426	glTexCoord2f (tx2, 1.); glVertex2i (x + 1, y + 1);
2126	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );	2427	glTexCoord2f (tx2, 0.); glVertex2i (x + 1, y );
2127	}	2428	}
…		…
2149	SvCUR_set (darkness3_sv, sw34 * sh3);	2450	SvCUR_set (darkness3_sv, sw34 * sh3);
2150		2451
2151	mx += self->x - 1;	2452	mx += self->x - 1;
2152	my += self->y - 1;	2453	my += self->y - 1;
2153		2454
2154	memset (darkness1, 255, sw1 * sh1);	2455	memset (darkness1, 255 - FOW_DARKNESS, sw1 * sh1);
2155		2456
2156	for (y = 0; y < sh1; y++)	2457	for (y = 0; y < sh1; y++)
2157	if (0 <= y + my && y + my < self->rows)	2458	if (0 <= y + my && y + my < self->rows)
2158	{	2459	{
2159	maprow *row = self->row + (y + my);	2460	maprow *row = self->row + (y + my);
…		…
2279	else	2580	else
2280	*data++ = 0;	2581	*data++ = 0;
2281	}	2582	}
2282	}	2583	}
2283		2584
		2585	/* if size is wh + 5 then no data has been found /
		2586	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)
		2587	{
2284	SvPOK_only (data_sv);	2588	SvPOK_only (data_sv);
2285	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));	2589	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
		2590	}
		2591
2286	RETVAL = data_sv;	2592	RETVAL = data_sv;
2287	}	2593	}
2288	OUTPUT:	2594	OUTPUT:
2289	RETVAL	2595	RETVAL
2290		2596
2291	void	2597	void
2292	set_rect (DC::Map self, int x0, int y0, uint8_t *data)	2598	set_rect (DC::Map self, int x0, int y0, SV *data_sv)
2293	PPCODE:	2599	PPCODE:
2294	{	2600	{
2295	int x, y, z;	2601	int x, y, z;
2296	int w, h;	2602	int w, h;
2297	int x1, y1;	2603	int x1, y1;
		2604	STRLEN len;
		2605	uint8_t data, end;
		2606
		2607	len = SvLEN (data_sv);
		2608	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
		2609	data = SvPVbyte_nolen (data_sv);
		2610	end = data + len + 8;
		2611
		2612	if (len < 5)
		2613	XSRETURN_EMPTY;
2298		2614
2299	if (*data++ != 0)	2615	if (*data++ != 0)
2300	XSRETURN_EMPTY; /* version mismatch */	2616	XSRETURN_EMPTY; /* version mismatch */
2301		2617
2302	w = data++ << 8; w \|= data++;	2618	w = data++ << 8; w \|= data++;
…		…
2317	{	2633	{
2318	maprow *row = map_get_row (self, y);	2634	maprow *row = map_get_row (self, y);
2319		2635
2320	for (x = x0; x < x1; x++)	2636	for (x = x0; x < x1; x++)
2321	{	2637	{
		2638	uint8_t flags;
		2639
		2640	if (data + 7 >= end)
		2641	XSRETURN_EMPTY;
		2642
2322	uint8_t flags = *data++;	2643	flags = *data++;
2323		2644
2324	if (flags)	2645	if (flags)
2325	{	2646	{
2326	mapcell *cell = row_get_cell (row, x);	2647	mapcell *cell = row_get_cell (row, x);
2327	tileid tile[3] = { 0, 0, 0 };	2648	tileid tile[3] = { 0, 0, 0 };
…		…
2330	if (flags & 2) { tile[1] = data++ << 8; tile[1] \|= data++; }	2651	if (flags & 2) { tile[1] = data++ << 8; tile[1] \|= data++; }
2331	if (flags & 4) { tile[2] = data++ << 8; tile[2] \|= data++; }	2652	if (flags & 4) { tile[2] = data++ << 8; tile[2] \|= data++; }
2332		2653
2333	if (cell->darkness == 0)	2654	if (cell->darkness == 0)
2334	{	2655	{
2335	cell->darkness = 0;	2656	/cell->darkness = 0;/
		2657	EXTEND (SP, 3);
2336		2658
2337	for (z = 0; z <= 2; z++)	2659	for (z = 0; z <= 2; z++)
2338	{	2660	{
2339	tileid t = tile [z];	2661	tileid t = tile [z];
2340		2662
2341	if (t >= self->texs \|\| (t && !self->tex [t].name))	2663	if (t >= self->texs \|\| (t && !self->tex [t].name))
2342	{	2664	{
2343	XPUSHs (sv_2mortal (newSViv (t)));	2665	PUSHs (sv_2mortal (newSViv (t)));
2344	need_texid (self, t);	2666	need_texid (self, t);
2345	}	2667	}
2346		2668
2347	cell->tile [z] = t;	2669	cell->tile [z] = t;
2348	}	2670	}
…		…
2565	} *civ, const_iv[] = {	2887	} *civ, const_iv[] = {
2566	# define const_iv(name) { # name, (IV)name }	2888	# define const_iv(name) { # name, (IV)name }
2567	const_iv (GL_VENDOR),	2889	const_iv (GL_VENDOR),
2568	const_iv (GL_VERSION),	2890	const_iv (GL_VERSION),
2569	const_iv (GL_EXTENSIONS),	2891	const_iv (GL_EXTENSIONS),
		2892	const_iv (GL_MAX_TEXTURE_UNITS),
2570	const_iv (GL_COLOR_MATERIAL),	2893	const_iv (GL_COLOR_MATERIAL),
2571	const_iv (GL_SMOOTH),	2894	const_iv (GL_SMOOTH),
2572	const_iv (GL_FLAT),	2895	const_iv (GL_FLAT),
2573	const_iv (GL_DITHER),	2896	const_iv (GL_DITHER),
2574	const_iv (GL_BLEND),	2897	const_iv (GL_BLEND),
…		…
2586	const_iv (GL_ZERO),	2909	const_iv (GL_ZERO),
2587	const_iv (GL_SRC_ALPHA),	2910	const_iv (GL_SRC_ALPHA),
2588	const_iv (GL_DST_ALPHA),	2911	const_iv (GL_DST_ALPHA),
2589	const_iv (GL_ONE_MINUS_SRC_ALPHA),	2912	const_iv (GL_ONE_MINUS_SRC_ALPHA),
2590	const_iv (GL_ONE_MINUS_DST_ALPHA),	2913	const_iv (GL_ONE_MINUS_DST_ALPHA),
		2914	const_iv (GL_SRC_COLOR),
		2915	const_iv (GL_DST_COLOR),
		2916	const_iv (GL_ONE_MINUS_SRC_COLOR),
		2917	const_iv (GL_ONE_MINUS_DST_COLOR),
2591	const_iv (GL_SRC_ALPHA_SATURATE),	2918	const_iv (GL_SRC_ALPHA_SATURATE),
2592	const_iv (GL_RGB),	2919	const_iv (GL_RGB),
2593	const_iv (GL_RGBA),	2920	const_iv (GL_RGBA),
2594	const_iv (GL_RGBA4),	2921	const_iv (GL_RGBA4),
2595	const_iv (GL_RGBA8),	2922	const_iv (GL_RGBA8),
…		…
2663	const_iv (GL_NICEST),	2990	const_iv (GL_NICEST),
2664	const_iv (GL_V2F),	2991	const_iv (GL_V2F),
2665	const_iv (GL_V3F),	2992	const_iv (GL_V3F),
2666	const_iv (GL_T2F_V3F),	2993	const_iv (GL_T2F_V3F),
2667	const_iv (GL_T2F_N3F_V3F),	2994	const_iv (GL_T2F_N3F_V3F),
		2995	const_iv (GL_FUNC_ADD),
		2996	const_iv (GL_FUNC_SUBTRACT),
		2997	const_iv (GL_FUNC_REVERSE_SUBTRACT),
2668	# undef const_iv	2998	# undef const_iv
2669	};	2999	};
2670		3000
2671	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	3001	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
2672	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	3002	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
2679	disable_GL_EXT_blend_func_separate ()	3009	disable_GL_EXT_blend_func_separate ()
2680	CODE:	3010	CODE:
2681	gl.BlendFuncSeparate = 0;	3011	gl.BlendFuncSeparate = 0;
2682	gl.BlendFuncSeparateEXT = 0;	3012	gl.BlendFuncSeparateEXT = 0;
2683		3013
		3014	void
		3015	apple_nvidia_bug (int enable)
		3016
2684	char *	3017	char *
2685	gl_vendor ()	3018	gl_vendor ()
2686	CODE:	3019	CODE:
2687	RETVAL = (char *)glGetString (GL_VENDOR);	3020	RETVAL = (char *)glGetString (GL_VENDOR);
2688	OUTPUT:	3021	OUTPUT:
…		…
2737		3070
2738	void glBlendFuncSeparate (int sa, int da, int saa, int daa)	3071	void glBlendFuncSeparate (int sa, int da, int saa, int daa)
2739	CODE:	3072	CODE:
2740	gl_BlendFuncSeparate (sa, da, saa, daa);	3073	gl_BlendFuncSeparate (sa, da, saa, daa);
2741		3074
		3075	# void glBlendEquation (int se)
		3076
2742	void glDepthMask (int flag)	3077	void glDepthMask (int flag)
2743		3078
2744	void glLogicOp (int opcode)	3079	void glLogicOp (int opcode)
2745		3080
2746	void glColorMask (int red, int green, int blue, int alpha)	3081	void glColorMask (int red, int green, int blue, int alpha)
…		…
2780	void glRotate (float angle, float x, float y, float z)	3115	void glRotate (float angle, float x, float y, float z)
2781	CODE:	3116	CODE:
2782	glRotatef (angle, x, y, z);	3117	glRotatef (angle, x, y, z);
2783		3118
2784	void glColor (float r, float g, float b, float a = 1.0)	3119	void glColor (float r, float g, float b, float a = 1.0)
		3120	PROTOTYPE: @
2785	ALIAS:	3121	ALIAS:
2786	glColor_premultiply = 1	3122	glColor_premultiply = 1
2787	CODE:	3123	CODE:
2788	if (ix)	3124	if (ix)
2789	{	3125	{

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.250 by root, Fri Dec 28 16:09:03 2007 UTC vs. Revision 1.293 by root, Thu Dec 17 02:49:38 2009 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.250 by root, Fri Dec 28 16:09:03 2007 UTC vs.
Revision 1.293 by root, Thu Dec 17 02:49:38 2009 UTC