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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.53 by root, Wed Apr 19 21:38:04 2006 UTC vs.
Revision 1.68 by root, Tue Apr 25 11:48:30 2006 UTC

…		…
33	typedef signed char int8_t;	33	typedef signed char int8_t;
34	typedef signed short int16_t;	34	typedef signed short int16_t;
35	typedef signed int int32_t;	35	typedef signed int int32_t;
36	#endif	36	#endif
37		37
		38	#include "glext.h"
		39
38	#define FOW_DARKNESS 32	40	#define FOW_DARKNESS 32
39		41
40	#define MAP_EXTEND_X 32	42	#define MAP_EXTEND_X 32
41	#define MAP_EXTEND_Y 512	43	#define MAP_EXTEND_Y 512
42		44
		45	#define MIN_FONT_HEIGHT 10
		46
		47	#define GL_CALL(type,func,args) \
		48	{ \
		49	static int init_; \
		50	static type fptr_; \
		51	\
		52	if (!init_) \
		53	{ \
		54	init_ = 1; \
		55	fptr_ = (type)SDL_GL_GetProcAddress (# func); \
		56	} \
		57	\
		58	if (fptr_) \
		59	fptr_ args; \
		60	}
		61
43	typedef Mix_Chunk *CFClient__MixChunk;	62	typedef Mix_Chunk *CFClient__MixChunk;
44	typedef Mix_Music *CFClient__MixMusic;	63	typedef Mix_Music *CFClient__MixMusic;
45		64
46	static PangoContext *context;	65	typedef PangoFontDescription *CFClient__Font;
47	static PangoFontMap *fontmap;
48		66
49	typedef struct cf_layout {	67	typedef struct cf_layout {
50	PangoLayout *pl;	68	PangoLayout *pl;
51	int base_height;	69	int base_height;
		70	CFClient__Font font;
52	} *CFClient__Layout;	71	} *CFClient__Layout;
		72
		73	static CFClient__Font default_font;
		74	static PangoContext *context;
		75	static PangoFontMap *fontmap;
53		76
54	static void	77	static void
55	substitute_func (FcPattern *pattern, gpointer data)	78	substitute_func (FcPattern *pattern, gpointer data)
56	{	79	{
57	FcPatternAddBool (pattern, FC_HINTING , 1);	80	FcPatternAddBool (pattern, FC_HINTING , 1);
58	FcPatternAddBool (pattern, FC_AUTOHINT, 0);	81	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
59	}	82	}
60		83
61	static void	84	static void
62	layout_update (CFClient__Layout self)	85	layout_update_font (CFClient__Layout self)
63	{	86	{
64	/* use a random scale factor to account for unknown descenders, 0.8 works	87	/* use a random scale factor to account for unknown descenders, 0.8 works
65	* reasonably well with bitstream vera	88	* reasonably well with bitstream vera
66	*/	89	*/
67	PangoFontDescription *font = pango_context_get_font_description (context);	90	PangoFontDescription *font = self->font ? self->font : default_font;
68		91
69	int height = self->base_height * (PANGO_SCALE * 8 / 10);
70
71	if (pango_font_description_get_size (font) != height)
72	{
73	pango_font_description_set_absolute_size (font, height);	92	pango_font_description_set_absolute_size (font,
74	pango_layout_context_changed (self->pl);	93	MAX (MIN_FONT_HEIGHT, self->base_height) * (PANGO_SCALE * 8 / 10));
75	}	94
		95	pango_layout_set_font_description (self->pl, font);
76	}	96	}
77		97
78	static void	98	static void
79	layout_get_pixel_size (CFClient__Layout self, int w, int h)	99	layout_get_pixel_size (CFClient__Layout self, int w, int h)
80	{	100	{
81	layout_update (self);
82
83	pango_layout_get_pixel_size (self->pl, w, h);	101	pango_layout_get_pixel_size (self->pl, w, h);
84		102
85	w = (w + 3) & ~3;	103	w = (w + 3) & ~3;
86	if (!w) w = 1;	104	if (!w) w = 1;
87	if (!h) h = 1;	105	if (!h) h = 1;
…		…
237	break;	255	break;
238		256
239	row->col[x - row->c0].darkness = -1;	257	row->col[x - row->c0].darkness = -1;
240	}	258	}
241	}	259	}
		260	}
		261
		262	static void
		263	music_finished ()
		264	{
		265	SDL_UserEvent ev;
		266
		267	ev.type = SDL_USEREVENT;
		268	ev.code = 0;
		269	ev.data1 = 0;
		270	ev.data2 = 0;
		271
		272	SDL_PushEvent ((SDL_Event *)&ev);
242	}	273	}
243		274
244	MODULE = CFClient PACKAGE = CFClient	275	MODULE = CFClient PACKAGE = CFClient
245		276
246	PROTOTYPES: ENABLE	277	PROTOTYPES: ENABLE
…		…
414	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");	445	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
415	OUTPUT:	446	OUTPUT:
416	RETVAL	447	RETVAL
417		448
418	void	449	void
		450	SDL_GL_SwapBuffers ()
		451
		452	void
419	SDL_PollEvent ()	453	SDL_PollEvent ()
420	PPCODE:	454	PPCODE:
421	{	455	{
422	SDL_Event ev;	456	SDL_Event ev;
423		457
…		…
460	}	494	}
461	}	495	}
462		496
463	int	497	int
464	Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)	498	Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
		499	POSTCALL:
		500	Mix_HookMusicFinished (music_finished);
465		501
466	void	502	void
467	Mix_CloseAudio ()	503	Mix_CloseAudio ()
468		504
469	int	505	int
…		…
492		528
493	void	529	void
494	add_font (char *file)	530	add_font (char *file)
495	CODE:	531	CODE:
496	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */	532	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
497
498	void
499	set_font (char *file)
500	CODE:
501	{
502	int count;
503	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
504	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
505	FcPatternDestroy (pattern);
506	pango_context_set_font_description (context, font);
507	}
508		533
509	void	534	void
510	load_image_inline (SV *image_)	535	load_image_inline (SV *image_)
511	ALIAS:	536	ALIAS:
512	load_image_file = 1	537	load_image_file = 1
…		…
594	PUSHs (sv_2mortal (newSViv (b / y)));	619	PUSHs (sv_2mortal (newSViv (b / y)));
595	PUSHs (sv_2mortal (newSViv (a / y)));	620	PUSHs (sv_2mortal (newSViv (a / y)));
596	}	621	}
597		622
598	void	623	void
		624	error (char *message)
		625	CODE:
		626	#ifdef _WIN32
		627	MessageBox (0, message, "Crossfire+ Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
		628	#else
		629	fprintf (stderr, "ERROR: %s\n", message);
		630	#endif
		631
		632	void
599	fatal (char *message)	633	fatal (char *message)
600	CODE:	634	CODE:
601	#ifdef _WIN32	635	#ifdef _WIN32
602	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);	636	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
603	#else	637	#else
604	fprintf (stderr, "FATAL: %s\n", message);	638	fprintf (stderr, "FATAL: %s\n", message);
605	#endif	639	#endif
606	exit (1);	640	exit (1);
607		641
		642	MODULE = CFClient PACKAGE = CFClient::Font
		643
		644	CFClient::Font
		645	new_from_file (SV class, char path)
		646	CODE:
		647	{
		648	int count;
		649	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, 0, 0, &count);
		650	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
		651	FcPatternDestroy (pattern);
		652	}
		653	OUTPUT:
		654	RETVAL
		655
		656	void
		657	DESTROY (CFClient::Font self)
		658	CODE:
		659	pango_font_description_free (self);
		660
		661	void
		662	make_default (CFClient::Font self)
		663	CODE:
		664	default_font = self;
		665
608	MODULE = CFClient PACKAGE = CFClient::Layout	666	MODULE = CFClient PACKAGE = CFClient::Layout
609		667
610	CFClient::Layout	668	CFClient::Layout
611	new (SV *class, int base_height = 10)	669	new (SV *class, int base_height = MIN_FONT_HEIGHT)
612	CODE:	670	CODE:
613	New (0, RETVAL, 1, struct cf_layout);	671	New (0, RETVAL, 1, struct cf_layout);
		672	RETVAL->pl = pango_layout_new (context);
614	RETVAL->base_height = base_height;	673	RETVAL->base_height = base_height;
615	RETVAL->pl = pango_layout_new (context);	674	RETVAL->font = 0;
616	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);	675	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
		676	pango_layout_set_font_description (RETVAL->pl, default_font);
617	OUTPUT:	677	OUTPUT:
618	RETVAL	678	RETVAL
619		679
620	void	680	void
621	DESTROY (CFClient::Layout self)	681	DESTROY (CFClient::Layout self)
…		…
650	SvUTF8_on (RETVAL);	710	SvUTF8_on (RETVAL);
651	OUTPUT:	711	OUTPUT:
652	RETVAL	712	RETVAL
653		713
654	void	714	void
		715	set_font (CFClient::Layout self, CFClient::Font font = 0)
		716	CODE:
		717	if (self->font != font)
		718	{
		719	self->font = font;
		720	layout_update_font (self);
		721	}
		722
		723	void
655	set_height (CFClient::Layout self, int base_height)	724	set_height (CFClient::Layout self, int base_height)
656	CODE:	725	CODE:
		726	if (self->base_height != base_height)
		727	{
657	self->base_height = base_height;	728	self->base_height = base_height;
		729	layout_update_font (self);
		730	}
658		731
659	void	732	void
660	set_width (CFClient::Layout self, int max_width = -1)	733	set_width (CFClient::Layout self, int max_width = -1)
661	CODE:	734	CODE:
662	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);	735	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
…		…
665	size (CFClient::Layout self)	738	size (CFClient::Layout self)
666	PPCODE:	739	PPCODE:
667	{	740	{
668	int w, h;	741	int w, h;
669		742
670	layout_update (self);
671	layout_get_pixel_size (self, &w, &h);	743	layout_get_pixel_size (self, &w, &h);
672		744
673	EXTEND (SP, 2);	745	EXTEND (SP, 2);
674	PUSHs (sv_2mortal (newSViv (w)));	746	PUSHs (sv_2mortal (newSViv (w)));
675	PUSHs (sv_2mortal (newSViv (h)));	747	PUSHs (sv_2mortal (newSViv (h)));
…		…
678	int	750	int
679	xy_to_index (CFClient::Layout self, int x, int y)	751	xy_to_index (CFClient::Layout self, int x, int y)
680	CODE:	752	CODE:
681	{	753	{
682	int index, trailing;	754	int index, trailing;
683
684	layout_update (self);
685	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);	755	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
686
687	RETVAL = index;	756	RETVAL = index;
688	}	757	}
689	OUTPUT:	758	OUTPUT:
690	RETVAL	759	RETVAL
691		760
692	void	761	void
693	cursor_pos (CFClient::Layout self, int index)	762	cursor_pos (CFClient::Layout self, int index)
694	PPCODE:	763	PPCODE:
695	{	764	{
696	PangoRectangle strong_pos;	765	PangoRectangle strong_pos;
697	layout_update (self);
698	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);	766	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
699		767
700	EXTEND (SP, 3);	768	EXTEND (SP, 3);
701	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));	769	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
702	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));	770	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
…		…
709	{	777	{
710	SV *retval;	778	SV *retval;
711	int w, h;	779	int w, h;
712	FT_Bitmap bitmap;	780	FT_Bitmap bitmap;
713		781
714	layout_update (self);
715	layout_get_pixel_size (self, &w, &h);	782	layout_get_pixel_size (self, &w, &h);
716		783
717	retval = newSV (w * h);	784	retval = newSV (w * h);
718	SvPOK_only (retval);	785	SvPOK_only (retval);
719	SvCUR_set (retval, w * h);	786	SvCUR_set (retval, w * h);
…		…
930	cell->darkness = -1;	997	cell->darkness = -1;
931	}	998	}
932	}	999	}
933		1000
934	SV *	1001	SV *
935	mapmap (CFClient::Map self, int w, int h)	1002	mapmap (CFClient::Map self, int x0, int y0, int w, int h)
936	CODE:	1003	CODE:
937	{	1004	{
938	int x0, x1, x;	1005	int x1, x;
939	int y0, y1, y;	1006	int y1, y;
940	int z;	1007	int z;
941	SV map_sv = newSV (w h * sizeof (uint32_t));	1008	SV map_sv = newSV (w h * sizeof (uint32_t));
942	uint32_t map = (uint32_t )SvPVX (map_sv);	1009	uint32_t map = (uint32_t )SvPVX (map_sv);
943		1010
944	SvPOK_only (map_sv);	1011	SvPOK_only (map_sv);
945	SvCUR_set (map_sv, w * h * sizeof (uint32_t));	1012	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
946		1013
947	x0 = self->x - w / 2; x1 = x0 + w;	1014	x0 += self->x; x1 = x0 + w;
948	y0 = self->y - h / 2; y1 = y0 + h;	1015	y0 += self->y; y1 = y0 + h;
949		1016
950	for (y = y0; y < y1; y++)	1017	for (y = y0; y < y1; y++)
951	{	1018	{
952	maprow *row = 0 <= y && y < self->rows	1019	maprow *row = 0 <= y && y < self->rows
953	? self->row + y	1020	? self->row + y
…		…
1093	data++ = 0; / version 0 format */	1160	data++ = 0; / version 0 format */
1094	data++ = w >> 8; data++ = w;	1161	data++ = w >> 8; data++ = w;
1095	data++ = h >> 8; data++ = h;	1162	data++ = h >> 8; data++ = h;
1096		1163
1097	// we need to do this 'cause we don't keep an absolute coord system for rows	1164	// we need to do this 'cause we don't keep an absolute coord system for rows
1098	// TODO: treat rows as we treat	1165	// TODO: treat rows as we treat columns
1099	map_get_row (self, y0 + self->y - self->oy);//D	1166	map_get_row (self, y0 + self->y - self->oy);//D
1100	map_get_row (self, y0 + self->y - self->oy + h - 1);//D	1167	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
1101		1168
1102	x0 += self->x - self->ox;	1169	x0 += self->x - self->ox;
1103	y0 += self->y - self->oy;	1170	y0 += self->y - self->oy;
…		…
1167		1234
1168	w = data++ << 8; w \|= data++;	1235	w = data++ << 8; w \|= data++;
1169	h = data++ << 8; h \|= data++;	1236	h = data++ << 8; h \|= data++;
1170		1237
1171	// we need to do this 'cause we don't keep an absolute coord system for rows	1238	// we need to do this 'cause we don't keep an absolute coord system for rows
1172	// TODO: treat rows as we treat	1239	// TODO: treat rows as we treat columns
1173	map_get_row (self, y0 + self->y - self->oy);//D	1240	map_get_row (self, y0 + self->y - self->oy);//D
1174	map_get_row (self, y0 + self->y - self->oy + h - 1);//D	1241	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
1175		1242
1176	x0 += self->x - self->ox;	1243	x0 += self->x - self->ox;
1177	y0 += self->y - self->oy;	1244	y0 += self->y - self->oy;
…		…
1268	CODE:	1335	CODE:
1269	RETVAL = Mix_PlayMusic (self, loops);	1336	RETVAL = Mix_PlayMusic (self, loops);
1270	OUTPUT:	1337	OUTPUT:
1271	RETVAL	1338	RETVAL
1272		1339
		1340	MODULE = CFClient PACKAGE = CFClient::OpenGL
		1341
		1342	BOOT:
		1343	{
		1344	HV *stash = gv_stashpv ("CFClient::OpenGL", 1);
		1345	static const struct {
		1346	const char *name;
		1347	IV iv;
		1348	} *civ, const_iv[] = {
		1349	# define const_iv(name) { # name, (IV)name }
		1350	const_iv (GL_COLOR_MATERIAL),
		1351	const_iv (GL_SMOOTH),
		1352	const_iv (GL_FLAT),
		1353	const_iv (GL_BLEND),
		1354	const_iv (GL_AND),
		1355	const_iv (GL_ONE),
		1356	const_iv (GL_ZERO),
		1357	const_iv (GL_SRC_ALPHA),
		1358	const_iv (GL_SRC_ALPHA_SATURATE),
		1359	const_iv (GL_ONE_MINUS_SRC_ALPHA),
		1360	const_iv (GL_ONE_MINUS_DST_ALPHA),
		1361	const_iv (GL_RGB),
		1362	const_iv (GL_RGBA),
		1363	const_iv (GL_UNSIGNED_BYTE),
		1364	const_iv (GL_ALPHA),
		1365	const_iv (GL_FLOAT),
		1366	const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
		1367	const_iv (GL_COMPILE),
		1368	const_iv (GL_TEXTURE_1D),
		1369	const_iv (GL_TEXTURE_2D),
		1370	const_iv (GL_TEXTURE_ENV),
		1371	const_iv (GL_TEXTURE_MAG_FILTER),
		1372	const_iv (GL_TEXTURE_MIN_FILTER),
		1373	const_iv (GL_TEXTURE_ENV_MODE),
		1374	const_iv (GL_TEXTURE_WRAP_S),
		1375	const_iv (GL_TEXTURE_WRAP_T),
		1376	const_iv (GL_CLAMP),
		1377	const_iv (GL_REPEAT),
		1378	const_iv (GL_NEAREST),
		1379	const_iv (GL_LINEAR),
		1380	const_iv (GL_NEAREST_MIPMAP_NEAREST),
		1381	const_iv (GL_LINEAR_MIPMAP_NEAREST),
		1382	const_iv (GL_NEAREST_MIPMAP_LINEAR),
		1383	const_iv (GL_LINEAR_MIPMAP_LINEAR),
		1384	const_iv (GL_GENERATE_MIPMAP),
		1385	const_iv (GL_MODULATE),
		1386	const_iv (GL_REPLACE),
		1387	const_iv (GL_COLOR_BUFFER_BIT),
		1388	const_iv (GL_PROJECTION),
		1389	const_iv (GL_MODELVIEW),
		1390	const_iv (GL_COLOR_LOGIC_OP),
		1391	const_iv (GL_CONVOLUTION_2D),
		1392	const_iv (GL_CONVOLUTION_BORDER_MODE),
		1393	const_iv (GL_CONSTANT_BORDER),
		1394	const_iv (GL_LINES),
		1395	const_iv (GL_QUADS),
		1396	const_iv (GL_LINE_LOOP),
		1397	const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
		1398	const_iv (GL_FASTEST),
		1399	# undef const_iv
		1400	};
		1401
		1402	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		1403	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		1404	}
		1405
		1406	int glGetError ()
		1407
		1408	void glClear (int mask)
		1409
		1410	void glClearColor (float r, float g, float b, float a = 1.0)
		1411	PROTOTYPE: @
		1412
		1413	void glEnable (int cap)
		1414
		1415	void glDisable (int cap)
		1416
		1417	void glShadeModel (int mode)
		1418
		1419	void glHint (int target, int mode)
		1420
		1421	void glBlendFunc (int sfactor, int dfactor)
		1422
		1423	void glLogicOp (int opcode)
		1424
		1425	void glColorMask (int red, int green, int blue, int alpha)
		1426
		1427	void glMatrixMode (int mode)
		1428
		1429	void glPushMatrix ()
		1430
		1431	void glPopMatrix ()
		1432
		1433	void glLoadIdentity ()
		1434
		1435	# near and far are due to microsofts buggy c compiler
		1436	void glOrtho (double left, double right, double bottom, double top, double near_, double far_)
		1437
		1438	void glViewport (int x, int y, int width, int height)
		1439
		1440	void glTranslate (float x, float y, float z = 0.)
		1441	CODE:
		1442	glTranslatef (x, y, z);
		1443
		1444	void glScale (float x, float y, float z = 1.)
		1445	CODE:
		1446	glScalef (x, y, z);
		1447
		1448	void glRotate (float angle, float x, float y, float z)
		1449	CODE:
		1450	glRotatef (angle, x, y, z);
		1451
		1452	void glBegin (int mode)
		1453
		1454	void glEnd ()
		1455
		1456	void glColor (float r, float g, float b, float a = 1.0)
		1457	PROTOTYPE: @
		1458	CODE:
		1459	glColor4f (r, g, b, a);
		1460
		1461	void glVertex (float x, float y, float z = 0.)
		1462	CODE:
		1463	glVertex3f (x, y, z);
		1464
		1465	void glTexCoord (float s, float t)
		1466	CODE:
		1467	glTexCoord2f (s, t);
		1468
		1469	void glTexEnv (int target, int pname, float param)
		1470	CODE:
		1471	glTexEnvf (target, pname, param);
		1472
		1473	void glTexParameter (int target, int pname, float param)
		1474	CODE:
		1475	glTexParameterf (target, pname, param);
		1476
		1477	void glBindTexture (int target, int name)
		1478
		1479	void glConvolutionParameter (int target, int pname, float params)
		1480	CODE:
		1481	GL_CALL (PFNGLCONVOLUTIONPARAMETERFEXTPROC, glConvolutionParameterf, (target, pname, params));
		1482
		1483	void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
		1484	CODE:
		1485	GL_CALL (PFNGLCONVOLUTIONFILTER2DEXTPROC, glConvolutionFilter2D,
		1486	(target, internalformat, width, height, format, type, data));
		1487
		1488	void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
		1489
		1490	void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
		1491
		1492	void glRasterPos (int x, int y)
		1493	CODE:
		1494	glRasterPos2i (x, y);
		1495
		1496	void glCopyPixels (int x, int y, int width, int height, int type = GL_COLOR)
		1497
		1498	int glGenTexture ()
		1499	CODE:
		1500	{
		1501	GLuint name;
		1502	glGenTextures (1, &name);
		1503	RETVAL = name;
		1504	}
		1505	OUTPUT:
		1506	RETVAL
		1507
		1508	void glDeleteTexture (int name)
		1509	CODE:
		1510	{
		1511	GLuint name_ = name;
		1512	glDeleteTextures (1, &name_);
		1513	}
		1514
		1515	int glGenList ()
		1516	CODE:
		1517	RETVAL = glGenLists (1);
		1518	OUTPUT:
		1519	RETVAL
		1520
		1521	void glDeleteList (int list)
		1522	CODE:
		1523	glDeleteLists (list, 1);
		1524
		1525	void glNewList (int list, int mode = GL_COMPILE)
		1526
		1527	void glEndList ()
		1528
		1529	void glCallList (int list)
		1530

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.53 by root, Wed Apr 19 21:38:04 2006 UTC vs. Revision 1.68 by root, Tue Apr 25 11:48:30 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.53 by root, Wed Apr 19 21:38:04 2006 UTC vs.
Revision 1.68 by root, Tue Apr 25 11:48:30 2006 UTC