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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.14 by root, Tue Apr 11 13:05:11 2006 UTC vs.
Revision 1.29 by root, Thu Apr 13 01:55:38 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>
9		11
10	#include <pango/pango.h>	12	#include <pango/pango.h>
11	#include <pango/pangofc-fontmap.h>	13	#include <pango/pangofc-fontmap.h>
12	#include <pango/pangoft2.h>	14	#include <pango/pangoft2.h>
14	#include <sys/types.h>	16	#include <sys/types.h>
15	#include <sys/socket.h>	17	#include <sys/socket.h>
16	#include <netinet/in.h>	18	#include <netinet/in.h>
17	#include <netinet/tcp.h>	19	#include <netinet/tcp.h>
18		20
		21	#include <inttypes.h>
		22
		23	#define FOW_DARKNESS 32
		24
		25	#define MAP_EXTEND_X 32
		26	#define MAP_EXTEND_Y 512
		27
19	static PangoContext *context;	28	static PangoContext *context;
20	static PangoFontMap *fontmap;	29	static PangoFontMap *fontmap;
21		30
22	typedef struct cf_layout {	31	typedef struct cf_layout {
23	PangoLayout *pl;	32	PangoLayout *pl;
24	int base_height;	33	int base_height;
25	} *Crossfire__Client__Layout;	34	} *CFClient__Layout;
26		35
27	static void	36	static void
		37	substitute_func (FcPattern *pattern, gpointer data)
		38	{
		39	FcPatternAddBool (pattern, FC_HINTING , 1);
		40	FcPatternAddBool (pattern, FC_AUTOHINT, 1);
		41	}
		42
		43	static void
		44	layout_update (CFClient__Layout self)
		45	{
		46	/* use a random scale factor to account for unknown descenders, 0.8 works
		47	* reasonably well with bitstream vera
		48	*/
		49	PangoFontDescription *font = pango_context_get_font_description (context);
		50	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
		51	}
		52
		53	static void
28	layout_get_pixel_size (Crossfire__Client__Layout self, int w, int h)	54	layout_get_pixel_size (CFClient__Layout self, int w, int h)
29	{	55	{
		56	layout_update (self);
		57
30	pango_layout_get_pixel_size (self->pl, w, h);	58	pango_layout_get_pixel_size (self->pl, w, h);
31		59
32	w = (w + 3) & ~3;	60	w = (w + 3) & ~3;
33	if (!w) w = 1;	61	if (!w) w = 1;
34	if (!h) h = 1;	62	if (!h) h = 1;
35	}	63	}
36		64
		65	typedef struct {
		66	int16_t darkness;
		67	uint16_t face[3];
		68	} mapcell;
		69
		70	typedef struct {
		71	uint32_t c0, c1;
		72	mapcell *col;
		73	} maprow;
		74
		75	typedef struct map {
		76	int x, y, w, h;
		77	int faces;
		78	GLint *face;
		79
		80	uint32_t rows;
		81	maprow *row;
		82	} *CFClient__Map;
		83
		84	static void
		85	map_blank (CFClient__Map self, int x0, int y0, int w, int h)
		86	{
		87	int x, y;
		88
		89	for (y = y0; y < y0 + h; y++)
		90	{
		91	if (y >= self->rows)
		92	break;
		93
		94	maprow *row = self->row + y;
		95
		96	for (x = x0; x < x0 + w; x++)
		97	if (x >= row->c0)
		98	{
		99	if (x >= row->c1)
		100	break;
		101
		102	row->col[x].darkness = -1;
		103	}
		104	}
		105	}
		106
