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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.46 by root, Mon Apr 17 19:20:59 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 {
97	mapface *face;	113	mapface *face;
98		114
99	int texs;	115	int texs;
100	maptex *tex;	116	maptex *tex;
101		117
102	uint32_t rows;	118	int32_t rows;
103	maprow *row;	119	maprow *row;
104	} *CFClient__Map;	120	} *CFClient__Map;
105		121
106	static char *	122	static char *
107	prepend (char *ptr, int sze, int inc)	123	prepend (char *ptr, int sze, int inc)
…		…
202		218
203	static void	219	static void
204	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)
205	{	221	{
206	int x, y;	222	int x, y;
		223	maprow *row;
207		224
208	for (y = y0; y < y0 + h; y++)	225	for (y = y0; y < y0 + h; y++)
209	if (y >= 0)	226	if (y >= 0)
210	{	227	{
211	if (y >= self->rows)	228	if (y >= self->rows)
212	break;	229	break;
213		230
214	maprow *row = self->row + y;	231	row = self->row + y;
215		232
216	for (x = x0; x < x0 + w; x++)	233	for (x = x0; x < x0 + w; x++)
217	if (x >= row->c0)	234	if (x >= row->c0)
218	{	235	{
219	if (x >= row->c1)	236	if (x >= row->c1)
…		…
222	row->col[x - row->c0].darkness = -1;	239	row->col[x - row->c0].darkness = -1;
223	}	240	}
224	}	241	}
225	}	242	}
226		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
227	MODULE = CFClient PACKAGE = CFClient	257	MODULE = CFClient PACKAGE = CFClient
228		258
229	PROTOTYPES: ENABLE	259	PROTOTYPES: ENABLE
230		260
231	BOOT:	261	BOOT:
232	{	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
233	fontmap = pango_ft2_font_map_new ();	373	fontmap = pango_ft2_font_map_new ();
234	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);
235	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	375	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
236	}	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)
237		489
238	void	490	void
239	lowdelay (int fd, int val = 1)	491	lowdelay (int fd, int val = 1)
240	CODE:	492	CODE:
		493	#ifndef _WIN32
241	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));	494	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
		495	#endif
242		496
243	char *	497	char *
244	gl_version ()	498	gl_version ()
245	CODE:	499	CODE:
246	RETVAL = (char *)glGetString (GL_VERSION);	500	RETVAL = (char *)glGetString (GL_VERSION);
…		…
292	croak ("load_image: %s", SDL_GetError ());	546	croak ("load_image: %s", SDL_GetError ());
293		547
294	fmt.palette = NULL;	548	fmt.palette = NULL;
295	fmt.BitsPerPixel = 32;	549	fmt.BitsPerPixel = 32;
296	fmt.BytesPerPixel = 4;	550	fmt.BytesPerPixel = 4;
		551	#if SDL_BYTEORDER == SDL_LIL_ENDIAN
297	fmt.Rmask = 0x000000ff;	552	fmt.Rmask = 0x000000ff;
298	fmt.Gmask = 0x0000ff00;	553	fmt.Gmask = 0x0000ff00;
299	fmt.Bmask = 0x00ff0000;	554	fmt.Bmask = 0x00ff0000;
300	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
301	fmt.Rloss = 0;	562	fmt.Rloss = 0;
302	fmt.Gloss = 0;	563	fmt.Gloss = 0;
303	fmt.Bloss = 0;	564	fmt.Bloss = 0;
304	fmt.Aloss = 0;	565	fmt.Aloss = 0;
305	fmt.Rshift = 0;	566	fmt.Rshift = 0;
…		…
319	SDL_LockSurface (surface2);	580	SDL_LockSurface (surface2);
320	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	581	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
321	SDL_UnlockSurface (surface2);	582	SDL_UnlockSurface (surface2);
322	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)));
323	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	584	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
324	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));	585	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
325		586
326	SDL_FreeSurface (surface);	587	SDL_FreeSurface (surface);
327	SDL_FreeSurface (surface2);	588	SDL_FreeSurface (surface2);
328	}	589	}
329		590
…		…
353	}	614	}
354		615
355	void	616	void
356	fatal (char *message)	617	fatal (char *message)
357	CODE:	618	CODE:
358	#ifdef WIN32	619	#ifdef _WIN32
359	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);
360	#else	621	#else
361	fprintf (stderr, "FATAL: %s\n", message);	622	fprintf (stderr, "FATAL: %s\n", message);
362	#endif	623	#endif
363	exit (1);	624	exit (1);
…		…
401	}	662	}
402		663
403	SV *	664	SV *
404	get_text (CFClient::Layout self)	665	get_text (CFClient::Layout self)
405	CODE:	666	CODE:
406	RETVAL = newSVpv (pango_layout_get_text (self), 0);	667	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
407	SvUTF8_on (RETVAL);	668	SvUTF8_on (RETVAL);
408	OUTPUT:	669	OUTPUT:
409	RETVAL	670	RETVAL
410		671
411	void	672	void
…		…
580	{	841	{
581	Append (maptex, self->tex, self->texs, self->texs);	842	Append (maptex, self->tex, self->texs, self->texs);
582	self->texs *= 2;	843	self->texs *= 2;
583	}	844	}
584		845
		846	{
585	maptex *tex = self->tex + texid;	847	maptex *tex = self->tex + texid;
586		848
587	tex->name = name;	849	tex->name = name;
588	tex->w = w;	850	tex->w = w;
589	tex->h = h;	851	tex->h = h;
590	tex->s = s;	852	tex->s = s;
591	tex->t = t;	853	tex->t = t;
592	tex->r = r;	854	tex->r = r;
593	tex->g = g;	855	tex->g = g;
594	tex->b = b;	856	tex->b = b;
595	tex->a = a;	857	tex->a = a;
		858	}
