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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.48 by root, Tue Apr 18 00:14:16 2006 UTC vs.
Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC

…		…
9	#include <string.h>	9	#include <string.h>
10	#include <stdio.h>	10	#include <stdio.h>
11		11
12	#include <SDL.h>	12	#include <SDL.h>
13	#include <SDL_image.h>	13	#include <SDL_image.h>
		14	#include <SDL_mixer.h>
14	#include <SDL_opengl.h>	15	#include <SDL_opengl.h>
15		16
16	#include <glib/gmacros.h>	17	#include <glib/gmacros.h>
17		18
18	#include <pango/pango.h>	19	#include <pango/pango.h>
…		…
37	#define FOW_DARKNESS 32	38	#define FOW_DARKNESS 32
38		39
39	#define MAP_EXTEND_X 32	40	#define MAP_EXTEND_X 32
40	#define MAP_EXTEND_Y 512	41	#define MAP_EXTEND_Y 512
41		42
		43	typedef Mix_Chunk *CFClient__MixChunk;
		44	typedef Mix_Music *CFClient__MixMusic;
		45
42	static PangoContext *context;	46	static PangoContext *context;
43	static PangoFontMap *fontmap;	47	static PangoFontMap *fontmap;
44		48
45	typedef struct cf_layout {	49	typedef struct cf_layout {
46	PangoLayout *pl;	50	PangoLayout *pl;
…		…
235	row->col[x - row->c0].darkness = -1;	239	row->col[x - row->c0].darkness = -1;
236	}	240	}
237	}	241	}
238	}	242	}
239		243
		244	static void
		245	music_finished ()
		246	{
		247	SDL_UserEvent ev;
		248
		249	ev.type = SDL_USEREVENT;
		250	ev.code = 0;
		251	ev.data1 = 0;
		252	ev.data2 = 0;
		253
		254	SDL_PushEvent (&ev);
		255	}
		256
240	MODULE = CFClient PACKAGE = CFClient	257	MODULE = CFClient PACKAGE = CFClient
241		258
242	PROTOTYPES: ENABLE	259	PROTOTYPES: ENABLE
243		260
244	BOOT:	261	BOOT:
245	{	262	{
		263	HV *stash = gv_stashpv ("CFClient", 1);
		264	static const struct {
		265	const char *name;
		266	IV iv;
		267	} *civ, const_iv[] = {
		268	# define const_iv(name) { # name, (IV)name }
		269	const_iv (SDL_ACTIVEEVENT),
		270	const_iv (SDL_KEYDOWN),
		271	const_iv (SDL_KEYUP),
		272	const_iv (SDL_MOUSEMOTION),
		273	const_iv (SDL_MOUSEBUTTONDOWN),
		274	const_iv (SDL_MOUSEBUTTONUP),
		275	const_iv (SDL_JOYAXISMOTION),
		276	const_iv (SDL_JOYBALLMOTION),
		277	const_iv (SDL_JOYHATMOTION),
		278	const_iv (SDL_JOYBUTTONDOWN),
		279	const_iv (SDL_JOYBUTTONUP),
		280	const_iv (SDL_QUIT),
		281	const_iv (SDL_SYSWMEVENT),
		282	const_iv (SDL_EVENT_RESERVEDA),
		283	const_iv (SDL_EVENT_RESERVEDB),
		284	const_iv (SDL_VIDEORESIZE),
		285	const_iv (SDL_VIDEOEXPOSE),
		286	const_iv (SDL_USEREVENT),
		287	const_iv (SDLK_KP0),
		288	const_iv (SDLK_KP1),
		289	const_iv (SDLK_KP2),
		290	const_iv (SDLK_KP3),
		291	const_iv (SDLK_KP4),
		292	const_iv (SDLK_KP5),
		293	const_iv (SDLK_KP6),
		294	const_iv (SDLK_KP7),
		295	const_iv (SDLK_KP8),
		296	const_iv (SDLK_KP9),
		297	const_iv (SDLK_KP_PERIOD),
		298	const_iv (SDLK_KP_DIVIDE),
		299	const_iv (SDLK_KP_MULTIPLY),
		300	const_iv (SDLK_KP_MINUS),
		301	const_iv (SDLK_KP_PLUS),
		302	const_iv (SDLK_KP_ENTER),
		303	const_iv (SDLK_KP_EQUALS),
		304	const_iv (SDLK_UP),
		305	const_iv (SDLK_DOWN),
		306	const_iv (SDLK_RIGHT),
		307	const_iv (SDLK_LEFT),
		308	const_iv (SDLK_INSERT),
		309	const_iv (SDLK_HOME),
		310	const_iv (SDLK_END),
		311	const_iv (SDLK_PAGEUP),
		312	const_iv (SDLK_PAGEDOWN),
		313	const_iv (SDLK_F1),
		314	const_iv (SDLK_F2),
		315	const_iv (SDLK_F3),
		316	const_iv (SDLK_F4),
		317	const_iv (SDLK_F5),
		318	const_iv (SDLK_F6),
		319	const_iv (SDLK_F7),
		320	const_iv (SDLK_F8),
		321	const_iv (SDLK_F9),
		322	const_iv (SDLK_F10),
		323	const_iv (SDLK_F11),
		324	const_iv (SDLK_F12),
		325	const_iv (SDLK_F13),
		326	const_iv (SDLK_F14),
		327	const_iv (SDLK_F15),
		328	const_iv (SDLK_NUMLOCK),
		329	const_iv (SDLK_CAPSLOCK),
		330	const_iv (SDLK_SCROLLOCK),
		331	const_iv (SDLK_RSHIFT),
		332	const_iv (SDLK_LSHIFT),
		333	const_iv (SDLK_RCTRL),
		334	const_iv (SDLK_LCTRL),
		335	const_iv (SDLK_RALT),
		336	const_iv (SDLK_LALT),
		337	const_iv (SDLK_RMETA),
		338	const_iv (SDLK_LMETA),
		339	const_iv (SDLK_LSUPER),
		340	const_iv (SDLK_RSUPER),
		341	const_iv (SDLK_MODE),
		342	const_iv (SDLK_COMPOSE),
		343	const_iv (SDLK_HELP),
		344	const_iv (SDLK_PRINT),
		345	const_iv (SDLK_SYSREQ),
		346	const_iv (SDLK_BREAK),
		347	const_iv (SDLK_MENU),
		348	const_iv (SDLK_POWER),
		349	const_iv (SDLK_EURO),
		350	const_iv (SDLK_UNDO),
		351	const_iv (KMOD_NONE),
		352	const_iv (KMOD_LSHIFT),
		353	const_iv (KMOD_RSHIFT),
		354	const_iv (KMOD_LCTRL),
		355	const_iv (KMOD_RCTRL),
		356	const_iv (KMOD_LALT),
		357	const_iv (KMOD_RALT),
		358	const_iv (KMOD_LMETA),
		359	const_iv (KMOD_RMETA),
		360	const_iv (KMOD_NUM),
		361	const_iv (KMOD_CAPS),
		362	const_iv (KMOD_MODE),
		363	const_iv (KMOD_CTRL),
		364	const_iv (KMOD_SHIFT),
		365	const_iv (KMOD_ALT),
		366	const_iv (KMOD_META)
		367	# undef const_iv
		368	};
		369
		370	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		371	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		372
246	fontmap = pango_ft2_font_map_new ();	373	fontmap = pango_ft2_font_map_new ();
247	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);	374	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
248	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	375	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
249	}	376	}
		377
		378	int
		379	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO)
		380
		381	void
		382	SDL_Quit ()
		383
		384	void
		385	SDL_ListModes ()
		386	PPCODE:
		387	{
		388	SDL_Rect **m;
		389
		390	SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
		391	SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
		392	SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
		393	SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
		394
		395	SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
		396	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
		397	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
		398	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
		399
		400	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
		401	SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
		402	SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
		403
		404	SDL_EnableUNICODE (1);
		405	SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
		406
		407	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
		408
		409	if (m && m != (SDL_Rect **)-1)
		410	while (*m)
		411	{
		412	AV *av = newAV ();
		413	av_push (av, newSViv ((*m)->w));
		414	av_push (av, newSViv ((*m)->h));
		415	XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
		416
		417	++m;
		418	}
		419	}
		420
		421	int
		422	SDL_SetVideoMode (int w, int h, int fullscreen)
		423	CODE:
		424	RETVAL = !!SDL_SetVideoMode (
		425	w, h, 0, SDL_OPENGL \| (fullscreen ? SDL_FULLSCREEN : 0)
		426	);
		427	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
		428	OUTPUT:
		429	RETVAL
		430
		431	void
		432	SDL_GL_SwapBuffers ()
		433
		434	void
		435	SDL_PollEvent ()
		436	PPCODE:
		437	{
		438	SDL_Event ev;
		439
		440	while (SDL_PollEvent (&ev))
		441	{
		442	HV *hv = newHV ();
		443	hv_store (hv, "type", 4, newSViv (ev.type), 0);
		444	switch (ev.type)
		445	{
		446	case SDL_KEYDOWN:
		447	case SDL_KEYUP:
		448	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
		449	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
		450	hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
		451	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
		452	break;
		453
		454	case SDL_ACTIVEEVENT:
		455	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
		456	hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
		457	break;
		458
		459	case SDL_MOUSEMOTION:
		460	hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
		461	hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
		462	hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
		463	hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
		464	hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
		465	break;
		466
		467	case SDL_MOUSEBUTTONDOWN:
		468	case SDL_MOUSEBUTTONUP:
		469	hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
		470	hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
		471	hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
		472	hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
		473	}
		474
		475	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
		476	}
		477	}
		478
		479	int
		480	Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
		481	POSTCALL:
		482	Mix_HookMusicFinished (music_finished);
		483
		484	void
		485	Mix_CloseAudio ()
		486
		487	int
		488	Mix_AllocateChannels (int numchans = -1)
