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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.25 by root, Wed Apr 12 21:20:42 2006 UTC vs.
Revision 1.40 by root, Sat Apr 15 01:13:46 2006 UTC

…		…
6	#include <stdio.h>	6	#include <stdio.h>
7		7
8	#include <SDL.h>	8	#include <SDL.h>
9	#include <SDL_image.h>	9	#include <SDL_image.h>
10	#include <SDL_opengl.h>	10	#include <SDL_opengl.h>
		11
		12	#include <glib/gmacros.h>
11		13
12	#include <pango/pango.h>	14	#include <pango/pango.h>
13	#include <pango/pangofc-fontmap.h>	15	#include <pango/pangofc-fontmap.h>
14	#include <pango/pangoft2.h>	16	#include <pango/pangoft2.h>
15		17
16	#include <sys/types.h>	18	#include <sys/types.h>
17	#include <sys/socket.h>	19	#include <sys/socket.h>
18	#include <netinet/in.h>	20	#include <netinet/in.h>
19	#include <netinet/tcp.h>	21	#include <netinet/tcp.h>
20		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
21	static PangoContext *context;	30	static PangoContext *context;
22	static PangoFontMap *fontmap;	31	static PangoFontMap *fontmap;
23		32
24	typedef struct cf_layout {	33	typedef struct cf_layout {
25	PangoLayout *pl;	34	PangoLayout *pl;
…		…
28		37
29	static void	38	static void
30	substitute_func (FcPattern *pattern, gpointer data)	39	substitute_func (FcPattern *pattern, gpointer data)
31	{	40	{
32	FcPatternAddBool (pattern, FC_HINTING , 1);	41	FcPatternAddBool (pattern, FC_HINTING , 1);
33	FcPatternAddBool (pattern, FC_AUTOHINT, 1);	42	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
34	}	43	}
35		44
36	static void	45	static void
37	layout_update (CFClient__Layout self)	46	layout_update (CFClient__Layout self)
38	{	47	{
…		…
51	pango_layout_get_pixel_size (self->pl, w, h);	60	pango_layout_get_pixel_size (self->pl, w, h);
52		61
53	w = (w + 3) & ~3;	62	w = (w + 3) & ~3;
54	if (!w) w = 1;	63	if (!w) w = 1;
55	if (!h) h = 1;	64	if (!h) h = 1;
		65	}
		66
		67	typedef struct {
		68	GLint name;
		69	int w, h;
		70	float s, t;
		71	uint8_t r, g, b, a;
		72	} mapface;
		73
		74	typedef struct {
		75	int16_t darkness;
		76	uint16_t face[3];
		77	} mapcell;
		78
		79	typedef struct {
		80	int32_t c0, c1;
		81	mapcell *col;
		82	} maprow;
		83
		84	typedef struct map {
		85	int x, y, w, h;
		86	int vx, vy;
		87	int faces;
		88	mapface *face;
		89
		90	uint32_t rows;
		91	maprow *row;
		92	} *CFClient__Map;
		93
		94	static char *
		95	prepend (char *ptr, int sze, int inc)
		96	{
		97	char *p;
		98
		99	New (0, p, sze + inc, char);
		100	Zero (p, inc, char);
		101	Move (ptr, p + inc, sze, char);
		102	Safefree (ptr);
		103
		104	return p;
		105	}
		106
		107	static char *
		108	append (char *ptr, int sze, int inc)
		109	{
		110	Renew (ptr, sze + inc, char);
		111	Zero (ptr + sze, inc, char);
		112
		113	return ptr;
		114	}
		115
		116	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
		117	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
		118
		119	static void
		120	map_clear (CFClient__Map self)
		121	{
		122	int r;
		123
		124	for (r = 0; r < self->rows; r++)
		125	Safefree (self->row[r].col);
		126
		127	Safefree (self->row);
		128
		129	self->x = 0;
		130	self->y = 0;
		131	self->vx = 0;
		132	self->vy = 0;
		133	self->row = 0;
		134	self->rows = 0;
		135	}
		136
		137	static void
		138	map_blank (CFClient__Map self, int x0, int y0, int w, int h)
		139	{
		140	int x, y;
		141
		142	for (y = y0; y < y0 + h; y++)
		143	if (y >= 0)
		144	{
		145	if (y >= self->rows)
		146	break;
		147
		148	maprow *row = self->row + y;
		149
		150	for (x = x0; x < x0 + w; x++)
		151	if (x >= row->c0)
		152	{
		153	if (x >= row->c1)
		154	break;
		155
		156	row->col[x - row->c0].darkness = -1;
		157	}
		158	}
56	}	159	}
57		160
58	MODULE = CFClient PACKAGE = CFClient	161	MODULE = CFClient PACKAGE = CFClient
59		162
60	PROTOTYPES: ENABLE	163	PROTOTYPES: ENABLE
…		…
140	fmt.colorkey = 0;	243	fmt.colorkey = 0;
141	fmt.alpha = 0;	244	fmt.alpha = 0;
142		245
143	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);	246	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
144		247
		248	assert (surface2->pitch == surface2->w * 4);
		249
145	EXTEND (SP, 5);	250	EXTEND (SP, 5);
146	PUSHs (sv_2mortal (newSViv (surface2->w)));	251	PUSHs (sv_2mortal (newSViv (surface2->w)));
147	PUSHs (sv_2mortal (newSViv (surface2->h)));	252	PUSHs (sv_2mortal (newSViv (surface2->h)));
148	SDL_LockSurface (surface2);	253	SDL_LockSurface (surface2);
149	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	254	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
…		…
155	SDL_FreeSurface (surface);	260	SDL_FreeSurface (surface);
156	SDL_FreeSurface (surface2);	261	SDL_FreeSurface (surface2);
157	}	262	}
158		263
159	void	264	void
		265	average (int x, int y, uint32_t *data)
		266	PPCODE:
		267	{
		268	uint32_t r = 0, g = 0, b = 0, a = 0;
		269
		270	x = y = x * y;
		271
		272	while (x--)
		273	{
		274	uint32_t p = *data++;
		275
		276	r += (p ) & 255;
		277	g += (p >> 8) & 255;
		278	b += (p >> 16) & 255;
		279	a += (p >> 24) & 255;
		280	}
		281
		282	EXTEND (SP, 4);
		283	PUSHs (sv_2mortal (newSViv (r / y)));
		284	PUSHs (sv_2mortal (newSViv (g / y)));
		285	PUSHs (sv_2mortal (newSViv (b / y)));
		286	PUSHs (sv_2mortal (newSViv (a / y)));
		287	}
		288
		289	void
160	fatal (char *message)	290	fatal (char *message)
161	CODE:	291	CODE:
162	#ifdef WIN32	292	#ifdef WIN32
163	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);	293	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
164	#else	294	#else
165	fprintf (stderr, "%s\n", message);	295	fprintf (stderr, "FATAL: %s\n", message);
166	#endif	296	#endif
167	exit (1);	297	exit (1);
168		298
169	MODULE = CFClient PACKAGE = CFClient::Layout	299	MODULE = CFClient PACKAGE = CFClient::Layout
170		300
…		…
183	CODE:	313	CODE:
184	g_object_unref (self->pl);	314	g_object_unref (self->pl);
185	Safefree (self);	315	Safefree (self);
186		316
187	void	317	void
		318	set_text (CFClient::Layout self, SV *text_)
		319	CODE:
		320	{
		321	STRLEN textlen;
		322	char *text = SvPVutf8 (text_, textlen);
		323
		324	pango_layout_set_text (self->pl, text, textlen);
		325	}
		326
		327	void
188	set_markup (CFClient::Layout self, SV *text_)	328	set_markup (CFClient::Layout self, SV *text_)
189	CODE:	329	CODE:
190	{	330	{
191	STRLEN textlen;	331	STRLEN textlen;
192	char *text = SvPVutf8 (text_, textlen);	332	char *text = SvPVutf8 (text_, textlen);
…		…
237	PPCODE:	377	PPCODE:
238	{	378	{
239	PangoRectangle strong_pos;	379	PangoRectangle strong_pos;
240	layout_update (self);	380	layout_update (self);
241	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);	381	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		382
242	EXTEND (SP, 3);	383	EXTEND (SP, 3);
243	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));	384	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
244	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));	385	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
245	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));	386	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
246	}	387	}
…		…
278	}	419	}
279		420
280	MODULE = CFClient PACKAGE = CFClient::Texture	421	MODULE = CFClient PACKAGE = CFClient::Texture
281		422
282	void	423	void
283	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)	424	draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
284	PROTOTYPE: $$$;$$	425	PROTOTYPE: $$$;$$
285	CODE:	426	CODE:
286	{	427	{
287	HV hv = (HV )SvRV (self);	428	HV hv = (HV )SvRV (self);
288	double s = SvNV (*hv_fetch (hv, "s", 1, 1));	429	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
289	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	430	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
290	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	431	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
		432	int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
291		433
292	if (items < 5)	434	if (items < 5)
293	{	435	{
294	w = SvNV (*hv_fetch (hv, "w", 1, 1));	436	w = SvNV (*hv_fetch (hv, "w", 1, 1));
295	h = SvNV (*hv_fetch (hv, "h", 1, 1));	437	h = SvNV (*hv_fetch (hv, "h", 1, 1));
296	}	438	}
297		439
298	glBindTexture (GL_TEXTURE_2D, name);	440	glBindTexture (GL_TEXTURE_2D, name);
		441	if (wrap_mode) {
		442	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
		443	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
		444	}
299	glBegin (GL_QUADS);	445	glBegin (GL_QUADS);
300	glTexCoord2d (0, 0); glVertex2d (x , y );	446	glTexCoord2f (0, 0); glVertex2f (x , y );
301	glTexCoord2d (0, t); glVertex2d (x , y + h);	447	glTexCoord2f (0, t); glVertex2f (x , y + h);
302	glTexCoord2d (s, t); glVertex2d (x + w, y + h);	448	glTexCoord2f (s, t); glVertex2f (x + w, y + h);
303	glTexCoord2d (s, 0); glVertex2d (x + w, y );	449	glTexCoord2f (s, 0); glVertex2f (x + w, y );
304	glEnd ();	450	glEnd ();
305	}	451	}
		452
		453	MODULE = CFClient PACKAGE = CFClient::Map
		454
		455	CFClient::Map
		456	new (SV *class, int map_width, int map_height)
		457	CODE:
		458	New (0, RETVAL, 1, struct map);
		459	RETVAL->x = 0;
		460	RETVAL->y = 0;
		461	RETVAL->w = map_width;
		462	RETVAL->h = map_height;
		463	RETVAL->vx = 0;
		464	RETVAL->vy = 0;
		465	RETVAL->faces = 8192;
		466	Newz (0, RETVAL->face, RETVAL->faces, mapface);
		467	RETVAL->rows = 0;
		468	RETVAL->row = 0;
		469	OUTPUT:
		470	RETVAL
		471
		472	void
		473	DESTROY (CFClient::Map self)
		474	CODE:
		475	{
		476	map_clear (self);
		477	Safefree (self->face);
		478	Safefree (self);
		479	}
		480
		481	void
		482	clear (CFClient::Map self)
		483	CODE:
		484	map_clear (self);
		485
		486	void
		487	set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t, int r, int g, int b, int a)
		488	CODE:
		489	{
		490	while (self->faces < face)
		491	{
		492	Append (mapface, self->face, self->faces, self->faces);
		493	self->faces *= 2;
		494	}
		495
		496	mapface *f = self->face + face;
		497
		498	f->name = name;
		499	f->w = w;
		500	f->h = h;
		501	f->s = s;
		502	f->t = t;
		503	f->r = r;
		504	f->g = g;
		505	f->b = b;
		506	f->a = a;
		507	}
		508
		509	void
		510	scroll (CFClient::Map self, int dx, int dy)
		511	CODE:
		512	{
		513	if (dx > 0)
		514	map_blank (self, self->x, self->y, dx - 1, self->h);
		515	else if (dx < 0)
		516	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
		517
		518	if (dy > 0)
		519	map_blank (self, self->x, self->y, self->w, dy - 1);
		520	else if (dy < 0)
		521	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
		522
		523	self->x += dx;
		524	self->y += dy;
		525
		526	while (self->y < 0)
		527	{
		528	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
		529
		530	self->rows += MAP_EXTEND_Y;
		531	self->y += MAP_EXTEND_Y;
		532	}
		533	}
		534
		535	void
		536	map1a_update (CFClient::Map self, SV *data_)
		537	CODE:
		538	{
		539	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
		540	uint8_t data_end = (uint8_t )SvEND (data_);
		541
		542	while (data < data_end)
		543	{
		544	int flags = (data [0] << 8) + data [1]; data += 2;
		545
		546	int x = ((flags >> 10) & 63) + self->x;
		547	int y = ((flags >> 4) & 63) + self->y;
		548
		549	while (y >= self->rows)
		550	{
		551	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
		552
		553	self->rows += MAP_EXTEND_Y;
		554	}
		555
		556	maprow *row = self->row + y;
		557
		558	if (!row->col)
		559	{
		560	Newz (0, row->col, MAP_EXTEND_X, mapcell);
		561	row->c0 = self->x - MAP_EXTEND_X / 4;
		562	row->c1 = row->c0 + MAP_EXTEND_X;
		563	}
		564
		565	if (row->c0 > x)
		566	{
		567	int extend = row->c0 - x + MAP_EXTEND_X;
		568	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
		569	row->c0 -= extend;
		570	}
		571	else if (x >= row->c1)
		572	{
		573	int extend = x - row->c1 + MAP_EXTEND_X;
		574	Append (mapcell, row->col, row->c1 - row->c0, extend);
		575	row->c1 += extend;
		576	}
		577
		578	assert (y >= 0);
		579	assert (y < self->rows);
		580	assert (x >= row->c0);
		581	assert (x < row->c1);
		582	mapcell *cell = row->col + (x - row->c0);
		583
		584	if (flags & 15)
		585	{
		586	if (cell->darkness < 0 && x < self->w && y < self->h)
		587	{
		588	cell->darkness = 0;
		589	cell->face [0] = 0;
		590	cell->face [1] = 0;
		591	cell->face [2] = 0;
		592	}
		593
		594	cell->darkness = flags & 8 ? *data++ : 255;
		595
		596	if (flags & 4)
		597	{
		598	cell->face [0] = (data [0] << 8) + data [1]; data += 2;
		599	}
		600
		601	if (flags & 2)
		602	{
		603	cell->face [1] = (data [0] << 8) + data [1]; data += 2;
		604	}
		605
		606	if (flags & 1)
		607	{
		608	cell->face [2] = (data [0] << 8) + data [1]; data += 2;
		609	}
		610	}
		611	else
		612	cell->darkness = -1;
		613	}
		614	}
		615
		616	SV *
		617	mapmap (CFClient::Map self, int w, int h)
		618	CODE:
		619	{
		620	int x0, x1, x;
		621	int y0, y1, y;
		622	int z;
		623	SV map_sv = newSV (w h * sizeof (uint32_t));
		624	uint32_t map = (uint32_t )SvPVX (map_sv);
		625
		626	SvPOK_only (map_sv);
		627	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
		628
		629	x0 = self->x - w / 2; x1 = x0 + w;
		630	y0 = self->y - h / 2; y1 = y0 + h;
		631
		632	for (y = y0; y < y1; y++)
		633	{
		634	maprow *row = 0 <= y && y < self->rows
		635	? self->row + y
		636	: 0;
		637
		638	for (x = x0; x < x1; x++)
		639	{
		640	int r = 32, g = 32, b = 32, a = 192;
		641
		642	if (row && row->c0 <= x && x < row->c1)
		643	{
		644	mapcell *cell = row->col + (x - row->c0);
		645
		646	for (z = 0; z <= 0; z++)
		647	{
		648	uint16_t face = cell->face [z];
		649
		650	if (face)
		651	{
		652	mapface tex = self->face [face];
		653	int a0 = 255 - tex.a;
		654	int a1 = tex.a;
		655
		656	r = (r * a0 + tex.r * a1) / 255;
		657	g = (g * a0 + tex.g * a1) / 255;
		658	b = (b * a0 + tex.b * a1) / 255;
		659	a = (a * a0 + tex.a * a1) / 255;
		660	}
		661	}
		662	}
		663
		664	*map++ = (r )
		665	\| (g << 8)
		666	\| (b << 16)
		667	\| (a << 24);
		668	}
		669	}
		670
		671	RETVAL = map_sv;
		672	}
		673	OUTPUT:
		674	RETVAL
		675
		676	void
		677	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
		678	PPCODE:
		679	{
		680	int sw4 = (sw + 3) & ~3;
		681	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
		682	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		683
		684	SvPOK_only (darkness_sv);
		685	SvCUR_set (darkness_sv, sw4 * sh);
		686
		687	int vx = self->x + (self->w - sw) / 2 - shift_x;
		688	int vy = self->y + (self->h - sh) / 2 - shift_y;
		689
		690	if (0)
		691	{
		692	int vx = self->vx = self->w >= sw
		693	? self->x + (self->w - sw) / 2
		694	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
		695
		696	int vy = self->vy = self->h >= sh
		697	? self->y + (self->h - sh) / 2
		698	: MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
		699	}
		700
		701	glColor4ub (255, 255, 255, 255);
		702
		703	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
		704	glEnable (GL_BLEND);
		705	glEnable (GL_TEXTURE_2D);
		706	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
		707
		708	int x, y, z;
		709
		710	int last_name = 0;
		711
		712	glBegin (GL_QUADS);
		713
		714	for (z = 0; z < 3; z++)
		715	for (y = 0; y < sh; y++)
		716	if (0 <= y + vy && y + vy < self->rows)
		717	{
		718	maprow *row = self->row + (y + vy);
		719
		720	for (x = 0; x < sw; x++)
		721	if (row->c0 <= x + vx && x + vx < row->c1)
		722	{
		723	mapcell *cell = row->col + (x + vx - row->c0);
		724
		725	darkness[y * sw4 + x] = cell->darkness < 0
		726	? 255 - FOW_DARKNESS
		727	: 255 - cell->darkness;
		728
		729	uint16_t face = cell->face [z];
		730
		731	if (face)
		732	{
		733	mapface tex = self->face [face];
		734
		735	int px = (x + 1) * 32 - tex.w;
		736	int py = (y + 1) * 32 - tex.h;
		737
		738	if (last_name != tex.name)
		739	{
		740	glEnd ();
		741	last_name = tex.name;
		742	glBindTexture (GL_TEXTURE_2D, last_name);
		743	glBegin (GL_QUADS);
		744	}
		745
		746	glTexCoord2f (0 , 0 ); glVertex2f (px , py );
		747	glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
		748	glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
		749	glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
		750	}
		751	}
		752	}
		753
		754	glEnd ();
		755
		756	glDisable (GL_TEXTURE_2D);
		757	glDisable (GL_BLEND);
		758
		759	EXTEND (SP, 3);
		760	PUSHs (sv_2mortal (newSViv (sw4)));
		761	PUSHs (sv_2mortal (newSViv (sh)));
		762	PUSHs (darkness_sv);
		763	}
		764

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.25 by root, Wed Apr 12 21:20:42 2006 UTC vs. Revision 1.40 by root, Sat Apr 15 01:13:46 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.25 by root, Wed Apr 12 21:20:42 2006 UTC vs.
Revision 1.40 by root, Sat Apr 15 01:13:46 2006 UTC