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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.45 by root, Mon Apr 17 09:33:11 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	{
…		…
90	mapface *face;	113	mapface *face;
91		114
92	int texs;	115	int texs;
93	maptex *tex;	116	maptex *tex;
94		117
95	uint32_t rows;	118	int32_t rows;
96	maprow *row;	119	maprow *row;
97	} *CFClient__Map;	120	} *CFClient__Map;
98		121
99	static char *	122	static char *
100	prepend (char *ptr, int sze, int inc)	123	prepend (char *ptr, int sze, int inc)
…		…
195		218
196	static void	219	static void
197	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)
198	{	221	{
199	int x, y;	222	int x, y;
		223	maprow *row;
200		224
201	for (y = y0; y < y0 + h; y++)	225	for (y = y0; y < y0 + h; y++)
202	if (y >= 0)	226	if (y >= 0)
203	{	227	{
204	if (y >= self->rows)	228	if (y >= self->rows)
205	break;	229	break;
206		230
207	maprow *row = self->row + y;	231	row = self->row + y;
208		232
209	for (x = x0; x < x0 + w; x++)	233	for (x = x0; x < x0 + w; x++)
210	if (x >= row->c0)	234	if (x >= row->c0)
211	{	235	{
212	if (x >= row->c1)	236	if (x >= row->c1)
…		…
215	row->col[x - row->c0].darkness = -1;	239	row->col[x - row->c0].darkness = -1;
216	}	240	}
217	}	241	}
218	}	242	}
219		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
220	MODULE = CFClient PACKAGE = CFClient	257	MODULE = CFClient PACKAGE = CFClient
221		258
222	PROTOTYPES: ENABLE	259	PROTOTYPES: ENABLE
223		260
224	BOOT:	261	BOOT:
225	{	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
226	fontmap = pango_ft2_font_map_new ();	373	fontmap = pango_ft2_font_map_new ();
227	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);
228	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	375	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
229	}	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)
230		489
231	void	490	void
232	lowdelay (int fd, int val = 1)	491	lowdelay (int fd, int val = 1)
233	CODE:	492	CODE:
		493	#ifndef _WIN32
234	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));	494	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
		495	#endif
235		496
236	char *	497	char *
237	gl_version ()	498	gl_version ()
238	CODE:	499	CODE:
239	RETVAL = (char *)glGetString (GL_VERSION);	500	RETVAL = (char *)glGetString (GL_VERSION);
…		…
285	croak ("load_image: %s", SDL_GetError ());	546	croak ("load_image: %s", SDL_GetError ());
286		547
287	fmt.palette = NULL;	548	fmt.palette = NULL;
288	fmt.BitsPerPixel = 32;	549	fmt.BitsPerPixel = 32;
289	fmt.BytesPerPixel = 4;	550	fmt.BytesPerPixel = 4;
		551	#if SDL_BYTEORDER == SDL_LIL_ENDIAN
290	fmt.Rmask = 0x000000ff;	552	fmt.Rmask = 0x000000ff;
291	fmt.Gmask = 0x0000ff00;	553	fmt.Gmask = 0x0000ff00;
292	fmt.Bmask = 0x00ff0000;	554	fmt.Bmask = 0x00ff0000;
293	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
294	fmt.Rloss = 0;	562	fmt.Rloss = 0;
295	fmt.Gloss = 0;	563	fmt.Gloss = 0;
296	fmt.Bloss = 0;	564	fmt.Bloss = 0;
297	fmt.Aloss = 0;	565	fmt.Aloss = 0;
298	fmt.Rshift = 0;	566	fmt.Rshift = 0;
…		…
312	SDL_LockSurface (surface2);	580	SDL_LockSurface (surface2);
313	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	581	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
314	SDL_UnlockSurface (surface2);	582	SDL_UnlockSurface (surface2);
315	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)));
316	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	584	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
317	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));	585	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
318		586
319	SDL_FreeSurface (surface);	587	SDL_FreeSurface (surface);
320	SDL_FreeSurface (surface2);	588	SDL_FreeSurface (surface2);
321	}	589	}
322		590
…		…
346	}	614	}
347		615
348	void	616	void
349	fatal (char *message)	617	fatal (char *message)
350	CODE:	618	CODE:
351	#ifdef WIN32	619	#ifdef _WIN32
352	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);
353	#else	621	#else
354	fprintf (stderr, "FATAL: %s\n", message);	622	fprintf (stderr, "FATAL: %s\n", message);
355	#endif	623	#endif
356	exit (1);	624	exit (1);
…		…
390	STRLEN textlen;	658	STRLEN textlen;
391	char *text = SvPVutf8 (text_, textlen);	659	char *text = SvPVutf8 (text_, textlen);
392		660
393	pango_layout_set_markup (self->pl, text, textlen);	661	pango_layout_set_markup (self->pl, text, textlen);
394	}	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
395		671
396	void	672	void
397	set_height (CFClient::Layout self, int base_height)	673	set_height (CFClient::Layout self, int base_height)
398	CODE:	674	CODE:
399	self->base_height = base_height;	675	self->base_height = base_height;
…		…
565	{	841	{
566	Append (maptex, self->tex, self->texs, self->texs);	842	Append (maptex, self->tex, self->texs, self->texs);
567	self->texs *= 2;	843	self->texs *= 2;
568	}	844	}
569		845
		846	{
570	maptex *tex = self->tex + texid;	847	maptex *tex = self->tex + texid;
571		848
572	tex->name = name;	849	tex->name = name;
573	tex->w = w;	850	tex->w = w;
574	tex->h = h;	851	tex->h = h;
575	tex->s = s;	852	tex->s = s;
576	tex->t = t;	853	tex->t = t;
577	tex->r = r;	854	tex->r = r;
578	tex->g = g;	855	tex->g = g;
579	tex->b = b;	856	tex->b = b;
580	tex->a = a;	857	tex->a = a;
		858	}