37	MODULE = Crossfire::Client PACKAGE = Crossfire::Client	107	MODULE = CFClient PACKAGE = CFClient
38		108
39	PROTOTYPES: ENABLE	109	PROTOTYPES: ENABLE
40		110
41	BOOT:	111	BOOT:
42	{	112	{
43	fontmap = pango_ft2_font_map_new ();	113	fontmap = pango_ft2_font_map_new ();
		114	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
44	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	115	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
45	}	116	}
46		117
47	void	118	void
48	lowdelay (int fd, int val = 1)	119	lowdelay (int fd, int val = 1)
…		…
77	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);	148	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
78	FcPatternDestroy (pattern);	149	FcPatternDestroy (pattern);
79	pango_context_set_font_description (context, font);	150	pango_context_set_font_description (context, font);
80	}	151	}
81		152
		153	void
		154	load_image_inline (SV *image_)
		155	ALIAS:
		156	load_image_file = 1
		157	PPCODE:
		158	{
		159	STRLEN image_len;
		160	char image = (char )SvPVbyte (image_, image_len);
		161	SDL_Surface surface, surface2;
		162	SDL_PixelFormat fmt;
		163	SDL_RWops *rw = ix
		164	? SDL_RWFromFile (image, "r")
		165	: SDL_RWFromConstMem (image, image_len);
		166
		167	if (!rw)
		168	croak ("load_image: unable to open file");
		169
		170	surface = IMG_Load_RW (rw, 1);
		171	if (!surface)
		172	croak ("load_image: unable to read file");
		173
		174	fmt.palette = NULL;
		175	fmt.BitsPerPixel = 32;
		176	fmt.BytesPerPixel = 4;
		177	fmt.Rmask = 0x000000ff;
		178	fmt.Gmask = 0x0000ff00;
		179	fmt.Bmask = 0x00ff0000;
		180	fmt.Amask = 0xff000000;
		181	fmt.Rloss = 0;
		182	fmt.Gloss = 0;
		183	fmt.Bloss = 0;
		184	fmt.Aloss = 0;
		185	fmt.Rshift = 0;
		186	fmt.Gshift = 8;
		187	fmt.Bshift = 16;
		188	fmt.Ashift = 24;
		189	fmt.colorkey = 0;
		190	fmt.alpha = 0;
		191
		192	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
		193
		194	EXTEND (SP, 5);
		195	PUSHs (sv_2mortal (newSViv (surface2->w)));
		196	PUSHs (sv_2mortal (newSViv (surface2->h)));
		197	SDL_LockSurface (surface2);
		198	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
		199	SDL_UnlockSurface (surface2);
		200	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
		201	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
		202	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
		203
		204	SDL_FreeSurface (surface);
		205	SDL_FreeSurface (surface2);
		206	}
		207
		208	void
		209	fatal (char *message)
		210	CODE:
		211	#ifdef WIN32
		212	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
		213	#else
		214	fprintf (stderr, "%s\n", message);
		215	#endif
		216	exit (1);
		217
82	MODULE = Crossfire::Client PACKAGE = Crossfire::Client::Layout	218	MODULE = CFClient PACKAGE = CFClient::Layout
83		219
84	Crossfire::Client::Layout	220	CFClient::Layout
85	new (SV *class, int base_height = 10)	221	new (SV *class, int base_height = 10)
86	CODE:	222	CODE:
87	New (0, RETVAL, 1, struct cf_layout);	223	New (0, RETVAL, 1, struct cf_layout);
88	RETVAL->base_height = base_height;	224	RETVAL->base_height = base_height;
89	RETVAL->pl = pango_layout_new (context);	225	RETVAL->pl = pango_layout_new (context);
90	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);	226	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
91	OUTPUT:	227	OUTPUT:
92	RETVAL	228	RETVAL
93		229
94	void	230	void
95	DESTROY (Crossfire::Client::Layout self)	231	DESTROY (CFClient::Layout self)
96	CODE:	232	CODE:
97	g_object_unref (self->pl);	233	g_object_unref (self->pl);
98	Safefree (self);	234	Safefree (self);
99		235
100	void	236	void
101	set_markup (Crossfire::Client::Layout self, SV *text_)	237	set_markup (CFClient::Layout self, SV *text_)
102	CODE:	238	CODE:
103	{	239	{
104	STRLEN textlen;	240	STRLEN textlen;
105	char *text = SvPVutf8 (text_, textlen);	241	char *text = SvPVutf8 (text_, textlen);
106		242
107	pango_layout_set_markup (self->pl, text, textlen);	243	pango_layout_set_markup (self->pl, text, textlen);
108	}	244	}
109		245
110	void	246	void
		247	set_height (CFClient::Layout self, int base_height)
		248	CODE:
		249	self->base_height = base_height;
		250
		251	void
111	set_width (Crossfire::Client::Layout self, int max_width = -1)	252	set_width (CFClient::Layout self, int max_width = -1)
112	CODE:	253	CODE:
113	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);	254	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
114		255
115	void	256	void
116	size (Crossfire::Client::Layout self)	257	size (CFClient::Layout self)
117	PPCODE:	258	PPCODE:
118	{	259	{
119	int w, h;	260	int w, h;
120		261
121	PangoFontDescription *font = pango_context_get_font_description (context);	262	layout_update (self);
122	pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);
123
124	layout_get_pixel_size (self, &w, &h);	263	layout_get_pixel_size (self, &w, &h);
125		264
126	EXTEND (SP, 2);	265	EXTEND (SP, 2);
127	PUSHs (sv_2mortal (newSViv (w)));	266	PUSHs (sv_2mortal (newSViv (w)));
128	PUSHs (sv_2mortal (newSViv (h)));	267	PUSHs (sv_2mortal (newSViv (h)));
129	}	268	}
130		269
		270	int
		271	xy_to_index (CFClient::Layout self, int x, int y)
		272	CODE:
		273	{
		274	int index, trailing;
		275
		276	layout_update (self);
		277	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
		278
		279	RETVAL = index;
		280	}
		281	OUTPUT:
		282	RETVAL
		283