596	}	859	}
597		860
598	int	861	int
599	ox (CFClient::Map self)	862	ox (CFClient::Map self)
600	ALIAS:	863	ALIAS:
…		…
638	map1a_update (CFClient::Map self, SV *data_)	901	map1a_update (CFClient::Map self, SV *data_)
639	CODE:	902	CODE:
640	{	903	{
641	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	904	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
642	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;
643		908
644	while (data < data_end)	909	while (data < data_end)
645	{	910	{
646	int flags = (data [0] << 8) + data [1]; data += 2;	911	flags = (data [0] << 8) + data [1]; data += 2;
647		912
648	int x = ((flags >> 10) & 63) + self->x;	913	x = ((flags >> 10) & 63) + self->x;
649	int y = ((flags >> 4) & 63) + self->y;	914	y = ((flags >> 4) & 63) + self->y;
650		915
651	mapcell *cell = map_get_cell (self, x, y);	916	cell = map_get_cell (self, x, y);
652		917
653	if (flags & 15)	918	if (flags & 15)
654	{	919	{
655	if (cell->darkness < 0)	920	if (cell->darkness < 0)
656	{	921	{
…		…
683	cell->darkness = -1;	948	cell->darkness = -1;
684	}	949	}
685	}	950	}
686		951
687	SV *	952	SV *
688	mapmap (CFClient::Map self, int w, int h)	953	mapmap (CFClient::Map self, int x0, int y0, int w, int h)
689	CODE:	954	CODE:
690	{	955	{
691	int x0, x1, x;	956	int x1, x;
692	int y0, y1, y;	957	int y1, y;
693	int z;	958	int z;
694	SV map_sv = newSV (w h * sizeof (uint32_t));	959	SV map_sv = newSV (w h * sizeof (uint32_t));
695	uint32_t map = (uint32_t )SvPVX (map_sv);	960	uint32_t map = (uint32_t )SvPVX (map_sv);
696		961
697	SvPOK_only (map_sv);	962	SvPOK_only (map_sv);
698	SvCUR_set (map_sv, w * h * sizeof (uint32_t));	963	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
699		964
700	x0 = self->x - w / 2; x1 = x0 + w;	965	x0 += self->x; x1 = x0 + w;
701	y0 = self->y - h / 2; y1 = y0 + h;	966	y0 += self->y; y1 = y0 + h;
702		967
703	for (y = y0; y < y1; y++)	968	for (y = y0; y < y1; y++)
704	{	969	{
705	maprow *row = 0 <= y && y < self->rows	970	maprow *row = 0 <= y && y < self->rows
706	? self->row + y	971	? self->row + y
…		…
746		1011
747	void	1012	void
748	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)
749	PPCODE:	1014	PPCODE:
750	{	1015	{
		1016	int vx, vy;
		1017	int x, y, z;
		1018	int last_name;
		1019	mapface face;
751	int sw4 = (sw + 3) & ~3;	1020	int sw4 = (sw + 3) & ~3;
752	SV darkness_sv = sv_2mortal (newSV (sw4 sh));	1021	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
753	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);	1022	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		1023
754	memset (darkness, 255, sw4 * sh);	1024	memset (darkness, 255, sw4 * sh);
755	SvPOK_only (darkness_sv);	1025	SvPOK_only (darkness_sv);
756	SvCUR_set (darkness_sv, sw4 * sh);	1026	SvCUR_set (darkness_sv, sw4 * sh);
757		1027
758	int vx = self->x + (self->w - sw) / 2 - shift_x;	1028	vx = self->x + (self->w - sw) / 2 - shift_x;
759	int vy = self->y + (self->h - sh) / 2 - shift_y;	1029	vy = self->y + (self->h - sh) / 2 - shift_y;
760		1030
761	/*	1031	/*
762	int vx = self->vx = self->w >= sw	1032	int vx = self->vx = self->w >= sw
763	? self->x + (self->w - sw) / 2	1033	? self->x + (self->w - sw) / 2
764	: 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));
…		…
773	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	1043	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
774	glEnable (GL_BLEND);	1044	glEnable (GL_BLEND);
775	glEnable (GL_TEXTURE_2D);	1045	glEnable (GL_TEXTURE_2D);
776	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	1046	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
777		1047
778	int x, y, z;
779
780	int last_name = 0;
781
782	glBegin (GL_QUADS);	1048	glBegin (GL_QUADS);
		1049
		1050	last_name = 0;
783		1051
784	for (z = 0; z < 3; z++)	1052	for (z = 0; z < 3; z++)
785	for (y = 0; y < sh; y++)	1053	for (y = 0; y < sh; y++)
786	if (0 <= y + vy && y + vy < self->rows)	1054	if (0 <= y + vy && y + vy < self->rows)
787	{	1055	{
…		…
794		1062
795	darkness[y * sw4 + x] = cell->darkness < 0	1063	darkness[y * sw4 + x] = cell->darkness < 0
796	? 255 - FOW_DARKNESS	1064	? 255 - FOW_DARKNESS
797	: 255 - cell->darkness;	1065	: 255 - cell->darkness;
798		1066
799	mapface face = cell->face [z];	1067	face = cell->face [z];
800		1068
801	if (face)	1069	if (face)
802	{	1070	{
803	maptex tex = self->tex [face];	1071	maptex tex = self->tex [face];
804		1072
…		…
843	data++ = 0; / version 0 format */	1111	data++ = 0; / version 0 format */
844	data++ = w >> 8; data++ = w;	1112	data++ = w >> 8; data++ = w;
845	data++ = h >> 8; data++ = h;	1113	data++ = h >> 8; data++ = h;
846		1114
847	// 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
848	// TODO: treat rows as we treat	1116	// TODO: treat rows as we treat columns
849	map_get_row (self, y0 + self->y - self->oy);//D	1117	map_get_row (self, y0 + self->y - self->oy);//D
850	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
851		1119
852	x0 += self->x - self->ox;	1120	x0 += self->x - self->ox;
853	y0 += self->y - self->oy;	1121	y0 += self->y - self->oy;
…		…
864	for (x = x0; x < x1; x++)	1132	for (x = x0; x < x1; x++)
865	{	1133	{
866	if (row && row->c0 <= x && x < row->c1)	1134	if (row && row->c0 <= x && x < row->c1)
867	{	1135	{
868	mapcell *cell = row->col + (x - row->c0);	1136	mapcell *cell = row->col + (x - row->c0);
869
870	uint8_t flags = 0;	1137	uint8_t flags = 0;
871		1138
872	if (cell->face [0]) flags \|= 1;	1139	if (cell->face [0]) flags \|= 1;
873	if (cell->face [1]) flags \|= 2;	1140	if (cell->face [1]) flags \|= 2;
874	if (cell->face [2]) flags \|= 4;	1141	if (cell->face [2]) flags \|= 4;
…		…
908	void	1175	void
909	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)
910	PPCODE:	1177	PPCODE:
911	{	1178	{
912	int x, y, z;	1179	int x, y, z;
		1180	int w, h;
913	int x1, y1;	1181	int x1, y1;
914		1182
915	if (*data++ != 0)	1183	if (*data++ != 0)
916	return; /* version mismatch */	1184	return; /* version mismatch */
917		1185
918	int w = data++ << 8; w \|= data++;	1186	w = data++ << 8; w \|= data++;
919	int h = data++ << 8; h \|= data++;	1187	h = data++ << 8; h \|= data++;
920		1188
921	// 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
922	// TODO: treat rows as we treat	1190	// TODO: treat rows as we treat columns
923	map_get_row (self, y0 + self->y - self->oy);//D	1191	map_get_row (self, y0 + self->y - self->oy);//D
924	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
925		1193
926	x0 += self->x - self->ox;	1194	x0 += self->x - self->ox;
927	y0 += self->y - self->oy;	1195	y0 += self->y - self->oy;
…		…
962	}	1230	}
963	}	1231	}
964	}	1232	}
965	}	1233	}
966		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.46 by root, Mon Apr 17 19:20:59 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.46 by root, Mon Apr 17 19:20:59 2006 UTC vs.
Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC