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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.6 by root, Sun Apr 9 00:06:51 2006 UTC vs.
Revision 1.17 by root, Tue Apr 11 17:02:35 2006 UTC

…		…
6		6
7	#include <SDL.h>	7	#include <SDL.h>
8	#include <SDL_opengl.h>	8	#include <SDL_opengl.h>
9		9
10	#include <pango/pango.h>	10	#include <pango/pango.h>
		11	#include <pango/pangofc-fontmap.h>
11	#include <pango/pangoft2.h>	12	#include <pango/pangoft2.h>
		13
		14	#include <sys/types.h>
		15	#include <sys/socket.h>
		16	#include <netinet/in.h>
		17	#include <netinet/tcp.h>
12		18
13	static PangoContext *context;	19	static PangoContext *context;
14	static PangoFontMap *fontmap;	20	static PangoFontMap *fontmap;
15		21
		22	typedef struct cf_layout {
		23	PangoLayout *pl;
		24	int base_height;
		25	} *CFClient__Layout;
		26
		27	static void
		28	layout_update (CFClient__Layout self)
		29	{
		30	PangoFontDescription *font = pango_context_get_font_description (context);
		31	pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);
		32	}
		33
		34	static void
		35	layout_get_pixel_size (CFClient__Layout self, int w, int h)
		36	{
		37	PangoFontDescription *font = pango_context_get_font_description (context);
		38	pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);
		39
		40	pango_layout_get_pixel_size (self->pl, w, h);
		41
		42	w = (w + 3) & ~3;
		43	if (!w) w = 1;
		44	if (!h) h = 1;
		45	}
		46
16	MODULE = Crossfire::Client PACKAGE = Crossfire::Client	47	MODULE = CFClient PACKAGE = CFClient
		48
		49	PROTOTYPES: ENABLE
17		50
18	BOOT:	51	BOOT:
19	{	52	{
20	fontmap = pango_ft2_font_map_new ();	53	fontmap = pango_ft2_font_map_new ();
21	context = pango_context_new ();	54	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
22	pango_context_set_font_map (context, fontmap);
23	}	55	}
		56
		57	void
		58	lowdelay (int fd, int val = 1)
		59	CODE:
		60	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
24		61
25	char *	62	char *
26	gl_version ()	63	gl_version ()
27	CODE:	64	CODE:
28	RETVAL = (char *)glGetString (GL_VERSION);	65	RETVAL = (char *)glGetString (GL_VERSION);
…		…
35	RETVAL = (char *)glGetString (GL_EXTENSIONS);	72	RETVAL = (char *)glGetString (GL_EXTENSIONS);
36	OUTPUT:	73	OUTPUT:
37	RETVAL	74	RETVAL
38		75
39	void	76	void
40	font_render (SV *text_, int height)	77	add_font (char *file)
41	PPCODE:	78	CODE:
		79	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
		80
		81	void
		82	set_font (char *file)
		83	CODE:
		84	{
		85	int count;
		86	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
		87	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
		88	FcPatternDestroy (pattern);
		89	pango_context_set_font_description (context, font);
		90	}
		91
		92	MODULE = CFClient PACKAGE = CFClient::Layout
		93
		94	CFClient::Layout
		95	new (SV *class, int base_height = 10)
		96	CODE:
		97	New (0, RETVAL, 1, struct cf_layout);
		98	RETVAL->base_height = base_height;
		99	RETVAL->pl = pango_layout_new (context);
		100	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
		101	OUTPUT:
		102	RETVAL
		103
		104	void
		105	DESTROY (CFClient::Layout self)
		106	CODE:
		107	g_object_unref (self->pl);
		108	Safefree (self);
		109
		110	void
		111	set_markup (CFClient::Layout self, SV *text_)
		112	CODE:
42	{	113	{
43	STRLEN textlen;	114	STRLEN textlen;
44	char *text = SvPVutf8 (text_, textlen);	115	char *text = SvPVutf8 (text_, textlen);
		116
		117	pango_layout_set_markup (self->pl, text, textlen);
		118	}
		119
		120	void
		121	set_height (CFClient::Layout self, int base_height)
		122	CODE:
		123	self->base_height = base_height;
		124
		125	void
		126	set_width (CFClient::Layout self, int max_width = -1)
		127	CODE:
		128	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
		129
		130	void
		131	size (CFClient::Layout self)
		132	PPCODE:
		133	{
		134	int w, h;
		135
		136	layout_update (self);
		137	layout_get_pixel_size (self, &w, &h);
		138
		139	EXTEND (SP, 2);
		140	PUSHs (sv_2mortal (newSViv (w)));
		141	PUSHs (sv_2mortal (newSViv (h)));
		142	}
		143
		144	int
		145	xy_to_index (CFClient::Layout self, int x, int y)
		146	CODE:
		147	{
		148	int index, trailing;
		149
		150	layout_update (self);
		151	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
		152
		153	RETVAL = index;
		154	}
		155	OUTPUT:
		156	RETVAL
		157
		158	void
		159	cursor_pos (CFClient::Layout self, int index)
		160	PPCODE:
		161	{
		162	PangoRectangle strong_pos;
		163	layout_update (self);
		164	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		165	EXTEND (SP, 3);
		166	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
		167	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
		168	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
		169	}
		170
		171	void
		172	render (CFClient::Layout self)
		173	PPCODE:
		174	{
45	SV *retval;	175	SV *retval;
46	int w, h;	176	int w, h;
47	FT_Bitmap bitmap;	177	FT_Bitmap bitmap;
48	PangoLayout *layout;
49	PangoFontDescription *font = pango_context_get_font_description (context);
50	pango_font_description_set_absolute_size (font, 40 * PANGO_SCALE);
51		178
52	layout = pango_layout_new (context);	179	layout_update (self);
53	pango_layout_set_markup (layout, text, textlen);
54	pango_layout_get_pixel_size (layout, &w, &h);	180	layout_get_pixel_size (self, &w, &h);
55
56	w = (w + 3) & ~3;
57	if (!w) w = 1;
58	if (!h) h = 1;
59		181
60	retval = newSV (w * h);	182	retval = newSV (w * h);
61	SvPOK_only (retval);	183	SvPOK_only (retval);
62	SvCUR_set (retval, w * h);	184	SvCUR_set (retval, w * h);
63		185
…		…
68	bitmap.num_grays = 256;	190	bitmap.num_grays = 256;
69	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;	191	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
70		192
71	memset (bitmap.buffer, 0, w * h);	193	memset (bitmap.buffer, 0, w * h);
72		194
73	pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE);	195	pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
74	g_object_unref (layout);
75		196
76	EXTEND (SP, 3);	197	EXTEND (SP, 3);
77	PUSHs (sv_2mortal (newSViv (w)));	198	PUSHs (sv_2mortal (newSViv (w)));
78	PUSHs (sv_2mortal (newSViv (h)));	199	PUSHs (sv_2mortal (newSViv (h)));
79	PUSHs (sv_2mortal (retval));	200	PUSHs (sv_2mortal (retval));
80	}	201	}
		202
		203	MODULE = CFClient PACKAGE = CFClient::Texture
		204
		205	void
		206	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
		207	PROTOTYPE: $$$;$$
		208	CODE:
		209	{
		210	HV hv = (HV )SvRV (self);
		211	double s = SvNV (*hv_fetch (hv, "s", 1, 1));
		212	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
		213	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
		214
		215	if (items < 5)
		216	{
		217	w = SvNV (*hv_fetch (hv, "width", 5, 1));
		218	h = SvNV (*hv_fetch (hv, "height", 6, 1));
		219	}
		220
		221	glBindTexture (GL_TEXTURE_2D, name);
		222	glBegin (GL_QUADS);
		223	glTexCoord2d (0, 0); glVertex2d (x , y );
		224	glTexCoord2d (0, t); glVertex2d (x , y + h);
		225	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
		226	glTexCoord2d (s, 0); glVertex2d (x + w, y );
		227	glEnd ();
		228	}

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.6 by root, Sun Apr 9 00:06:51 2006 UTC vs. Revision 1.17 by root, Tue Apr 11 17:02:35 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.6 by root, Sun Apr 9 00:06:51 2006 UTC vs.
Revision 1.17 by root, Tue Apr 11 17:02:35 2006 UTC