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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.223 by root, Sat Aug 11 11:07:08 2007 UTC vs.
Revision 1.246 by root, Fri Dec 28 15:06:02 2007 UTC

…		…
120		120
121	#include "pango-font.c"	121	#include "pango-font.c"
122	#include "pango-fontmap.c"	122	#include "pango-fontmap.c"
123	#include "pango-render.c"	123	#include "pango-render.c"
124		124
125	typedef IV CFPlus__Channel;	125	typedef IV DC__Channel;
126	typedef SDL_RWops *CFPlus__RW;	126	typedef SDL_RWops *DC__RW;
127	typedef Mix_Chunk *CFPlus__MixChunk;	127	typedef Mix_Chunk *DC__MixChunk;
128	typedef Mix_Music *CFPlus__MixMusic;	128	typedef Mix_Music *DC__MixMusic;
129		129
130	typedef PangoFontDescription *CFPlus__Font;	130	typedef PangoFontDescription *DC__Font;
131		131
132	static int	132	static int
133	shape_attr_p (PangoLayoutRun *run)	133	shape_attr_p (PangoLayoutRun *run)
134	{	134	{
135	GSList *attrs = run->item->analysis.extra_attrs;	135	GSList *attrs = run->item->analysis.extra_attrs;
…		…
149		149
150	typedef struct cf_layout {	150	typedef struct cf_layout {
151	PangoLayout *pl;	151	PangoLayout *pl;
152	float r, g, b, a; // default color for rgba mode	152	float r, g, b, a; // default color for rgba mode
153	int base_height;	153	int base_height;
154	CFPlus__Font font;	154	DC__Font font;
		155	rc_t *rc;
155	} *CFPlus__Layout;	156	} *DC__Layout;
156		157
157	static CFPlus__Font default_font;	158	static DC__Font default_font;
158	static PangoContext *opengl_context;	159	static PangoContext *opengl_context;
159	static PangoFontMap *opengl_fontmap;	160	static PangoFontMap *opengl_fontmap;
160		161
161	static void	162	static void
162	substitute_func (FcPattern *pattern, gpointer data)	163	substitute_func (FcPattern *pattern, gpointer data)
…		…
167	#endif	168	#endif
168	FcPatternAddBool (pattern, FC_AUTOHINT, 0);	169	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
169	}	170	}
170		171
171	static void	172	static void
172	layout_update_font (CFPlus__Layout self)	173	layout_update_font (DC__Layout self)
173	{	174	{
174	/* use a random scale factor to account for unknown descenders, 0.8 works	175	/* use a random scale factor to account for unknown descenders, 0.8 works
175	* reasonably well with bitstream vera	176	* reasonably well with bitstream vera
176	*/	177	*/
177	PangoFontDescription *font = self->font ? self->font : default_font;	178	PangoFontDescription *font = self->font ? self->font : default_font;
…		…
181		182
182	pango_layout_set_font_description (self->pl, font);	183	pango_layout_set_font_description (self->pl, font);
183	}	184	}
184		185
185	static void	186	static void
186	layout_get_pixel_size (CFPlus__Layout self, int w, int h)	187	layout_get_pixel_size (DC__Layout self, int w, int h)
187	{	188	{
188	PangoRectangle rect;	189	PangoRectangle rect;
189		190
190	// get_pixel_* wrongly rounds down	191	// get_pixel_* wrongly rounds down
191	pango_layout_get_extents (self->pl, 0, &rect);	192	pango_layout_get_extents (self->pl, 0, &rect);
…		…
202		203
203	typedef uint16_t tileid;	204	typedef uint16_t tileid;
204	typedef uint16_t faceid;	205	typedef uint16_t faceid;
205		206
206	typedef struct {	207	typedef struct {
207	int name;	208	GLuint name;
208	int w, h;	209	int w, h;
209	float s, t;	210	float s, t;
210	uint8_t r, g, b, a;	211	uint8_t r, g, b, a;
211	tileid smoothtile;	212	tileid smoothtile;
212	uint8_t smoothlevel;	213	uint8_t smoothlevel;
…		…
230	int faces; tileid *face2tile; // [faceid]	231	int faces; tileid *face2tile; // [faceid]
231	int texs; maptex *tex; // [tileid]	232	int texs; maptex *tex; // [tileid]
232		233
233	int32_t rows;	234	int32_t rows;
234	maprow *row;	235	maprow *row;
235	} *CFPlus__Map;	236	} *DC__Map;
236		237
237	static char *	238	static char *
238	prepend (char *ptr, int sze, int inc)	239	prepend (char *ptr, int sze, int inc)
239	{	240	{
240	char *p;	241	char *p;
…		…
278	self->texs *= 2;	279	self->texs *= 2;
279	}	280	}
280	}	281	}
281		282
282	static maprow *	283	static maprow *
283	map_get_row (CFPlus__Map self, int y)	284	map_get_row (DC__Map self, int y)
284	{	285	{
285	if (0 > y)	286	if (0 > y)
286	{	287	{
287	int extend = - y + MAP_EXTEND_Y;	288	int extend = - y + MAP_EXTEND_Y;
288	Prepend (maprow, self->row, self->rows, extend);	289	Prepend (maprow, self->row, self->rows, extend);
…		…
326		327
327	return row->col + (x - row->c0);	328	return row->col + (x - row->c0);
328	}	329	}
329		330
330	static mapcell *	331	static mapcell *
331	map_get_cell (CFPlus__Map self, int x, int y)	332	map_get_cell (DC__Map self, int x, int y)
332	{	333	{
333	return row_get_cell (map_get_row (self, y), x);	334	return row_get_cell (map_get_row (self, y), x);
334	}	335	}
335		336
336	static void	337	static void
337	map_clear (CFPlus__Map self)	338	map_clear (DC__Map self)
338	{	339	{
339	int r;	340	int r;
340		341
341	for (r = 0; r < self->rows; r++)	342	for (r = 0; r < self->rows; r++)
342	Safefree (self->row[r].col);	343	Safefree (self->row[r].col);
…		…
350	self->row = 0;	351	self->row = 0;
351	self->rows = 0;	352	self->rows = 0;
352	}	353	}
353		354
354	static void	355	static void
355	map_blank (CFPlus__Map self, int x0, int y0, int w, int h)	356	map_blank (DC__Map self, int x0, int y0, int w, int h)
356	{	357	{
357	int x, y;	358	int x, y;
358	maprow *row;	359	maprow *row;
359	mapcell *cell;	360	mapcell *cell;
360		361
…		…
439	n \|= n >> 16;	440	n \|= n >> 16;
440		441
441	return n + 1;	442	return n + 1;
442	}	443	}
443		444
		445	static unsigned int
		446	popcount (unsigned int n)
		447	{
		448	n -= (n >> 1) & 0x55555555U;
		449	n = ((n >> 2) & 0x33333333U) + (n & 0x33333333U);
		450	n = ((n >> 4) + n) & 0x0f0f0f0fU;
		451	n *= 0x01010101U;
		452
		453	return n >> 24;
		454	}
		455
444	/* SDL should provide this, really. */	456	/* SDL should provide this, really. */
445	#define SDLK_MODIFIER_MIN 300	457	#define SDLK_MODIFIER_MIN 300
446	#define SDLK_MODIFIER_MAX 314	458	#define SDLK_MODIFIER_MAX 314
447		459
448	/******************************************************************************/	460	/******************************************************************************/
…		…
486	return 0;	498	return 0;
487		499
488	return 1;	500	return 1;
489	}	501	}
490		502
491	MODULE = CFPlus PACKAGE = CFPlus	503	MODULE = Deliantra::Client PACKAGE = DC
492		504
493	PROTOTYPES: ENABLE	505	PROTOTYPES: ENABLE
494		506
495	BOOT:	507	BOOT:
496	{	508	{
497	HV *stash = gv_stashpv ("CFPlus", 1);	509	HV *stash = gv_stashpv ("DC", 1);
498	static const struct {	510	static const struct {
499	const char *name;	511	const char *name;
500	IV iv;	512	IV iv;
501	} *civ, const_iv[] = {	513	} *civ, const_iv[] = {
502	# define const_iv(name) { # name, (IV)name }	514	# define const_iv(name) { # name, (IV)name }
…		…
524		536
525	const_iv (SDL_APPINPUTFOCUS),	537	const_iv (SDL_APPINPUTFOCUS),
526	const_iv (SDL_APPMOUSEFOCUS),	538	const_iv (SDL_APPMOUSEFOCUS),
527	const_iv (SDL_APPACTIVE),	539	const_iv (SDL_APPACTIVE),
528		540
		541	const_iv (SDLK_FIRST),
		542	const_iv (SDLK_LAST),
529	const_iv (SDLK_KP0),	543	const_iv (SDLK_KP0),
530	const_iv (SDLK_KP1),	544	const_iv (SDLK_KP1),
531	const_iv (SDLK_KP2),	545	const_iv (SDLK_KP2),
532	const_iv (SDLK_KP3),	546	const_iv (SDLK_KP3),
533	const_iv (SDLK_KP4),	547	const_iv (SDLK_KP4),
…		…
605	const_iv (KMOD_LMETA),	619	const_iv (KMOD_LMETA),
606	const_iv (KMOD_RMETA),	620	const_iv (KMOD_RMETA),
607	const_iv (KMOD_NUM),	621	const_iv (KMOD_NUM),
608	const_iv (KMOD_CAPS),	622	const_iv (KMOD_CAPS),
609	const_iv (KMOD_MODE),	623	const_iv (KMOD_MODE),
		624
		625	const_iv (MIX_DEFAULT_FORMAT),
610	# undef const_iv	626	# undef const_iv
611	};	627	};
612		628
613	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )	629	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
614	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));	630	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
…		…
631	RETVAL	647	RETVAL
632		648
633	NV floor (NV x)	649	NV floor (NV x)
634		650
635	NV ceil (NV x)	651	NV ceil (NV x)
		652
		653	IV minpot (UV n)
		654
		655	IV popcount (UV n)
636		656
637	void	657	void
638	pango_init ()	658	pango_init ()
639	CODE:	659	CODE:
640	{	660	{
…		…
680	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);	700	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
681		701
682	if (m && m != (SDL_Rect **)-1)	702	if (m && m != (SDL_Rect **)-1)
683	while (*m)	703	while (*m)
684	{	704	{
685	if ((m)->w >= 640 && (m)->h >= 480)	705	if ((m)->w >= 800 && (m)->h >= 480)
686	{	706	{
687	AV *av = newAV ();	707	AV *av = newAV ();
688	av_push (av, newSViv ((*m)->w));	708	av_push (av, newSViv ((*m)->w));
689	av_push (av, newSViv ((*m)->h));	709	av_push (av, newSViv ((*m)->h));
690	av_push (av, newSViv (rgb));	710	av_push (av, newSViv (rgb));
…		…
714		734
715	if (RETVAL)	735	if (RETVAL)
716	{	736	{
717	av_clear (texture_av);	737	av_clear (texture_av);
718		738
719	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");	739	SDL_WM_SetCaption ("Deliantra MORPG Client " VERSION, "Deliantra");
720	#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);	740	#define GL_FUNC(ptr,name) gl.name = (ptr)SDL_GL_GetProcAddress ("gl" # name);
721	#include "glfunc.h"	741	#include "glfunc.h"
722	#undef GL_FUNC	742	#undef GL_FUNC
723	}	743	}
724	}	744	}
…		…
805	hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);	825	hv_store (hv, "data1", 5, newSViv ((IV)ev.user.data1), 0);
806	hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);	826	hv_store (hv, "data2", 5, newSViv ((IV)ev.user.data2), 0);
807	break;	827	break;
808	}	828	}
809		829
810	XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("CFPlus::UI::Event", 1))));	830	XPUSHs (sv_2mortal (sv_bless (newRV_noinc ((SV *)hv), gv_stashpv ("DC::UI::Event", 1))));
811	}	831	}
812	}	832	}
813		833
814	int	834	int
815	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 1024)	835	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
816	POSTCALL:	836	POSTCALL:
817	Mix_HookMusicFinished (music_finished);	837	Mix_HookMusicFinished (music_finished);
818	Mix_ChannelFinished (channel_finished);	838	Mix_ChannelFinished (channel_finished);
		839
		840	void
		841	Mix_QuerySpec ()
		842	PPCODE:
		843	{
		844	int freq, channels;
		845	Uint16 format;
		846
		847	if (Mix_QuerySpec (&freq, &format, &channels))
		848	{
		849	EXTEND (SP, 3);
		850	PUSHs (sv_2mortal (newSViv (freq)));
		851	PUSHs (sv_2mortal (newSViv (format)));
		852	PUSHs (sv_2mortal (newSViv (channels)));
		853	}
		854	}
819		855
820	void	856	void
821	Mix_CloseAudio ()	857	Mix_CloseAudio ()
822		858
823	int	859	int
…		…
957	void	993	void
958	error (char *message)	994	error (char *message)
959	CODE:	995	CODE:
960	fprintf (stderr, "ERROR: %s\n", message);	996	fprintf (stderr, "ERROR: %s\n", message);
961	#ifdef _WIN32	997	#ifdef _WIN32
962	MessageBox (0, message, "Crossfire+ Error", MB_OK \| MB_ICONERROR);	998	MessageBox (0, message, "Deliantra Client Error", MB_OK \| MB_ICONERROR);
963	#endif	999	#endif
964		1000
965	void	1001	void
966	fatal (char *message)	1002	fatal (char *message)
967	CODE:	1003	CODE:
968	fprintf (stderr, "FATAL: %s\n", message);	1004	fprintf (stderr, "FATAL: %s\n", message);
969	#ifdef _WIN32	1005	#ifdef _WIN32
970	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR);	1006	MessageBox (0, message, "Deliantra Client Fatal Error", MB_OK \| MB_ICONERROR);
971	#endif	1007	#endif
972	_exit (1);	1008	_exit (1);
973		1009
974	void	1010	void
975	_exit (int retval = 0)	1011	_exit (int retval = 0)
…		…
987	#if DEBUG	1023	#if DEBUG
988	VALGRIND_DO_LEAK_CHECK;	1024	VALGRIND_DO_LEAK_CHECK;
989	#endif	1025	#endif
990	}	1026	}
991		1027
992	MODULE = CFPlus PACKAGE = CFPlus::Font	1028	MODULE = Deliantra::Client PACKAGE = DC::Font
993		1029
994	PROTOTYPES: DISABLE	1030	PROTOTYPES: DISABLE
995		1031
996	CFPlus::Font	1032	DC::Font
997	new_from_file (SV class, char path, int id = 0)	1033	new_from_file (SV class, char path, int id = 0)
998	CODE:	1034	CODE:
999	{	1035	{
1000	int count;	1036	int count;
1001	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);	1037	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);
…		…
1004	}	1040	}
1005	OUTPUT:	1041	OUTPUT:
1006	RETVAL	1042	RETVAL
1007		1043
1008	void	1044	void
1009	DESTROY (CFPlus::Font self)	1045	DESTROY (DC::Font self)
1010	CODE:	1046	CODE:
1011	pango_font_description_free (self);	1047	pango_font_description_free (self);
1012		1048
1013	void	1049	void
1014	make_default (CFPlus::Font self)	1050	make_default (DC::Font self)
1015	PROTOTYPE: $	1051	PROTOTYPE: $
1016	CODE:	1052	CODE:
1017	default_font = self;	1053	default_font = self;
1018		1054
1019	MODULE = CFPlus PACKAGE = CFPlus::Layout	1055	MODULE = Deliantra::Client PACKAGE = DC::Layout
1020		1056
1021	PROTOTYPES: DISABLE	1057	PROTOTYPES: DISABLE
1022		1058
1023	void	1059	void
1024	reset_glyph_cache ()	1060	glyph_cache_backup ()
1025	PROTOTYPE:	1061	PROTOTYPE:
1026	CODE:	1062	CODE:
		1063	tc_backup ();
		1064
		1065	void
		1066	glyph_cache_restore ()
		1067	PROTOTYPE:
		1068	CODE:
1027	tc_clear ();	1069	tc_restore ();
1028		1070
1029	CFPlus::Layout	1071	DC::Layout
1030	new (SV *class)	1072	new (SV *class)
1031	CODE:	1073	CODE:
1032	New (0, RETVAL, 1, struct cf_layout);	1074	New (0, RETVAL, 1, struct cf_layout);
1033		1075
1034	RETVAL->pl = pango_layout_new (opengl_context);	1076	RETVAL->pl = pango_layout_new (opengl_context);
…		…
1036	RETVAL->g = 1.;	1078	RETVAL->g = 1.;
1037	RETVAL->b = 1.;	1079	RETVAL->b = 1.;
1038	RETVAL->a = 1.;	1080	RETVAL->a = 1.;
1039	RETVAL->base_height = MIN_FONT_HEIGHT;	1081	RETVAL->base_height = MIN_FONT_HEIGHT;
1040	RETVAL->font = 0;	1082	RETVAL->font = 0;
		1083	RETVAL->rc = rc_alloc ();
