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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.9 by root, Sun Apr 9 01:35:40 2006 UTC vs.
Revision 1.28 by root, Thu Apr 13 00:25:28 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>
		13	#include <pango/pangofc-fontmap.h>
11	#include <pango/pangoft2.h>	14	#include <pango/pangoft2.h>
		15
		16	#include <sys/types.h>
		17	#include <sys/socket.h>
		18	#include <netinet/in.h>
		19	#include <netinet/tcp.h>
		20
		21	#include <inttypes.h>
12		22
13	static PangoContext *context;	23	static PangoContext *context;
14	static PangoFontMap *fontmap;	24	static PangoFontMap *fontmap;
15		25
		26	typedef struct cf_layout {
		27	PangoLayout *pl;
		28	int base_height;
		29	} *CFClient__Layout;
		30
		31	static void
		32	substitute_func (FcPattern *pattern, gpointer data)
		33	{
		34	FcPatternAddBool (pattern, FC_HINTING , 1);
		35	FcPatternAddBool (pattern, FC_AUTOHINT, 1);
		36	}
		37
		38	static void
		39	layout_update (CFClient__Layout self)
		40	{
		41	/* use a random scale factor to account for unknown descenders, 0.8 works
		42	* reasonably well with bitstream vera
		43	*/
		44	PangoFontDescription *font = pango_context_get_font_description (context);
		45	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
		46	}
		47
		48	static void
		49	layout_get_pixel_size (CFClient__Layout self, int w, int h)
		50	{
		51	layout_update (self);
		52
		53	pango_layout_get_pixel_size (self->pl, w, h);
		54
		55	w = (w + 3) & ~3;
		56	if (!w) w = 1;
		57	if (!h) h = 1;
		58	}
		59
		60	typedef struct {
		61	uint16_t face[3];
		62	uint8_t darkness;
		63	uint8_t padding;
		64	} mapcell;
		65
		66	typedef struct {
		67	uint32_t cols;
		68	mapcell *col;
		69	} maprow;
		70
		71	typedef struct map {
		72	int x, y, w, h;
		73	int faces;
		74	GLint *face;
		75
		76	uint32_t rows;
		77	maprow *row;
		78	} *CFClient__Map;
		79
16	MODULE = Crossfire::Client PACKAGE = Crossfire::Client	80	MODULE = CFClient PACKAGE = CFClient
		81
		82	PROTOTYPES: ENABLE
17		83
18	BOOT:	84	BOOT:
19	{	85	{
20	fontmap = pango_ft2_font_map_new ();	86	fontmap = pango_ft2_font_map_new ();
		87	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
21	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	88	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
22	}	89	}
		90
		91	void
		92	lowdelay (int fd, int val = 1)
		93	CODE:
		94	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
23		95
24	char *	96	char *
25	gl_version ()	97	gl_version ()
26	CODE:	98	CODE:
27	RETVAL = (char *)glGetString (GL_VERSION);	99	RETVAL = (char *)glGetString (GL_VERSION);
34	RETVAL = (char *)glGetString (GL_EXTENSIONS);	106	RETVAL = (char *)glGetString (GL_EXTENSIONS);
35	OUTPUT:	107	OUTPUT:
36	RETVAL	108	RETVAL
37		109
38	void	110	void
		111	add_font (char *file)
		112	CODE:
		113	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
		114
		115	void
39	set_font (char *file)	116	set_font (char *file)
40	CODE:	117	CODE:
41	{	118	{
42	int count;	119	int count;
43	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);	120	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
44	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
45	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern);	121	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
46	FcPatternDestroy (pattern);	122	FcPatternDestroy (pattern);
47	pango_context_set_font_description (context, font);	123	pango_context_set_font_description (context, font);
48	}	124	}
49		125
50	void	126	void
51	font_render (SV *text_, int height = 10)	127	load_image_inline (SV *image_)
		128	ALIAS:
		129	load_image_file = 1