250		489
251	void	490	void
252	lowdelay (int fd, int val = 1)	491	lowdelay (int fd, int val = 1)
253	CODE:	492	CODE:
254	#ifndef _WIN32	493	#ifndef _WIN32
…		…
307	croak ("load_image: %s", SDL_GetError ());	546	croak ("load_image: %s", SDL_GetError ());
308		547
309	fmt.palette = NULL;	548	fmt.palette = NULL;
310	fmt.BitsPerPixel = 32;	549	fmt.BitsPerPixel = 32;
311	fmt.BytesPerPixel = 4;	550	fmt.BytesPerPixel = 4;
		551	#if SDL_BYTEORDER == SDL_LIL_ENDIAN
312	fmt.Rmask = 0x000000ff;	552	fmt.Rmask = 0x000000ff;
313	fmt.Gmask = 0x0000ff00;	553	fmt.Gmask = 0x0000ff00;
314	fmt.Bmask = 0x00ff0000;	554	fmt.Bmask = 0x00ff0000;
315	fmt.Amask = 0xff000000;	555	fmt.Amask = 0xff000000;
		556	#else
		557	fmt.Rmask = 0xff000000;
		558	fmt.Gmask = 0x00ff0000;
		559	fmt.Bmask = 0x0000ff00;
		560	fmt.Amask = 0x000000ff;
		561	#endif