1041		1084
1042	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);	1085	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
1043	layout_update_font (RETVAL);	1086	layout_update_font (RETVAL);
1044	OUTPUT:	1087	OUTPUT:
1045	RETVAL	1088	RETVAL
1046		1089
1047	void	1090	void
1048	DESTROY (CFPlus::Layout self)	1091	DESTROY (DC::Layout self)
1049	CODE:	1092	CODE:
1050	g_object_unref (self->pl);	1093	g_object_unref (self->pl);
		1094	rc_free (self->rc);
1051	Safefree (self);	1095	Safefree (self);
1052		1096
1053	void	1097	void
1054	set_text (CFPlus::Layout self, SV *text_)	1098	set_text (DC::Layout self, SV *text_)
1055	CODE:	1099	CODE:
1056	{	1100	{
1057	STRLEN textlen;	1101	STRLEN textlen;
1058	char *text = SvPVutf8 (text_, textlen);	1102	char *text = SvPVutf8 (text_, textlen);
1059		1103
1060	pango_layout_set_text (self->pl, text, textlen);	1104	pango_layout_set_text (self->pl, text, textlen);
1061	}	1105	}
1062		1106
1063	void	1107	void
1064	set_markup (CFPlus::Layout self, SV *text_)	1108	set_markup (DC::Layout self, SV *text_)
1065	CODE:	1109	CODE:
1066	{	1110	{
1067	STRLEN textlen;	1111	STRLEN textlen;
1068	char *text = SvPVutf8 (text_, textlen);	1112	char *text = SvPVutf8 (text_, textlen);
1069		1113
1070	pango_layout_set_markup (self->pl, text, textlen);	1114	pango_layout_set_markup (self->pl, text, textlen);
1071	}	1115	}
1072		1116
1073	void	1117	void
1074	set_shapes (CFPlus::Layout self, ...)	1118	set_shapes (DC::Layout self, ...)
1075	CODE:	1119	CODE:
1076	{	1120	{
1077	PangoAttrList *attrs = 0;	1121	PangoAttrList *attrs = 0;
1078	const char *text = pango_layout_get_text (self->pl);	1122	const char *text = pango_layout_get_text (self->pl);
1079	const char *pos = text;	1123	const char *pos = text;
…		…
1114	if (attrs)	1158	if (attrs)
1115	pango_layout_set_attributes (self->pl, attrs);	1159	pango_layout_set_attributes (self->pl, attrs);
1116	}	1160	}
1117		1161
1118	void	1162	void
1119	get_shapes (CFPlus::Layout self)	1163	get_shapes (DC::Layout self)
1120	PPCODE:	1164	PPCODE:
1121	{	1165	{
1122	PangoLayoutIter *iter = pango_layout_get_iter (self->pl);	1166	PangoLayoutIter *iter = pango_layout_get_iter (self->pl);
1123		1167
1124	do	1168	do
…		…
1139		1183
1140	pango_layout_iter_free (iter);	1184	pango_layout_iter_free (iter);
1141	}	1185	}
1142		1186
1143	int	1187	int
1144	has_wrapped (CFPlus::Layout self)	1188	has_wrapped (DC::Layout self)
1145	CODE:	1189	CODE:
1146	{	1190	{
1147	int lines = 1;	1191	int lines = 1;
1148	const char *text = pango_layout_get_text (self->pl);	1192	const char *text = pango_layout_get_text (self->pl);
1149		1193
…		…
1154	}	1198	}
1155	OUTPUT:	1199	OUTPUT:
1156	RETVAL	1200	RETVAL
1157		1201
1158	SV *	1202	SV *
1159	get_text (CFPlus::Layout self)	1203	get_text (DC::Layout self)
1160	CODE:	1204	CODE:
1161	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);	1205	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
1162	sv_utf8_decode (RETVAL);	1206	sv_utf8_decode (RETVAL);
1163	OUTPUT:	1207	OUTPUT:
1164	RETVAL	1208	RETVAL
1165		1209
1166	void	1210	void
1167	set_foreground (CFPlus::Layout self, float r, float g, float b, float a = 1.)	1211	set_foreground (DC::Layout self, float r, float g, float b, float a = 1.)
1168	CODE:	1212	CODE:
1169	self->r = r;	1213	self->r = r;
1170	self->g = g;	1214	self->g = g;
1171	self->b = b;	1215	self->b = b;
1172	self->a = a;	1216	self->a = a;
1173		1217
1174	void	1218	void
1175	set_font (CFPlus::Layout self, CFPlus::Font font = 0)	1219	set_font (DC::Layout self, DC::Font font = 0)
1176	CODE:	1220	CODE:
1177	if (self->font != font)	1221	if (self->font != font)
1178	{	1222	{
1179	self->font = font;	1223	self->font = font;
1180	layout_update_font (self);	1224	layout_update_font (self);
1181	}	1225	}
1182		1226
1183	void	1227	void
1184	set_height (CFPlus::Layout self, int base_height)	1228	set_height (DC::Layout self, int base_height)
1185	CODE:	1229	CODE:
1186	if (self->base_height != base_height)	1230	if (self->base_height != base_height)
1187	{	1231	{
1188	self->base_height = base_height;	1232	self->base_height = base_height;
1189	layout_update_font (self);	1233	layout_update_font (self);
1190	}	1234	}
1191		1235
1192	void	1236	void
1193	set_width (CFPlus::Layout self, int max_width = -1)	1237	set_width (DC::Layout self, int max_width = -1)
1194	CODE:	1238	CODE:
1195	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);	1239	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
1196		1240
1197	void	1241	void
1198	set_indent (CFPlus::Layout self, int indent)	1242	set_indent (DC::Layout self, int indent)
1199	CODE:	1243	CODE:
1200	pango_layout_set_indent (self->pl, indent * PANGO_SCALE);	1244	pango_layout_set_indent (self->pl, indent * PANGO_SCALE);
1201		1245
1202	void	1246	void
1203	set_spacing (CFPlus::Layout self, int spacing)	1247	set_spacing (DC::Layout self, int spacing)
1204	CODE:	1248	CODE:
1205	pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);	1249	pango_layout_set_spacing (self->pl, spacing * PANGO_SCALE);
1206		1250
1207	void	1251	void
1208	set_ellipsise (CFPlus::Layout self, int ellipsise)	1252	set_ellipsise (DC::Layout self, int ellipsise)
1209	CODE:	1253	CODE:
1210	pango_layout_set_ellipsize (self->pl,	1254	pango_layout_set_ellipsize (self->pl,
1211	ellipsise == 1 ? PANGO_ELLIPSIZE_START	1255	ellipsise == 1 ? PANGO_ELLIPSIZE_START
1212	: ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE	1256	: ellipsise == 2 ? PANGO_ELLIPSIZE_MIDDLE
1213	: ellipsise == 3 ? PANGO_ELLIPSIZE_END	1257	: ellipsise == 3 ? PANGO_ELLIPSIZE_END
1214	: PANGO_ELLIPSIZE_NONE	1258	: PANGO_ELLIPSIZE_NONE
1215	);	1259	);
1216		1260
1217	void	1261	void
1218	set_single_paragraph_mode (CFPlus::Layout self, int spm)	1262	set_single_paragraph_mode (DC::Layout self, int spm)
1219	CODE:	1263	CODE:
1220	pango_layout_set_single_paragraph_mode (self->pl, !!spm);	1264	pango_layout_set_single_paragraph_mode (self->pl, !!spm);
1221		1265
1222	void	1266	void
1223	size (CFPlus::Layout self)	1267	size (DC::Layout self)
1224	PPCODE:	1268	PPCODE:
1225	{	1269	{
1226	int w, h;	1270	int w, h;
1227		1271
1228	layout_get_pixel_size (self, &w, &h);	1272	layout_get_pixel_size (self, &w, &h);
…		…
1231	PUSHs (sv_2mortal (newSViv (w)));	1275	PUSHs (sv_2mortal (newSViv (w)));
1232	PUSHs (sv_2mortal (newSViv (h)));	1276	PUSHs (sv_2mortal (newSViv (h)));
1233	}	1277	}
1234		1278
1235	int	1279	int
1236	descent (CFPlus::Layout self)	1280	descent (DC::Layout self)
1237	CODE:	1281	CODE:
1238	{	1282	{
1239	PangoRectangle rect;	1283	PangoRectangle rect;
1240	PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);	1284	PangoLayoutLine *line = pango_layout_get_line (self->pl, 0);
1241	pango_layout_line_get_pixel_extents (line, 0, &rect);	1285	pango_layout_line_get_pixel_extents (line, 0, &rect);
…		…
1243	}	1287	}
1244	OUTPUT:	1288	OUTPUT:
1245	RETVAL	1289	RETVAL
1246		1290
1247	int	1291	int
1248	xy_to_index (CFPlus::Layout self, int x, int y)	1292	xy_to_index (DC::Layout self, int x, int y)
1249	CODE:	1293	CODE:
1250	{	1294	{
1251	int index, trailing;	1295	int index, trailing;
1252	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);	1296	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
1253	RETVAL = index + trailing;	1297	RETVAL = index + trailing;
1254	}	1298	}
1255	OUTPUT:	1299	OUTPUT:
1256	RETVAL	1300	RETVAL
1257		1301
1258	void	1302	void
1259	cursor_pos (CFPlus::Layout self, int index)	1303	cursor_pos (DC::Layout self, int index)
1260	PPCODE:	1304	PPCODE:
1261	{	1305	{
1262	PangoRectangle strong_pos;	1306	PangoRectangle strong_pos;
1263	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);	1307	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
1264		1308
…		…
1267	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));	1311	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
1268	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));	1312	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
1269	}	1313	}
1270		1314
1271	void	1315	void
1272	index_to_line_x (CFPlus::Layout self, int index, int trailing = 0)	1316	index_to_line_x (DC::Layout self, int index, int trailing = 0)
1273	PPCODE:	1317	PPCODE:
1274	{	1318	{
1275	int line, x;	1319	int line, x;
1276		1320
1277	pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);	1321	pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
		1322	#if !PANGO_VERSION_CHECK (1, 17. 3)
1278	/* pango bug: line is between 1..numlines, not 0..numlines-1 */	1323	/* pango bug: line is between 1..numlines, not 0..numlines-1 */
1279		1324	--line;
		1325	#endif
1280	EXTEND (SP, 2);	1326	EXTEND (SP, 2);
1281	PUSHs (sv_2mortal (newSViv (line - 1)));	1327	PUSHs (sv_2mortal (newSViv (line)));
1282	PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));	1328	PUSHs (sv_2mortal (newSViv (x / PANGO_SCALE)));
1283	}	1329	}
1284		1330
1285	void	1331	void
1286	line_x_to_index (CFPlus::Layout self, int line, int x)	1332	line_x_to_index (DC::Layout self, int line, int x)
1287	PPCODE:	1333	PPCODE:
1288	{	1334	{
1289	PangoLayoutLine *lp;	1335	PangoLayoutLine *lp;
1290	int index, trailing;	1336	int index, trailing;
1291		1337
…		…
1306	PUSHs (sv_2mortal (newSViv (trailing)));	1352	PUSHs (sv_2mortal (newSViv (trailing)));
1307	}	1353	}
1308	}	1354	}
1309		1355
1310	void	1356	void
1311	render (CFPlus::Layout self, float x, float y, int flags = 0)	1357	render (DC::Layout self, float x, float y, int flags = 0)
1312	PPCODE:	1358	CODE:
		1359	rc_clear (self->rc);
