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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.10 by root, Sun Apr 9 17:34:15 2006 UTC vs.
Revision 1.47 by root, Mon Apr 17 21:52:42 2006 UTC

…		…
1	#include "EXTERN.h"	1	#include "EXTERN.h"
2	#include "perl.h"	2	#include "perl.h"
3	#include "XSUB.h"	3	#include "XSUB.h"
4		4
5	#include <string.h>	5	#include <string.h>
		6	#include <stdio.h>
6		7
7	#include <SDL.h>	8	#include <SDL.h>
		9	#include <SDL_image.h>
8	#include <SDL_opengl.h>	10	#include <SDL_opengl.h>
		11
		12	#include <glib/gmacros.h>
9		13
10	#include <pango/pango.h>	14	#include <pango/pango.h>
11	#include <pango/pangofc-fontmap.h>	15	#include <pango/pangofc-fontmap.h>
12	#include <pango/pangoft2.h>	16	#include <pango/pangoft2.h>
13		17
14	#include <sys/types.h>	18	#include <sys/types.h>
15	#include <sys/socket.h>	19	#include <sys/socket.h>
16	#include <netinet/in.h>	20	#include <netinet/in.h>
17	#include <netinet/tcp.h>	21	#include <netinet/tcp.h>
18		22
		23	#include <inttypes.h>
		24
		25	#define FOW_DARKNESS 32
		26
		27	#define MAP_EXTEND_X 32
		28	#define MAP_EXTEND_Y 512
		29
19	static PangoContext *context;	30	static PangoContext *context;
20	static PangoFontMap *fontmap;	31	static PangoFontMap *fontmap;
21		32
		33	typedef struct cf_layout {
		34	PangoLayout *pl;
		35	int base_height;
		36	} *CFClient__Layout;
		37
		38	static void
		39	substitute_func (FcPattern *pattern, gpointer data)
		40	{
		41	FcPatternAddBool (pattern, FC_HINTING , 1);
		42	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
		43	}
		44
		45	static void
		46	layout_update (CFClient__Layout self)
		47	{
		48	/* use a random scale factor to account for unknown descenders, 0.8 works
		49	* reasonably well with bitstream vera
		50	*/
		51	PangoFontDescription *font = pango_context_get_font_description (context);
		52
		53	int height = self->base_height * (PANGO_SCALE * 8 / 10);
		54
		55	if (pango_font_description_get_size (font) != height)
		56	{
		57	pango_font_description_set_absolute_size (font, height);
		58	pango_layout_context_changed (self->pl);
		59	}
		60	}
		61
		62	static void
		63	layout_get_pixel_size (CFClient__Layout self, int w, int h)
		64	{
		65	layout_update (self);
		66
		67	pango_layout_get_pixel_size (self->pl, w, h);
		68
		69	w = (w + 3) & ~3;
		70	if (!w) w = 1;
		71	if (!h) h = 1;
		72	}
		73
		74	typedef uint16_t mapface;
		75
		76	typedef struct {
		77	GLint name;
		78	int w, h;
		79	float s, t;
		80	uint8_t r, g, b, a;
		81	} maptex;
		82
		83	typedef struct {
		84	int16_t darkness;
		85	mapface face[3];
		86	} mapcell;
		87
		88	typedef struct {
		89	int32_t c0, c1;
		90	mapcell *col;
		91	} maprow;
		92
		93	typedef struct map {
		94	int x, y, w, h;
		95	int ox, oy; /* offset to virtual global coordinate system */
		96	int faces;
		97	mapface *face;
		98
		99	int texs;
		100	maptex *tex;
		101
		102	uint32_t rows;
		103	maprow *row;
		104	} *CFClient__Map;
		105
		106	static char *
		107	prepend (char *ptr, int sze, int inc)
		108	{
		109	char *p;
		110
		111	New (0, p, sze + inc, char);
		112	Zero (p, inc, char);
		113	Move (ptr, p + inc, sze, char);
		114	Safefree (ptr);
		115
		116	return p;
		117	}
		118
		119	static char *
		120	append (char *ptr, int sze, int inc)
		121	{
		122	Renew (ptr, sze + inc, char);
		123	Zero (ptr + sze, inc, char);
		124
		125	return ptr;
		126	}
		127
		128	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
		129	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
		130
		131	static maprow *
		132	map_get_row (CFClient__Map self, int y)
		133	{
		134	if (0 > y)
		135	{
		136	int extend = - y + MAP_EXTEND_Y;
		137	Prepend (maprow, self->row, self->rows, extend);
		138
		139	self->rows += extend;
		140	self->y += extend;
		141	y += extend;
		142	}
		143	else if (y >= self->rows)
		144	{
		145	int extend = y - self->rows + MAP_EXTEND_Y;
		146	Append (maprow, self->row, self->rows, extend);
		147	self->rows += extend;
		148	}
		149
		150	return self->row + y;
		151	}
		152
		153	static mapcell *
		154	row_get_cell (maprow *row, int x)
		155	{
		156	if (!row->col)
		157	{
		158	Newz (0, row->col, MAP_EXTEND_X, mapcell);
		159	row->c0 = x - MAP_EXTEND_X / 4;
		160	row->c1 = row->c0 + MAP_EXTEND_X;
		161	}
		162
		163	if (row->c0 > x)
		164	{
		165	int extend = row->c0 - x + MAP_EXTEND_X;
		166	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
		167	row->c0 -= extend;
		168	}
		169	else if (x >= row->c1)
		170	{
		171	int extend = x - row->c1 + MAP_EXTEND_X;
		172	Append (mapcell, row->col, row->c1 - row->c0, extend);
		173	row->c1 += extend;
		174	}
		175
		176	return row->col + (x - row->c0);
		177	}
		178
		179	static mapcell *
		180	map_get_cell (CFClient__Map self, int x, int y)
		181	{
		182	return row_get_cell (map_get_row (self, y), x);
		183	}
		184
		185	static void
		186	map_clear (CFClient__Map self)
		187	{
		188	int r;
		189
		190	for (r = 0; r < self->rows; r++)
		191	Safefree (self->row[r].col);
		192
		193	Safefree (self->row);
		194
		195	self->x = 0;
		196	self->y = 0;
		197	self->ox = 0;
		198	self->oy = 0;
		199	self->row = 0;
		200	self->rows = 0;
		201	}
		202
		203	static void
		204	map_blank (CFClient__Map self, int x0, int y0, int w, int h)
		205	{
		206	int x, y;
		207
		208	for (y = y0; y < y0 + h; y++)
		209	if (y >= 0)
		210	{
		211	if (y >= self->rows)
		212	break;
		213
		214	maprow *row = self->row + y;
		215
		216	for (x = x0; x < x0 + w; x++)
		217	if (x >= row->c0)
		218	{
		219	if (x >= row->c1)
		220	break;
		221
		222	row->col[x - row->c0].darkness = -1;
		223	}
		224	}
		225	}
		226
