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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.15 by root, Tue Apr 11 13:14:36 2006 UTC vs.
Revision 1.26 by root, Wed Apr 12 23:15: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>
23	PangoLayout *pl;	25	PangoLayout *pl;
24	int base_height;	26	int base_height;
25	} *CFClient__Layout;	27	} *CFClient__Layout;
26		28
27	static void	29	static void
		30	substitute_func (FcPattern *pattern, gpointer data)
		31	{
		32	FcPatternAddBool (pattern, FC_HINTING , 1);
		33	FcPatternAddBool (pattern, FC_AUTOHINT, 1);
		34	}
		35
		36	static void
		37	layout_update (CFClient__Layout self)
		38	{
		39	/* use a random scale factor to account for unknown descenders, 0.8 works
		40	* reasonably well with bitstream vera
		41	*/
		42	PangoFontDescription *font = pango_context_get_font_description (context);
		43	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
		44	}
		45
		46	static void
28	layout_get_pixel_size (CFClient__Layout self, int w, int h)	47	layout_get_pixel_size (CFClient__Layout self, int w, int h)
29	{	48	{
		49	layout_update (self);
		50
30	pango_layout_get_pixel_size (self->pl, w, h);	51	pango_layout_get_pixel_size (self->pl, w, h);
31		52
32	w = (w + 3) & ~3;	53	w = (w + 3) & ~3;
33	if (!w) w = 1;	54	if (!w) w = 1;
34	if (!h) h = 1;	55	if (!h) h = 1;
…		…
39	PROTOTYPES: ENABLE	60	PROTOTYPES: ENABLE
40		61
41	BOOT:	62	BOOT:
42	{	63	{
43	fontmap = pango_ft2_font_map_new ();	64	fontmap = pango_ft2_font_map_new ();
		65	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
44	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	66	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
45	}	67	}
46		68
47	void	69	void
48	lowdelay (int fd, int val = 1)	70	lowdelay (int fd, int val = 1)
…		…
60	gl_extensions ()	82	gl_extensions ()
61	CODE:	83	CODE:
62	RETVAL = (char *)glGetString (GL_EXTENSIONS);	84	RETVAL = (char *)glGetString (GL_EXTENSIONS);
63	OUTPUT:	85	OUTPUT:
64	RETVAL	86	RETVAL
		87
		88	void
		89	glConvolutionParameteri (U32 target, U32 name, I32 value)
		90
		91	void
		92	glConvolutionFilter2D (U32 target, U32 internalformat, I32 width, I32 height, U32 format, U32 type, char *image)
65		93
66	void	94	void
67	add_font (char *file)	95	add_font (char *file)
68	CODE:	96	CODE:
69	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */	97	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
…		…
76	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);	104	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
77	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);	105	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
78	FcPatternDestroy (pattern);	106	FcPatternDestroy (pattern);
79	pango_context_set_font_description (context, font);	107	pango_context_set_font_description (context, font);
80	}	108	}
		109
		110	void
		111	load_image_inline (SV *image_)
		112	ALIAS:
		113	load_image_file = 1
		114	PPCODE:
		115	{
		116	STRLEN image_len;
		117	char image = (char )SvPVbyte (image_, image_len);
		118	SDL_Surface surface, surface2;
		119	SDL_PixelFormat fmt;
		120	SDL_RWops *rw = ix
		121	? SDL_RWFromFile (image, "r")
		122	: SDL_RWFromConstMem (image, image_len);
		123
		124	if (!rw)
		125	croak ("load_image: unable to open file");
		126
		127	surface = IMG_Load_RW (rw, 1);
		128	if (!surface)
		129	croak ("load_image: unable to read file");
		130
		131	fmt.palette = NULL;
		132	fmt.BitsPerPixel = 32;
		133	fmt.BytesPerPixel = 4;
		134	fmt.Rmask = 0x000000ff;
		135	fmt.Gmask = 0x0000ff00;
		136	fmt.Bmask = 0x00ff0000;
		137	fmt.Amask = 0xff000000;
		138	fmt.Rloss = 0;
		139	fmt.Gloss = 0;
		140	fmt.Bloss = 0;
		141	fmt.Aloss = 0;
		142	fmt.Rshift = 0;
		143	fmt.Gshift = 8;
		144	fmt.Bshift = 16;
		145	fmt.Ashift = 24;
		146	fmt.colorkey = 0;
		147	fmt.alpha = 0;
		148
		149	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
		150
		151	EXTEND (SP, 5);
		152	PUSHs (sv_2mortal (newSViv (surface2->w)));
		153	PUSHs (sv_2mortal (newSViv (surface2->h)));
		154	SDL_LockSurface (surface2);
		155	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
		156	SDL_UnlockSurface (surface2);
		157	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
		158	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
		159	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
		160
		161	SDL_FreeSurface (surface);
		162	SDL_FreeSurface (surface2);
		163	}
		164
		165	void
		166	fatal (char *message)
		167	CODE:
		168	#ifdef WIN32
		169	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
		170	#else
		171	fprintf (stderr, "%s\n", message);
		172	#endif
		173	exit (1);
81		174
82	MODULE = CFClient PACKAGE = CFClient::Layout	175	MODULE = CFClient PACKAGE = CFClient::Layout
83		176
84	CFClient::Layout	177	CFClient::Layout
85	new (SV *class, int base_height = 10)	178	new (SV *class, int base_height = 10)
…		…
106		199
107	pango_layout_set_markup (self->pl, text, textlen);	200	pango_layout_set_markup (self->pl, text, textlen);
108	}	201	}
109		202
110	void	203	void
		204	set_height (CFClient::Layout self, int base_height)
		205	CODE:
		206	self->base_height = base_height;
		207
		208	void
111	set_width (CFClient::Layout self, int max_width = -1)	209	set_width (CFClient::Layout self, int max_width = -1)
112	CODE:	210	CODE:
113	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);	211	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
114		212
115	void	213	void
116	size (CFClient::Layout self)	214	size (CFClient::Layout self)
117	PPCODE:	215	PPCODE:
118	{	216	{
119	int w, h;	217	int w, h;
120		218
121	PangoFontDescription *font = pango_context_get_font_description (context);	219	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);	220	layout_get_pixel_size (self, &w, &h);
125		221
126	EXTEND (SP, 2);	222	EXTEND (SP, 2);
127	PUSHs (sv_2mortal (newSViv (w)));	223	PUSHs (sv_2mortal (newSViv (w)));
128	PUSHs (sv_2mortal (newSViv (h)));	224	PUSHs (sv_2mortal (newSViv (h)));
129	}	225	}
130		226
		227	int
		228	xy_to_index (CFClient::Layout self, int x, int y)
		229	CODE:
		230	{
		231	int index, trailing;
		232
		233	layout_update (self);
		234	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
		235
		236	RETVAL = index;
		237	}
		238	OUTPUT:
		239	RETVAL
		240
		241	void
		242	cursor_pos (CFClient::Layout self, int index)
		243	PPCODE:
		244	{
		245	PangoRectangle strong_pos;
		246	layout_update (self);
		247	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
		248	EXTEND (SP, 3);
		249	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
		250	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
		251	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
		252	}
		253
131	void	254	void
132	render (CFClient::Layout self)	255	render (CFClient::Layout self)
133	PPCODE:	256	PPCODE:
134	{	257	{
135	SV *retval;	258	SV *retval;
136	int w, h;	259	int w, h;
137	FT_Bitmap bitmap;	260	FT_Bitmap bitmap;
138		261
		262	layout_update (self);
139	layout_get_pixel_size (self, &w, &h);	263	layout_get_pixel_size (self, &w, &h);
140		264
141	retval = newSV (w * h);	265	retval = newSV (w * h);
142	SvPOK_only (retval);	266	SvPOK_only (retval);
143	SvCUR_set (retval, w * h);	267	SvCUR_set (retval, w * h);
…		…
171	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	295	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
172	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	296	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
173		297
174	if (items < 5)	298	if (items < 5)
175	{	299	{
176	w = SvNV (*hv_fetch (hv, "width", 5, 1));	300	w = SvNV (*hv_fetch (hv, "w", 1, 1));
177	h = SvNV (*hv_fetch (hv, "height", 6, 1));	301	h = SvNV (*hv_fetch (hv, "h", 1, 1));
178	}	302	}
179		303
180	glBindTexture (GL_TEXTURE_2D, name);	304	glBindTexture (GL_TEXTURE_2D, name);
181	glBegin (GL_QUADS);	305	glBegin (GL_QUADS);
182	glTexCoord2d (0, 0); glVertex2d (x , y );	306	glTexCoord2d (0, 0); glVertex2d (x , y );

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.15 by root, Tue Apr 11 13:14:36 2006 UTC vs. Revision 1.26 by root, Wed Apr 12 23:15:38 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.15 by root, Tue Apr 11 13:14:36 2006 UTC vs.
Revision 1.26 by root, Wed Apr 12 23:15:38 2006 UTC