1313	pango_opengl_render_layout_subpixel (	1360	pango_opengl_render_layout_subpixel (
1314	self->pl,	1361	self->pl,
		1362	self->rc,
1315	x * PANGO_SCALE, y * PANGO_SCALE,	1363	x * PANGO_SCALE, y * PANGO_SCALE,
1316	self->r, self->g, self->b, self->a,	1364	self->r, self->g, self->b, self->a,
1317	flags	1365	flags
1318	);	1366	);
		1367	// we assume that context_change actually clears/frees stuff
		1368	// and does not do any recomputation...
		1369	pango_layout_context_changed (self->pl);
1319		1370
1320	MODULE = CFPlus PACKAGE = CFPlus::Texture	1371	void
		1372	draw (DC::Layout self)
		1373	CODE:
		1374	{
		1375	glEnable (GL_TEXTURE_2D);
		1376	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
		1377	glEnable (GL_BLEND);
		1378	gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
		1379	GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
		1380	glEnable (GL_ALPHA_TEST);
		1381	glAlphaFunc (GL_GREATER, 7.f / 255.f);
		1382
		1383	rc_draw (self->rc);
		1384
		1385	glDisable (GL_ALPHA_TEST);
		1386	glDisable (GL_BLEND);
		1387	glDisable (GL_TEXTURE_2D);
		1388	}
		1389
		1390	MODULE = Deliantra::Client PACKAGE = DC::Texture