581	}	859	}
582		860
583	int	861	int
584	ox (CFClient::Map self)	862	ox (CFClient::Map self)
585	ALIAS:	863	ALIAS:
…		…
623	map1a_update (CFClient::Map self, SV *data_)	901	map1a_update (CFClient::Map self, SV *data_)
624	CODE:	902	CODE:
625	{	903	{
626	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	904	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
627	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;
628		908
629	while (data < data_end)	909	while (data < data_end)
630	{	910	{
631	int flags = (data [0] << 8) + data [1]; data += 2;	911	flags = (data [0] << 8) + data [1]; data += 2;
632		912
633	int x = ((flags >> 10) & 63) + self->x;	913	x = ((flags >> 10) & 63) + self->x;
634	int y = ((flags >> 4) & 63) + self->y;	914	y = ((flags >> 4) & 63) + self->y;
635		915
636	mapcell *cell = map_get_cell (self, x, y);	916	cell = map_get_cell (self, x, y);
637		917
638	if (flags & 15)	918	if (flags & 15)
639	{	919	{
640	if (cell->darkness < 0)	920	if (cell->darkness < 0)
641	{	921	{
…		…
668	cell->darkness = -1;	948	cell->darkness = -1;
669	}	949	}
670	}	950	}
671		951
672	SV *	952	SV *
673	mapmap (CFClient::Map self, int w, int h)	953	mapmap (CFClient::Map self, int x0, int y0, int w, int h)
674	CODE:	954	CODE:
675	{	955	{
676	int x0, x1, x;	956	int x1, x;
677	int y0, y1, y;	957	int y1, y;
678	int z;	958	int z;
679	SV map_sv = newSV (w h * sizeof (uint32_t));	959	SV map_sv = newSV (w h * sizeof (uint32_t));
680	uint32_t map = (uint32_t )SvPVX (map_sv);	960	uint32_t map = (uint32_t )SvPVX (map_sv);
681		961
682	SvPOK_only (map_sv);	962	SvPOK_only (map_sv);
683	SvCUR_set (map_sv, w * h * sizeof (uint32_t));	963	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
684		964
685	x0 = self->x - w / 2; x1 = x0 + w;	965	x0 += self->x; x1 = x0 + w;
686	y0 = self->y - h / 2; y1 = y0 + h;	966	y0 += self->y; y1 = y0 + h;
687		967
688	for (y = y0; y < y1; y++)	968	for (y = y0; y < y1; y++)
689	{	969	{
690	maprow *row = 0 <= y && y < self->rows	970	maprow *row = 0 <= y && y < self->rows
691	? self->row + y	971	? self->row + y
…		…
731		1011
732	void	1012	void
733	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)
734	PPCODE:	1014	PPCODE:
735	{	1015	{
		1016	int vx, vy;
		1017	int x, y, z;
		1018	int last_name;
		1019	mapface face;
736	int sw4 = (sw + 3) & ~3;	1020	int sw4 = (sw + 3) & ~3;
737	SV darkness_sv = sv_2mortal (newSV (sw4 sh));	1021	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
738	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);	1022	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		1023
739	memset (darkness, 255, sw4 * sh);	1024	memset (darkness, 255, sw4 * sh);
740	SvPOK_only (darkness_sv);	1025	SvPOK_only (darkness_sv);
741	SvCUR_set (darkness_sv, sw4 * sh);	1026	SvCUR_set (darkness_sv, sw4 * sh);
742		1027
743	int vx = self->x + (self->w - sw) / 2 - shift_x;	1028	vx = self->x + (self->w - sw) / 2 - shift_x;
744	int vy = self->y + (self->h - sh) / 2 - shift_y;	1029	vy = self->y + (self->h - sh) / 2 - shift_y;
745		1030
746	/*	1031	/*
747	int vx = self->vx = self->w >= sw	1032	int vx = self->vx = self->w >= sw
748	? self->x + (self->w - sw) / 2	1033	? self->x + (self->w - sw) / 2
749	: 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));
…		…
758	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	1043	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
759	glEnable (GL_BLEND);	1044	glEnable (GL_BLEND);
760	glEnable (GL_TEXTURE_2D);	1045	glEnable (GL_TEXTURE_2D);
761	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	1046	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
762		1047
763	int x, y, z;
764
765	int last_name = 0;
766
767	glBegin (GL_QUADS);	1048	glBegin (GL_QUADS);
		1049
		1050	last_name = 0;
768		1051
769	for (z = 0; z < 3; z++)	1052	for (z = 0; z < 3; z++)
770	for (y = 0; y < sh; y++)	1053	for (y = 0; y < sh; y++)
771	if (0 <= y + vy && y + vy < self->rows)	1054	if (0 <= y + vy && y + vy < self->rows)
772	{	1055	{
…		…
779		1062
780	darkness[y * sw4 + x] = cell->darkness < 0	1063	darkness[y * sw4 + x] = cell->darkness < 0
781	? 255 - FOW_DARKNESS	1064	? 255 - FOW_DARKNESS
782	: 255 - cell->darkness;	1065	: 255 - cell->darkness;
783		1066
784	mapface face = cell->face [z];	1067	face = cell->face [z];
785		1068
786	if (face)	1069	if (face)
787	{	1070	{
788	maptex tex = self->tex [face];	1071	maptex tex = self->tex [face];
789		1072
…		…
828	data++ = 0; / version 0 format */	1111	data++ = 0; / version 0 format */
829	data++ = w >> 8; data++ = w;	1112	data++ = w >> 8; data++ = w;
830	data++ = h >> 8; data++ = h;	1113	data++ = h >> 8; data++ = h;
831		1114
832	// 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
833	// TODO: treat rows as we treat	1116	// TODO: treat rows as we treat columns
834	map_get_row (self, y0 + self->y - self->oy);//D	1117	map_get_row (self, y0 + self->y - self->oy);//D
835	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
836		1119
837	x0 += self->x - self->ox;	1120	x0 += self->x - self->ox;
838	y0 += self->y - self->oy;	1121	y0 += self->y - self->oy;
…		…
849	for (x = x0; x < x1; x++)	1132	for (x = x0; x < x1; x++)
850	{	1133	{
851	if (row && row->c0 <= x && x < row->c1)	1134	if (row && row->c0 <= x && x < row->c1)
852	{	1135	{
853	mapcell *cell = row->col + (x - row->c0);	1136	mapcell *cell = row->col + (x - row->c0);
854
855	uint8_t flags = 0;	1137	uint8_t flags = 0;
856		1138
857	if (cell->face [0]) flags \|= 1;	1139	if (cell->face [0]) flags \|= 1;
858	if (cell->face [1]) flags \|= 2;	1140	if (cell->face [1]) flags \|= 2;
859	if (cell->face [2]) flags \|= 4;	1141	if (cell->face [2]) flags \|= 4;
…		…
893	void	1175	void
894	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)
895	PPCODE:	1177	PPCODE:
896	{	1178	{
897	int x, y, z;	1179	int x, y, z;
		1180	int w, h;
898	int x1, y1;	1181	int x1, y1;
899		1182
900	if (*data++ != 0)	1183	if (*data++ != 0)
901	return; /* version mismatch */	1184	return; /* version mismatch */
902		1185
903	int w = data++ << 8; w \|= data++;	1186	w = data++ << 8; w \|= data++;
904	int h = data++ << 8; h \|= data++;	1187	h = data++ << 8; h \|= data++;
905		1188
906	// 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
907	// TODO: treat rows as we treat	1190	// TODO: treat rows as we treat columns
908	map_get_row (self, y0 + self->y - self->oy);//D	1191	map_get_row (self, y0 + self->y - self->oy);//D
909	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
910		1193
911	x0 += self->x - self->ox;	1194	x0 += self->x - self->ox;
912	y0 += self->y - self->oy;	1195	y0 += self->y - self->oy;
…		…
947	}	1230	}
948	}	1231	}
949	}	1232	}
950	}	1233	}
951		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.45 by root, Mon Apr 17 09:33:11 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.45 by root, Mon Apr 17 09:33:11 2006 UTC vs.
Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC