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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.17 by root, Tue Apr 11 17:02:35 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
28	layout_update (CFClient__Layout self)	39	layout_update (CFClient__Layout self)
29	{	40	{
		41	/* use a random scale factor to account for unknown descenders, 0.8 works
		42	* reasonably well with bitstream vera
		43	*/
30	PangoFontDescription *font = pango_context_get_font_description (context);	44	PangoFontDescription *font = pango_context_get_font_description (context);
31	pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);	45	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
32	}	46	}
33		47
34	static void	48	static void
35	layout_get_pixel_size (CFClient__Layout self, int w, int h)	49	layout_get_pixel_size (CFClient__Layout self, int w, int h)
36	{	50	{
37	PangoFontDescription *font = pango_context_get_font_description (context);	51	layout_update (self);
38	pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);
39		52
40	pango_layout_get_pixel_size (self->pl, w, h);	53	pango_layout_get_pixel_size (self->pl, w, h);
41		54
42	w = (w + 3) & ~3;	55	w = (w + 3) & ~3;
43	if (!w) w = 1;	56	if (!w) w = 1;
44	if (!h) h = 1;	57	if (!h) h = 1;
45	}	58	}
46		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
47	MODULE = CFClient PACKAGE = CFClient	80	MODULE = CFClient PACKAGE = CFClient
48		81
49	PROTOTYPES: ENABLE	82	PROTOTYPES: ENABLE
50		83
51	BOOT:	84	BOOT:
52	{	85	{
53	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);
54	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	88	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
55	}	89	}
56		90
57	void	91	void
58	lowdelay (int fd, int val = 1)	92	lowdelay (int fd, int val = 1)
…		…
86	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);	120	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
87	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);	121	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
88	FcPatternDestroy (pattern);	122	FcPatternDestroy (pattern);
89	pango_context_set_font_description (context, font);	123	pango_context_set_font_description (context, font);
90	}	124	}
		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);
91		190
92	MODULE = CFClient PACKAGE = CFClient::Layout	191	MODULE = CFClient PACKAGE = CFClient::Layout
93		192
94	CFClient::Layout	193	CFClient::Layout
95	new (SV *class, int base_height = 10)	194	new (SV *class, int base_height = 10)
…		…
212	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	311	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
213	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	312	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
214		313
215	if (items < 5)	314	if (items < 5)
216	{	315	{
217	w = SvNV (*hv_fetch (hv, "width", 5, 1));	316	w = SvNV (*hv_fetch (hv, "w", 1, 1));
218	h = SvNV (*hv_fetch (hv, "height", 6, 1));	317	h = SvNV (*hv_fetch (hv, "h", 1, 1));
219	}	318	}
220		319
221	glBindTexture (GL_TEXTURE_2D, name);	320	glBindTexture (GL_TEXTURE_2D, name);
222	glBegin (GL_QUADS);	321	glBegin (GL_QUADS);
223	glTexCoord2d (0, 0); glVertex2d (x , y );	322	glTexCoord2d (0, 0); glVertex2d (x , y );
224	glTexCoord2d (0, t); glVertex2d (x , y + h);	323	glTexCoord2d (0, t); glVertex2d (x , y + h);
225	glTexCoord2d (s, t); glVertex2d (x + w, y + h);	324	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
226	glTexCoord2d (s, 0); glVertex2d (x + w, y );	325	glTexCoord2d (s, 0); glVertex2d (x + w, y );
227	glEnd ();	326	glEnd ();
228	}	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.17 by root, Tue Apr 11 17:02:35 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.17 by root, Tue Apr 11 17:02:35 2006 UTC vs.
Revision 1.28 by root, Thu Apr 13 00:25:28 2006 UTC