1321		1391
1322	PROTOTYPES: ENABLE	1392	PROTOTYPES: ENABLE
1323
1324	int minpot (int n)
1325		1393
1326	void	1394	void
1327	pad (SV *data_, int ow, int oh, int nw, int nh)	1395	pad (SV *data_, int ow, int oh, int nw, int nh)
1328	CODE:	1396	CODE:
1329	{	1397	{
…		…
1406	RETVAL = width > 0;	1474	RETVAL = width > 0;
1407	}	1475	}
1408	OUTPUT:	1476	OUTPUT:
1409	RETVAL	1477	RETVAL
1410		1478
1411	MODULE = CFPlus PACKAGE = CFPlus::Map	1479	MODULE = Deliantra::Client PACKAGE = DC::Map
1412		1480
1413	PROTOTYPES: DISABLE	1481	PROTOTYPES: DISABLE
1414		1482
1415	CFPlus::Map	1483	DC::Map
1416	new (SV *class)	1484	new (SV *class)
1417	CODE:	1485	CODE:
1418	New (0, RETVAL, 1, struct map);	1486	New (0, RETVAL, 1, struct map);
1419	RETVAL->x = 0;	1487	RETVAL->x = 0;
1420	RETVAL->y = 0;	1488	RETVAL->y = 0;
…		…
1428	RETVAL->row = 0;	1496	RETVAL->row = 0;
1429	OUTPUT:	1497	OUTPUT:
1430	RETVAL	1498	RETVAL
1431		1499
1432	void	1500	void
1433	DESTROY (CFPlus::Map self)	1501	DESTROY (DC::Map self)
1434	CODE:	1502	CODE:
1435	{	1503	{
1436	map_clear (self);	1504	map_clear (self);
1437	Safefree (self->face2tile);	1505	Safefree (self->face2tile);
1438	Safefree (self->tex);	1506	Safefree (self->tex);
1439	Safefree (self);	1507	Safefree (self);
1440	}	1508	}
1441		1509
1442	void	1510	void
1443	resize (CFPlus::Map self, int map_width, int map_height)	1511	resize (DC::Map self, int map_width, int map_height)
1444	CODE:	1512	CODE:
1445	self->w = map_width;	1513	self->w = map_width;
1446	self->h = map_height;	1514	self->h = map_height;
1447		1515
1448	void	1516	void
1449	clear (CFPlus::Map self)	1517	clear (DC::Map self)
1450	CODE:	1518	CODE:
1451	map_clear (self);	1519	map_clear (self);
1452		1520
1453	void	1521	void
1454	set_tileid (CFPlus::Map self, int face, int tile)	1522	set_tileid (DC::Map self, int face, int tile)
1455	CODE:	1523	CODE:
1456	{	1524	{
1457	need_facenum (self, face); self->face2tile [face] = tile;	1525	need_facenum (self, face); self->face2tile [face] = tile;
1458	need_texid (self, tile);	1526	need_texid (self, tile);
1459	}	1527	}
1460		1528
1461	void	1529	void
1462	set_smooth (CFPlus::Map self, int face, int smooth, int level)	1530	set_smooth (DC::Map self, int face, int smooth, int level)
1463	CODE:	1531	CODE:
1464	{	1532	{
1465	tileid texid;	1533	tileid texid;
1466	maptex *tex;	1534	maptex *tex;
1467		1535
…		…
1480	tex->smoothtile = self->face2tile [smooth];	1548	tex->smoothtile = self->face2tile [smooth];
1481	tex->smoothlevel = level;	1549	tex->smoothlevel = level;
1482	}	1550	}
1483		1551
1484	void	1552	void
1485	set_texture (CFPlus::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)	1553	set_texture (DC::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
1486	CODE:	1554	CODE:
1487	{	1555	{
1488	need_texid (self, texid);	1556	need_texid (self, texid);
1489		1557
1490	{	1558	{
…		…
1510	// from transparent color bleeding and ugly wrapping effects.	1578	// from transparent color bleeding and ugly wrapping effects.
1511	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);	1579	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1512	}	1580	}
1513		1581
1514	int	1582	int
1515	ox (CFPlus::Map self)	1583	ox (DC::Map self)
1516	ALIAS:	1584	ALIAS:
1517	oy = 1	1585	oy = 1
1518	x = 2	1586	x = 2
1519	y = 3	1587	y = 3
1520	w = 4	1588	w = 4
…		…
1531	}	1599	}
1532	OUTPUT:	1600	OUTPUT:
1533	RETVAL	1601	RETVAL
1534		1602
1535	void	1603	void
1536	scroll (CFPlus::Map self, int dx, int dy)	1604	scroll (DC::Map self, int dx, int dy)
1537	CODE:	1605	CODE:
1538	{	1606	{
1539	if (dx > 0)	1607	if (dx > 0)
1540	map_blank (self, self->x, self->y, dx, self->h);	1608	map_blank (self, self->x, self->y, dx, self->h);
1541	else if (dx < 0)	1609	else if (dx < 0)
…		…
1557	self->y += MAP_EXTEND_Y;	1625	self->y += MAP_EXTEND_Y;
1558	}	1626	}
1559	}	1627	}
1560		1628
1561	SV *	1629	SV *
1562	map1a_update (CFPlus::Map self, SV *data_, int extmap)	1630	map1a_update (DC::Map self, SV *data_, int extmap)
1563	CODE:	1631	CODE:
1564	{	1632	{
1565	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	1633	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
1566	uint8_t data_end = (uint8_t )SvEND (data_);	1634	uint8_t data_end = (uint8_t )SvEND (data_);
1567	mapcell *cell;	1635	mapcell *cell;
…		…
1656	}	1724	}
1657	OUTPUT:	1725	OUTPUT:
1658	RETVAL	1726	RETVAL
1659		1727
1660	SV *	1728	SV *
1661	mapmap (CFPlus::Map self, int x0, int y0, int w, int h)	1729	mapmap (DC::Map self, int x0, int y0, int w, int h)
1662	CODE:	1730	CODE:
1663	{	1731	{
1664	int x1, x;	1732	int x1, x;
1665	int y1, y;	1733	int y1, y;
1666	int z;	1734	int z;
…		…
1711	}	1779	}
1712	OUTPUT:	1780	OUTPUT:
1713	RETVAL	1781	RETVAL
1714		1782
1715	void	1783	void
1716	draw (CFPlus::Map self, int mx, int my, int sw, int sh, int T)	1784	draw (DC::Map self, int mx, int my, int sw, int sh, int T)
1717	CODE:	1785	CODE:
1718	{	1786	{
1719	int x, y, z;	1787	int x, y, z;
1720		1788
1721	HV smooth = (HV )sv_2mortal ((SV *)newHV ());	1789	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
1722	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level	1790	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
1723	static uint8_t smooth_max[256][256]; // egad, fats and wasteful on memory (64k)	1791	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)
1724	smooth_key skey;	1792	smooth_key skey;
1725		1793
1726	rc_t *rc = rc_alloc ();	1794	rc_t *rc = rc_alloc ();
1727	rc_key_t key;	1795	rc_key_t key;
1728	rc_array_t *arr;	1796	rc_array_t *arr;
…		…
1790	if (tile)	1858	if (tile)
1791	{	1859	{
1792	maptex tex = self->tex [tile];	1860	maptex tex = self->tex [tile];
1793	int px, py;	1861	int px, py;
1794		1862
1795	// suppressing texture state switches here
1796	// is only moderately effective, but worth the extra effort
1797	if (key.texname != tex.name)	1863	if (key.texname != tex.name)
1798	{	1864	{
1799	if (!tex.name)	1865	if (!tex.name)
1800	tex = self->tex [2]; /* missing, replace by noface */	1866	tex = self->tex [2]; /* missing, replace by noface */
1801		1867
…		…
1876	}	1942	}
1877	}	1943	}
1878	}	1944	}
1879	}	1945	}
1880		1946
		1947	rc_draw (rc);
		1948	rc_clear (rc);
		1949
1881	// go through all smoothlevels, lowest to highest, then draw.	1950	// go through all smoothlevels, lowest to highest, then draw.
1882	// this is basically counting sort	1951	// this is basically counting sort
1883	{	1952	{
1884	int w, b;	1953	int w, b;
1885		1954
		1955	glEnable (GL_TEXTURE_2D);
		1956	glBegin (GL_QUADS);
1886	for (w = 0; w < 256 / 32; ++w)	1957	for (w = 0; w < 256 / 32; ++w)
1887	{	1958	{
1888	uint32_t smask = smooth_level [w];	1959	uint32_t smask = smooth_level [w];
1889	if (smask)	1960	if (smask)
1890	for (b = 0; b < 32; ++b)	1961	for (b = 0; b < 32; ++b)
…		…
1915	{	1986	{
1916	// this time avoiding texture state changes	1987	// this time avoiding texture state changes
1917	// save gobs of state changes.	1988	// save gobs of state changes.
1918	if (key.texname != tex.name)	1989	if (key.texname != tex.name)
1919	{	1990	{
		1991	glEnd ();
1920	key.texname = tex.name;	1992	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
1921	arr = rc_array (rc, &key);	1993	glBegin (GL_QUADS);
1922	}	1994	}
1923		1995
1924	if (border)	1996	if (border)
1925	{	1997	{
1926	float ox = border * dx;	1998	float ox = border * dx;
1927		1999
1928	rc_t2f_v3f (arr, ox , 0.f , px , py , 0);	2000	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
1929	rc_t2f_v3f (arr, ox , dy , px , py + T, 0);	2001	glTexCoord2f (ox , dy ); glVertex2i (px , py + T);
1930	rc_t2f_v3f (arr, ox + dx, dy , px + T, py + T, 0);	2002	glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py + T);
1931	rc_t2f_v3f (arr, ox + dx, 0.f , px + T, py , 0);	2003	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + T, py );
1932	}	2004	}
1933		2005
1934	if (corner)	2006	if (corner)
1935	{	2007	{
1936	float ox = corner * dx;	2008	float ox = corner * dx;
1937		2009
1938	rc_t2f_v3f (arr, ox , dy , px , py , 0);	2010	glTexCoord2f (ox , dy ); glVertex2i (px , py );
1939	rc_t2f_v3f (arr, ox , dy * 2.f, px , py + T, 0);	2011	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + T);
1940	rc_t2f_v3f (arr, ox + dx, dy * 2.f, px + T, py + T, 0);	2012	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + T, py + T);
1941	rc_t2f_v3f (arr, ox + dx, dy , px + T, py , 0);	2013	glTexCoord2f (ox + dx, dy ); glVertex2i (px + T, py );
1942	}	2014	}
1943	}	2015	}
1944	}	2016	}
1945	}	2017	}
1946	}	2018	}
1947	}	2019	}
		2020
		2021	glEnd ();
		2022	glDisable (GL_TEXTURE_2D);
		2023	key.texname = -1;
1948	}	2024	}
1949		2025
1950	hv_clear (smooth);	2026	hv_clear (smooth);
1951	rc_draw (rc);
1952	rc_clear (rc);
1953	}	2027	}
1954		2028
1955	glDisable (GL_BLEND);	2029	glDisable (GL_BLEND);
1956	rc_free (rc);	2030	rc_free (rc);
1957		2031
…		…
1986	}	2060	}
1987	}	2061	}
1988	}	2062	}
1989		2063
1990	void	2064	void
1991	draw_magicmap (CFPlus::Map self, int dx, int dy, int w, int h, unsigned char *data)	2065	draw_magicmap (DC::Map self, int dx, int dy, int w, int h, unsigned char *data)
1992	CODE:	2066	CODE:
1993	{	2067	{
1994	static float color[16][3] = {	2068	static float color[16][3] = {
1995	{ 0.00F, 0.00F, 0.00F },	2069	{ 0.00F, 0.00F, 0.00F },
1996	{ 1.00F, 1.00F, 1.00F },	2070	{ 1.00F, 1.00F, 1.00F },
…		…
2046	glDisable (GL_BLEND);	2120	glDisable (GL_BLEND);
2047	glDisable (GL_TEXTURE_2D);	2121	glDisable (GL_TEXTURE_2D);
2048	}	2122	}
2049		2123
2050	void	2124	void
2051	fow_texture (CFPlus::Map self, int mx, int my, int sw, int sh)	2125	fow_texture (DC::Map self, int mx, int my, int sw, int sh)
2052	PPCODE:	2126	PPCODE:
2053	{	2127	{
2054	int x, y;	2128	int x, y;
2055	int sw1 = sw + 2;	2129	int sw1 = sw + 2;
2056	int sh1 = sh + 2;	2130	int sh1 = sh + 2;
…		…
2127	PUSHs (sv_2mortal (newSViv (sh3)));	2201	PUSHs (sv_2mortal (newSViv (sh3)));
2128	PUSHs (darkness3_sv);	2202	PUSHs (darkness3_sv);
2129	}	2203	}
2130		2204
2131	SV *	2205	SV *
2132	get_rect (CFPlus::Map self, int x0, int y0, int w, int h)	2206	get_rect (DC::Map self, int x0, int y0, int w, int h)
2133	CODE:	2207	CODE:
2134	{	2208	{
2135	int x, y, x1, y1;	2209	int x, y, x1, y1;
2136	SV data_sv = newSV (w h * 7 + 5);	2210	SV data_sv = newSV (w h * 7 + 5);
2137	uint8_t data = (uint8_t )SvPVX (data_sv);	2211	uint8_t data = (uint8_t )SvPVX (data_sv);
…		…
2202	}	2276	}
2203	OUTPUT:	2277	OUTPUT:
2204	RETVAL	2278	RETVAL
2205		2279
2206	void	2280	void
2207	set_rect (CFPlus::Map self, int x0, int y0, uint8_t *data)	2281	set_rect (DC::Map self, int x0, int y0, uint8_t *data)
2208	PPCODE:	2282	PPCODE:
2209	{	2283	{
2210	int x, y, z;	2284	int x, y, z;
2211	int w, h;	2285	int w, h;
2212	int x1, y1;	2286	int x1, y1;
2213		2287
2214	if (*data++ != 0)	2288	if (*data++ != 0)
2215	return; /* version mismatch */	2289	XSRETURN_EMPTY; /* version mismatch */
2216		2290
2217	w = data++ << 8; w \|= data++;	2291	w = data++ << 8; w \|= data++;
2218	h = data++ << 8; h \|= data++;	2292	h = data++ << 8; h \|= data++;
2219		2293
2220	// we need to do this 'cause we don't keep an absolute coord system for rows	2294	// we need to do this 'cause we don't keep an absolute coord system for rows
…		…
2265	}	2339	}
2266	}	2340	}
2267	}	2341	}
2268	}	2342	}
2269		2343
2270	MODULE = CFPlus PACKAGE = CFPlus::RW	2344	MODULE = Deliantra::Client PACKAGE = DC::RW
2271		2345
2272	CFPlus::RW	2346	DC::RW
2273	new (SV class, SV data_sv)	2347	new (SV class, SV data_sv)
2274	CODE:	2348	CODE:
2275	{	2349	{
2276	STRLEN datalen;	2350	STRLEN datalen;
2277	char *data = SvPVbyte (data_sv, datalen);	2351	char *data = SvPVbyte (data_sv, datalen);
…		…
2279	RETVAL = SDL_RWFromConstMem (data, datalen);	2353	RETVAL = SDL_RWFromConstMem (data, datalen);
2280	}	2354	}
2281	OUTPUT:	2355	OUTPUT:
2282	RETVAL	2356	RETVAL
2283		2357
2284	CFPlus::RW	2358	DC::RW
2285	new_from_file (SV class, const char path, const char *mode = "rb")	2359	new_from_file (SV class, const char path, const char *mode = "rb")
2286	CODE:	2360	CODE:
2287	RETVAL = SDL_RWFromFile (path, mode);	2361	RETVAL = SDL_RWFromFile (path, mode);
2288	OUTPUT:	2362	OUTPUT:
2289	RETVAL	2363	RETVAL
2290		2364
2291	# fails on win32:	2365	# fails on win32:
2292	# CFPlus.xs(2268) : error C2059: syntax error : '('	2366	# dc.xs(2268) : error C2059: syntax error : '('
2293	#void	2367	#void
2294	#close (CFPlus::RW self)	2368	#close (DC::RW self)
2295	# CODE:	2369	# CODE:
2296	# (self->(close)) (self);	2370	# (self->(close)) (self);
2297		2371
2298	MODULE = CFPlus PACKAGE = CFPlus::Channel	2372	MODULE = Deliantra::Client PACKAGE = DC::Channel
2299		2373
2300	PROTOTYPES: DISABLE	2374	PROTOTYPES: DISABLE
2301		2375
2302	CFPlus::Channel	2376	DC::Channel
2303	find ()	2377	find ()
2304	CODE:	2378	CODE:
2305	{	2379	{
2306	RETVAL = Mix_GroupAvailable (-1);	2380	RETVAL = Mix_GroupAvailable (-1);
2307		2381
…		…
2320	}	2394	}
2321	OUTPUT:	2395	OUTPUT:
2322	RETVAL	2396	RETVAL
2323		2397
2324	void	2398	void
2325	halt (CFPlus::Channel self)	2399	halt (DC::Channel self)
2326	CODE:	2400	CODE:
2327	Mix_HaltChannel (self);	2401	Mix_HaltChannel (self);
2328		2402
2329	void	2403	void
2330	expire (CFPlus::Channel self, int ticks = -1)	2404	expire (DC::Channel self, int ticks = -1)
2331	CODE:	2405	CODE:
2332	Mix_ExpireChannel (self, ticks);	2406	Mix_ExpireChannel (self, ticks);
2333		2407
2334	void	2408	void
2335	fade_out (CFPlus::Channel self, int ticks = -1)	2409	fade_out (DC::Channel self, int ticks = -1)
2336	CODE:	2410	CODE:
2337	Mix_FadeOutChannel (self, ticks);	2411	Mix_FadeOutChannel (self, ticks);
2338		2412
2339	int	2413	int
2340	volume (CFPlus::Channel self, int volume)	2414	volume (DC::Channel self, int volume)
2341	CODE:	2415	CODE:
2342	RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));	2416	RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
2343	OUTPUT:	2417	OUTPUT:
2344	RETVAL	2418	RETVAL
2345		2419
2346	void	2420	void
2347	unregister_all_effects (CFPlus::Channel self)	2421	unregister_all_effects (DC::Channel self)
2348	CODE:	2422	CODE:
2349	Mix_UnregisterAllEffects (self);	2423	Mix_UnregisterAllEffects (self);
2350		2424
2351	void	2425	void
2352	set_panning (CFPlus::Channel self, int left, int right)	2426	set_panning (DC::Channel self, int left, int right)
2353	CODE:	2427	CODE:
2354	left = CLAMP (left , 0, 255);	2428	left = CLAMP (left , 0, 255);
2355	right = CLAMP (right, 0, 255);	2429	right = CLAMP (right, 0, 255);
2356	Mix_SetPanning (self, left, right);	2430	Mix_SetPanning (self, left, right);
2357		2431
2358	void	2432	void
2359	set_distance (CFPlus::Channel self, int distance)	2433	set_distance (DC::Channel self, int distance)
2360	CODE:	2434	CODE:
2361	Mix_SetDistance (self, CLAMP (distance, 0, 255));	2435	Mix_SetDistance (self, CLAMP (distance, 0, 255));
2362		2436
2363	void	2437	void
2364	set_position (CFPlus::Channel self, int angle, int distance)	2438	set_position (DC::Channel self, int angle, int distance)
2365	CODE:	2439	CODE:
2366		2440
2367	void	2441	void
2368	set_position_r (CFPlus::Channel self, int dx, int dy, int maxdistance)	2442	set_position_r (DC::Channel self, int dx, int dy, int maxdistance)
2369	CODE:	2443	CODE:
2370	{	2444	{
2371	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));	2445	int distance = sqrtf (dx * dx + dy * dy) * (255.f / sqrtf (maxdistance * maxdistance));
2372	int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);	2446	int angle = 360 + (int)roundf (atan2f (dx, -dy) * 180.f / (float)M_PI);
2373	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));	2447	Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
2374	}	2448	}
2375		2449
2376	void	2450	void
2377	set_reverse_stereo (CFPlus::Channel self, int flip)	2451	set_reverse_stereo (DC::Channel self, int flip)
2378	CODE:	2452	CODE:
2379	Mix_SetReverseStereo (self, flip);	2453	Mix_SetReverseStereo (self, flip);
2380		2454
2381	MODULE = CFPlus PACKAGE = CFPlus::MixChunk	2455	MODULE = Deliantra::Client PACKAGE = DC::MixChunk
2382		2456
2383	PROTOTYPES: DISABLE	2457	PROTOTYPES: DISABLE
2384		2458
2385	CFPlus::MixChunk	2459	DC::MixChunk
2386	new (SV *class, CFPlus::RW rwops)	2460	new (SV *class, DC::RW rwops)
2387	CODE:	2461	CODE:
2388	RETVAL = Mix_LoadWAV_RW (rwops, 1);	2462	RETVAL = Mix_LoadWAV_RW (rwops, 1);
2389	OUTPUT:	2463	OUTPUT:
2390	RETVAL	2464	RETVAL
2391		2465
2392	void	2466	void
2393	DESTROY (CFPlus::MixChunk self)	2467	DESTROY (DC::MixChunk self)
2394	CODE:	2468	CODE:
2395	Mix_FreeChunk (self);	2469	Mix_FreeChunk (self);
2396		2470
2397	int	2471	int
2398	volume (CFPlus::MixChunk self, int volume = -1)	2472	volume (DC::MixChunk self, int volume = -1)
2399	CODE:	2473	CODE:
2400	if (items > 1)	2474	if (items > 1)
2401	volume = CLAMP (volume, 0, 128);	2475	volume = CLAMP (volume, 0, 128);
2402	RETVAL = Mix_VolumeChunk (self, volume);	2476	RETVAL = Mix_VolumeChunk (self, volume);
2403	OUTPUT:	2477	OUTPUT:
2404	RETVAL	2478	RETVAL
2405		2479
2406	CFPlus::Channel	2480	DC::Channel
2407	play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)	2481	play (DC::MixChunk self, DC::Channel channel = -1, int loops = 0, int ticks = -1)
2408	CODE:	2482	CODE:
2409	{	2483	{
2410	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);	2484	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
2411		2485
2412	if (RETVAL < 0)	2486	if (RETVAL < 0)
…		…
2419	}	2493	}
2420	}	2494	}
2421	OUTPUT:	2495	OUTPUT:
2422	RETVAL	2496	RETVAL
2423		2497
2424	MODULE = CFPlus PACKAGE = CFPlus::MixMusic	2498	MODULE = Deliantra::Client PACKAGE = DC::MixMusic
2425		2499
2426	int	2500	int
2427	volume (int volume = -1)	2501	volume (int volume = -1)
2428	PROTOTYPE: ;$	2502	PROTOTYPE: ;$
2429	CODE:	2503	CODE:
…		…
2441	void	2515	void
2442	halt ()	2516	halt ()
2443	CODE:	2517	CODE:
2444	Mix_HaltMusic ();	2518	Mix_HaltMusic ();
2445		2519
2446	CFPlus::MixMusic	2520	DC::MixMusic
2447	new (SV *class, CFPlus::RW rwops)	2521	new (SV *class, DC::RW rwops)
2448	CODE:	2522	CODE:
2449	RETVAL = Mix_LoadMUS_RW (rwops);	2523	RETVAL = Mix_LoadMUS_RW (rwops);
2450	OUTPUT:	2524	OUTPUT:
2451	RETVAL	2525	RETVAL
2452		2526
2453	void	2527	void
2454	DESTROY (CFPlus::MixMusic self)	2528	DESTROY (DC::MixMusic self)
2455	CODE:	2529	CODE:
2456	Mix_FreeMusic (self);	2530	Mix_FreeMusic (self);
2457		2531
2458	int	2532	int
2459	play (CFPlus::MixMusic self, int loops = -1)	2533	play (DC::MixMusic self, int loops = -1)
2460	CODE:	2534	CODE:
2461	RETVAL = Mix_PlayMusic (self, loops);	2535	RETVAL = Mix_PlayMusic (self, loops);
2462	OUTPUT:	2536	OUTPUT:
2463	RETVAL	2537	RETVAL
2464		2538
2465	void	2539	void
2466	fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)	2540	fade_in_pos (DC::MixMusic self, int loops, int ms, double position)
2467	CODE:	2541	CODE:
2468	Mix_FadeInMusicPos (self, loops, ms, position);	2542	Mix_FadeInMusicPos (self, loops, ms, position);
2469		2543
2470	MODULE = CFPlus PACKAGE = CFPlus::OpenGL	2544	MODULE = Deliantra::Client PACKAGE = DC::OpenGL
2471		2545
2472	PROTOTYPES: ENABLE	2546	PROTOTYPES: ENABLE
2473		2547
2474	BOOT:	2548	BOOT:
2475	{	2549	{
2476	HV *stash = gv_stashpv ("CFPlus::OpenGL", 1);	2550	HV *stash = gv_stashpv ("DC::OpenGL", 1);
2477	static const struct {	2551	static const struct {
2478	const char *name;	2552	const char *name;
2479	IV iv;	2553	IV iv;
2480	} *civ, const_iv[] = {	2554	} *civ, const_iv[] = {
2481	# define const_iv(name) { # name, (IV)name }	2555	# define const_iv(name) { # name, (IV)name }
…		…
2516	const_iv (GL_INTENSITY),	2590	const_iv (GL_INTENSITY),
2517	const_iv (GL_LUMINANCE),	2591	const_iv (GL_LUMINANCE),
2518	const_iv (GL_LUMINANCE_ALPHA),	2592	const_iv (GL_LUMINANCE_ALPHA),
2519	const_iv (GL_FLOAT),	2593	const_iv (GL_FLOAT),
2520	const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),	2594	const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
		2595	const_iv (GL_COMPRESSED_ALPHA_ARB),
		2596	const_iv (GL_COMPRESSED_LUMINANCE_ARB),
		2597	const_iv (GL_COMPRESSED_LUMINANCE_ALPHA_ARB),
		2598	const_iv (GL_COMPRESSED_INTENSITY_ARB),
		2599	const_iv (GL_COMPRESSED_RGB_ARB),
		2600	const_iv (GL_COMPRESSED_RGBA_ARB),
2521	const_iv (GL_COMPILE),	2601	const_iv (GL_COMPILE),
2522	const_iv (GL_PROXY_TEXTURE_1D),	2602	const_iv (GL_PROXY_TEXTURE_1D),
2523	const_iv (GL_PROXY_TEXTURE_2D),	2603	const_iv (GL_PROXY_TEXTURE_2D),
2524	const_iv (GL_TEXTURE_1D),	2604	const_iv (GL_TEXTURE_1D),
2525	const_iv (GL_TEXTURE_2D),	2605	const_iv (GL_TEXTURE_2D),
…		…
2564	const_iv (GL_PERSPECTIVE_CORRECTION_HINT),	2644	const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
2565	const_iv (GL_POINT_SMOOTH_HINT),	2645	const_iv (GL_POINT_SMOOTH_HINT),
2566	const_iv (GL_LINE_SMOOTH_HINT),	2646	const_iv (GL_LINE_SMOOTH_HINT),
2567	const_iv (GL_POLYGON_SMOOTH_HINT),	2647	const_iv (GL_POLYGON_SMOOTH_HINT),
2568	const_iv (GL_GENERATE_MIPMAP_HINT),	2648	const_iv (GL_GENERATE_MIPMAP_HINT),
		2649	const_iv (GL_TEXTURE_COMPRESSION_HINT),
2569	const_iv (GL_FASTEST),	2650	const_iv (GL_FASTEST),
2570	const_iv (GL_DONT_CARE),	2651	const_iv (GL_DONT_CARE),
2571	const_iv (GL_NICEST),	2652	const_iv (GL_NICEST),
2572	const_iv (GL_V2F),	2653	const_iv (GL_V2F),
2573	const_iv (GL_V3F),	2654	const_iv (GL_V3F),
…		…
2581		2662
2582	texture_av = newAV ();	2663	texture_av = newAV ();
2583	AvREAL_off (texture_av);	2664	AvREAL_off (texture_av);
2584	}	2665	}
2585		2666
		2667	void
		2668	disable_GL_EXT_blend_func_separate ()
		2669	CODE:
		2670	gl.BlendFuncSeparate = 0;
		2671	gl.BlendFuncSeparateEXT = 0;
		2672
2586	char *	2673	char *
2587	gl_vendor ()	2674	gl_vendor ()
2588	CODE:	2675	CODE:
2589	RETVAL = (char *)glGetString (GL_VENDOR);	2676	RETVAL = (char *)glGetString (GL_VENDOR);
2590	OUTPUT:	2677	OUTPUT:
…		…
2711		2798
2712	void glRect (float x1, float y1, float x2, float y2)	2799	void glRect (float x1, float y1, float x2, float y2)
2713	CODE:	2800	CODE:
2714	glRectf (x1, y1, x2, y2);	2801	glRectf (x1, y1, x2, y2);
2715		2802
		2803	void glRect_lineloop (float x1, float y1, float x2, float y2)
		2804	CODE:
		2805	glBegin (GL_LINE_LOOP);
		2806	glVertex2f (x1, y1);
		2807	glVertex2f (x2, y1);
		2808	glVertex2f (x2, y2);
		2809	glVertex2f (x1, y2);
		2810	glEnd ();
		2811
2716	PROTOTYPES: ENABLE	2812	PROTOTYPES: ENABLE
2717		2813
2718	void glBegin (int mode)	2814	void glBegin (int mode)
2719		2815
2720	void glEnd ()	2816	void glEnd ()
…		…
2752	void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char row, char column)	2848	void glSeparableFilter2D (int target, int internalformat, int width, int height, int format, int type, char row, char column)
2753	CODE:	2849	CODE:
2754	if (gl.SeparableFilter2D)	2850	if (gl.SeparableFilter2D)
2755	gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);	2851	gl.SeparableFilter2D (target, internalformat, width, height, format, type, row, column);
2756		2852
2757	void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)	2853	void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data = 0)
2758		2854
2759	void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)	2855	void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
2760		2856
2761	void glDrawPixels (int width, int height, int format, int type, char *pixels)	2857	void glDrawPixels (int width, int height, int format, int type, char *pixels)
2762		2858
…		…
2788		2884
2789	void glEndList ()	2885	void glEndList ()
2790		2886
2791	void glCallList (int list)	2887	void glCallList (int list)
2792		2888
2793	MODULE = CFPlus PACKAGE = CFPlus::UI::Base	2889	MODULE = Deliantra::Client PACKAGE = DC::UI::Base
2794		2890
2795	PROTOTYPES: DISABLE	2891	PROTOTYPES: DISABLE
2796		2892
2797	void	2893	void
2798	find_widget (SV *self, NV x, NV y)	2894	find_widget (SV *self, NV x, NV y)
…		…
2802	XPUSHs (self);	2898	XPUSHs (self);
2803	}	2899	}
2804		2900
2805	BOOT:	2901	BOOT:
2806	{	2902	{
2807	hover_gv = gv_fetchpv ("CFPlus::UI::HOVER", 1, SVt_NV);	2903	hover_gv = gv_fetchpv ("DC::UI::HOVER", 1, SVt_NV);
2808		2904
2809	draw_x_gv = gv_fetchpv ("CFPlus::UI::Base::draw_x", 1, SVt_NV);	2905	draw_x_gv = gv_fetchpv ("DC::UI::Base::draw_x", 1, SVt_NV);
2810	draw_y_gv = gv_fetchpv ("CFPlus::UI::Base::draw_y", 1, SVt_NV);	2906	draw_y_gv = gv_fetchpv ("DC::UI::Base::draw_y", 1, SVt_NV);
2811	draw_w_gv = gv_fetchpv ("CFPlus::UI::Base::draw_w", 1, SVt_NV);	2907	draw_w_gv = gv_fetchpv ("DC::UI::Base::draw_w", 1, SVt_NV);
2812	draw_h_gv = gv_fetchpv ("CFPlus::UI::Base::draw_h", 1, SVt_NV);	2908	draw_h_gv = gv_fetchpv ("DC::UI::Base::draw_h", 1, SVt_NV);
2813	}	2909	}
2814		2910
2815	void	2911	void
2816	draw (SV *self)	2912	draw (SV *self)
2817	CODE:	2913	CODE:
…		…
2821	NV x, y, w, h;	2917	NV x, y, w, h;
2822	SV *draw_x_sv = GvSV (draw_x_gv);	2918	SV *draw_x_sv = GvSV (draw_x_gv);
2823	SV *draw_y_sv = GvSV (draw_y_gv);	2919	SV *draw_y_sv = GvSV (draw_y_gv);
2824	SV *draw_w_sv = GvSV (draw_w_gv);	2920	SV *draw_w_sv = GvSV (draw_w_gv);
2825	SV *draw_h_sv = GvSV (draw_h_gv);	2921	SV *draw_h_sv = GvSV (draw_h_gv);
2826	SV *hover;
2827	double draw_x, draw_y, draw_w, draw_h;	2922	double draw_x, draw_y;
2828		2923
2829	if (!SvROK (self))	2924	if (!SvROK (self))
2830	croak ("CFPlus::Base::draw: %s not a reference", SvPV_nolen (self));	2925	croak ("DC::Base::draw: %s not a reference", SvPV_nolen (self));
2831		2926
2832	hv = (HV *)SvRV (self);	2927	hv = (HV *)SvRV (self);
2833		2928
2834	if (SvTYPE (hv) != SVt_PVHV)	2929	if (SvTYPE (hv) != SVt_PVHV)
2835	croak ("CFPlus::Base::draw: %s not a hashref", SvPV_nolen (self));	2930	croak ("DC::Base::draw: %s not a hashref", SvPV_nolen (self));
2836		2931
2837	svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;	2932	svp = hv_fetch (hv, "w", 1, 0); w = svp ? SvNV (*svp) : 0.;
2838	svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;	2933	svp = hv_fetch (hv, "h", 1, 0); h = svp ? SvNV (*svp) : 0.;
2839		2934
2840	if (!h \|\| !w)	2935	if (!h \|\| !w)
…		…
2860	{	2955	{
2861	svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);	2956	svp = hv_fetch (hv, "can_hover", sizeof ("can_hover") - 1, 0);
2862		2957
2863	if (svp && SvTRUE (*svp))	2958	if (svp && SvTRUE (*svp))
2864	{	2959	{
2865	glColor4f (10.2f, 0.80.2f, 0.5*0.2f, 0.2f);	2960	glColor4f (1.0f * 0.2f, 0.8f * 0.2f, 0.5f * 0.2f, 0.2f);
2866	glEnable (GL_BLEND);	2961	glEnable (GL_BLEND);
2867	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);	2962	glBlendFunc (GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
2868	glBegin (GL_QUADS);	2963	glBegin (GL_QUADS);
2869	glVertex2f (0, 0);	2964	glVertex2f (0, 0);
2870	glVertex2f (w, 0);	2965	glVertex2f (w, 0);
…		…
2873	glEnd ();	2968	glEnd ();
2874	glDisable (GL_BLEND);	2969	glDisable (GL_BLEND);
2875	}	2970	}
2876	}	2971	}
2877	#if 0	2972	#if 0
2878	if ($ENV{CFPLUS_DEBUG} & 1) {	2973	// draw borders, for debugging
2879	glPushMatrix;	2974	glPushMatrix ();
2880	glColor 1, 1, 0, 1;	2975	glColor4f (1., 1., 0., 1.);
2881	glTranslate 0.375, 0.375;	2976	glTranslatef (.5, .5, 0.);
2882	glBegin GL_LINE_LOOP;	2977	glBegin (GL_LINE_LOOP);
2883	glVertex 0 , 0;	2978	glVertex2f (0 , 0);
2884	glVertex $self->{w} - 1, 0;	2979	glVertex2f (w - 1, 0);
2885	glVertex $self->{w} - 1, $self->{h} - 1;	2980	glVertex2f (w - 1, h - 1);
2886	glVertex 0 , $self->{h} - 1;	2981	glVertex2f (0 , h - 1);
2887	glEnd;	2982	glEnd ();
2888	glPopMatrix;	2983	glPopMatrix ();
2889	#CFPlus::UI::Label->new (w => $self->{w}, h => $self->{h}, text => $self, fontsize => 0)->_draw;
2890	}
2891	#endif	2984	#endif
2892	PUSHMARK (SP);	2985	PUSHMARK (SP);
2893	XPUSHs (self);	2986	XPUSHs (self);
2894	PUTBACK;	2987	PUTBACK;
2895	call_method ("_draw", G_VOID \| G_DISCARD);	2988	call_method ("_draw", G_VOID \| G_DISCARD);

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.223 by root, Sat Aug 11 11:07:08 2007 UTC vs. Revision 1.246 by root, Fri Dec 28 15:06:02 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.223 by root, Sat Aug 11 11:07:08 2007 UTC vs.
Revision 1.246 by root, Fri Dec 28 15:06:02 2007 UTC