131	void	284	void
		285	cursor_pos (CFClient::Layout self, int index)
		286	PPCODE:
		287	{
		288	PangoRectangle strong_pos;
		289	layout_update (self);
		290	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		291	EXTEND (SP, 3);
		292	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
		293	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
		294	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
		295	}
		296
		297	void
132	render (Crossfire::Client::Layout self)	298	render (CFClient::Layout self)
133	PPCODE:	299	PPCODE:
134	{	300	{
135	SV *retval;	301	SV *retval;
136	int w, h;	302	int w, h;
137	FT_Bitmap bitmap;	303	FT_Bitmap bitmap;
138		304
		305	layout_update (self);
139	layout_get_pixel_size (self, &w, &h);	306	layout_get_pixel_size (self, &w, &h);
140		307
141	retval = newSV (w * h);	308	retval = newSV (w * h);
142	SvPOK_only (retval);	309	SvPOK_only (retval);
143	SvCUR_set (retval, w * h);	310	SvCUR_set (retval, w * h);
…		…
157	PUSHs (sv_2mortal (newSViv (w)));	324	PUSHs (sv_2mortal (newSViv (w)));
158	PUSHs (sv_2mortal (newSViv (h)));	325	PUSHs (sv_2mortal (newSViv (h)));
159	PUSHs (sv_2mortal (retval));	326	PUSHs (sv_2mortal (retval));
160	}	327	}
161		328
162	MODULE = Crossfire::Client PACKAGE = Crossfire::Client::Texture	329	MODULE = CFClient PACKAGE = CFClient::Texture
163		330
164	void	331	void
165	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)	332	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
166	PROTOTYPE: $$$;$$	333	PROTOTYPE: $$$;$$
167	CODE:	334	CODE:
…		…
171	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	338	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
172	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	339	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
173		340
174	if (items < 5)	341	if (items < 5)
175	{	342	{
176	w = SvNV (*hv_fetch (hv, "width", 5, 1));	343	w = SvNV (*hv_fetch (hv, "w", 1, 1));
177	h = SvNV (*hv_fetch (hv, "height", 6, 1));	344	h = SvNV (*hv_fetch (hv, "h", 1, 1));
178	}	345	}
179		346
180	glBindTexture (GL_TEXTURE_2D, name);	347	glBindTexture (GL_TEXTURE_2D, name);
181	glBegin (GL_QUADS);	348	glBegin (GL_QUADS);
182	glTexCoord2d (0, 0); glVertex2d (x , y );	349	glTexCoord2d (0, 0); glVertex2d (x , y );
183	glTexCoord2d (0, t); glVertex2d (x , y + h);	350	glTexCoord2d (0, t); glVertex2d (x , y + h);
184	glTexCoord2d (s, t); glVertex2d (x + w, y + h);	351	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
185	glTexCoord2d (s, 0); glVertex2d (x + w, y );	352	glTexCoord2d (s, 0); glVertex2d (x + w, y );
186	glEnd ();	353	glEnd ();
187	}	354	}
		355
		356	MODULE = CFClient PACKAGE = CFClient::Map
		357
		358	CFClient::Map
		359	new (SV *class, int map_width, int map_height)
		360	CODE:
		361	New (0, RETVAL, 1, struct map);
		362	RETVAL->x = 0;
		363	RETVAL->y = 0;
		364	RETVAL->w = map_width;
		365	RETVAL->h = map_height;
		366	RETVAL->faces = 1;
		367	Newz (0, RETVAL->face, 1, GLint);
		368	RETVAL->rows = 0;
		369	RETVAL->row = 0;
		370	printf ("new map %d,%d\n", map_width, map_height);//D
		371	OUTPUT:
		372	RETVAL
		373
		374	void
		375	DESTROY (CFClient::Map self)
		376	CODE:
		377	{
		378	int r, c;
		379
		380	printf ("detroy map\n");//D
		381	Safefree (self->face);
		382
		383	for (r = 0; r < self->rows; r++)
		384	Safefree (self->row[r].col);
		385
		386	Safefree (self->row);
		387	Safefree (self);
		388	}
		389
		390	void
		391	set_face (CFClient::Map self, int facenum, int face)
		392	CODE:
		393	{
		394	while (self->faces < facenum)
		395	{
		396	printf ("setface %d (%d) = %d\n",facenum, self->faces, face);//D
		397	Renew (self->face, self->faces * 2, GLint);
		398	Zero (self->face + self->faces, self->faces, GLint);
		399	self->faces *= 2;
		400	}
		401
		402	self->face [facenum] = face;
		403	}
		404
		405	void
		406	scroll (CFClient::Map self, int dx, int dy)
		407	CODE:
		408	{
		409	printf ("map_scroll %d,%d\n", dx, dy);//D
		410	if (dx > 0)
		411	map_blank (self, self->x, self->y, dx - 1, self->h);
		412	else if (dx < 0)
		413	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
		414
		415	if (dy > 0)
		416	map_blank (self, self->x, self->y, self->w, dy - 1);
		417	else if (dy < 0)
		418	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
		419
		420	self->x += dx;
		421	self->y += dy;
		422
		423	while (self->y < 0)
		424	{
		425	maprow *row;
		426
		427	New (0, row, self->rows + MAP_EXTEND_Y, maprow);
		428	Move (self->row, row + MAP_EXTEND_Y, self->rows, maprow);
		429	Zero (row, MAP_EXTEND_Y, maprow);
		430
		431	self->rows += MAP_EXTEND_Y;
		432	self->y += MAP_EXTEND_Y;
		433	self->row = row;
		434	}
		435
		436	if (self->x < 0)
		437	{
		438	int y;
		439	for (y = 0; y < self->rows; y++)
		440	{
		441	self->row[y].c0 += self->x;
		442	self->row[y].c1 += self->x;
		443	}
		444
		445	self->x = 0;
		446	}
		447	}
		448
		449	void
		450	map1a_update (CFClient::Map self, SV *data_)
		451	CODE:
		452	{
		453	uint8_t data = (uint8_t )SvPVbytes_nolen (data_);
		454	uint8_t data_end = (uint8_t )SvEND (data_) + 1;
		455
		456	while (data < data_end)
		457	{
		458	int flags = (data [0] << 8) + data [1]; data += 2;
		459	int x = ((flags >> 10) & 63) + self->x;
		460	int y = ((flags >> 4) & 63) + self->y;
		461
		462	while (y >= self->rows)
		463	{
		464	Renew (self->row, self->rows + MAP_EXTEND_Y, maprow);
		465	Zero (self->row + self->rows, MAP_EXTEND_Y, maprow);
		466
		467	self->rows += MAP_EXTEND_Y;
		468	}
		469
		470	assert (y < self->rows);//D
		471
		472	maprow *row = self->row + y;
		473
		474	if (!row->col)
		475	{
		476	Newz (0, row->col, MAP_EXTEND_X, mapcell);
		477	row->c0 = self->x - MAP_EXTEND_X / 4;
		478	row->c1 = row->c0 + MAP_EXTEND_X;
		479	}
		480
		481	if (row->c0 > x)
		482	{
		483	int extend = row->c0 - x + MAP_EXTEND_X;
		484	mapcell *col;
		485
		486	New (0, col, row->c1 - row->c0 + extend, mapcell);
		487	Move (row->col, col + extend, row->c1 - row->c0, mapcell);
		488	Zero (col, extend, mapcell);
		489
		490	row->col = col;
		491	row->c0 -= extend;
		492	}
		493	else if (x >= row->c1)
		494	{
		495	int extend = x - row->c1 + MAP_EXTEND_X;
		496
		497	Renew (row->col, row->c1 - row->c0 + extend, mapcell);
		498	Zero (row->col + row->c1 - row->c0, extend, mapcell);
		499
		500	row->c1 += extend;
		501	}
		502
		503	assert (x >= row->c0);//D
		504	assert (x < row->c1);//D
		505	mapcell *cell = row->col + (x - row->c0);
		506
		507	if (flags & 15)
		508	{
		509	if (cell->darkness < 0)
		510	{
		511	cell->darkness = 0;
		512	cell->face [0] = 0;
		513	cell->face [1] = 0;
		514	cell->face [2] = 0;
		515	}
		516
		517	cell->darkness = flags & 8 ? *data++ : 255;
		518
		519	if (flags & 4)
		520	{
		521	cell->face [0] = (data [0] << 8) + data [1]; data += 2;
		522	}
		523
		524	if (flags & 2)
		525	{
		526	cell->face [1] = (data [0] << 8) + data [1]; data += 2;
		527	}
		528
		529	if (flags & 1)
		530	{
		531	cell->face [2] = (data [0] << 8) + data [1]; data += 2;
		532	}
		533	}
		534	else
		535	cell->darkness = -1;
		536	}
		537	}
		538

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.14 by root, Tue Apr 11 13:05:11 2006 UTC vs. Revision 1.29 by root, Thu Apr 13 01:55:38 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.14 by root, Tue Apr 11 13:05:11 2006 UTC vs.
Revision 1.29 by root, Thu Apr 13 01:55:38 2006 UTC