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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.29 by root, Thu Apr 13 01:55:38 2006 UTC vs.
Revision 1.52 by root, Wed Apr 19 21:17:15 2006 UTC

…		…
		1	#ifdef _WIN32
		2	# include <malloc.h>
		3	#endif
		4
1	#include "EXTERN.h"	5	#include "EXTERN.h"
2	#include "perl.h"	6	#include "perl.h"
3	#include "XSUB.h"	7	#include "XSUB.h"
4		8
5	#include <string.h>	9	#include <string.h>
6	#include <stdio.h>	10	#include <stdio.h>
7		11
8	#include <SDL.h>	12	#include <SDL.h>
9	#include <SDL_image.h>	13	#include <SDL_image.h>
		14	#include <SDL_mixer.h>
10	#include <SDL_opengl.h>	15	#include <SDL_opengl.h>
		16
		17	#include <glib/gmacros.h>
11		18
12	#include <pango/pango.h>	19	#include <pango/pango.h>
13	#include <pango/pangofc-fontmap.h>	20	#include <pango/pangofc-fontmap.h>
14	#include <pango/pangoft2.h>	21	#include <pango/pangoft2.h>
15		22
		23	#ifndef _WIN32
16	#include <sys/types.h>	24	# include <sys/types.h>
17	#include <sys/socket.h>	25	# include <sys/socket.h>
18	#include <netinet/in.h>	26	# include <netinet/in.h>
19	#include <netinet/tcp.h>	27	# include <netinet/tcp.h>
20
21	#include <inttypes.h>	28	# include <inttypes.h>
		29	#else
		30	typedef unsigned char uint8_t;
		31	typedef unsigned short uint16_t;
		32	typedef unsigned int uint32_t;
		33	typedef signed char int8_t;
		34	typedef signed short int16_t;
		35	typedef signed int int32_t;
		36	#endif
22		37
23	#define FOW_DARKNESS 32	38	#define FOW_DARKNESS 32
24		39
25	#define MAP_EXTEND_X 32	40	#define MAP_EXTEND_X 32
26	#define MAP_EXTEND_Y 512	41	#define MAP_EXTEND_Y 512
		42
		43	typedef Mix_Chunk *CFClient__MixChunk;
		44	typedef Mix_Music *CFClient__MixMusic;
27		45
28	static PangoContext *context;	46	static PangoContext *context;
29	static PangoFontMap *fontmap;	47	static PangoFontMap *fontmap;
30		48
31	typedef struct cf_layout {	49	typedef struct cf_layout {
35		53
36	static void	54	static void
37	substitute_func (FcPattern *pattern, gpointer data)	55	substitute_func (FcPattern *pattern, gpointer data)
38	{	56	{
39	FcPatternAddBool (pattern, FC_HINTING , 1);	57	FcPatternAddBool (pattern, FC_HINTING , 1);
40	FcPatternAddBool (pattern, FC_AUTOHINT, 1);	58	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
41	}	59	}
42		60
43	static void	61	static void
44	layout_update (CFClient__Layout self)	62	layout_update (CFClient__Layout self)
45	{	63	{
46	/* use a random scale factor to account for unknown descenders, 0.8 works	64	/* use a random scale factor to account for unknown descenders, 0.8 works
47	* reasonably well with bitstream vera	65	* reasonably well with bitstream vera
48	*/	66	*/
49	PangoFontDescription *font = pango_context_get_font_description (context);	67	PangoFontDescription *font = pango_context_get_font_description (context);
50	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));	68
		69	int height = self->base_height * (PANGO_SCALE * 8 / 10);
		70
		71	if (pango_font_description_get_size (font) != height)
		72	{
		73	pango_font_description_set_absolute_size (font, height);
		74	pango_layout_context_changed (self->pl);
		75	}
51	}	76	}
52		77
53	static void	78	static void
54	layout_get_pixel_size (CFClient__Layout self, int w, int h)	79	layout_get_pixel_size (CFClient__Layout self, int w, int h)
55	{	80	{
…		…
60	w = (w + 3) & ~3;	85	w = (w + 3) & ~3;
61	if (!w) w = 1;	86	if (!w) w = 1;
62	if (!h) h = 1;	87	if (!h) h = 1;
63	}	88	}
64		89
		90	typedef uint16_t mapface;
		91
		92	typedef struct {
		93	GLint name;
		94	int w, h;
		95	float s, t;
		96	uint8_t r, g, b, a;
		97	} maptex;
		98
