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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.16 by root, Tue Apr 11 13:27:48 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>
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
19	static PangoContext *context;	23	static PangoContext *context;
20	static PangoFontMap *fontmap;	24	static PangoFontMap *fontmap;
21		25
22	typedef struct cf_layout {	26	typedef struct cf_layout {
23	PangoLayout *pl;	27	PangoLayout *pl;
24	int base_height;	28	int base_height;
25	} *CFClient__Layout;	29	} *CFClient__Layout;
26		30
27	static void	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
28	layout_get_pixel_size (CFClient__Layout self, int w, int h)	49	layout_get_pixel_size (CFClient__Layout self, int w, int h)
29	{	50	{
30	PangoFontDescription *font = pango_context_get_font_description (context);	51	layout_update (self);
31	pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);
32		52
33	pango_layout_get_pixel_size (self->pl, w, h);	53	pango_layout_get_pixel_size (self->pl, w, h);
34		54
35	w = (w + 3) & ~3;	55	w = (w + 3) & ~3;
36	if (!w) w = 1;	56	if (!w) w = 1;
37	if (!h) h = 1;	57	if (!h) h = 1;
38	}	58	}
39		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
40	MODULE = CFClient PACKAGE = CFClient	80	MODULE = CFClient PACKAGE = CFClient
41		81
42	PROTOTYPES: ENABLE	82	PROTOTYPES: ENABLE
43		83
44	BOOT:	84	BOOT:
45	{	85	{
46	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);
47	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	88	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
48	}	89	}
49		90
50	void	91	void
51	lowdelay (int fd, int val = 1)	92	lowdelay (int fd, int val = 1)
…		…
80	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);	121	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
81	FcPatternDestroy (pattern);	122	FcPatternDestroy (pattern);
82	pango_context_set_font_description (context, font);	123	pango_context_set_font_description (context, font);
83	}	124	}
84		125
		126	void
		127	load_image_inline (SV *image_)
		128	ALIAS:
		129	load_image_file = 1
		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
85	MODULE = CFClient PACKAGE = CFClient::Layout	191	MODULE = CFClient PACKAGE = CFClient::Layout
86		192
87	CFClient::Layout	193	CFClient::Layout
88	new (SV *class, int base_height = 10)	194	new (SV *class, int base_height = 10)
89	CODE:	195	CODE:
…		…
124	size (CFClient::Layout self)	230	size (CFClient::Layout self)
125	PPCODE:	231	PPCODE:
126	{	232	{
127	int w, h;	233	int w, h;
128		234
		235	layout_update (self);
129	layout_get_pixel_size (self, &w, &h);	236	layout_get_pixel_size (self, &w, &h);
130		237
131	EXTEND (SP, 2);	238	EXTEND (SP, 2);
132	PUSHs (sv_2mortal (newSViv (w)));	239	PUSHs (sv_2mortal (newSViv (w)));
133	PUSHs (sv_2mortal (newSViv (h)));	240	PUSHs (sv_2mortal (newSViv (h)));
134	}	241	}
135		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
136	void	270	void
137	render (CFClient::Layout self)	271	render (CFClient::Layout self)
138	PPCODE:	272	PPCODE:
139	{	273	{
140	SV *retval;	274	SV *retval;
141	int w, h;	275	int w, h;
142	FT_Bitmap bitmap;	276	FT_Bitmap bitmap;
143		277
		278	layout_update (self);
144	layout_get_pixel_size (self, &w, &h);	279	layout_get_pixel_size (self, &w, &h);
145		280
146	retval = newSV (w * h);	281	retval = newSV (w * h);
147	SvPOK_only (retval);	282	SvPOK_only (retval);
148	SvCUR_set (retval, w * h);	283	SvCUR_set (retval, w * h);
…		…
176	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	311	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
177	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	312	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
178		313
179	if (items < 5)	314	if (items < 5)
180	{	315	{
181	w = SvNV (*hv_fetch (hv, "width", 5, 1));	316	w = SvNV (*hv_fetch (hv, "w", 1, 1));
182	h = SvNV (*hv_fetch (hv, "height", 6, 1));	317	h = SvNV (*hv_fetch (hv, "h", 1, 1));
183	}	318	}
184		319
185	glBindTexture (GL_TEXTURE_2D, name);	320	glBindTexture (GL_TEXTURE_2D, name);
186	glBegin (GL_QUADS);	321	glBegin (GL_QUADS);
187	glTexCoord2d (0, 0); glVertex2d (x , y );	322	glTexCoord2d (0, 0); glVertex2d (x , y );
188	glTexCoord2d (0, t); glVertex2d (x , y + h);	323	glTexCoord2d (0, t); glVertex2d (x , y + h);
189	glTexCoord2d (s, t); glVertex2d (x + w, y + h);	324	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
190	glTexCoord2d (s, 0); glVertex2d (x + w, y );	325	glTexCoord2d (s, 0); glVertex2d (x + w, y );
191	glEnd ();	326	glEnd ();
192	}	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.16 by root, Tue Apr 11 13:27:48 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.16 by root, Tue Apr 11 13:27:48 2006 UTC vs.
Revision 1.28 by root, Thu Apr 13 00:25:28 2006 UTC