22	MODULE = Crossfire::Client PACKAGE = Crossfire::Client	227	MODULE = CFClient PACKAGE = CFClient
		228
		229	PROTOTYPES: ENABLE
23		230
24	BOOT:	231	BOOT:
25	{	232	{
26	fontmap = pango_ft2_font_map_new ();	233	fontmap = pango_ft2_font_map_new ();
		234	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
27	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	235	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
28	}	236	}
29		237
30	void	238	void
31	lowdelay (int fd, int val = 1)	239	lowdelay (int fd, int val = 1)
45	RETVAL = (char *)glGetString (GL_EXTENSIONS);	253	RETVAL = (char *)glGetString (GL_EXTENSIONS);
46	OUTPUT:	254	OUTPUT:
47	RETVAL	255	RETVAL
48		256
49	void	257	void
		258	add_font (char *file)
		259	CODE:
		260	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
		261
		262	void
50	set_font (char *file)	263	set_font (char *file)
51	CODE:	264	CODE:
52	{	265	{
53	int count;	266	int count;
54	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);	267	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
55	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
56	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);	268	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
57	FcPatternDestroy (pattern);	269	FcPatternDestroy (pattern);
58	pango_context_set_font_description (context, font);	270	pango_context_set_font_description (context, font);
59	}	271	}
60		272
61	void	273	void
62	font_render (SV *text_, int height = 10)	274	load_image_inline (SV *image_)
		275	ALIAS:
		276	load_image_file = 1