65	typedef struct {	99	typedef struct {
66	int16_t darkness;	100	int16_t darkness;
67	uint16_t face[3];	101	mapface face[3];
68	} mapcell;	102	} mapcell;
69		103
70	typedef struct {	104	typedef struct {
71	uint32_t c0, c1;	105	int32_t c0, c1;
72	mapcell *col;	106	mapcell *col;
73	} maprow;	107	} maprow;
74		108
75	typedef struct map {	109	typedef struct map {
76	int x, y, w, h;	110	int x, y, w, h;
		111	int ox, oy; /* offset to virtual global coordinate system */
77	int faces;	112	int faces;
78	GLint *face;	113	mapface *face;
79		114
		115	int texs;
		116	maptex *tex;
		117
80	uint32_t rows;	118	int32_t rows;
81	maprow *row;	119	maprow *row;
82	} *CFClient__Map;	120	} *CFClient__Map;
83		121
		122	static char *
		123	prepend (char *ptr, int sze, int inc)
		124	{
		125	char *p;
		126
		127	New (0, p, sze + inc, char);
		128	Zero (p, inc, char);
		129	Move (ptr, p + inc, sze, char);
		130	Safefree (ptr);
		131
		132	return p;
		133	}
		134
		135	static char *
		136	append (char *ptr, int sze, int inc)
		137	{
		138	Renew (ptr, sze + inc, char);
		139	Zero (ptr + sze, inc, char);
		140
		141	return ptr;
		142	}
		143
		144	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
		145	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
		146
		147	static maprow *
		148	map_get_row (CFClient__Map self, int y)
		149	{
		150	if (0 > y)
		151	{
		152	int extend = - y + MAP_EXTEND_Y;
		153	Prepend (maprow, self->row, self->rows, extend);
		154
		155	self->rows += extend;
		156	self->y += extend;
		157	y += extend;
		158	}
		159	else if (y >= self->rows)
		160	{
		161	int extend = y - self->rows + MAP_EXTEND_Y;
		162	Append (maprow, self->row, self->rows, extend);
		163	self->rows += extend;
		164	}
		165
		166	return self->row + y;
		167	}
		168
		169	static mapcell *
		170	row_get_cell (maprow *row, int x)
		171	{
		172	if (!row->col)
		173	{
		174	Newz (0, row->col, MAP_EXTEND_X, mapcell);
		175	row->c0 = x - MAP_EXTEND_X / 4;
		176	row->c1 = row->c0 + MAP_EXTEND_X;
		177	}
		178
		179	if (row->c0 > x)
		180	{
		181	int extend = row->c0 - x + MAP_EXTEND_X;
		182	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
		183	row->c0 -= extend;
		184	}
		185	else if (x >= row->c1)
		186	{
		187	int extend = x - row->c1 + MAP_EXTEND_X;
		188	Append (mapcell, row->col, row->c1 - row->c0, extend);
		189	row->c1 += extend;
		190	}
		191
		192	return row->col + (x - row->c0);
		193	}
		194
		195	static mapcell *
		196	map_get_cell (CFClient__Map self, int x, int y)
		197	{
		198	return row_get_cell (map_get_row (self, y), x);
		199	}
		200
		201	static void
		202	map_clear (CFClient__Map self)
		203	{
		204	int r;
		205
		206	for (r = 0; r < self->rows; r++)
		207	Safefree (self->row[r].col);
		208
		209	Safefree (self->row);
		210
		211	self->x = 0;
		212	self->y = 0;
		213	self->ox = 0;
		214	self->oy = 0;
		215	self->row = 0;
		216	self->rows = 0;
		217	}
		218