316	fmt.Rloss = 0;	562	fmt.Rloss = 0;
317	fmt.Gloss = 0;	563	fmt.Gloss = 0;
318	fmt.Bloss = 0;	564	fmt.Bloss = 0;
319	fmt.Aloss = 0;	565	fmt.Aloss = 0;
320	fmt.Rshift = 0;	566	fmt.Rshift = 0;
…		…
334	SDL_LockSurface (surface2);	580	SDL_LockSurface (surface2);
335	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	581	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
336	SDL_UnlockSurface (surface2);	582	SDL_UnlockSurface (surface2);
337	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	583	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
338	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	584	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
339	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));	585	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
340		586
341	SDL_FreeSurface (surface);	587	SDL_FreeSurface (surface);
342	SDL_FreeSurface (surface2);	588	SDL_FreeSurface (surface2);
343	}	589	}
344		590
…		…
368	}	614	}
369		615
370	void	616	void
371	fatal (char *message)	617	fatal (char *message)
372	CODE:	618	CODE:
373	#ifdef WIN32	619	#ifdef _WIN32
374	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);	620	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
375	#else	621	#else
376	fprintf (stderr, "FATAL: %s\n", message);	622	fprintf (stderr, "FATAL: %s\n", message);
377	#endif	623	#endif
378	exit (1);	624	exit (1);
…		…
702	cell->darkness = -1;	948	cell->darkness = -1;
703	}	949	}
704	}	950	}
705		951
706	SV *	952	SV *
707	mapmap (CFClient::Map self, int w, int h)	953	mapmap (CFClient::Map self, int x0, int y0, int w, int h)
708	CODE:	954	CODE:
709	{	955	{
710	int x0, x1, x;	956	int x1, x;
711	int y0, y1, y;	957	int y1, y;
712	int z;	958	int z;
713	SV map_sv = newSV (w h * sizeof (uint32_t));	959	SV map_sv = newSV (w h * sizeof (uint32_t));
714	uint32_t map = (uint32_t )SvPVX (map_sv);	960	uint32_t map = (uint32_t )SvPVX (map_sv);
715		961
716	SvPOK_only (map_sv);	962	SvPOK_only (map_sv);
717	SvCUR_set (map_sv, w * h * sizeof (uint32_t));	963	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
718		964
719	x0 = self->x - w / 2; x1 = x0 + w;	965	x0 += self->x; x1 = x0 + w;
720	y0 = self->y - h / 2; y1 = y0 + h;	966	y0 += self->y; y1 = y0 + h;
721		967
722	for (y = y0; y < y1; y++)	968	for (y = y0; y < y1; y++)
723	{	969	{
724	maprow *row = 0 <= y && y < self->rows	970	maprow *row = 0 <= y && y < self->rows
725	? self->row + y	971	? self->row + y
…		…
865	data++ = 0; / version 0 format */	1111	data++ = 0; / version 0 format */
866	data++ = w >> 8; data++ = w;	1112	data++ = w >> 8; data++ = w;
867	data++ = h >> 8; data++ = h;	1113	data++ = h >> 8; data++ = h;
868		1114
869	// we need to do this 'cause we don't keep an absolute coord system for rows	1115	// we need to do this 'cause we don't keep an absolute coord system for rows
870	// TODO: treat rows as we treat	1116	// TODO: treat rows as we treat columns
871	map_get_row (self, y0 + self->y - self->oy);//D	1117	map_get_row (self, y0 + self->y - self->oy);//D
872	map_get_row (self, y0 + self->y - self->oy + h - 1);//D	1118	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
873		1119
874	x0 += self->x - self->ox;	1120	x0 += self->x - self->ox;
875	y0 += self->y - self->oy;	1121	y0 += self->y - self->oy;
…		…
939		1185
940	w = data++ << 8; w \|= data++;	1186	w = data++ << 8; w \|= data++;
941	h = data++ << 8; h \|= data++;	1187	h = data++ << 8; h \|= data++;
942		1188
943	// we need to do this 'cause we don't keep an absolute coord system for rows	1189	// we need to do this 'cause we don't keep an absolute coord system for rows
944	// TODO: treat rows as we treat	1190	// TODO: treat rows as we treat columns
945	map_get_row (self, y0 + self->y - self->oy);//D	1191	map_get_row (self, y0 + self->y - self->oy);//D
946	map_get_row (self, y0 + self->y - self->oy + h - 1);//D	1192	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
947		1193
948	x0 += self->x - self->ox;	1194	x0 += self->x - self->ox;
949	y0 += self->y - self->oy;	1195	y0 += self->y - self->oy;
…		…
984	}	1230	}
985	}	1231	}
986	}	1232	}
987	}	1233	}
988		1234
		1235	MODULE = CFClient PACKAGE = CFClient::MixChunk
		1236
		1237	CFClient::MixChunk
		1238	new_from_file (SV class, char path)
		1239	CODE:
		1240	RETVAL = Mix_LoadWAV (path);
		1241	OUTPUT:
		1242	RETVAL
		1243
		1244	void
		1245	DESTROY (CFClient::MixChunk self)
		1246	CODE:
		1247	Mix_FreeChunk (self);
		1248
		1249	int
		1250	volume (CFClient::MixChunk self, int volume = -1)
		1251	CODE:
		1252	RETVAL = Mix_VolumeChunk (self, volume);
		1253	OUTPUT:
		1254	RETVAL
		1255
		1256	int
		1257	play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
		1258	CODE:
		1259	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		1260	OUTPUT:
		1261	RETVAL
		1262
		1263	MODULE = CFClient PACKAGE = CFClient::MixMusic
		1264
		1265	int
		1266	volume (int volume = -1)
		1267	CODE:
		1268	RETVAL = Mix_VolumeMusic (volume);
		1269	OUTPUT:
		1270	RETVAL
		1271
		1272	CFClient::MixMusic
		1273	new_from_file (SV class, char path)
		1274	CODE:
		1275	RETVAL = Mix_LoadMUS (path);
		1276	OUTPUT:
		1277	RETVAL
		1278
		1279	void
		1280	DESTROY (CFClient::MixMusic self)
		1281	CODE:
		1282	Mix_FreeMusic (self);
		1283
		1284	int
		1285	play (CFClient::MixMusic self, int loops = -1)
		1286	CODE:
		1287	RETVAL = Mix_PlayMusic (self, loops);
		1288	OUTPUT:
		1289	RETVAL
		1290
		1291	MODULE = CFClient PACKAGE = CFClient::OpenGL
		1292
		1293	BOOT:
		1294	{
		1295	HV *stash = gv_stashpv ("CFClient::OpenGL", 1);
		1296	static const struct {
		1297	const char *name;
		1298	IV iv;
		1299	} *civ, const_iv[] = {
		1300	# define const_iv(name) { # name, (IV)name }
		1301	const_iv (GL_COLOR_MATERIAL),
		1302	const_iv (GL_SMOOTH),
		1303	const_iv (GL_FLAT),
		1304	const_iv (GL_BLEND),
		1305	const_iv (GL_AND),
		1306	const_iv (GL_SRC_ALPHA),
		1307	const_iv (GL_ONE_MINUS_SRC_ALPHA),
		1308	const_iv (GL_RGB),
		1309	const_iv (GL_RGBA),
		1310	const_iv (GL_UNSIGNED_BYTE),
		1311	const_iv (GL_ALPHA4),
		1312	const_iv (GL_ALPHA),
		1313	const_iv (GL_FLOAT),
		1314	const_iv (GL_UNSIGNED_INT_8_8_8_8_REV),
		1315	const_iv (GL_COMPILE),
		1316	const_iv (GL_TEXTURE_1D),
		1317	const_iv (GL_TEXTURE_2D),
		1318	const_iv (GL_TEXTURE_ENV),
		1319	const_iv (GL_TEXTURE_MAG_FILTER),
		1320	const_iv (GL_TEXTURE_MIN_FILTER),
		1321	const_iv (GL_TEXTURE_ENV_MODE),
		1322	const_iv (GL_TEXTURE_WRAP_S),
		1323	const_iv (GL_TEXTURE_WRAP_T),
		1324	const_iv (GL_CLAMP),
		1325	const_iv (GL_REPEAT),
		1326	const_iv (GL_NEAREST),
		1327	const_iv (GL_LINEAR),
		1328	const_iv (GL_MODULATE),
		1329	const_iv (GL_REPLACE),
		1330	const_iv (GL_COLOR_BUFFER_BIT),
		1331	const_iv (GL_PROJECTION),
		1332	const_iv (GL_MODELVIEW),
		1333	const_iv (GL_COLOR_LOGIC_OP),
		1334	const_iv (GL_CONVOLUTION_2D),
		1335	const_iv (GL_CONVOLUTION_BORDER_MODE),
		1336	const_iv (GL_CONSTANT_BORDER),
		1337	const_iv (GL_LINES),
		1338	const_iv (GL_QUADS),
		1339	const_iv (GL_LINE_LOOP),
		1340	const_iv (GL_PERSPECTIVE_CORRECTION_HINT),
		1341	const_iv (GL_FASTEST),
		1342	# undef const_iv
		1343	};
		1344
		1345	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		1346	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		1347	}
		1348
		1349	int glGetError ()
		1350
		1351	void glClear (int mask)
		1352
		1353	void glClearColor (float r, float g, float b, float a = 1.0)
		1354	PROTOTYPE: @
		1355
		1356	void glEnable (int cap)
		1357
		1358	void glDisable (int cap)
		1359
		1360	void glShadeModel (int mode)
		1361
		1362	void glHint (int target, int mode)
		1363
		1364	void glBlendFunc (int sfactor, int dfactor)
		1365
		1366	void glLogicOp (int opcode)
		1367
		1368	void glMatrixMode (int mode)
		1369
		1370	void glPushMatrix ()
		1371
		1372	void glPopMatrix ()
		1373
		1374	void glLoadIdentity ()
		1375
		1376	void glOrtho (double left, double right, double bottom, double top, double near, double far)
		1377
		1378	void glViewport (int x, int y, int width, int height)
		1379
		1380	void glTranslate (float x, float y, float z = 0.)
		1381	CODE:
		1382	glTranslatef (x, y, z);
		1383
		1384	void glScale (float x, float y, float z)
		1385	CODE:
		1386	glScalef (x, y, z);
		1387
		1388	void glRotate (float angle, float x, float y, float z)
		1389	CODE:
		1390	glRotatef (angle, x, y, z);
		1391
		1392	void glBegin (int mode)
		1393
		1394	void glEnd ()
		1395
		1396	void glColor (float r, float g, float b, float a = 1.0)
		1397	PROTOTYPE: @
		1398	CODE:
		1399	glColor4f (r, g, b, a);
		1400
		1401	void glVertex (float x, float y, float z = 0.)
		1402	CODE:
		1403	glVertex3f (x, y, z);
		1404
		1405	void glTexCoord (float s, float t)
		1406	CODE:
		1407	glTexCoord2f (s, t);
		1408
		1409	void glTexEnv (int target, int pname, float param)
		1410	CODE:
		1411	glTexEnvf (target, pname, param);
		1412
		1413	void glTexParameter (int target, int pname, float param)
		1414	CODE:
		1415	glTexParameterf (target, pname, param);
		1416
		1417	void glBindTexture (int target, int name)
		1418
		1419	void glConvolutionParameter (int target, int pname, float params)
		1420	CODE:
		1421	glConvolutionParameterf (target, pname, params);
		1422
		1423	void glConvolutionFilter2D (int target, int internalformat, int width, int height, int format, int type, char *data)
		1424
		1425	void glTexImage2D (int target, int level, int internalformat, int width, int height, int border, int format, int type, char *data)
		1426
		1427	void glCopyTexImage2D (int target, int level, int internalformat, int x, int y, int width, int height, int border)
		1428
		1429	int glGenTexture ()
		1430	CODE:
		1431	{
		1432	GLuint name;
		1433	glGenTextures (1, &name);
		1434	RETVAL = name;
		1435	}
		1436	OUTPUT:
		1437	RETVAL
		1438
		1439	void glDeleteTexture (int name)
		1440	CODE:
		1441	{
		1442	GLuint name_ = name;
		1443	glDeleteTextures (1, &name_);
		1444	}
		1445
		1446	int glGenList ()
		1447	CODE:
		1448	RETVAL = glGenLists (1);
		1449	OUTPUT:
		1450	RETVAL
		1451
		1452	void glDeleteList (int list)
		1453	CODE:
		1454	glDeleteLists (list, 1);
		1455
		1456	void glNewList (int list, int mode = GL_COMPILE)
		1457
		1458	void glEndList ()
		1459
		1460	void glCallList (int list)
		1461

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.48 by root, Tue Apr 18 00:14:16 2006 UTC vs. Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.48 by root, Tue Apr 18 00:14:16 2006 UTC vs.
Revision 1.56 by root, Thu Apr 20 09:13:31 2006 UTC