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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.43 by root, Mon Apr 17 06:50:26 2006 UTC vs.
Revision 1.56 by root, Thu Apr 20 09:13:31 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>
11		16
12	#include <glib/gmacros.h>	17	#include <glib/gmacros.h>
13		18
14	#include <pango/pango.h>	19	#include <pango/pango.h>
15	#include <pango/pangofc-fontmap.h>	20	#include <pango/pangofc-fontmap.h>
16	#include <pango/pangoft2.h>	21	#include <pango/pangoft2.h>
17		22
		23	#ifndef _WIN32
18	#include <sys/types.h>	24	# include <sys/types.h>
19	#include <sys/socket.h>	25	# include <sys/socket.h>
20	#include <netinet/in.h>	26	# include <netinet/in.h>
21	#include <netinet/tcp.h>	27	# include <netinet/tcp.h>
22
23	#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
24		37
25	#define FOW_DARKNESS 32	38	#define FOW_DARKNESS 32
26		39
27	#define MAP_EXTEND_X 32	40	#define MAP_EXTEND_X 32
28	#define MAP_EXTEND_Y 512	41	#define MAP_EXTEND_Y 512
		42
		43	typedef Mix_Chunk *CFClient__MixChunk;
		44	typedef Mix_Music *CFClient__MixMusic;
29		45
30	static PangoContext *context;	46	static PangoContext *context;
31	static PangoFontMap *fontmap;	47	static PangoFontMap *fontmap;
32		48
33	typedef struct cf_layout {	49	typedef struct cf_layout {
47	{	63	{
48	/* 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
49	* reasonably well with bitstream vera	65	* reasonably well with bitstream vera
50	*/	66	*/
51	PangoFontDescription *font = pango_context_get_font_description (context);	67	PangoFontDescription *font = pango_context_get_font_description (context);
52	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	}
53	}	76	}
54		77
55	static void	78	static void
56	layout_get_pixel_size (CFClient__Layout self, int w, int h)	79	layout_get_pixel_size (CFClient__Layout self, int w, int h)
57	{	80	{
…		…
83	mapcell *col;	106	mapcell *col;
84	} maprow;	107	} maprow;
85		108
86	typedef struct map {	109	typedef struct map {
87	int x, y, w, h;	110	int x, y, w, h;
88	int dx, dy; /* delayed map scrolling */
89	int ox, oy; /* offset to virtual global coordinate system */	111	int ox, oy; /* offset to virtual global coordinate system */
90	int faces;	112	int faces;
91	mapface *face;	113	mapface *face;
92		114
93	int texs;	115	int texs;
94	maptex *tex;	116	maptex *tex;
95		117
96	uint32_t rows;	118	int32_t rows;
97	maprow *row;	119	maprow *row;
98	} *CFClient__Map;	120	} *CFClient__Map;
99		121
100	static char *	122	static char *
101	prepend (char *ptr, int sze, int inc)	123	prepend (char *ptr, int sze, int inc)
…		…
196		218
197	static void	219	static void
198	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)
199	{	221	{
200	int x, y;	222	int x, y;
		223	maprow *row;
201		224
202	for (y = y0; y < y0 + h; y++)	225	for (y = y0; y < y0 + h; y++)
203	if (y >= 0)	226	if (y >= 0)
204	{	227	{
205	if (y >= self->rows)	228	if (y >= self->rows)
206	break;	229	break;
207		230
208	maprow *row = self->row + y;	231	row = self->row + y;
209		232
210	for (x = x0; x < x0 + w; x++)	233	for (x = x0; x < x0 + w; x++)
211	if (x >= row->c0)	234	if (x >= row->c0)
212	{	235	{
213	if (x >= row->c1)	236	if (x >= row->c1)
…		…
216	row->col[x - row->c0].darkness = -1;	239	row->col[x - row->c0].darkness = -1;
217	}	240	}
218	}	241	}
219	}	242	}
220		243
		244	static void
		245	music_finished ()
		246	{
		247	SDL_UserEvent ev;
		248
		249	ev.type = SDL_USEREVENT;
		250	ev.code = 0;
		251	ev.data1 = 0;
		252	ev.data2 = 0;
		253
		254	SDL_PushEvent (&ev);
		255	}
		256