84	static void	219	static void
85	map_blank (CFClient__Map self, int x0, int y0, int w, int h)	220	map_blank (CFClient__Map self, int x0, int y0, int w, int h)
86	{	221	{
87	int x, y;	222	int x, y;
		223	maprow *row;
88		224
89	for (y = y0; y < y0 + h; y++)	225	for (y = y0; y < y0 + h; y++)
		226	if (y >= 0)
90	{	227	{
91	if (y >= self->rows)	228	if (y >= self->rows)
92	break;	229	break;
93		230
94	maprow *row = self->row + y;	231	row = self->row + y;
95		232
96	for (x = x0; x < x0 + w; x++)	233	for (x = x0; x < x0 + w; x++)
97	if (x >= row->c0)	234	if (x >= row->c0)
98	{	235	{
99	if (x >= row->c1)	236	if (x >= row->c1)
100	break;	237	break;
101		238
102	row->col[x].darkness = -1;	239	row->col[x - row->c0].darkness = -1;
103	}	240	}
104	}	241	}
105	}	242	}
106		243
107	MODULE = CFClient PACKAGE = CFClient	244	MODULE = CFClient PACKAGE = CFClient
108		245
109	PROTOTYPES: ENABLE	246	PROTOTYPES: ENABLE
110		247
111	BOOT:	248	BOOT:
112	{	249	{
		250	HV *stash = gv_stashpv ("CFClient", 1);
		251	static const struct {
		252	const char *name;
		253	IV iv;
		254	} *civ, const_iv[] = {
		255	# define const_iv(name) { # name, (IV)name }
		256	const_iv (SDL_ACTIVEEVENT),
		257	const_iv (SDL_KEYDOWN),
		258	const_iv (SDL_KEYUP),
		259	const_iv (SDL_MOUSEMOTION),
		260	const_iv (SDL_MOUSEBUTTONDOWN),
		261	const_iv (SDL_MOUSEBUTTONUP),
		262	const_iv (SDL_JOYAXISMOTION),
		263	const_iv (SDL_JOYBALLMOTION),
		264	const_iv (SDL_JOYHATMOTION),
		265	const_iv (SDL_JOYBUTTONDOWN),
		266	const_iv (SDL_JOYBUTTONUP),
		267	const_iv (SDL_QUIT),
		268	const_iv (SDL_SYSWMEVENT),
		269	const_iv (SDL_EVENT_RESERVEDA),
		270	const_iv (SDL_EVENT_RESERVEDB),
		271	const_iv (SDL_VIDEORESIZE),
		272	const_iv (SDL_VIDEOEXPOSE),
		273	const_iv (SDL_USEREVENT),
		274	const_iv (SDLK_KP0),
		275	const_iv (SDLK_KP1),
		276	const_iv (SDLK_KP2),
		277	const_iv (SDLK_KP3),
		278	const_iv (SDLK_KP4),
		279	const_iv (SDLK_KP5),
		280	const_iv (SDLK_KP6),
		281	const_iv (SDLK_KP7),
		282	const_iv (SDLK_KP8),
		283	const_iv (SDLK_KP9),
		284	const_iv (SDLK_KP_PERIOD),
		285	const_iv (SDLK_KP_DIVIDE),
		286	const_iv (SDLK_KP_MULTIPLY),
		287	const_iv (SDLK_KP_MINUS),
		288	const_iv (SDLK_KP_PLUS),
		289	const_iv (SDLK_KP_ENTER),
		290	const_iv (SDLK_KP_EQUALS),
		291	const_iv (SDLK_UP),
		292	const_iv (SDLK_DOWN),
		293	const_iv (SDLK_RIGHT),
		294	const_iv (SDLK_LEFT),
		295	const_iv (SDLK_INSERT),
		296	const_iv (SDLK_HOME),
		297	const_iv (SDLK_END),
		298	const_iv (SDLK_PAGEUP),
		299	const_iv (SDLK_PAGEDOWN),
		300	const_iv (SDLK_F1),
		301	const_iv (SDLK_F2),
		302	const_iv (SDLK_F3),
		303	const_iv (SDLK_F4),
		304	const_iv (SDLK_F5),
		305	const_iv (SDLK_F6),
		306	const_iv (SDLK_F7),
		307	const_iv (SDLK_F8),
		308	const_iv (SDLK_F9),
		309	const_iv (SDLK_F10),
		310	const_iv (SDLK_F11),
		311	const_iv (SDLK_F12),
		312	const_iv (SDLK_F13),
		313	const_iv (SDLK_F14),
		314	const_iv (SDLK_F15),
		315	const_iv (SDLK_NUMLOCK),
		316	const_iv (SDLK_CAPSLOCK),
		317	const_iv (SDLK_SCROLLOCK),
		318	const_iv (SDLK_RSHIFT),
		319	const_iv (SDLK_LSHIFT),
		320	const_iv (SDLK_RCTRL),
		321	const_iv (SDLK_LCTRL),
		322	const_iv (SDLK_RALT),
		323	const_iv (SDLK_LALT),
		324	const_iv (SDLK_RMETA),
		325	const_iv (SDLK_LMETA),
		326	const_iv (SDLK_LSUPER),
		327	const_iv (SDLK_RSUPER),
		328	const_iv (SDLK_MODE),
		329	const_iv (SDLK_COMPOSE),
		330	const_iv (SDLK_HELP),
		331	const_iv (SDLK_PRINT),
		332	const_iv (SDLK_SYSREQ),
		333	const_iv (SDLK_BREAK),
		334	const_iv (SDLK_MENU),
		335	const_iv (SDLK_POWER),
		336	const_iv (SDLK_EURO),
		337	const_iv (SDLK_UNDO),
		338	const_iv (KMOD_NONE),
		339	const_iv (KMOD_LSHIFT),
		340	const_iv (KMOD_RSHIFT),
		341	const_iv (KMOD_LCTRL),
		342	const_iv (KMOD_RCTRL),
		343	const_iv (KMOD_LALT),
		344	const_iv (KMOD_RALT),
		345	const_iv (KMOD_LMETA),
		346	const_iv (KMOD_RMETA),
		347	const_iv (KMOD_NUM),
		348	const_iv (KMOD_CAPS),
		349	const_iv (KMOD_MODE),
		350	const_iv (KMOD_CTRL),
		351	const_iv (KMOD_SHIFT),
		352	const_iv (KMOD_ALT),
		353	const_iv (KMOD_META)
		354	# undef const_iv
		355	};
		356
		357	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		358	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		359
113	fontmap = pango_ft2_font_map_new ();	360	fontmap = pango_ft2_font_map_new ();
114	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);	361	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
115	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	362	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
116	}	363	}
		364
		365	int
		366	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO)
		367
		368	void
		369	SDL_Quit ()
		370
		371	void
		372	SDL_ListModes ()
		373	PPCODE:
		374	{
		375	SDL_Rect **m;
		376
		377	SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
		378	SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
		379	SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
		380	SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
		381
		382	SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
		383	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
		384	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
		385	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
		386
		387	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
		388	SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
		389	SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
		390
		391	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
		392
		393	if (m && m != (SDL_Rect **)-1)
		394	while (*m)
		395	{
		396	AV *av = newAV ();
		397	av_push (av, newSViv ((*m)->w));
		398	av_push (av, newSViv ((*m)->h));
		399	XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
		400
		401	++m;
		402	}
		403	}
		404
		405	int
		406	SDL_SetVideoMode (int w, int h, int fullscreen)
		407	CODE:
		408	RETVAL = !!SDL_SetVideoMode (
		409	w, h, 0, SDL_OPENGL \| (fullscreen ? SDL_FULLSCREEN : 0)
		410	);
		411	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
		412	OUTPUT:
		413	RETVAL
		414
		415	int
		416	Mix_VolumeMusic (int newvol = -1)
		417
		418	int
		419	Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
		420
		421	void
		422	Mix_CloseAudio ()
		423
		424	int
		425	Mix_AllocateChannels (int numchans = -1)
117		426
118	void	427	void
119	lowdelay (int fd, int val = 1)	428	lowdelay (int fd, int val = 1)
120	CODE:	429	CODE:
		430	#ifndef _WIN32
121	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));	431	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
		432	#endif
122		433
123	char *	434	char *
124	gl_version ()	435	gl_version ()
125	CODE:	436	CODE:
126	RETVAL = (char *)glGetString (GL_VERSION);	437	RETVAL = (char *)glGetString (GL_VERSION);
…		…
163	SDL_RWops *rw = ix	474	SDL_RWops *rw = ix
164	? SDL_RWFromFile (image, "r")	475	? SDL_RWFromFile (image, "r")
165	: SDL_RWFromConstMem (image, image_len);	476	: SDL_RWFromConstMem (image, image_len);
166		477
167	if (!rw)	478	if (!rw)
168	croak ("load_image: unable to open file");	479	croak ("load_image: %s", SDL_GetError ());
169		480
170	surface = IMG_Load_RW (rw, 1);	481	surface = IMG_Load_RW (rw, 1);
171	if (!surface)	482	if (!surface)
172	croak ("load_image: unable to read file");	483	croak ("load_image: %s", SDL_GetError ());
173		484
174	fmt.palette = NULL;	485	fmt.palette = NULL;
175	fmt.BitsPerPixel = 32;	486	fmt.BitsPerPixel = 32;
176	fmt.BytesPerPixel = 4;	487	fmt.BytesPerPixel = 4;
		488	#if SDL_BYTEORDER == SDL_LIL_ENDIAN
177	fmt.Rmask = 0x000000ff;	489	fmt.Rmask = 0x000000ff;
178	fmt.Gmask = 0x0000ff00;	490	fmt.Gmask = 0x0000ff00;
179	fmt.Bmask = 0x00ff0000;	491	fmt.Bmask = 0x00ff0000;
180	fmt.Amask = 0xff000000;	492	fmt.Amask = 0xff000000;
		493	#else
		494	fmt.Rmask = 0xff000000;
		495	fmt.Gmask = 0x00ff0000;
		496	fmt.Bmask = 0x0000ff00;
		497	fmt.Amask = 0x000000ff;
		498	#endif
181	fmt.Rloss = 0;	499	fmt.Rloss = 0;
182	fmt.Gloss = 0;	500	fmt.Gloss = 0;
183	fmt.Bloss = 0;	501	fmt.Bloss = 0;
184	fmt.Aloss = 0;	502	fmt.Aloss = 0;
185	fmt.Rshift = 0;	503	fmt.Rshift = 0;
…		…
189	fmt.colorkey = 0;	507	fmt.colorkey = 0;
190	fmt.alpha = 0;	508	fmt.alpha = 0;
191		509
192	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);	510	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
193		511
		512	assert (surface2->pitch == surface2->w * 4);
		513
194	EXTEND (SP, 5);	514	EXTEND (SP, 5);
195	PUSHs (sv_2mortal (newSViv (surface2->w)));	515	PUSHs (sv_2mortal (newSViv (surface2->w)));
196	PUSHs (sv_2mortal (newSViv (surface2->h)));	516	PUSHs (sv_2mortal (newSViv (surface2->h)));
197	SDL_LockSurface (surface2);	517	SDL_LockSurface (surface2);
198	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	518	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
199	SDL_UnlockSurface (surface2);	519	SDL_UnlockSurface (surface2);
200	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	520	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
201	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	521	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
202	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));	522	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
203		523
204	SDL_FreeSurface (surface);	524	SDL_FreeSurface (surface);
205	SDL_FreeSurface (surface2);	525	SDL_FreeSurface (surface2);
206	}	526	}
207		527
208	void	528	void
		529	average (int x, int y, uint32_t *data)
		530	PPCODE:
		531	{
		532	uint32_t r = 0, g = 0, b = 0, a = 0;
		533
		534	x = y = x * y;
		535
		536	while (x--)
		537	{
		538	uint32_t p = *data++;
		539
		540	r += (p ) & 255;
		541	g += (p >> 8) & 255;
		542	b += (p >> 16) & 255;
		543	a += (p >> 24) & 255;
		544	}
		545
		546	EXTEND (SP, 4);
		547	PUSHs (sv_2mortal (newSViv (r / y)));
		548	PUSHs (sv_2mortal (newSViv (g / y)));
		549	PUSHs (sv_2mortal (newSViv (b / y)));
		550	PUSHs (sv_2mortal (newSViv (a / y)));
		551	}
		552
		553	void
209	fatal (char *message)	554	fatal (char *message)
210	CODE:	555	CODE:
211	#ifdef WIN32	556	#ifdef _WIN32
212	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);	557	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
213	#else	558	#else
214	fprintf (stderr, "%s\n", message);	559	fprintf (stderr, "FATAL: %s\n", message);
215	#endif	560	#endif
216	exit (1);	561	exit (1);
217		562
218	MODULE = CFClient PACKAGE = CFClient::Layout	563	MODULE = CFClient PACKAGE = CFClient::Layout
219		564
…		…
232	CODE:	577	CODE:
233	g_object_unref (self->pl);	578	g_object_unref (self->pl);
234	Safefree (self);	579	Safefree (self);
235		580
236	void	581	void
237	set_markup (CFClient::Layout self, SV *text_)	582	set_text (CFClient::Layout self, SV *text_)
238	CODE:	583	CODE:
239	{	584	{
240	STRLEN textlen;	585	STRLEN textlen;
241	char *text = SvPVutf8 (text_, textlen);	586	char *text = SvPVutf8 (text_, textlen);
242		587
		588	pango_layout_set_text (self->pl, text, textlen);
		589	}
		590
		591	void
		592	set_markup (CFClient::Layout self, SV *text_)
		593	CODE:
		594	{
		595	STRLEN textlen;
		596	char *text = SvPVutf8 (text_, textlen);
		597
243	pango_layout_set_markup (self->pl, text, textlen);	598	pango_layout_set_markup (self->pl, text, textlen);
244	}	599	}
		600
		601	SV *
		602	get_text (CFClient::Layout self)
		603	CODE:
		604	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
		605	SvUTF8_on (RETVAL);
		606	OUTPUT:
		607	RETVAL
245		608
246	void	609	void
247	set_height (CFClient::Layout self, int base_height)	610	set_height (CFClient::Layout self, int base_height)
248	CODE:	611	CODE:
249	self->base_height = base_height;	612	self->base_height = base_height;
…		…
286	PPCODE:	649	PPCODE:
287	{	650	{
288	PangoRectangle strong_pos;	651	PangoRectangle strong_pos;
289	layout_update (self);	652	layout_update (self);
290	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);	653	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		654
291	EXTEND (SP, 3);	655	EXTEND (SP, 3);
292	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));	656	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
293	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));	657	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
294	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));	658	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
295	}	659	}
…		…
327	}	691	}
328		692
329	MODULE = CFClient PACKAGE = CFClient::Texture	693	MODULE = CFClient PACKAGE = CFClient::Texture
330		694
331	void	695	void
332	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)	696	draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
333	PROTOTYPE: $$$;$$	697	PROTOTYPE: $$$;$$
334	CODE:	698	CODE:
335	{	699	{
336	HV hv = (HV )SvRV (self);	700	HV hv = (HV )SvRV (self);
337	double s = SvNV (*hv_fetch (hv, "s", 1, 1));	701	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
338	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	702	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
339	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	703	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
		704	int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
340		705
341	if (items < 5)	706	if (items < 5)
342	{	707	{
343	w = SvNV (*hv_fetch (hv, "w", 1, 1));	708	w = SvNV (*hv_fetch (hv, "w", 1, 1));
344	h = SvNV (*hv_fetch (hv, "h", 1, 1));	709	h = SvNV (*hv_fetch (hv, "h", 1, 1));
345	}	710	}
346		711
347	glBindTexture (GL_TEXTURE_2D, name);	712	glBindTexture (GL_TEXTURE_2D, name);
		713	if (wrap_mode) {
		714	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
		715	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
		716	}
348	glBegin (GL_QUADS);	717	glBegin (GL_QUADS);
349	glTexCoord2d (0, 0); glVertex2d (x , y );	718	glTexCoord2f (0, 0); glVertex2f (x , y );
350	glTexCoord2d (0, t); glVertex2d (x , y + h);	719	glTexCoord2f (0, t); glVertex2f (x , y + h);
351	glTexCoord2d (s, t); glVertex2d (x + w, y + h);	720	glTexCoord2f (s, t); glVertex2f (x + w, y + h);
352	glTexCoord2d (s, 0); glVertex2d (x + w, y );	721	glTexCoord2f (s, 0); glVertex2f (x + w, y );
353	glEnd ();	722	glEnd ();
354	}	723	}
355		724
356	MODULE = CFClient PACKAGE = CFClient::Map	725	MODULE = CFClient PACKAGE = CFClient::Map
357		726
358	CFClient::Map	727	CFClient::Map
359	new (SV *class, int map_width, int map_height)	728	new (SV *class, int map_width, int map_height)
360	CODE:	729	CODE:
361	New (0, RETVAL, 1, struct map);	730	New (0, RETVAL, 1, struct map);
362	RETVAL->x = 0;	731	RETVAL->x = 0;
363	RETVAL->y = 0;	732	RETVAL->y = 0;
364	RETVAL->w = map_width;	733	RETVAL->w = map_width;
365	RETVAL->h = map_height;	734	RETVAL->h = map_height;
		735	RETVAL->ox = 0;
		736	RETVAL->oy = 0;
366	RETVAL->faces = 1;	737	RETVAL->faces = 8192;
367	Newz (0, RETVAL->face, 1, GLint);	738	Newz (0, RETVAL->face, RETVAL->faces, mapface);
		739	RETVAL->texs = 8192;
		740	Newz (0, RETVAL->tex, RETVAL->texs, maptex);
368	RETVAL->rows = 0;	741	RETVAL->rows = 0;
369	RETVAL->row = 0;	742	RETVAL->row = 0;
370	printf ("new map %d,%d\n", map_width, map_height);//D
371	OUTPUT:	743	OUTPUT:
372	RETVAL	744	RETVAL
373		745
374	void	746	void
375	DESTROY (CFClient::Map self)	747	DESTROY (CFClient::Map self)
376	CODE:	748	CODE:
377	{	749	{
378	int r, c;	750	map_clear (self);
379
380	printf ("detroy map\n");//D
381	Safefree (self->face);	751	Safefree (self->face);
382
383	for (r = 0; r < self->rows; r++)
384	Safefree (self->row[r].col);
385
386	Safefree (self->row);
387	Safefree (self);	752	Safefree (self);
388	}	753	}
389		754
390	void	755	void
		756	clear (CFClient::Map self)
		757	CODE:
		758	map_clear (self);
		759
		760	void
391	set_face (CFClient::Map self, int facenum, int face)	761	set_face (CFClient::Map self, int face, int texid)
392	CODE:	762	CODE:
393	{	763	{
394	while (self->faces < facenum)	764	while (self->faces <= face)
395	{	765	{
396	printf ("setface %d (%d) = %d\n",facenum, self->faces, face);//D
397	Renew (self->face, self->faces * 2, GLint);
398	Zero (self->face + self->faces, self->faces, GLint);	766	Append (mapface, self->face, self->faces, self->faces);
399	self->faces *= 2;	767	self->faces *= 2;
400	}	768	}
401		769
402	self->face [facenum] = face;	770	self->face [face] = texid;
403	}	771	}
		772
		773	void
		774	set_texture (CFClient::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
		775	CODE:
		776	{
		777	while (self->texs <= texid)
		778	{
		779	Append (maptex, self->tex, self->texs, self->texs);
		780	self->texs *= 2;
		781	}
		782
		783	{
		784	maptex *tex = self->tex + texid;
		785
		786	tex->name = name;
		787	tex->w = w;
		788	tex->h = h;
		789	tex->s = s;
		790	tex->t = t;
		791	tex->r = r;
		792	tex->g = g;
		793	tex->b = b;
		794	tex->a = a;
		795	}
		796	}
		797
		798	int
		799	ox (CFClient::Map self)
		800	ALIAS:
		801	oy = 1
		802	CODE:
		803	switch (ix)
		804	{
		805	case 0: RETVAL = self->ox; break;
		806	case 1: RETVAL = self->oy; break;
		807	}
		808	OUTPUT:
		809	RETVAL
404		810
405	void	811	void
406	scroll (CFClient::Map self, int dx, int dy)	812	scroll (CFClient::Map self, int dx, int dy)
407	CODE:	813	CODE:
408	{	814	{
409	printf ("map_scroll %d,%d\n", dx, dy);//D
410	if (dx > 0)	815	if (dx > 0)
411	map_blank (self, self->x, self->y, dx - 1, self->h);	816	map_blank (self, self->x, self->y, dx - 1, self->h);
412	else if (dx < 0)	817	else if (dx < 0)
413	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);	818	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
414		819
415	if (dy > 0)	820	if (dy > 0)
416	map_blank (self, self->x, self->y, self->w, dy - 1);	821	map_blank (self, self->x, self->y, self->w, dy - 1);
417	else if (dy < 0)	822	else if (dy < 0)
418	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);	823	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
419		824
420	self->x += dx;	825	self->ox += dx; self->x += dx;
421	self->y += dy;	826	self->oy += dy; self->y += dy;
422		827
423	while (self->y < 0)	828	while (self->y < 0)
424	{	829	{
425	maprow *row;	830	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
426
427	New (0, row, self->rows + MAP_EXTEND_Y, maprow);
428	Move (self->row, row + MAP_EXTEND_Y, self->rows, maprow);
429	Zero (row, MAP_EXTEND_Y, maprow);
430		831
431	self->rows += MAP_EXTEND_Y;	832	self->rows += MAP_EXTEND_Y;
432	self->y += MAP_EXTEND_Y;	833	self->y += MAP_EXTEND_Y;
433	self->row = row;
434	}	834	}
435
436	if (self->x < 0)
437	{
438	int y;
439	for (y = 0; y < self->rows; y++)
440	{
441	self->row[y].c0 += self->x;
442	self->row[y].c1 += self->x;
443	}
444
445	self->x = 0;
446	}
447	}	835	}
448		836
449	void	837	void
450	map1a_update (CFClient::Map self, SV *data_)	838	map1a_update (CFClient::Map self, SV *data_)
451	CODE:	839	CODE:
452	{	840	{
453	uint8_t data = (uint8_t )SvPVbytes_nolen (data_);	841	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
454	uint8_t data_end = (uint8_t )SvEND (data_) + 1;	842	uint8_t data_end = (uint8_t )SvEND (data_);
455		843	mapcell *cell;
		844	int x, y, flags;
		845
456	while (data < data_end)	846	while (data < data_end)
457	{	847	{
458	int flags = (data [0] << 8) + data [1]; data += 2;	848	flags = (data [0] << 8) + data [1]; data += 2;
		849
459	int x = ((flags >> 10) & 63) + self->x;	850	x = ((flags >> 10) & 63) + self->x;
460	int y = ((flags >> 4) & 63) + self->y;	851	y = ((flags >> 4) & 63) + self->y;
461		852
462	while (y >= self->rows)	853	cell = map_get_cell (self, x, y);
463	{
464	Renew (self->row, self->rows + MAP_EXTEND_Y, maprow);
465	Zero (self->row + self->rows, MAP_EXTEND_Y, maprow);
466
467	self->rows += MAP_EXTEND_Y;
468	}
469
470	assert (y < self->rows);//D
471
472	maprow *row = self->row + y;
473
474	if (!row->col)
475	{
476	Newz (0, row->col, MAP_EXTEND_X, mapcell);
477	row->c0 = self->x - MAP_EXTEND_X / 4;
478	row->c1 = row->c0 + MAP_EXTEND_X;
479	}
480
481	if (row->c0 > x)
482	{
483	int extend = row->c0 - x + MAP_EXTEND_X;
484	mapcell *col;
485
486	New (0, col, row->c1 - row->c0 + extend, mapcell);
487	Move (row->col, col + extend, row->c1 - row->c0, mapcell);
488	Zero (col, extend, mapcell);
489
490	row->col = col;
491	row->c0 -= extend;
492	}
493	else if (x >= row->c1)
494	{
495	int extend = x - row->c1 + MAP_EXTEND_X;
496
497	Renew (row->col, row->c1 - row->c0 + extend, mapcell);
498	Zero (row->col + row->c1 - row->c0, extend, mapcell);
499
500	row->c1 += extend;
501	}
502
503	assert (x >= row->c0);//D
504	assert (x < row->c1);//D
505	mapcell *cell = row->col + (x - row->c0);
506		854
507	if (flags & 15)	855	if (flags & 15)
508	{	856	{
509	if (cell->darkness < 0)	857	if (cell->darkness < 0)
510	{	858	{
511	cell->darkness = 0;	859	cell->darkness = 0;
512	cell->face [0] = 0;	860	cell->face [0] = 0;
513	cell->face [1] = 0;	861	cell->face [1] = 0;
514	cell->face [2] = 0;	862	cell->face [2] = 0;
515	}	863	}
516		864
517	cell->darkness = flags & 8 ? *data++ : 255;	865	cell->darkness = flags & 8 ? *data++ : 255;
		866
		867	//TODO: don't trust server data to be in-range(!)
518		868
519	if (flags & 4)	869	if (flags & 4)
520	{	870	{
521	cell->face [0] = (data [0] << 8) + data [1]; data += 2;	871	cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2;
522	}	872	}
523		873
524	if (flags & 2)	874	if (flags & 2)
525	{	875	{
526	cell->face [1] = (data [0] << 8) + data [1]; data += 2;	876	cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2;
527	}	877	}
528		878
529	if (flags & 1)	879	if (flags & 1)
530	{	880	{
531	cell->face [2] = (data [0] << 8) + data [1]; data += 2;	881	cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
532	}	882	}
533	}	883	}
534	else	884	else
535	cell->darkness = -1;	885	cell->darkness = -1;
536	}	886	}
537	}	887	}
538		888
		889	SV *
		890	mapmap (CFClient::Map self, int w, int h)
		891	CODE:
		892	{
		893	int x0, x1, x;
		894	int y0, y1, y;
		895	int z;
		896	SV map_sv = newSV (w h * sizeof (uint32_t));
		897	uint32_t map = (uint32_t )SvPVX (map_sv);
		898
		899	SvPOK_only (map_sv);
		900	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
		901
		902	x0 = self->x - w / 2; x1 = x0 + w;
		903	y0 = self->y - h / 2; y1 = y0 + h;
		904
		905	for (y = y0; y < y1; y++)
		906	{
		907	maprow *row = 0 <= y && y < self->rows
		908	? self->row + y
		909	: 0;
		910
		911	for (x = x0; x < x1; x++)
		912	{
		913	int r = 32, g = 32, b = 32, a = 192;
		914
		915	if (row && row->c0 <= x && x < row->c1)
		916	{
		917	mapcell *cell = row->col + (x - row->c0);
		918
		919	for (z = 0; z <= 0; z++)
		920	{
		921	mapface face = cell->face [z];
		922
		923	if (face)
		924	{
		925	maptex tex = self->tex [face];
		926	int a0 = 255 - tex.a;
		927	int a1 = tex.a;
		928
		929	r = (r * a0 + tex.r * a1) / 255;
		930	g = (g * a0 + tex.g * a1) / 255;
		931	b = (b * a0 + tex.b * a1) / 255;
		932	a = (a * a0 + tex.a * a1) / 255;
		933	}
		934	}
		935	}
		936
		937	*map++ = (r )
		938	\| (g << 8)
		939	\| (b << 16)
		940	\| (a << 24);
		941	}
		942	}
		943
		944	RETVAL = map_sv;
		945	}
		946	OUTPUT:
		947	RETVAL
		948
		949	void
		950	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
		951	PPCODE:
		952	{
		953	int vx, vy;
		954	int x, y, z;
		955	int last_name;
		956	mapface face;
		957	int sw4 = (sw + 3) & ~3;
		958	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
		959	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		960
		961	memset (darkness, 255, sw4 * sh);
		962	SvPOK_only (darkness_sv);
		963	SvCUR_set (darkness_sv, sw4 * sh);
		964
		965	vx = self->x + (self->w - sw) / 2 - shift_x;
		966	vy = self->y + (self->h - sh) / 2 - shift_y;
		967
		968	/*
		969	int vx = self->vx = self->w >= sw
		970	? self->x + (self->w - sw) / 2
		971	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
		972
		973	int vy = self->vy = self->h >= sh
		974	? self->y + (self->h - sh) / 2
		975	: MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
		976	*/
		977
		978	glColor4ub (255, 255, 255, 255);
		979
		980	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
		981	glEnable (GL_BLEND);
		982	glEnable (GL_TEXTURE_2D);
		983	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		984
		985	glBegin (GL_QUADS);
		986
		987	last_name = 0;
		988
		989	for (z = 0; z < 3; z++)
		990	for (y = 0; y < sh; y++)
		991	if (0 <= y + vy && y + vy < self->rows)
		992	{
		993	maprow *row = self->row + (y + vy);
		994
		995	for (x = 0; x < sw; x++)
		996	if (row->c0 <= x + vx && x + vx < row->c1)
		997	{
		998	mapcell *cell = row->col + (x + vx - row->c0);
		999
		1000	darkness[y * sw4 + x] = cell->darkness < 0
		1001	? 255 - FOW_DARKNESS
		1002	: 255 - cell->darkness;
		1003
		1004	face = cell->face [z];
		1005
		1006	if (face)
		1007	{
		1008	maptex tex = self->tex [face];
		1009
		1010	int px = (x + 1) * 32 - tex.w;
		1011	int py = (y + 1) * 32 - tex.h;
		1012
		1013	if (last_name != tex.name)
		1014	{
		1015	glEnd ();
		1016	last_name = tex.name;
		1017	glBindTexture (GL_TEXTURE_2D, last_name);
		1018	glBegin (GL_QUADS);
		1019	}
		1020
		1021	glTexCoord2f (0 , 0 ); glVertex2f (px , py );
		1022	glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
		1023	glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
		1024	glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
		1025	}
		1026	}
		1027	}
		1028
		1029	glEnd ();
		1030
		1031	glDisable (GL_TEXTURE_2D);
		1032	glDisable (GL_BLEND);
		1033
		1034	EXTEND (SP, 3);
		1035	PUSHs (sv_2mortal (newSViv (sw4)));
		1036	PUSHs (sv_2mortal (newSViv (sh)));
		1037	PUSHs (darkness_sv);
		1038	}
		1039
		1040	SV *
		1041	get_rect (CFClient::Map self, int x0, int y0, int w, int h)
		1042	CODE:
		1043	{
		1044	int x, y, x1, y1;
		1045	SV data_sv = newSV (w h * 7 + 5);
		1046	uint8_t data = (uint8_t )SvPVX (data_sv);
		1047
		1048	data++ = 0; / version 0 format */
		1049	data++ = w >> 8; data++ = w;
		1050	data++ = h >> 8; data++ = h;
		1051
		1052	// we need to do this 'cause we don't keep an absolute coord system for rows
		1053	// TODO: treat rows as we treat
		1054	map_get_row (self, y0 + self->y - self->oy);//D
		1055	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
		1056
		1057	x0 += self->x - self->ox;
		1058	y0 += self->y - self->oy;
		1059
		1060	x1 = x0 + w;
		1061	y1 = y0 + h;
		1062
		1063	for (y = y0; y < y1; y++)
		1064	{
		1065	maprow *row = 0 <= y && y < self->rows
		1066	? self->row + y
		1067	: 0;
		1068
		1069	for (x = x0; x < x1; x++)
		1070	{
		1071	if (row && row->c0 <= x && x < row->c1)
		1072	{
		1073	mapcell *cell = row->col + (x - row->c0);
		1074	uint8_t flags = 0;
		1075
		1076	if (cell->face [0]) flags \|= 1;
		1077	if (cell->face [1]) flags \|= 2;
		1078	if (cell->face [2]) flags \|= 4;
		1079
		1080	*data++ = flags;
		1081
		1082	if (flags & 1)
		1083	{
		1084	*data++ = cell->face [0] >> 8;
		1085	*data++ = cell->face [0];
		1086	}
		1087
		1088	if (flags & 2)
		1089	{
		1090	*data++ = cell->face [1] >> 8;
		1091	*data++ = cell->face [1];
		1092	}
		1093
		1094	if (flags & 4)
		1095	{
		1096	*data++ = cell->face [2] >> 8;
		1097	*data++ = cell->face [2];
		1098	}
		1099	}
		1100	else
		1101	*data++ = 0;
		1102	}
		1103	}
		1104
		1105	SvPOK_only (data_sv);
		1106	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
		1107	RETVAL = data_sv;
		1108	}
		1109	OUTPUT:
		1110	RETVAL
		1111
		1112	void
		1113	set_rect (CFClient::Map self, int x0, int y0, uint8_t *data)
		1114	PPCODE:
		1115	{
		1116	int x, y, z;
		1117	int w, h;
		1118	int x1, y1;
		1119
		1120	if (*data++ != 0)
		1121	return; /* version mismatch */
		1122
		1123	w = data++ << 8; w \|= data++;
		1124	h = data++ << 8; h \|= data++;
		1125
		1126	// we need to do this 'cause we don't keep an absolute coord system for rows
		1127	// TODO: treat rows as we treat
		1128	map_get_row (self, y0 + self->y - self->oy);//D
		1129	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
		1130
		1131	x0 += self->x - self->ox;
		1132	y0 += self->y - self->oy;
		1133
		1134	x1 = x0 + w;
		1135	y1 = y0 + h;
		1136
		1137	for (y = y0; y < y1; y++)
		1138	{
		1139	maprow *row = map_get_row (self, y);
		1140
		1141	for (x = x0; x < x1; x++)
		1142	{
		1143	uint8_t flags = *data++;
		1144
		1145	if (flags)
		1146	{
		1147	mapface face[3] = { 0, 0, 0 };
		1148
		1149	mapcell *cell = row_get_cell (row, x);
		1150
		1151	if (flags & 1) { face[0] = data++ << 8; face[0] \|= data++; }
		1152	if (flags & 2) { face[1] = data++ << 8; face[1] \|= data++; }
		1153	if (flags & 4) { face[2] = data++ << 8; face[2] \|= data++; }
		1154
		1155	if (cell->darkness <= 0)
		1156	{
		1157	cell->darkness = -1;
		1158
		1159	for (z = 0; z <= 2; z++)
		1160	{
		1161	cell->face[z] = face[z];
		1162
		1163	if (face[z] && (face[z] >= self->texs \|\| !self->tex[face [z]].name))
		1164	XPUSHs (sv_2mortal (newSViv (face[z])));
		1165	}
		1166	}
		1167	}
		1168	}
		1169	}
		1170	}
		1171
		1172	MODULE = CFClient PACKAGE = CFClient::MixChunk
		1173
		1174	CFClient::MixChunk
		1175	new_from_file (SV class, char path)
		1176	CODE:
		1177	RETVAL = Mix_LoadWAV (path);
		1178	OUTPUT:
		1179	RETVAL
		1180
		1181	void
		1182	DESTROY (CFClient::MixChunk self)
		1183	CODE:
		1184	Mix_FreeChunk (self);
		1185
		1186	int
		1187	volume (CFClient::MixChunk self, int volume = -1)
		1188	CODE:
		1189	RETVAL = Mix_VolumeChunk (self, volume);
		1190	OUTPUT:
		1191	RETVAL
		1192
		1193	int
		1194	play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
		1195	CODE:
		1196	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		1197	OUTPUT:
		1198	RETVAL
		1199
		1200	MODULE = CFClient PACKAGE = CFClient::MixMusic
		1201
		1202	int
		1203	volume (int volume = -1)
		1204	CODE:
		1205	RETVAL = Mix_VolumeMusic (volume);
		1206	OUTPUT:
		1207	RETVAL
		1208
		1209	CFClient::MixMusic
		1210	new_from_file (SV class, char path)
		1211	CODE:
		1212	RETVAL = Mix_LoadMUS (path);
		1213	OUTPUT:
		1214	RETVAL
		1215
		1216	void
		1217	DESTROY (CFClient::MixMusic self)
		1218	CODE:
		1219	Mix_FreeMusic (self);
		1220
		1221	int
		1222	play (CFClient::MixMusic self, int loops = -1)
		1223	CODE:
		1224	RETVAL = Mix_PlayMusic (self, loops);
		1225	OUTPUT:
		1226	RETVAL
		1227

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.29 by root, Thu Apr 13 01:55:38 2006 UTC vs. Revision 1.52 by root, Wed Apr 19 21:17:15 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.29 by root, Thu Apr 13 01:55:38 2006 UTC vs.
Revision 1.52 by root, Wed Apr 19 21:17:15 2006 UTC