52	PPCODE:	130	PPCODE:
		131	{
		132	STRLEN image_len;
		133	char image = (char )SvPVbyte (image_, image_len);
		134	SDL_Surface surface, surface2;
		135	SDL_PixelFormat fmt;
		136	SDL_RWops *rw = ix
		137	? SDL_RWFromFile (image, "r")
		138	: SDL_RWFromConstMem (image, image_len);
		139
		140	if (!rw)
		141	croak ("load_image: unable to open file");
		142
		143	surface = IMG_Load_RW (rw, 1);
		144	if (!surface)
		145	croak ("load_image: unable to read file");
		146
		147	fmt.palette = NULL;
		148	fmt.BitsPerPixel = 32;
		149	fmt.BytesPerPixel = 4;
		150	fmt.Rmask = 0x000000ff;
		151	fmt.Gmask = 0x0000ff00;
		152	fmt.Bmask = 0x00ff0000;
		153	fmt.Amask = 0xff000000;
		154	fmt.Rloss = 0;
		155	fmt.Gloss = 0;
		156	fmt.Bloss = 0;
		157	fmt.Aloss = 0;
		158	fmt.Rshift = 0;
		159	fmt.Gshift = 8;
		160	fmt.Bshift = 16;
		161	fmt.Ashift = 24;
		162	fmt.colorkey = 0;
		163	fmt.alpha = 0;
		164
		165	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
		166
		167	EXTEND (SP, 5);
		168	PUSHs (sv_2mortal (newSViv (surface2->w)));
		169	PUSHs (sv_2mortal (newSViv (surface2->h)));
		170	SDL_LockSurface (surface2);
		171	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
		172	SDL_UnlockSurface (surface2);
		173	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
		174	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
		175	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
		176
		177	SDL_FreeSurface (surface);
		178	SDL_FreeSurface (surface2);
		179	}
		180
		181	void
		182	fatal (char *message)
		183	CODE:
		184	#ifdef WIN32
		185	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
		186	#else
		187	fprintf (stderr, "%s\n", message);
		188	#endif
		189	exit (1);
		190
		191	MODULE = CFClient PACKAGE = CFClient::Layout
		192
		193	CFClient::Layout
		194	new (SV *class, int base_height = 10)
		195	CODE:
		196	New (0, RETVAL, 1, struct cf_layout);
		197	RETVAL->base_height = base_height;
		198	RETVAL->pl = pango_layout_new (context);
		199	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
		200	OUTPUT:
		201	RETVAL
		202
		203	void
		204	DESTROY (CFClient::Layout self)
		205	CODE:
		206	g_object_unref (self->pl);
		207	Safefree (self);
		208
		209	void
		210	set_markup (CFClient::Layout self, SV *text_)
		211	CODE:
53	{	212	{
54	STRLEN textlen;	213	STRLEN textlen;
55	char *text = SvPVutf8 (text_, textlen);	214	char *text = SvPVutf8 (text_, textlen);
		215
		216	pango_layout_set_markup (self->pl, text, textlen);
		217	}
		218
		219	void
		220	set_height (CFClient::Layout self, int base_height)
		221	CODE:
		222	self->base_height = base_height;
		223
		224	void
		225	set_width (CFClient::Layout self, int max_width = -1)
		226	CODE:
		227	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
		228
		229	void
		230	size (CFClient::Layout self)
		231	PPCODE:
		232	{
		233	int w, h;
		234
		235	layout_update (self);
		236	layout_get_pixel_size (self, &w, &h);
		237
		238	EXTEND (SP, 2);
		239	PUSHs (sv_2mortal (newSViv (w)));
		240	PUSHs (sv_2mortal (newSViv (h)));
		241	}
		242
		243	int
		244	xy_to_index (CFClient::Layout self, int x, int y)
		245	CODE:
		246	{
		247	int index, trailing;
		248
		249	layout_update (self);
		250	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
		251
		252	RETVAL = index;
		253	}
		254	OUTPUT:
		255	RETVAL
		256
		257	void
		258	cursor_pos (CFClient::Layout self, int index)
		259	PPCODE:
		260	{
		261	PangoRectangle strong_pos;
		262	layout_update (self);
		263	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		264	EXTEND (SP, 3);
		265	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
		266	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
		267	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
		268	}
		269
		270	void
		271	render (CFClient::Layout self)
		272	PPCODE:
		273	{
56	SV *retval;	274	SV *retval;
57	int w, h;	275	int w, h;
58	FT_Bitmap bitmap;	276	FT_Bitmap bitmap;
59	PangoLayout *layout;
60	PangoFontDescription *font = pango_context_get_font_description (context);
61	pango_font_description_set_absolute_size (font, height * PANGO_SCALE);
62		277
63	layout = pango_layout_new (context);	278	layout_update (self);
64	pango_layout_set_markup (layout, text, textlen);
65	pango_layout_get_pixel_size (layout, &w, &h);	279	layout_get_pixel_size (self, &w, &h);
66
67	w = (w + 3) & ~3;
68	if (!w) w = 1;
69	if (!h) h = 1;
70		280
71	retval = newSV (w * h);	281	retval = newSV (w * h);
72	SvPOK_only (retval);	282	SvPOK_only (retval);
73	SvCUR_set (retval, w * h);	283	SvCUR_set (retval, w * h);
74		284
…		…
79	bitmap.num_grays = 256;	289	bitmap.num_grays = 256;
80	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;	290	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
81		291
82	memset (bitmap.buffer, 0, w * h);	292	memset (bitmap.buffer, 0, w * h);
83		293
84	pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE);	294	pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
85	g_object_unref (layout);
86		295
87	EXTEND (SP, 3);	296	EXTEND (SP, 3);
88	PUSHs (sv_2mortal (newSViv (w)));	297	PUSHs (sv_2mortal (newSViv (w)));
89	PUSHs (sv_2mortal (newSViv (h)));	298	PUSHs (sv_2mortal (newSViv (h)));
90	PUSHs (sv_2mortal (retval));	299	PUSHs (sv_2mortal (retval));
91	}	300	}
		301
		302	MODULE = CFClient PACKAGE = CFClient::Texture
		303
		304	void
		305	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
		306	PROTOTYPE: $$$;$$
		307	CODE:
		308	{
		309	HV hv = (HV )SvRV (self);
		310	double s = SvNV (*hv_fetch (hv, "s", 1, 1));
		311	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
		312	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
		313
		314	if (items < 5)
		315	{
		316	w = SvNV (*hv_fetch (hv, "w", 1, 1));
		317	h = SvNV (*hv_fetch (hv, "h", 1, 1));
		318	}
		319
		320	glBindTexture (GL_TEXTURE_2D, name);
		321	glBegin (GL_QUADS);
		322	glTexCoord2d (0, 0); glVertex2d (x , y );
		323	glTexCoord2d (0, t); glVertex2d (x , y + h);
		324	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
		325	glTexCoord2d (s, 0); glVertex2d (x + w, y );
		326	glEnd ();
		327	}
		328
		329	MODULE = CFClient PACKAGE = CFClient::Map
		330
		331	CFClient::Map
		332	new (SV *class, int map_width, int map_height)
		333	CODE:
		334	New (0, RETVAL, 1, struct map);
		335	RETVAL->x = 0;
		336	RETVAL->y = 0;
		337	RETVAL->w = map_width;
		338	RETVAL->h = map_height;
		339	RETVAL->faces = 0;
		340	RETVAL->face = 0;
		341
		342	RETVAL->rows = 0;
		343	RETVAL->row = 0;
		344	OUTPUT:
		345	RETVAL
		346
		347	void
		348	DESTROY (CFClient::Map self)
		349	CODE:
		350	{
		351	int r, c;
		352
		353	Safefree (self->face);
		354	for (r = 0; r < self->rows; r++)
		355	{
		356	maprow *row = self->row + r;
		357	if (!row)
		358	continue;
		359
		360	Safefree (row->col);
		361	}
		362
		363	Safefree (self->row);
		364	Safefree (self);
		365	}
		366

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.9 by root, Sun Apr 9 01:35:40 2006 UTC vs. Revision 1.28 by root, Thu Apr 13 00:25:28 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.9 by root, Sun Apr 9 01:35:40 2006 UTC vs.
Revision 1.28 by root, Thu Apr 13 00:25:28 2006 UTC