221	MODULE = CFClient PACKAGE = CFClient	257	MODULE = CFClient PACKAGE = CFClient
222		258
223	PROTOTYPES: ENABLE	259	PROTOTYPES: ENABLE
224		260
225	BOOT:	261	BOOT:
226	{	262	{
		263	HV *stash = gv_stashpv ("CFClient", 1);
		264	static const struct {
		265	const char *name;
		266	IV iv;
		267	} *civ, const_iv[] = {
		268	# define const_iv(name) { # name, (IV)name }
		269	const_iv (SDL_ACTIVEEVENT),
		270	const_iv (SDL_KEYDOWN),
		271	const_iv (SDL_KEYUP),
		272	const_iv (SDL_MOUSEMOTION),
		273	const_iv (SDL_MOUSEBUTTONDOWN),
		274	const_iv (SDL_MOUSEBUTTONUP),
		275	const_iv (SDL_JOYAXISMOTION),
		276	const_iv (SDL_JOYBALLMOTION),
		277	const_iv (SDL_JOYHATMOTION),
		278	const_iv (SDL_JOYBUTTONDOWN),
		279	const_iv (SDL_JOYBUTTONUP),
		280	const_iv (SDL_QUIT),
		281	const_iv (SDL_SYSWMEVENT),
		282	const_iv (SDL_EVENT_RESERVEDA),
		283	const_iv (SDL_EVENT_RESERVEDB),
		284	const_iv (SDL_VIDEORESIZE),
		285	const_iv (SDL_VIDEOEXPOSE),
		286	const_iv (SDL_USEREVENT),
		287	const_iv (SDLK_KP0),
		288	const_iv (SDLK_KP1),
		289	const_iv (SDLK_KP2),
		290	const_iv (SDLK_KP3),
		291	const_iv (SDLK_KP4),
		292	const_iv (SDLK_KP5),
		293	const_iv (SDLK_KP6),
		294	const_iv (SDLK_KP7),
		295	const_iv (SDLK_KP8),
		296	const_iv (SDLK_KP9),
		297	const_iv (SDLK_KP_PERIOD),
		298	const_iv (SDLK_KP_DIVIDE),
		299	const_iv (SDLK_KP_MULTIPLY),
		300	const_iv (SDLK_KP_MINUS),
		301	const_iv (SDLK_KP_PLUS),
		302	const_iv (SDLK_KP_ENTER),
		303	const_iv (SDLK_KP_EQUALS),
		304	const_iv (SDLK_UP),
		305	const_iv (SDLK_DOWN),
		306	const_iv (SDLK_RIGHT),
		307	const_iv (SDLK_LEFT),
		308	const_iv (SDLK_INSERT),
		309	const_iv (SDLK_HOME),
		310	const_iv (SDLK_END),
		311	const_iv (SDLK_PAGEUP),
		312	const_iv (SDLK_PAGEDOWN),
		313	const_iv (SDLK_F1),
		314	const_iv (SDLK_F2),
		315	const_iv (SDLK_F3),
		316	const_iv (SDLK_F4),
		317	const_iv (SDLK_F5),
		318	const_iv (SDLK_F6),
		319	const_iv (SDLK_F7),
		320	const_iv (SDLK_F8),
		321	const_iv (SDLK_F9),
		322	const_iv (SDLK_F10),
		323	const_iv (SDLK_F11),
		324	const_iv (SDLK_F12),
		325	const_iv (SDLK_F13),
		326	const_iv (SDLK_F14),
		327	const_iv (SDLK_F15),
		328	const_iv (SDLK_NUMLOCK),
		329	const_iv (SDLK_CAPSLOCK),
		330	const_iv (SDLK_SCROLLOCK),
		331	const_iv (SDLK_RSHIFT),
		332	const_iv (SDLK_LSHIFT),
		333	const_iv (SDLK_RCTRL),
		334	const_iv (SDLK_LCTRL),
		335	const_iv (SDLK_RALT),
		336	const_iv (SDLK_LALT),
		337	const_iv (SDLK_RMETA),
		338	const_iv (SDLK_LMETA),
		339	const_iv (SDLK_LSUPER),
		340	const_iv (SDLK_RSUPER),
		341	const_iv (SDLK_MODE),
		342	const_iv (SDLK_COMPOSE),
		343	const_iv (SDLK_HELP),
		344	const_iv (SDLK_PRINT),
		345	const_iv (SDLK_SYSREQ),
		346	const_iv (SDLK_BREAK),
		347	const_iv (SDLK_MENU),
		348	const_iv (SDLK_POWER),
		349	const_iv (SDLK_EURO),
		350	const_iv (SDLK_UNDO),
		351	const_iv (KMOD_NONE),
		352	const_iv (KMOD_LSHIFT),
		353	const_iv (KMOD_RSHIFT),
		354	const_iv (KMOD_LCTRL),
		355	const_iv (KMOD_RCTRL),
		356	const_iv (KMOD_LALT),
		357	const_iv (KMOD_RALT),
		358	const_iv (KMOD_LMETA),
		359	const_iv (KMOD_RMETA),
		360	const_iv (KMOD_NUM),
		361	const_iv (KMOD_CAPS),
		362	const_iv (KMOD_MODE),
		363	const_iv (KMOD_CTRL),
		364	const_iv (KMOD_SHIFT),
		365	const_iv (KMOD_ALT),
		366	const_iv (KMOD_META)
		367	# undef const_iv
		368	};
		369
		370	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		371	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		372
227	fontmap = pango_ft2_font_map_new ();	373	fontmap = pango_ft2_font_map_new ();
228	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);	374	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
229	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	375	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
230	}	376	}
		377
		378	int
		379	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO)
		380
		381	void
		382	SDL_Quit ()
		383
		384	void
		385	SDL_ListModes ()
		386	PPCODE:
		387	{
		388	SDL_Rect **m;
		389
		390	SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
		391	SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
		392	SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
		393	SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
		394
		395	SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
		396	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
		397	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
		398	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
		399
		400	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
		401	SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
		402	SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
		403
		404	SDL_EnableUNICODE (1);
		405	SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
		406
		407	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
		408
		409	if (m && m != (SDL_Rect **)-1)
		410	while (*m)
		411	{
		412	AV *av = newAV ();
		413	av_push (av, newSViv ((*m)->w));
		414	av_push (av, newSViv ((*m)->h));
		415	XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
		416
		417	++m;
		418	}
		419	}
		420
		421	int
		422	SDL_SetVideoMode (int w, int h, int fullscreen)
		423	CODE:
		424	RETVAL = !!SDL_SetVideoMode (
		425	w, h, 0, SDL_OPENGL \| (fullscreen ? SDL_FULLSCREEN : 0)
		426	);
		427	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
		428	OUTPUT:
		429	RETVAL
		430
		431	void
		432	SDL_GL_SwapBuffers ()
		433
		434	void
		435	SDL_PollEvent ()
		436	PPCODE:
		437	{
		438	SDL_Event ev;
		439
		440	while (SDL_PollEvent (&ev))
		441	{
		442	HV *hv = newHV ();
		443	hv_store (hv, "type", 4, newSViv (ev.type), 0);
		444	switch (ev.type)
		445	{
		446	case SDL_KEYDOWN:
		447	case SDL_KEYUP:
		448	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
		449	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
		450	hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
		451	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
		452	break;
		453
		454	case SDL_ACTIVEEVENT:
		455	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
		456	hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
		457	break;
		458
		459	case SDL_MOUSEMOTION:
		460	hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
		461	hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
		462	hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
		463	hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
		464	hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
		465	break;
		466
		467	case SDL_MOUSEBUTTONDOWN:
		468	case SDL_MOUSEBUTTONUP:
		469	hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
		470	hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
		471	hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
		472	hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
		473	}
		474
		475	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
		476	}
		477	}
		478
		479	int
		480	Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
		481	POSTCALL:
		482	Mix_HookMusicFinished (music_finished);
		483
		484	void
		485	Mix_CloseAudio ()
		486
		487	int
		488	Mix_AllocateChannels (int numchans = -1)