63	PPCODE:	277	PPCODE:
		278	{
		279	STRLEN image_len;
		280	char image = (char )SvPVbyte (image_, image_len);
		281	SDL_Surface surface, surface2;
		282	SDL_PixelFormat fmt;
		283	SDL_RWops *rw = ix
		284	? SDL_RWFromFile (image, "r")
		285	: SDL_RWFromConstMem (image, image_len);
		286
		287	if (!rw)
		288	croak ("load_image: %s", SDL_GetError ());
		289
		290	surface = IMG_Load_RW (rw, 1);
		291	if (!surface)
		292	croak ("load_image: %s", SDL_GetError ());
		293
		294	fmt.palette = NULL;
		295	fmt.BitsPerPixel = 32;
		296	fmt.BytesPerPixel = 4;
		297	fmt.Rmask = 0x000000ff;
		298	fmt.Gmask = 0x0000ff00;
		299	fmt.Bmask = 0x00ff0000;
		300	fmt.Amask = 0xff000000;
		301	fmt.Rloss = 0;
		302	fmt.Gloss = 0;
		303	fmt.Bloss = 0;
		304	fmt.Aloss = 0;
		305	fmt.Rshift = 0;
		306	fmt.Gshift = 8;
		307	fmt.Bshift = 16;
		308	fmt.Ashift = 24;
		309	fmt.colorkey = 0;
		310	fmt.alpha = 0;
		311
		312	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
		313
		314	assert (surface2->pitch == surface2->w * 4);
		315
		316	EXTEND (SP, 5);
		317	PUSHs (sv_2mortal (newSViv (surface2->w)));
		318	PUSHs (sv_2mortal (newSViv (surface2->h)));
		319	SDL_LockSurface (surface2);
		320	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
		321	SDL_UnlockSurface (surface2);
		322	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
		323	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
		324	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
		325
		326	SDL_FreeSurface (surface);
		327	SDL_FreeSurface (surface2);
		328	}
		329
		330	void
		331	average (int x, int y, uint32_t *data)
		332	PPCODE:
		333	{
		334	uint32_t r = 0, g = 0, b = 0, a = 0;
		335
		336	x = y = x * y;
		337
		338	while (x--)
		339	{
		340	uint32_t p = *data++;
		341
		342	r += (p ) & 255;
		343	g += (p >> 8) & 255;
		344	b += (p >> 16) & 255;
		345	a += (p >> 24) & 255;
		346	}
		347
		348	EXTEND (SP, 4);
		349	PUSHs (sv_2mortal (newSViv (r / y)));
		350	PUSHs (sv_2mortal (newSViv (g / y)));
		351	PUSHs (sv_2mortal (newSViv (b / y)));
		352	PUSHs (sv_2mortal (newSViv (a / y)));
		353	}
		354
		355	void
		356	fatal (char *message)
		357	CODE:
		358	#ifdef WIN32
		359	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
		360	#else
		361	fprintf (stderr, "FATAL: %s\n", message);
		362	#endif
		363	exit (1);
		364
		365	MODULE = CFClient PACKAGE = CFClient::Layout
		366
		367	CFClient::Layout
		368	new (SV *class, int base_height = 10)
		369	CODE:
		370	New (0, RETVAL, 1, struct cf_layout);
		371	RETVAL->base_height = base_height;
		372	RETVAL->pl = pango_layout_new (context);
		373	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
		374	OUTPUT:
		375	RETVAL
		376
		377	void
		378	DESTROY (CFClient::Layout self)
		379	CODE:
		380	g_object_unref (self->pl);
		381	Safefree (self);
		382
		383	void
		384	set_text (CFClient::Layout self, SV *text_)
		385	CODE:
64	{	386	{
65	STRLEN textlen;	387	STRLEN textlen;
66	char *text = SvPVutf8 (text_, textlen);	388	char *text = SvPVutf8 (text_, textlen);
		389
		390	pango_layout_set_text (self->pl, text, textlen);
		391	}
		392
		393	void
		394	set_markup (CFClient::Layout self, SV *text_)
		395	CODE:
		396	{
		397	STRLEN textlen;
		398	char *text = SvPVutf8 (text_, textlen);
		399
		400	pango_layout_set_markup (self->pl, text, textlen);
		401	}
		402
		403	SV *
		404	get_text (CFClient::Layout self)
		405	CODE:
		406	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
		407	SvUTF8_on (RETVAL);
		408	OUTPUT:
		409	RETVAL
		410
		411	void
		412	set_height (CFClient::Layout self, int base_height)
		413	CODE:
		414	self->base_height = base_height;
		415
		416	void
		417	set_width (CFClient::Layout self, int max_width = -1)
		418	CODE:
		419	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
		420
		421	void
		422	size (CFClient::Layout self)
		423	PPCODE:
		424	{
		425	int w, h;
		426
		427	layout_update (self);
		428	layout_get_pixel_size (self, &w, &h);
		429
		430	EXTEND (SP, 2);
		431	PUSHs (sv_2mortal (newSViv (w)));
		432	PUSHs (sv_2mortal (newSViv (h)));
		433	}
		434
		435	int
		436	xy_to_index (CFClient::Layout self, int x, int y)
		437	CODE:
		438	{
		439	int index, trailing;
		440
		441	layout_update (self);
		442	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
		443
		444	RETVAL = index;
		445	}
		446	OUTPUT:
		447	RETVAL
		448
		449	void
		450	cursor_pos (CFClient::Layout self, int index)
		451	PPCODE:
		452	{
		453	PangoRectangle strong_pos;
		454	layout_update (self);
		455	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		456
		457	EXTEND (SP, 3);
		458	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
		459	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
		460	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
		461	}
		462
		463	void
		464	render (CFClient::Layout self)
		465	PPCODE:
		466	{
67	SV *retval;	467	SV *retval;
68	int w, h;	468	int w, h;
69	FT_Bitmap bitmap;	469	FT_Bitmap bitmap;
70	PangoLayout *layout;
71	PangoFontDescription *font = pango_context_get_font_description (context);
72	pango_font_description_set_absolute_size (font, height * PANGO_SCALE);
73		470
74	layout = pango_layout_new (context);	471	layout_update (self);
75	pango_layout_set_markup (layout, text, textlen);
76	pango_layout_get_pixel_size (layout, &w, &h);	472	layout_get_pixel_size (self, &w, &h);
77
78	w = (w + 3) & ~3;
79	if (!w) w = 1;
80	if (!h) h = 1;
81		473
82	retval = newSV (w * h);	474	retval = newSV (w * h);
83	SvPOK_only (retval);	475	SvPOK_only (retval);
84	SvCUR_set (retval, w * h);	476	SvCUR_set (retval, w * h);
85		477
…		…
90	bitmap.num_grays = 256;	482	bitmap.num_grays = 256;
91	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;	483	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
92		484
93	memset (bitmap.buffer, 0, w * h);	485	memset (bitmap.buffer, 0, w * h);
94		486
95	pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE);	487	pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
96	g_object_unref (layout);
97		488
98	EXTEND (SP, 3);	489	EXTEND (SP, 3);
99	PUSHs (sv_2mortal (newSViv (w)));	490	PUSHs (sv_2mortal (newSViv (w)));
100	PUSHs (sv_2mortal (newSViv (h)));	491	PUSHs (sv_2mortal (newSViv (h)));
101	PUSHs (sv_2mortal (retval));	492	PUSHs (sv_2mortal (retval));
102	}	493	}
		494
		495	MODULE = CFClient PACKAGE = CFClient::Texture
		496
		497	void
		498	draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
		499	PROTOTYPE: $$$;$$
		500	CODE:
		501	{
		502	HV hv = (HV )SvRV (self);
		503	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
		504	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
		505	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
		506	int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
		507
		508	if (items < 5)
		509	{
		510	w = SvNV (*hv_fetch (hv, "w", 1, 1));
		511	h = SvNV (*hv_fetch (hv, "h", 1, 1));
		512	}
		513
		514	glBindTexture (GL_TEXTURE_2D, name);
		515	if (wrap_mode) {
		516	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
		517	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
		518	}
		519	glBegin (GL_QUADS);
		520	glTexCoord2f (0, 0); glVertex2f (x , y );
		521	glTexCoord2f (0, t); glVertex2f (x , y + h);
		522	glTexCoord2f (s, t); glVertex2f (x + w, y + h);
		523	glTexCoord2f (s, 0); glVertex2f (x + w, y );
		524	glEnd ();
		525	}
		526
		527	MODULE = CFClient PACKAGE = CFClient::Map
		528
		529	CFClient::Map
		530	new (SV *class, int map_width, int map_height)
		531	CODE:
		532	New (0, RETVAL, 1, struct map);
		533	RETVAL->x = 0;
		534	RETVAL->y = 0;
		535	RETVAL->w = map_width;
		536	RETVAL->h = map_height;
		537	RETVAL->ox = 0;
		538	RETVAL->oy = 0;
		539	RETVAL->faces = 8192;
		540	Newz (0, RETVAL->face, RETVAL->faces, mapface);
		541	RETVAL->texs = 8192;
		542	Newz (0, RETVAL->tex, RETVAL->texs, maptex);
		543	RETVAL->rows = 0;
		544	RETVAL->row = 0;
		545	OUTPUT:
		546	RETVAL
		547
		548	void
		549	DESTROY (CFClient::Map self)
		550	CODE:
		551	{
		552	map_clear (self);
		553	Safefree (self->face);
		554	Safefree (self);
		555	}
		556
		557	void
		558	clear (CFClient::Map self)
		559	CODE:
		560	map_clear (self);
		561
		562	void
		563	set_face (CFClient::Map self, int face, int texid)
		564	CODE:
		565	{
		566	while (self->faces <= face)
		567	{
		568	Append (mapface, self->face, self->faces, self->faces);
		569	self->faces *= 2;
		570	}
		571
		572	self->face [face] = texid;
		573	}
		574
		575	void
		576	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)
		577	CODE:
		578	{
		579	while (self->texs <= texid)
		580	{
		581	Append (maptex, self->tex, self->texs, self->texs);
		582	self->texs *= 2;
		583	}
		584
		585	maptex *tex = self->tex + texid;
		586
		587	tex->name = name;
		588	tex->w = w;
		589	tex->h = h;
		590	tex->s = s;
		591	tex->t = t;
		592	tex->r = r;
		593	tex->g = g;
		594	tex->b = b;
		595	tex->a = a;
		596	}
		597
		598	int
		599	ox (CFClient::Map self)
		600	ALIAS:
		601	oy = 1
		602	CODE:
		603	switch (ix)
		604	{
		605	case 0: RETVAL = self->ox; break;
		606	case 1: RETVAL = self->oy; break;
		607	}
		608	OUTPUT:
		609	RETVAL
		610
		611	void
		612	scroll (CFClient::Map self, int dx, int dy)
		613	CODE:
		614	{
		615	if (dx > 0)
		616	map_blank (self, self->x, self->y, dx - 1, self->h);
		617	else if (dx < 0)
		618	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
		619
		620	if (dy > 0)
		621	map_blank (self, self->x, self->y, self->w, dy - 1);
		622	else if (dy < 0)
		623	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
		624
		625	self->ox += dx; self->x += dx;
		626	self->oy += dy; self->y += dy;
		627
		628	while (self->y < 0)
		629	{
		630	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
		631
		632	self->rows += MAP_EXTEND_Y;
		633	self->y += MAP_EXTEND_Y;
		634	}
		635	}
		636
		637	void
		638	map1a_update (CFClient::Map self, SV *data_)
		639	CODE:
		640	{
		641	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
		642	uint8_t data_end = (uint8_t )SvEND (data_);
		643
		644	while (data < data_end)
		645	{
		646	int flags = (data [0] << 8) + data [1]; data += 2;
		647
		648	int x = ((flags >> 10) & 63) + self->x;
		649	int y = ((flags >> 4) & 63) + self->y;
		650
		651	mapcell *cell = map_get_cell (self, x, y);
		652
		653	if (flags & 15)
		654	{
		655	if (cell->darkness < 0)
		656	{
		657	cell->darkness = 0;
		658	cell->face [0] = 0;
		659	cell->face [1] = 0;
		660	cell->face [2] = 0;
		661	}
		662
		663	cell->darkness = flags & 8 ? *data++ : 255;
		664
		665	//TODO: don't trust server data to be in-range(!)
		666
		667	if (flags & 4)
		668	{
		669	cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2;
		670	}
		671
		672	if (flags & 2)
		673	{
		674	cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2;
		675	}
		676
		677	if (flags & 1)
		678	{
		679	cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
		680	}
		681	}
		682	else
		683	cell->darkness = -1;
		684	}
		685	}
		686
		687	SV *
		688	mapmap (CFClient::Map self, int w, int h)
		689	CODE:
		690	{
		691	int x0, x1, x;
		692	int y0, y1, y;
		693	int z;
		694	SV map_sv = newSV (w h * sizeof (uint32_t));
		695	uint32_t map = (uint32_t )SvPVX (map_sv);
		696
		697	SvPOK_only (map_sv);
		698	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
		699
		700	x0 = self->x - w / 2; x1 = x0 + w;
		701	y0 = self->y - h / 2; y1 = y0 + h;
		702
		703	for (y = y0; y < y1; y++)
		704	{
		705	maprow *row = 0 <= y && y < self->rows
		706	? self->row + y
		707	: 0;
		708
		709	for (x = x0; x < x1; x++)
		710	{
		711	int r = 32, g = 32, b = 32, a = 192;
		712
		713	if (row && row->c0 <= x && x < row->c1)
		714	{
		715	mapcell *cell = row->col + (x - row->c0);
		716
		717	for (z = 0; z <= 0; z++)
		718	{
		719	mapface face = cell->face [z];
		720
		721	if (face)
		722	{
		723	maptex tex = self->tex [face];
		724	int a0 = 255 - tex.a;
		725	int a1 = tex.a;
		726
		727	r = (r * a0 + tex.r * a1) / 255;
		728	g = (g * a0 + tex.g * a1) / 255;
		729	b = (b * a0 + tex.b * a1) / 255;
		730	a = (a * a0 + tex.a * a1) / 255;
		731	}
		732	}
		733	}
		734
		735	*map++ = (r )
		736	\| (g << 8)
		737	\| (b << 16)
		738	\| (a << 24);
		739	}
		740	}
		741
		742	RETVAL = map_sv;
		743	}
		744	OUTPUT:
		745	RETVAL
		746
		747	void
		748	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
		749	PPCODE:
		750	{
		751	int sw4 = (sw + 3) & ~3;
		752	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
		753	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		754	memset (darkness, 255, sw4 * sh);
		755	SvPOK_only (darkness_sv);
		756	SvCUR_set (darkness_sv, sw4 * sh);
		757
		758	int vx = self->x + (self->w - sw) / 2 - shift_x;
		759	int vy = self->y + (self->h - sh) / 2 - shift_y;
		760
		761	/*
		762	int vx = self->vx = self->w >= sw
		763	? self->x + (self->w - sw) / 2
		764	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
		765
		766	int vy = self->vy = self->h >= sh
		767	? self->y + (self->h - sh) / 2
		768	: MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
		769	*/
		770
		771	glColor4ub (255, 255, 255, 255);
		772
		773	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
		774	glEnable (GL_BLEND);
		775	glEnable (GL_TEXTURE_2D);
		776	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		777
		778	int x, y, z;
		779
		780	int last_name = 0;
		781
		782	glBegin (GL_QUADS);
		783
		784	for (z = 0; z < 3; z++)
		785	for (y = 0; y < sh; y++)
		786	if (0 <= y + vy && y + vy < self->rows)
		787	{
		788	maprow *row = self->row + (y + vy);
		789
		790	for (x = 0; x < sw; x++)
		791	if (row->c0 <= x + vx && x + vx < row->c1)
		792	{
		793	mapcell *cell = row->col + (x + vx - row->c0);
		794
		795	darkness[y * sw4 + x] = cell->darkness < 0
		796	? 255 - FOW_DARKNESS
		797	: 255 - cell->darkness;
		798
		799	mapface face = cell->face [z];
		800
		801	if (face)
		802	{
		803	maptex tex = self->tex [face];
		804
		805	int px = (x + 1) * 32 - tex.w;
		806	int py = (y + 1) * 32 - tex.h;
		807
		808	if (last_name != tex.name)
		809	{
		810	glEnd ();
		811	last_name = tex.name;
		812	glBindTexture (GL_TEXTURE_2D, last_name);
		813	glBegin (GL_QUADS);
		814	}
		815
		816	glTexCoord2f (0 , 0 ); glVertex2f (px , py );
		817	glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
		818	glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
		819	glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
		820	}
		821	}
		822	}
		823
		824	glEnd ();
		825
		826	glDisable (GL_TEXTURE_2D);
		827	glDisable (GL_BLEND);
		828
		829	EXTEND (SP, 3);
		830	PUSHs (sv_2mortal (newSViv (sw4)));
		831	PUSHs (sv_2mortal (newSViv (sh)));
		832	PUSHs (darkness_sv);
		833	}
		834
		835	SV *
		836	get_rect (CFClient::Map self, int x0, int y0, int w, int h)
		837	CODE:
		838	{
		839	int x, y, x1, y1;
		840	SV data_sv = newSV (w h * 7 + 5);
		841	uint8_t data = (uint8_t )SvPVX (data_sv);
		842
		843	data++ = 0; / version 0 format */
		844	data++ = w >> 8; data++ = w;
		845	data++ = h >> 8; data++ = h;
		846
		847	// we need to do this 'cause we don't keep an absolute coord system for rows
		848	// TODO: treat rows as we treat
		849	map_get_row (self, y0 + self->y - self->oy);//D
		850	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
		851
		852	x0 += self->x - self->ox;
		853	y0 += self->y - self->oy;
		854
		855	x1 = x0 + w;
		856	y1 = y0 + h;
		857
		858	for (y = y0; y < y1; y++)
		859	{
		860	maprow *row = 0 <= y && y < self->rows
		861	? self->row + y
		862	: 0;
		863
		864	for (x = x0; x < x1; x++)
		865	{
		866	if (row && row->c0 <= x && x < row->c1)
		867	{
		868	mapcell *cell = row->col + (x - row->c0);
		869
		870	uint8_t flags = 0;
		871
		872	if (cell->face [0]) flags \|= 1;
		873	if (cell->face [1]) flags \|= 2;
		874	if (cell->face [2]) flags \|= 4;
		875
		876	*data++ = flags;
		877
		878	if (flags & 1)
		879	{
		880	*data++ = cell->face [0] >> 8;
		881	*data++ = cell->face [0];
		882	}
		883
		884	if (flags & 2)
		885	{
		886	*data++ = cell->face [1] >> 8;
		887	*data++ = cell->face [1];
		888	}
		889
		890	if (flags & 4)
		891	{
		892	*data++ = cell->face [2] >> 8;
		893	*data++ = cell->face [2];
		894	}
		895	}
		896	else
		897	*data++ = 0;
		898	}
		899	}
		900
		901	SvPOK_only (data_sv);
		902	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
		903	RETVAL = data_sv;
		904	}
		905	OUTPUT:
		906	RETVAL
		907
		908	void
		909	set_rect (CFClient::Map self, int x0, int y0, uint8_t *data)
		910	PPCODE:
		911	{
		912	int x, y, z;
		913	int x1, y1;
		914
		915	if (*data++ != 0)
		916	return; /* version mismatch */
		917
		918	int w = data++ << 8; w \|= data++;
		919	int h = data++ << 8; h \|= data++;
		920
		921	// we need to do this 'cause we don't keep an absolute coord system for rows
		922	// TODO: treat rows as we treat
		923	map_get_row (self, y0 + self->y - self->oy);//D
		924	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
		925
		926	x0 += self->x - self->ox;
		927	y0 += self->y - self->oy;
		928
		929	x1 = x0 + w;
		930	y1 = y0 + h;
		931
		932	for (y = y0; y < y1; y++)
		933	{
		934	maprow *row = map_get_row (self, y);
		935
		936	for (x = x0; x < x1; x++)
		937	{
		938	uint8_t flags = *data++;
		939
		940	if (flags)
		941	{
		942	mapface face[3] = { 0, 0, 0 };
		943
		944	mapcell *cell = row_get_cell (row, x);
		945
		946	if (flags & 1) { face[0] = data++ << 8; face[0] \|= data++; }
		947	if (flags & 2) { face[1] = data++ << 8; face[1] \|= data++; }
		948	if (flags & 4) { face[2] = data++ << 8; face[2] \|= data++; }
		949
		950	if (cell->darkness <= 0)
		951	{
		952	cell->darkness = -1;
		953
		954	for (z = 0; z <= 2; z++)
		955	{
		956	cell->face[z] = face[z];
		957
		958	if (face[z] && (face[z] >= self->texs \|\| !self->tex[face [z]].name))
		959	XPUSHs (sv_2mortal (newSViv (face[z])));
		960	}
		961	}
		962	}
		963	}
		964	}
		965	}
		966

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.10 by root, Sun Apr 9 17:34:15 2006 UTC vs. Revision 1.47 by root, Mon Apr 17 21:52:42 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.10 by root, Sun Apr 9 17:34:15 2006 UTC vs.
Revision 1.47 by root, Mon Apr 17 21:52:42 2006 UTC