231		489
232	void	490	void
233	lowdelay (int fd, int val = 1)	491	lowdelay (int fd, int val = 1)
234	CODE:	492	CODE:
		493	#ifndef _WIN32
235	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));	494	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
		495	#endif
236		496
237	char *	497	char *
238	gl_version ()	498	gl_version ()
239	CODE:	499	CODE:
240	RETVAL = (char *)glGetString (GL_VERSION);	500	RETVAL = (char *)glGetString (GL_VERSION);
…		…
286	croak ("load_image: %s", SDL_GetError ());	546	croak ("load_image: %s", SDL_GetError ());
287		547
288	fmt.palette = NULL;	548	fmt.palette = NULL;
289	fmt.BitsPerPixel = 32;	549	fmt.BitsPerPixel = 32;
290	fmt.BytesPerPixel = 4;	550	fmt.BytesPerPixel = 4;
		551	#if SDL_BYTEORDER == SDL_LIL_ENDIAN
291	fmt.Rmask = 0x000000ff;	552	fmt.Rmask = 0x000000ff;
292	fmt.Gmask = 0x0000ff00;	553	fmt.Gmask = 0x0000ff00;
293	fmt.Bmask = 0x00ff0000;	554	fmt.Bmask = 0x00ff0000;
294	fmt.Amask = 0xff000000;	555	fmt.Amask = 0xff000000;
		556	#else
		557	fmt.Rmask = 0xff000000;
		558	fmt.Gmask = 0x00ff0000;
		559	fmt.Bmask = 0x0000ff00;
		560	fmt.Amask = 0x000000ff;
		561	#endif
295	fmt.Rloss = 0;	562	fmt.Rloss = 0;
296	fmt.Gloss = 0;	563	fmt.Gloss = 0;
297	fmt.Bloss = 0;	564	fmt.Bloss = 0;
298	fmt.Aloss = 0;	565	fmt.Aloss = 0;
299	fmt.Rshift = 0;	566	fmt.Rshift = 0;
…		…
313	SDL_LockSurface (surface2);	580	SDL_LockSurface (surface2);
314	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	581	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
315	SDL_UnlockSurface (surface2);	582	SDL_UnlockSurface (surface2);
316	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	583	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
317	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	584	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
318	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));	585	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
319		586
320	SDL_FreeSurface (surface);	587	SDL_FreeSurface (surface);
321	SDL_FreeSurface (surface2);	588	SDL_FreeSurface (surface2);
322	}	589	}
323		590
…		…
347	}	614	}
348		615
349	void	616	void
350	fatal (char *message)	617	fatal (char *message)
351	CODE:	618	CODE:
352	#ifdef WIN32	619	#ifdef _WIN32
353	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);	620	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
354	#else	621	#else
355	fprintf (stderr, "FATAL: %s\n", message);	622	fprintf (stderr, "FATAL: %s\n", message);
356	#endif	623	#endif
357	exit (1);	624	exit (1);
…		…
391	STRLEN textlen;	658	STRLEN textlen;
392	char *text = SvPVutf8 (text_, textlen);	659	char *text = SvPVutf8 (text_, textlen);
393		660
394	pango_layout_set_markup (self->pl, text, textlen);	661	pango_layout_set_markup (self->pl, text, textlen);
395	}	662	}
		663
		664	SV *
		665	get_text (CFClient::Layout self)
		666	CODE:
		667	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
		668	SvUTF8_on (RETVAL);
		669	OUTPUT:
		670	RETVAL
396		671
397	void	672	void
398	set_height (CFClient::Layout self, int base_height)	673	set_height (CFClient::Layout self, int base_height)
399	CODE:	674	CODE:
400	self->base_height = base_height;	675	self->base_height = base_height;
…		…
566	{	841	{
567	Append (maptex, self->tex, self->texs, self->texs);	842	Append (maptex, self->tex, self->texs, self->texs);
568	self->texs *= 2;	843	self->texs *= 2;
569	}	844	}
570		845
		846	{
571	maptex *tex = self->tex + texid;	847	maptex *tex = self->tex + texid;
572		848
573	tex->name = name;	849	tex->name = name;
574	tex->w = w;	850	tex->w = w;
575	tex->h = h;	851	tex->h = h;
576	tex->s = s;	852	tex->s = s;
577	tex->t = t;	853	tex->t = t;
578	tex->r = r;	854	tex->r = r;
579	tex->g = g;	855	tex->g = g;
580	tex->b = b;	856	tex->b = b;
581	tex->a = a;	857	tex->a = a;
		858	}
582	}	859	}
583		860
584	int	861	int
585	ox (CFClient::Map self)	862	ox (CFClient::Map self)
586	ALIAS:	863	ALIAS:
…		…
596		873
597	void	874	void
598	scroll (CFClient::Map self, int dx, int dy)	875	scroll (CFClient::Map self, int dx, int dy)
599	CODE:	876	CODE:
600	{	877	{
601	self->dx += dx; self->ox += dx;
602	self->dy += dy; self->oy += dy;
603	}
604
605	void
606	map1a_update (CFClient::Map self, SV *data_)
607	CODE:
608	{
609	if (self->dx > 0)	878	if (dx > 0)
610	map_blank (self, self->x, self->y, self->dx - 1, self->h);	879	map_blank (self, self->x, self->y, dx - 1, self->h);
611	else if (self->dx < 0)	880	else if (dx < 0)
612	map_blank (self, self->x + self->w + self->dx + 1, self->y, 1 - self->dx, self->h);	881	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
613		882
614	if (self->dy > 0)	883	if (dy > 0)
615	map_blank (self, self->x, self->y, self->w, self->dy - 1);	884	map_blank (self, self->x, self->y, self->w, dy - 1);
616	else if (self->dy < 0)	885	else if (dy < 0)
617	map_blank (self, self->x, self->y + self->h + self->dy + 1, self->w, 1 - self->dy);	886	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
618		887
619	self->x += self->dx; self->dx = 0;	888	self->ox += dx; self->x += dx;
620	self->y += self->dy; self->dy = 0;	889	self->oy += dy; self->y += dy;
621		890
622	while (self->y < 0)	891	while (self->y < 0)
623	{	892	{
624	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);	893	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
625		894
626	self->rows += MAP_EXTEND_Y;	895	self->rows += MAP_EXTEND_Y;
627	self->y += MAP_EXTEND_Y;	896	self->y += MAP_EXTEND_Y;
628	}	897	}
		898	}
629		899
		900	void
		901	map1a_update (CFClient::Map self, SV *data_)
		902	CODE:
		903	{
630	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	904	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
631	uint8_t data_end = (uint8_t )SvEND (data_);	905	uint8_t data_end = (uint8_t )SvEND (data_);
		906	mapcell *cell;
		907	int x, y, flags;
632		908
633	while (data < data_end)	909	while (data < data_end)
634	{	910	{
635	int flags = (data [0] << 8) + data [1]; data += 2;	911	flags = (data [0] << 8) + data [1]; data += 2;
636		912
637	int x = ((flags >> 10) & 63) + self->x;	913	x = ((flags >> 10) & 63) + self->x;
638	int y = ((flags >> 4) & 63) + self->y;	914	y = ((flags >> 4) & 63) + self->y;
639		915
640	mapcell *cell = map_get_cell (self, x, y);	916	cell = map_get_cell (self, x, y);
641		917
642	if (flags & 15)	918	if (flags & 15)
643	{	919	{
644	if (cell->darkness < 0) // && x < self->w && y < self->h)	920	if (cell->darkness < 0)
645	{	921	{
646	cell->darkness = 0;	922	cell->darkness = 0;
647	cell->face [0] = 0;	923	cell->face [0] = 0;
648	cell->face [1] = 0;	924	cell->face [1] = 0;
649	cell->face [2] = 0;	925	cell->face [2] = 0;
650	}	926	}
651		927
652	cell->darkness = flags & 8 ? *data++ : 255;	928	cell->darkness = flags & 8 ? *data++ : 255;
653		929
654	//TODO: don't trust server data to be in-range(!)	930	//TODO: don't trust server data to be in-range(!)
655		931
656	if (flags & 4)	932	if (flags & 4)
…		…
672	cell->darkness = -1;	948	cell->darkness = -1;
673	}	949	}
674	}	950	}
675		951
676	SV *	952	SV *
677	mapmap (CFClient::Map self, int w, int h)	953	mapmap (CFClient::Map self, int x0, int y0, int w, int h)
678	CODE:	954	CODE:
679	{	955	{
680	int x0, x1, x;	956	int x1, x;
681	int y0, y1, y;	957	int y1, y;
682	int z;	958	int z;
683	SV map_sv = newSV (w h * sizeof (uint32_t));	959	SV map_sv = newSV (w h * sizeof (uint32_t));
684	uint32_t map = (uint32_t )SvPVX (map_sv);	960	uint32_t map = (uint32_t )SvPVX (map_sv);
685		961
686	SvPOK_only (map_sv);	962	SvPOK_only (map_sv);
687	SvCUR_set (map_sv, w * h * sizeof (uint32_t));	963	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
688		964
689	x0 = self->x - w / 2; x1 = x0 + w;	965	x0 += self->x; x1 = x0 + w;
690	y0 = self->y - h / 2; y1 = y0 + h;	966	y0 += self->y; y1 = y0 + h;
691		967
692	for (y = y0; y < y1; y++)	968	for (y = y0; y < y1; y++)
693	{	969	{
694	maprow *row = 0 <= y && y < self->rows	970	maprow *row = 0 <= y && y < self->rows
695	? self->row + y	971	? self->row + y
…		…
735		1011
736	void	1012	void
737	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)	1013	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
738	PPCODE:	1014	PPCODE:
739	{	1015	{
		1016	int vx, vy;
		1017	int x, y, z;
		1018	int last_name;
		1019	mapface face;
740	int sw4 = (sw + 3) & ~3;	1020	int sw4 = (sw + 3) & ~3;
741	SV darkness_sv = sv_2mortal (newSV (sw4 sh));	1021	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
742	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);	1022	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		1023
743	memset (darkness, 255, sw4 * sh);	1024	memset (darkness, 255, sw4 * sh);
744	SvPOK_only (darkness_sv);	1025	SvPOK_only (darkness_sv);
745	SvCUR_set (darkness_sv, sw4 * sh);	1026	SvCUR_set (darkness_sv, sw4 * sh);
746		1027
747	int vx = self->x + (self->w - sw) / 2 - shift_x;	1028	vx = self->x + (self->w - sw) / 2 - shift_x;
748	int vy = self->y + (self->h - sh) / 2 - shift_y;	1029	vy = self->y + (self->h - sh) / 2 - shift_y;
749		1030
750	/*	1031	/*
751	int vx = self->vx = self->w >= sw	1032	int vx = self->vx = self->w >= sw
752	? self->x + (self->w - sw) / 2	1033	? self->x + (self->w - sw) / 2
753	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));	1034	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
…		…
762	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	1043	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
763	glEnable (GL_BLEND);	1044	glEnable (GL_BLEND);
764	glEnable (GL_TEXTURE_2D);	1045	glEnable (GL_TEXTURE_2D);
765	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	1046	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
766		1047
767	int x, y, z;
768
769	int last_name = 0;
770
771	glBegin (GL_QUADS);	1048	glBegin (GL_QUADS);
		1049
		1050	last_name = 0;
772		1051
773	for (z = 0; z < 3; z++)	1052	for (z = 0; z < 3; z++)
774	for (y = 0; y < sh; y++)	1053	for (y = 0; y < sh; y++)
775	if (0 <= y + vy && y + vy < self->rows)	1054	if (0 <= y + vy && y + vy < self->rows)
776	{	1055	{
…		…
783		1062
784	darkness[y * sw4 + x] = cell->darkness < 0	1063	darkness[y * sw4 + x] = cell->darkness < 0
785	? 255 - FOW_DARKNESS	1064	? 255 - FOW_DARKNESS
786	: 255 - cell->darkness;	1065	: 255 - cell->darkness;
787		1066
788	mapface face = cell->face [z];	1067	face = cell->face [z];
789		1068
790	if (face)	1069	if (face)
791	{	1070	{
792	maptex tex = self->tex [face];	1071	maptex tex = self->tex [face];
793		1072
…		…
832	data++ = 0; / version 0 format */	1111	data++ = 0; / version 0 format */
833	data++ = w >> 8; data++ = w;	1112	data++ = w >> 8; data++ = w;
834	data++ = h >> 8; data++ = h;	1113	data++ = h >> 8; data++ = h;
835		1114
836	// we need to do this 'cause we don't keep an absolute coord system for rows	1115	// we need to do this 'cause we don't keep an absolute coord system for rows
837	// TODO: treat rows as we treat	1116	// TODO: treat rows as we treat columns
838	map_get_row (self, y0 + self->y - self->oy);//D	1117	map_get_row (self, y0 + self->y - self->oy);//D
839	map_get_row (self, y0 + self->y - self->oy + h - 1);//D	1118	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
840		1119
841	x0 += self->x - self->ox;	1120	x0 += self->x - self->ox;
842	y0 += self->y - self->oy;	1121	y0 += self->y - self->oy;
…		…
853	for (x = x0; x < x1; x++)	1132	for (x = x0; x < x1; x++)
854	{	1133	{
855	if (row && row->c0 <= x && x < row->c1)	1134	if (row && row->c0 <= x && x < row->c1)
856	{	1135	{
857	mapcell *cell = row->col + (x - row->c0);	1136	mapcell *cell = row->col + (x - row->c0);
858
859	uint8_t flags = 0;	1137	uint8_t flags = 0;
860		1138
861	if (cell->face [0]) flags \|= 1;	1139	if (cell->face [0]) flags \|= 1;
862	if (cell->face [1]) flags \|= 2;	1140	if (cell->face [1]) flags \|= 2;
863	if (cell->face [2]) flags \|= 4;	1141	if (cell->face [2]) flags \|= 4;
…		…
897	void	1175	void
898	set_rect (CFClient::Map self, int x0, int y0, uint8_t *data)	1176	set_rect (CFClient::Map self, int x0, int y0, uint8_t *data)
899	PPCODE:	1177	PPCODE:
900	{	1178	{
901	int x, y, z;	1179	int x, y, z;
		1180	int w, h;
902	int x1, y1;	1181	int x1, y1;
903		1182
904	if (*data++ != 0)	1183	if (*data++ != 0)
905	return; /* version mismatch */	1184	return; /* version mismatch */
906		1185
907	int w = data++ << 8; w \|= data++;	1186	w = data++ << 8; w \|= data++;
908	int h = data++ << 8; h \|= data++;	1187	h = data++ << 8; h \|= data++;
909		1188
910	// we need to do this 'cause we don't keep an absolute coord system for rows	1189	// we need to do this 'cause we don't keep an absolute coord system for rows
911	// TODO: treat rows as we treat	1190	// TODO: treat rows as we treat columns
912	map_get_row (self, y0 + self->y - self->oy);//D	1191	map_get_row (self, y0 + self->y - self->oy);//D
913	map_get_row (self, y0 + self->y - self->oy + h - 1);//D	1192	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
914		1193
915	x0 += self->x - self->ox;	1194	x0 += self->x - self->ox;
916	y0 += self->y - self->oy;	1195	y0 += self->y - self->oy;
…		…
951	}	1230	}
952	}	1231	}
953	}	1232	}
954	}	1233	}
955		1234
		1235	MODULE = CFClient PACKAGE = CFClient::MixChunk
		1236
		1237	CFClient::MixChunk
		1238	new_from_file (SV class, char path)
		1239	CODE:
		1240	RETVAL = Mix_LoadWAV (path);
		1241	OUTPUT:
		1242	RETVAL
		1243
		1244	void
		1245	DESTROY (CFClient::MixChunk self)
		1246	CODE:
		1247	Mix_FreeChunk (self);
		1248
		1249	int
		1250	volume (CFClient::MixChunk self, int volume = -1)
		1251	CODE:
		1252	RETVAL = Mix_VolumeChunk (self, volume);
		1253	OUTPUT:
		1254	RETVAL
		1255
		1256	int
		1257	play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
		1258	CODE:
		1259	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		1260	OUTPUT:
		1261	RETVAL
		1262
		1263	MODULE = CFClient PACKAGE = CFClient::MixMusic
		1264
		1265	int
		1266	volume (int volume = -1)
		1267	CODE:
		1268	RETVAL = Mix_VolumeMusic (volume);
		1269	OUTPUT:
		1270	RETVAL
		1271
		1272	CFClient::MixMusic
		1273	new_from_file (SV class, char path)
		1274	CODE:
		1275	RETVAL = Mix_LoadMUS (path);
		1276	OUTPUT:
		1277	RETVAL
		1278
		1279	void
		1280	DESTROY (CFClient::MixMusic self)
		1281	CODE:
		1282	Mix_FreeMusic (self);
		1283
		1284	int
		1285	play (CFClient::MixMusic self, int loops = -1)
		1286	CODE:
		1287	RETVAL = Mix_PlayMusic (self, loops);
		1288	OUTPUT:
		1289	RETVAL
		1290
		1291	MODULE = CFClient PACKAGE = CFClient::OpenGL
		1292
		1293	BOOT:
		1294	{
		1295	HV *stash = gv_stashpv ("CFClient::OpenGL", 1);
		1296	static const struct {
		1297	const char *name;
		1298	IV iv;
		1299	} *civ, const_iv[] = {
		1300	# define const_iv(name) { # name, (IV)name }
		1301	const_iv (GL_COLOR_MATERIAL),
		1302	const_iv (GL_SMOOTH),
		1303	const_iv (GL_FLAT),
		1304	const_iv (GL_BLEND),
		1305	const_iv (GL_AND),
		1306	const_iv (GL_SRC_ALPHA),
		1307	const_iv (GL_ONE_MINUS_SRC_ALPHA),
		1308	const_iv (GL_RGB),
		1309	const_iv (GL_RGBA),
		1310	const_iv (GL_UNSIGNED_BYTE),
		1311	const_iv (GL_ALPHA4),
		1312	const_iv (GL_ALPHA),
		1313	const_iv (GL_FLOAT),
		1314	const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
		1315	const_iv (GL_COMPILE),
		1316	const_iv (GL_TEXTURE_1D),
		1317	const_iv (GL_TEXTURE_2D),
		1318	const_iv (GL_TEXTURE_ENV),
		1319	const_iv (GL_TEXTURE_MAG_FILTER),
		1320	const_iv (GL_TEXTURE_MIN_FILTER),
		1321	const_iv (GL_TEXTURE_ENV_MODE),
		1322	const_iv (GL_TEXTURE_WRAP_S),
		1323	const_iv (GL_TEXTURE_WRAP_T),
		1324	const_iv (GL_CLAMP),
		1325	const_iv (GL_REPEAT),
		1326	const_iv (GL_NEAREST),
		1327	const_iv (GL_LINEAR),
		1328	const_iv (GL_MODULATE),
		1329	const_iv (GL_REPLACE),
		1330	const_iv (GL_COLOR_BUFFER_BIT),
		1331	const_iv (GL_PROJECTION),
		1332	const_iv (GL_MODELVIEW),
		1333	const_iv (GL_COLOR_LOGIC_OP),
		1334	const_iv (GL_CONVOLUTION_2D),
		1335	const_iv (GL_CONVOLUTION_BORDER_MODE),
		1336	const_iv (GL_CONSTANT_BORDER),
		1337	const_iv (GL_LINES),
		1338	const_iv (GL_QUADS),
		1339	const_iv (GL_LINE_LOOP),
		1340	const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
		1341	const_iv (GL_FASTEST),
		1342	# undef const_iv
		1343	};
		1344
		1345	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		1346	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		1347	}
		1348
		1349	int glGetError ()
		1350
		1351	void glClear (int mask)
		1352
		1353	void glClearColor (float r, float g, float b, float a = 1.0)
		1354	PROTOTYPE: @
		1355
		1356	void glEnable (int cap)
		1357
		1358	void glDisable (int cap)
		1359
		1360	void glShadeModel (int mode)
		1361
		1362	void glHint (int target, int mode)
		1363
		1364	void glBlendFunc (int sfactor, int dfactor)
		1365
		1366	void glLogicOp (int opcode)
		1367
		1368	void glMatrixMode (int mode)
		1369
		1370	void glPushMatrix ()
		1371
		1372	void glPopMatrix ()
		1373
		1374	void glLoadIdentity ()
		1375
		1376	void glOrtho (double left, double right, double bottom, double top, double near, double far)
		1377
		1378	void glViewport (int x, int y, int width, int height)
		1379
		1380	void glTranslate (float x, float y, float z = 0.)
		1381	CODE:
		1382	glTranslatef (x, y, z);
		1383
		1384	void glScale (float x, float y, float z)
		1385	CODE:
		1386	glScalef (x, y, z);
		1387
		1388	void glRotate (float angle, float x, float y, float z)
		1389	CODE:
		1390	glRotatef (angle, x, y, z);
		1391
		1392	void glBegin (int mode)
		1393
		1394	void glEnd ()
		1395
		1396	void glColor (float r, float g, float b, float a = 1.0)
		1397	PROTOTYPE: @
		1398	CODE:
		1399	glColor4f (r, g, b, a);
		1400
		1401	void glVertex (float x, float y, float z = 0.)
		1402	CODE:
		1403	glVertex3f (x, y, z);
		1404
		1405	void glTexCoord (float s, float t)
		1406	CODE:
		1407	glTexCoord2f (s, t);
		1408
		1409	void glTexEnv (int target, int pname, float param)
		1410	CODE:
		1411	glTexEnvf (target, pname, param);
		1412
		1413	void glTexParameter (int target, int pname, float param)
		1414	CODE:
		1415	glTexParameterf (target, pname, param);
		1416
		1417	void glBindTexture (int target, int name)
		1418
		1419	void glConvolutionParameter (int target, int pname, float params)
		1420	CODE:
		1421	glConvolutionParameterf (target, pname, params);
		1422
		1423	void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
		1424
		1425	void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
		1426
		1427	void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
		1428
		1429	int glGenTexture ()
		1430	CODE:
		1431	{
		1432	GLuint name;
		1433	glGenTextures (1, &name);
		1434	RETVAL = name;
		1435	}
		1436	OUTPUT:
		1437	RETVAL
		1438
		1439	void glDeleteTexture (int name)
		1440	CODE:
		1441	{
		1442	GLuint name_ = name;
		1443	glDeleteTextures (1, &name_);
		1444	}
		1445
		1446	int glGenList ()
		1447	CODE:
		1448	RETVAL = glGenLists (1);
		1449	OUTPUT:
		1450	RETVAL
		1451
		1452	void glDeleteList (int list)
		1453	CODE:
		1454	glDeleteLists (list, 1);
		1455
		1456	void glNewList (int list, int mode = GL_COMPILE)
		1457
		1458	void glEndList ()
		1459
		1460	void glCallList (int list)
		1461

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.43 by root, Mon Apr 17 06:50:26 2006 UTC vs. Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.43 by root, Mon Apr 17 06:50:26 2006 UTC vs.
Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC