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

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.318 by root, Wed Dec 24 06:12:21 2014 UTC vs.
Revision 1.329 by root, Sun Nov 18 13:07:51 2018 UTC

…		…
15		15
16	#include "EXTERN.h"	16	#include "EXTERN.h"
17	#include "perl.h"	17	#include "perl.h"
18	#include "XSUB.h"	18	#include "XSUB.h"
19		19
		20	#include "flat_hash_map.hpp"
		21
20	#ifdef _WIN32	22	#ifdef _WIN32
21	# undef pipe	23	# undef pipe
22	// microsoft vs. C	24	// microsoft vs. C
23	# define sqrtf(x) sqrt(x)	25	# define sqrtf(x) sqrt(x)
24	# define atan2f(x,y) atan2(x,y)	26	# define atan2f(x,y) atan2(x,y)
25	# define M_PI 3.14159265f	27	# define M_PI 3.14159265f
26	#endif	28	#endif
27		29
28	#include <assert.h>	30	#include <cassert>
29	#include <math.h>	31	#include <cmath>
30	#include <string.h>	32	#include <cstring>
31	#include <stdio.h>	33	#include <cstdio>
32	#include <stdlib.h>	34	#include <cstdlib>
		35
		36	#include <utility>
		37	#include <bitset>
33		38
34	#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW	39	#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
35		40
36	#include <SDL.h>	41	#include <SDL.h>
37	#include <SDL_thread.h>	42	#include <SDL_thread.h>
…		…
184	{	189	{
185	GSList *attrs = run->item->analysis.extra_attrs;	190	GSList *attrs = run->item->analysis.extra_attrs;
186		191
187	while (attrs)	192	while (attrs)
188	{	193	{
189	PangoAttribute *attr = attrs->data;	194	PangoAttribute attr = (PangoAttribute )attrs->data;
190		195
191	if (attr->klass->type == PANGO_ATTR_SHAPE)	196	if (attr->klass->type == PANGO_ATTR_SHAPE)
192	return 1;	197	return 1;
193		198
194	attrs = attrs->next;	199	attrs = attrs->next;
195	}	200	}
196		201
197	return 0;	202	return 0;
198	}	203	}
199		204
200	typedef struct cf_layout {	205	struct cf_layout {
201	PangoLayout *pl;	206	PangoLayout *pl;
202	float r, g, b, a; // default color for rgba mode	207	float r, g, b, a; // default color for rgba mode
203	int base_height;	208	int base_height;
204	DC__Font font;	209	DC__Font font;
205	rc_t *rc;	210	rc_t rc;
206	} *DC__Layout;	211	};
		212
		213	typedef cf_layout *DC__Layout;
207		214
208	static DC__Font default_font;	215	static DC__Font default_font;
209	static PangoContext *opengl_context;	216	static PangoContext *opengl_context;
210	static PangoFontMap *opengl_fontmap;	217	static PangoFontMap *opengl_fontmap;
211		218
212	static void	219	static void
213	substitute_func (FcPattern *pattern, gpointer data)	220	substitute_func (FcPattern *pattern, gpointer data)
214	{	221	{
215	FcPatternAddBool (pattern, FC_HINTING, 1);	222	FcPatternAddBool (pattern, FC_HINTING, 1);
216	#ifdef FC_HINT_STYLE	223	#ifdef FC_HINT_STYLE
217	FcPatternAddBool (pattern, FC_HINT_STYLE, FC_HINT_FULL);	224	FcPatternAddInteger (pattern, FC_HINT_STYLE, FC_HINT_FULL);
218	#endif	225	#endif
219	FcPatternAddBool (pattern, FC_AUTOHINT, 0);	226	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
220	}	227	}
221		228
222	static void	229	static void
…		…
252	}	259	}
253		260
254	typedef uint16_t tileid;	261	typedef uint16_t tileid;
255	typedef uint16_t faceid;	262	typedef uint16_t faceid;
256		263
257	typedef struct {	264	struct maptex
		265	{
258	GLuint name;	266	GLuint name;
259	int w, h;	267	int w, h;
260	float s, t;	268	float s, t;
261	uint8_t r, g, b, a;	269	uint8_t r, g, b, a;
262	tileid smoothtile;	270	tileid smoothtile;
263	uint8_t smoothlevel;	271	uint8_t smoothlevel;
264	uint8_t unused; /* set to zero on use */	272	uint8_t unused; /* set to zero on use */
265	} maptex;	273	};
266		274
267	typedef struct {	275	struct mapcell
		276	{
268	uint32_t player;	277	uint32_t player;
269	tileid tile[3];	278	tileid tile[3];
270	uint16_t darkness;	279	uint16_t darkness;
271	uint8_t stat_width, stat_hp, flags, smoothmax;	280	uint8_t stat_width, stat_hp, flags, smoothmax;
272	} mapcell;	281	};
273		282
274	typedef struct {	283	struct maprow
		284	{
275	int32_t c0, c1;	285	int32_t c0, c1;
276	mapcell *col;	286	mapcell *col;
277	} maprow;	287	};
278		288
279	typedef struct map {	289	struct mapgrid {
280	int x, y, w, h;	290	int x, y, w, h;
281	int ox, oy; /* offset to virtual global coordinate system */	291	int ox, oy; /* offset to virtual global coordinate system */
282	int faces; tileid *face2tile; // [faceid]	292	int faces; tileid *face2tile; // [faceid]
283	int texs; maptex *tex; // [tileid]	293	int texs; maptex *tex; // [tileid]
284		294
285	int32_t rows;	295	int32_t rows;
286	maprow *row;	296	maprow *row;
287	} *DC__Map;	297	};
288		298
289	static char *	299	typedef mapgrid *DC__Map;
		300
		301	template<typename T>
		302	static void
290	prepend (char *ptr, int sze, int inc)	303	prepend (T *&ptr, int sze, int inc)
291	{	304	{
292	char *p;	305	T *p;
293		306
294	New (0, p, sze + inc, char);	307	New (0, p, sze + inc, T);
295	Zero (p, inc, char);	308	Zero (p, inc, T);
296	Move (ptr, p + inc, sze, char);	309	Move (ptr, p + inc, sze, T);
297	Safefree (ptr);	310	Safefree (ptr);
298		311
299	return p;	312	ptr = p;
300	}	313	}
301		314
302	static char *	315	template<typename T>
303	append (char *ptr, int sze, int inc)
304	{
305	Renew (ptr, sze + inc, char);
306	Zero (ptr + sze, inc, char);
307
308	return ptr;
309	}
310
311	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
312	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
313
314	static void	316	static void
		317	append (T *&ptr, int sze, int inc)
		318	{
		319	Renew (ptr, sze + inc, T);
		320	Zero (ptr + sze, inc, T);
		321	}
		322
		323	static void
315	need_facenum (struct map *self, faceid face)	324	need_facenum (struct mapgrid *self, faceid face)
316	{	325	{
317	while (self->faces <= face)	326	while (self->faces <= face)
318	{	327	{
319	Append (tileid, self->face2tile, self->faces, self->faces);	328	append (self->face2tile, self->faces, self->faces);
320	self->faces *= 2;	329	self->faces *= 2;
321	}	330	}
322	}	331	}
323		332
324	static void	333	static void
325	need_texid (struct map *self, int texid)	334	need_texid (struct mapgrid *self, int texid)
326	{	335	{
327	while (self->texs <= texid)	336	while (self->texs <= texid)
328	{	337	{
329	Append (maptex, self->tex, self->texs, self->texs);	338	append (self->tex, self->texs, self->texs);
330	self->texs *= 2;	339	self->texs *= 2;
331	}	340	}
332	}	341	}
333		342
334	static maprow *	343	static maprow *
335	map_get_row (DC__Map self, int y)	344	map_get_row (mapgrid *self, int y)
336	{	345	{
337	if (0 > y)	346	if (0 > y)
338	{	347	{
339	int extend = - y + MAP_EXTEND_Y;	348	int extend = - y + MAP_EXTEND_Y;
340	Prepend (maprow, self->row, self->rows, extend);	349	prepend (self->row, self->rows, extend);
341		350
342	self->rows += extend;	351	self->rows += extend;
343	self->y += extend;	352	self->y += extend;
344	y += extend;	353	y += extend;
345	}	354	}
346	else if (y >= self->rows)	355	else if (y >= self->rows)
347	{	356	{
348	int extend = y - self->rows + MAP_EXTEND_Y;	357	int extend = y - self->rows + MAP_EXTEND_Y;
349	Append (maprow, self->row, self->rows, extend);	358	append (self->row, self->rows, extend);
350	self->rows += extend;	359	self->rows += extend;
351	}	360	}
352		361
353	return self->row + y;	362	return self->row + y;
354	}	363	}
…		…
364	}	373	}
365		374
366	if (row->c0 > x)	375	if (row->c0 > x)
367	{	376	{
368	int extend = row->c0 - x + MAP_EXTEND_X;	377	int extend = row->c0 - x + MAP_EXTEND_X;
369	Prepend (mapcell, row->col, row->c1 - row->c0, extend);	378	prepend (row->col, row->c1 - row->c0, extend);
370	row->c0 -= extend;	379	row->c0 -= extend;
371	}	380	}
372	else if (x >= row->c1)	381	else if (x >= row->c1)
373	{	382	{
374	int extend = x - row->c1 + MAP_EXTEND_X;	383	int extend = x - row->c1 + MAP_EXTEND_X;
375	Append (mapcell, row->col, row->c1 - row->c0, extend);	384	append (row->col, row->c1 - row->c0, extend);
376	row->c1 += extend;	385	row->c1 += extend;
377	}	386	}
378		387
379	return row->col + (x - row->c0);	388	return row->col + (x - row->c0);
380	}	389	}
381		390
382	static mapcell *	391	static mapcell *
383	map_get_cell (DC__Map self, int x, int y)	392	map_get_cell (mapgrid *self, int x, int y)
384	{	393	{
385	return row_get_cell (map_get_row (self, y), x);	394	return row_get_cell (map_get_row (self, y), x);
386	}	395	}
387		396
388	static void	397	static void
389	map_clear (DC__Map self)	398	map_clear (mapgrid *self)
390	{	399	{
391	int r;	400	int r;
392		401
393	for (r = 0; r < self->rows; r++)	402	for (r = 0; r < self->rows; r++)
394	Safefree (self->row[r].col);	403	Safefree (self->row[r].col);
…		…
412	(cell)->flags = 0; \	421	(cell)->flags = 0; \
413	(cell)->player = 0; \	422	(cell)->player = 0; \
414	} while (0)	423	} while (0)
415		424
416	static void	425	static void
417	map_blank (DC__Map self, int x0, int y0, int w, int h)	426	map_blank (mapgrid *self, int x0, int y0, int w, int h)
418	{	427	{
419	int x, y;	428	int x, y;
420	maprow *row;	429	maprow *row;
421	mapcell *cell;	430	mapcell *cell;
422		431
…		…
439	CELL_CLEAR (cell);	448	CELL_CLEAR (cell);
440	}	449	}
441	}	450	}
442	}	451	}
443		452
444	typedef struct {	453	struct smooth_key
		454	{
445	tileid tile;	455	tileid tile;
446	uint8_t x, y, level;	456	uint8_t x, y, level;
447	} smooth_key;	457
		458	bool operator == (const smooth_key &o) const
		459	{
		460	return tile == o.tile && x == o.x && y == o.y && level == o.level;
		461	}
		462	};
		463
		464	typedef ska::flat_hash_map<smooth_key, IV> smooth_hash;
		465
		466	namespace std {
		467	template <>
		468	struct hash<smooth_key>
		469	{
		470	size_t operator () (const smooth_key &v) const
		471	{
		472	return v.tile + (v.x << 8) + (v.y << 16) + (v.level << 24);
		473	}
		474	};
		475	}
448		476
449	static void	477	static void
450	smooth_or_bits (HV hv, smooth_key key, IV bits)	478	smooth_or_bits (smooth_hash &h, smooth_key &key, IV bits)
451	{	479	{
452	SV *sv = hv_fetch (hv, (char )key, sizeof (*key), 1);	480	auto &&it = h.find (key);
453		481
454	if (SvIOK (*sv))	482	if (it == h.end ())
455	SvIV_set (sv, SvIVX (sv) \| bits);	483	h.insert (std::make_pair (key, bits));
456	else	484	else
457	sv_setiv (*sv, bits);	485	it->second \|= bits;
458	}	486	}
459		487
460	static void	488	static void
461	music_finished (void)	489	music_finished (void)
462	{	490	{
…		…
481	ev.data2 = 0;	509	ev.data2 = 0;
482		510
483	SDL_PushEvent ((SDL_Event *)&ev);	511	SDL_PushEvent ((SDL_Event *)&ev);
484	}	512	}
485		513
		514	// approximately divide by 255
486	static unsigned int	515	static unsigned int
487	div255 (unsigned int n)	516	div255 (unsigned int n)
488	{	517	{
489	return (n + (n >> 8)) >> 8;	518	return (n + (n >> 8)) >> 8;
490	}	519	}
…		…
889	void SDL_QuitSubSystem (U32 flags)	918	void SDL_QuitSubSystem (U32 flags)
890		919
891	void SDL_Quit ()	920	void SDL_Quit ()
892		921
893	int SDL_GL_SetAttribute (int attr, int value)	922	int SDL_GL_SetAttribute (int attr, int value)
		923	C_ARGS: (SDL_GLattr)attr, value
894		924
895	int SDL_GL_GetAttribute (int attr)	925	int SDL_GL_GetAttribute (int attr)
896	CODE:	926	CODE:
897	if (SDL_GL_GetAttribute (attr, &RETVAL))	927	if (SDL_GL_GetAttribute ((SDL_GLattr)attr, &RETVAL))
898	XSRETURN_UNDEF;	928	XSRETURN_UNDEF;
899	OUTPUT:	929	OUTPUT:
900	RETVAL	930	RETVAL
901		931
902	void	932	void
…		…
975	void	1005	void
976	SDL_GL_SwapBuffers ()	1006	SDL_GL_SwapBuffers ()
977		1007
978	char *	1008	char *
979	SDL_GetKeyName (int sym)	1009	SDL_GetKeyName (int sym)
		1010	C_ARGS: (SDLKey)sym
980		1011
981	int	1012	int
982	SDL_GetAppState ()	1013	SDL_GetAppState ()
983		1014
984	int	1015	int
…		…
1081	OUTPUT:	1112	OUTPUT:
1082	RETVAL	1113	RETVAL
1083		1114
1084	int	1115	int
1085	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)	1116	Mix_OpenAudio (int frequency = 44100, int format = MIX_DEFAULT_FORMAT, int channels = 2, int chunksize = 4096)
1086	POSTCALL:	1117	POSTCALL:
1087	Mix_HookMusicFinished (music_finished);	1118	Mix_HookMusicFinished (music_finished);
1088	Mix_ChannelFinished (channel_finished);	1119	Mix_ChannelFinished (channel_finished);
1089		1120
1090	void	1121	void
1091	Mix_QuerySpec ()	1122	Mix_QuerySpec ()
…		…
1212		1243
1213	SDL_LockSurface (surface2);	1244	SDL_LockSurface (surface2);
1214	EXTEND (SP, 6);	1245	EXTEND (SP, 6);
1215	PUSHs (sv_2mortal (newSViv (surface2->w)));	1246	PUSHs (sv_2mortal (newSViv (surface2->w)));
1216	PUSHs (sv_2mortal (newSViv (surface2->h)));	1247	PUSHs (sv_2mortal (newSViv (surface2->h)));
1217	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	1248	PUSHs (sv_2mortal (newSVpvn ((const char )surface2->pixels, surface2->h surface2->pitch)));
1218	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	1249	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
1219	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	1250	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
1220	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));	1251	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
1221	SDL_UnlockSurface (surface2);	1252	SDL_UnlockSurface (surface2);
1222		1253
…		…
1294	MODULE = Deliantra::Client PACKAGE = DC::Font	1325	MODULE = Deliantra::Client PACKAGE = DC::Font
1295		1326
1296	PROTOTYPES: DISABLE	1327	PROTOTYPES: DISABLE
1297		1328
1298	DC::Font	1329	DC::Font
1299	new_from_file (SV class, char path, int id = 0)	1330	new_from_file (SV klass, char path, int id = 0)
1300	CODE:	1331	CODE:
1301	{	1332	{
1302	int count;	1333	int count;
1303	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);	1334	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )path, id, 0, &count);
1304	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);	1335	RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
…		…
1333	PROTOTYPE:	1364	PROTOTYPE:
1334	CODE:	1365	CODE:
1335	tc_restore ();	1366	tc_restore ();
1336		1367
1337	DC::Layout	1368	DC::Layout
1338	new (SV *class)	1369	new (SV *klass)
1339	CODE:	1370	CODE:
1340	New (0, RETVAL, 1, struct cf_layout);	1371	RETVAL = new cf_layout;
1341		1372
1342	RETVAL->pl = pango_layout_new (opengl_context);	1373	RETVAL->pl = pango_layout_new (opengl_context);
1343	RETVAL->r = 1.;	1374	RETVAL->r = 1.;
1344	RETVAL->g = 1.;	1375	RETVAL->g = 1.;
1345	RETVAL->b = 1.;	1376	RETVAL->b = 1.;
1346	RETVAL->a = 1.;	1377	RETVAL->a = 1.;
1347	RETVAL->base_height = MIN_FONT_HEIGHT;	1378	RETVAL->base_height = MIN_FONT_HEIGHT;
1348	RETVAL->font = 0;	1379	RETVAL->font = 0;
1349	RETVAL->rc = rc_alloc ();
1350		1380
1351	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);	1381	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
1352	layout_update_font (RETVAL);	1382	layout_update_font (RETVAL);
1353	OUTPUT:	1383	OUTPUT:
1354	RETVAL	1384	RETVAL
1355		1385
1356	void	1386	void
1357	DESTROY (DC::Layout self)	1387	DESTROY (DC::Layout self)
1358	CODE:	1388	CODE:
1359	g_object_unref (self->pl);	1389	g_object_unref (self->pl);
1360	rc_free (self->rc);
1361	Safefree (self);	1390	delete self;
1362		1391
1363	void	1392	void
1364	set_text (DC::Layout self, SV *text_)	1393	set_text (DC::Layout self, SV *text_)
1365	CODE:	1394	CODE:
1366	{	1395	{
…		…
1620	}	1649	}
1621		1650
1622	void	1651	void
1623	render (DC::Layout self, float x, float y, int flags = 0)	1652	render (DC::Layout self, float x, float y, int flags = 0)
1624	CODE:	1653	CODE:
1625	rc_clear (self->rc);	1654	self->rc.clear ();
1626	pango_opengl_render_layout_subpixel (	1655	pango_opengl_render_layout_subpixel (
1627	self->pl,	1656	self->pl,
1628	self->rc,	1657	&self->rc,
1629	x * PANGO_SCALE, y * PANGO_SCALE,	1658	x * PANGO_SCALE, y * PANGO_SCALE,
1630	self->r, self->g, self->b, self->a,	1659	self->r, self->g, self->b, self->a,
1631	flags	1660	flags
1632	);	1661	);
1633	// we assume that context_change actually clears/frees stuff	1662	// we assume that context_change actually clears/frees stuff
…		…
1644	gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,	1673	gl_BlendFuncSeparate (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA,
1645	GL_ONE , GL_ONE_MINUS_SRC_ALPHA);	1674	GL_ONE , GL_ONE_MINUS_SRC_ALPHA);
1646	glEnable (GL_ALPHA_TEST);	1675	glEnable (GL_ALPHA_TEST);
1647	glAlphaFunc (GL_GREATER, 7.f / 255.f);	1676	glAlphaFunc (GL_GREATER, 7.f / 255.f);
1648		1677
1649	rc_draw (self->rc);	1678	self->rc.draw ();
1650		1679
1651	glDisable (GL_ALPHA_TEST);	1680	glDisable (GL_ALPHA_TEST);
1652	glDisable (GL_BLEND);	1681	glDisable (GL_BLEND);
1653	glDisable (GL_TEXTURE_2D);	1682	glDisable (GL_TEXTURE_2D);
1654	}	1683	}
…		…
1866	MODULE = Deliantra::Client PACKAGE = DC::Map	1895	MODULE = Deliantra::Client PACKAGE = DC::Map
1867		1896
1868	PROTOTYPES: DISABLE	1897	PROTOTYPES: DISABLE
1869		1898
1870	DC::Map	1899	DC::Map
1871	new (SV *class)	1900	new (SV *klass)
1872	CODE:	1901	CODE:
1873	New (0, RETVAL, 1, struct map);	1902	New (0, RETVAL, 1, mapgrid);
1874	RETVAL->x = 0;	1903	RETVAL->x = 0;
1875	RETVAL->y = 0;	1904	RETVAL->y = 0;
1876	RETVAL->w = 0;	1905	RETVAL->w = 0;
1877	RETVAL->h = 0;	1906	RETVAL->h = 0;
1878	RETVAL->ox = 0;	1907	RETVAL->ox = 0;
…		…
1915		1944
1916	void	1945	void
1917	set_smooth (DC::Map self, int face, int smooth, int level)	1946	set_smooth (DC::Map self, int face, int smooth, int level)
1918	CODE:	1947	CODE:
1919	{	1948	{
1920	tileid texid;	1949	tileid texid;
1921	maptex *tex;	1950	maptex *tex;
1922		1951
1923	if (face < 0 \|\| face >= self->faces)	1952	if (face < 0 \|\| face >= self->faces)
1924	return;	1953	return;
1925		1954
1926	if (smooth < 0 \|\| smooth >= self->faces)	1955	if (smooth < 0 \|\| smooth >= self->faces)
1927	return;	1956	return;
1928		1957
1929	texid = self->face2tile [face];	1958	texid = self->face2tile [face];
1930		1959
1931	if (!texid)	1960	if (!texid)
1932	return;	1961	return;
1933		1962
1934	tex = self->tex + texid;	1963	tex = self->tex + texid;
…		…
1967	}	1996	}
1968		1997
1969	void	1998	void
1970	expire_textures (DC::Map self, int texid, int count)	1999	expire_textures (DC::Map self, int texid, int count)
1971	PPCODE:	2000	PPCODE:
1972	for (; texid < self->texs && count; ++texid, --count)	2001	for (; texid < self->texs && count; ++texid, --count)
1973	{	2002	{
1974	maptex *tex = self->tex + texid;	2003	maptex *tex = self->tex + texid;
1975		2004
1976	if (tex->name)	2005	if (tex->name)
1977	{	2006	{
…		…
2024	self->ox += dx; self->x += dx;	2053	self->ox += dx; self->x += dx;
2025	self->oy += dy; self->y += dy;	2054	self->oy += dy; self->y += dy;
2026		2055
2027	while (self->y < 0)	2056	while (self->y < 0)
2028	{	2057	{
2029	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);	2058	prepend (self->row, self->rows, MAP_EXTEND_Y);
2030		2059
2031	self->rows += MAP_EXTEND_Y;	2060	self->rows += MAP_EXTEND_Y;
2032	self->y += MAP_EXTEND_Y;	2061	self->y += MAP_EXTEND_Y;
2033	}	2062	}
2034	}	2063	}
…		…
2179	\| (b << 16)	2208	\| (b << 16)
2180	\| (a << 24);	2209	\| (a << 24);
2181	}	2210	}
2182	}	2211	}
2183		2212
2184	RETVAL = map_sv;	2213	RETVAL = map_sv;
2185	}	2214	}
2186	OUTPUT:	2215	OUTPUT:
2187	RETVAL	2216	RETVAL
2188		2217
2189	void	2218	void
2190	draw (DC::Map self, int mx, int my, int sw, int sh, int Tw, int Th, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)	2219	draw (DC::Map self, int mx, int my, int sw, int sh, int Tw, int Th, U32 player = 0xffffffff, int sdx = 0, int sdy = 0)
2191	CODE:	2220	CODE:
2192	{	2221	{
2193	int x, y, z;	2222	int x, y, z;
2194		2223
2195	HV smooth = (HV )sv_2mortal ((SV *)newHV ());
2196	uint32_t smooth_level[256 / 32]; // one bit for every possible smooth level
2197	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k)	2224	static uint8_t smooth_max[256][256]; // egad, fast and wasteful on memory (64k), also, static!
2198	smooth_key skey;
2199	int pl_x, pl_y;	2225	int pl_x, pl_y;
2200	maptex pl_tex;	2226	maptex pl_tex;
2201	rc_t *rc = rc_alloc ();	2227	rc_t rc;
2202	rc_t *rc_ov = rc_alloc ();	2228	rc_t rc_ov;
2203	rc_key_t key;	2229	rc_key_t key;
2204	rc_array_t *arr;	2230	rc_t::array_t *arr;
2205		2231
2206	pl_tex.name = 0;	2232	pl_tex.name = 0;
2207		2233
2208	// that's current max. sorry.	2234	// that's current max. sorry.
2209	if (sw > 255) sw = 255;	2235	if (sw > 255) sw = 255;
2210	if (sh > 255) sh = 255;	2236	if (sh > 255) sh = 255;
2211
2212	// clear key, in case of extra padding
2213	memset (&skey, 0, sizeof (skey));
2214		2237
2215	memset (&key, 0, sizeof (key));	2238	memset (&key, 0, sizeof (key));
2216	key.r = 255;	2239	key.r = 255;
2217	key.g = 255;	2240	key.g = 255;
2218	key.b = 255;	2241	key.b = 255;
…		…
2224	my += self->y;	2247	my += self->y;
2225		2248
2226	// first pass: determine smooth_max	2249	// first pass: determine smooth_max
2227	// rather ugly, if you ask me	2250	// rather ugly, if you ask me
2228	// could also be stored inside mapcell and updated on change	2251	// could also be stored inside mapcell and updated on change
2229	memset (smooth_max, 0, sizeof (smooth_max));	2252	memset (smooth_max, 0, sizeof (smooth_max[0]) * (sh + 1));
2230		2253
2231	for (y = 0; y < sh; y++)	2254	for (y = 0; y < sh; y++)
2232	if (0 <= y + my && y + my < self->rows)	2255	if (0 <= y + my && y + my < self->rows)
2233	{	2256	{
2234	maprow *row = self->row + (y + my);	2257	maprow *row = self->row + (y + my);
…		…
2249	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	2272	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2250	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	2273	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
2251		2274
2252	for (z = 0; z <= 2; z++)	2275	for (z = 0; z <= 2; z++)
2253	{	2276	{
2254	memset (smooth_level, 0, sizeof (smooth_level));	2277	std::bitset<256> smooth_level; // one bit for every possible smooth level
		2278	smooth_key skey;
		2279	smooth_hash smooth;
2255	key.texname = -1;	2280	key.texname = -1;
2256		2281
2257	for (y = 0; y < sh; y++)	2282	for (y = 0; y < sh; y++)
2258	if (0 <= y + my && y + my < self->rows)	2283	if (0 <= y + my && y + my < self->rows)
2259	{	2284	{
…		…
2276		2301
2277	if (!tex.name)	2302	if (!tex.name)
2278	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */	2303	tex = self->tex [TEXID_NOFACE]; /* missing, replace by noface */
2279		2304
2280	key.texname = tex.name;	2305	key.texname = tex.name;
2281	arr = rc_array (rc, &key);	2306	arr = &rc.array (key);
2282	}	2307	}
2283		2308
2284	px = (x + 1) * Th - tex.w;	2309	px = (x + 1) * Th - tex.w;
2285	py = (y + 1) * Tw - tex.h;	2310	py = (y + 1) * Tw - tex.h;
2286		2311
…		…
2290	pl_y = py;	2315	pl_y = py;
2291	pl_tex = tex;	2316	pl_tex = tex;
2292	continue;	2317	continue;
2293	}	2318	}
2294		2319
2295	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2320	arr->t2f_v3f (0 , 0 , px , py , 0);
2296	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2321	arr->t2f_v3f (0 , tex.t, px , py + tex.h, 0);
2297	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2322	arr->t2f_v3f (tex.s, tex.t, px + tex.w, py + tex.h, 0);
2298	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2323	arr->t2f_v3f (tex.s, 0 , px + tex.w, py , 0);
2299		2324
2300	// update smooth hash	2325	// update smooth hash
2301	if (tex.smoothtile)	2326	if (tex.smoothtile)
2302	{	2327	{
2303	skey.tile = tex.smoothtile;	2328	skey.tile = tex.smoothtile;
2304	skey.level = tex.smoothlevel;	2329	skey.level = tex.smoothlevel;
2305		2330
2306	smooth_level [tex.smoothlevel >> 5] \|= ((uint32_t)1) << (tex.smoothlevel & 31);	2331	smooth_level[tex.smoothlevel] = 1;
2307		2332
2308	// add bits to current tile and all neighbours. skey.x\|y is	2333	// add bits to current tile and all neighbours. skey.x\|y is
2309	// shifted +1\|+1 so we always stay positive.	2334	// shifted +1\|+1 so we always stay positive.
2310		2335
2311	// bits is ___n cccc CCCC bbbb	2336	// bits is ___n cccc CCCC bbbb
…		…
2319		2344
2320	// corners: 1 ┛· 2 ·┗ 4 ·· 8 ··	2345	// corners: 1 ┛· 2 ·┗ 4 ·· 8 ··
2321	// ·· ·· ·┏ ┓·	2346	// ·· ·· ·┏ ┓·
2322		2347
2323	// full tile	2348	// full tile
2324	skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x1000);	2349	skey.x = x + 1; skey.y = y + 1; smooth_or_bits (smooth, skey, 0x1000);
2325		2350
2326	// borders	2351	// borders
2327	skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0091);	2352	skey.x = x + 2; skey.y = y + 1; smooth_or_bits (smooth, skey, 0x0091);
2328	skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0032);	2353	skey.x = x + 1; skey.y = y + 2; smooth_or_bits (smooth, skey, 0x0032);
2329	skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, &skey, 0x0064);	2354	skey.x = x ; skey.y = y + 1; smooth_or_bits (smooth, skey, 0x0064);
2330	skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, &skey, 0x00c8);	2355	skey.x = x + 1; skey.y = y ; smooth_or_bits (smooth, skey, 0x00c8);
2331		2356
2332	// corners	2357	// corners
2333	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0100);	2358	skey.x = x + 2; skey.y = y + 2; smooth_or_bits (smooth, skey, 0x0100);
2334	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, &skey, 0x0200);	2359	skey.x = x ; skey.y = y + 2; smooth_or_bits (smooth, skey, 0x0200);
2335	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0400);	2360	skey.x = x ; skey.y = y ; smooth_or_bits (smooth, skey, 0x0400);
2336	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, &skey, 0x0800);	2361	skey.x = x + 2; skey.y = y ; smooth_or_bits (smooth, skey, 0x0800);
2337	}	2362	}
2338	}	2363	}
2339		2364
2340	if (expect_false (z == 2) && expect_false (cell->flags))	2365	if (expect_false (z == 2) && expect_false (cell->flags))
2341	{	2366	{
2342	// overlays such as the speech bubble, probably more to come	2367	// overlays such as the speech bubble, probably more to come
2343	if (cell->flags & 1)	2368	if (cell->flags & 1)
2344	{	2369	{
2345	rc_key_t key_ov = key;	2370	rc_key_t key_ov = key;
2346	maptex tex = self->tex [TEXID_SPEECH];	2371	maptex tex = self->tex[TEXID_SPEECH];
2347	rc_array_t *arr;
2348	int px = x * Tw + Tw * 2 / 32;	2372	int px = x * Tw + Tw * 2 / 32;
2349	int py = y * Th - Th * 6 / 32;	2373	int py = y * Th - Th * 6 / 32;
2350		2374
2351	key_ov.texname = tex.name;	2375	key_ov.texname = tex.name;
2352	arr = rc_array (rc_ov, &key_ov);	2376	rc_t::array_t &arr = rc_ov.array (key_ov);
2353		2377
2354	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2378	arr.t2f_v3f (0 , 0 , px , py , 0);
2355	rc_t2f_v3f (arr, 0 , tex.t, px , py + Th, 0);	2379	arr.t2f_v3f (0 , tex.t, px , py + Th, 0);
2356	rc_t2f_v3f (arr, tex.s, tex.t, px + Tw, py + Th, 0);	2380	arr.t2f_v3f (tex.s, tex.t, px + Tw, py + Th, 0);
2357	rc_t2f_v3f (arr, tex.s, 0 , px + Tw, py , 0);	2381	arr.t2f_v3f (tex.s, 0 , px + Tw, py , 0);
2358	}	2382	}
2359	}	2383	}
2360	}	2384	}
2361	}	2385	}
2362		2386
2363	rc_draw (rc);	2387	rc.draw ();
2364	rc_clear (rc);	2388	rc.clear ();
2365		2389
2366	// go through all smoothlevels, lowest to highest, then draw.	2390	// go through all smoothlevels, lowest to highest, then draw.
2367	// this is basically counting sort	2391	// this is basically counting sort
2368	{	2392	{
2369	int w, b;	2393	int w, b;
2370		2394
2371	glEnable (GL_TEXTURE_2D);	2395	glEnable (GL_TEXTURE_2D);
2372	glBegin (GL_QUADS);	2396	glBegin (GL_QUADS);
2373	for (w = 0; w < 256 / 32; ++w)	2397	for (int level = 0; level < smooth_level.size (); ++level)
		2398	if (smooth_level[level])
		2399	for (auto &&it = smooth.begin (); it != smooth.end (); ++it)
2374	{	2400	{
2375	uint32_t smask = smooth_level [w];	2401	smooth_key &skey = it->first;
2376	if (smask)	2402	IV bits = it->second;
2377	for (b = 0; b < 32; ++b)	2403
2378	if (smask & (((uint32_t)1) << b))	2404	if (!(bits & 0x1000)
		2405	&& skey.level == level
		2406	&& level > smooth_max [skey.x][skey.y])
2379	{	2407	{
2380	int level = (w << 5) \| b;	2408	maptex tex = self->tex [skey.tile];
		2409	int px = (((int)skey.x) - 1) * Tw;
		2410	int py = (((int)skey.y) - 1) * Th;
		2411	int border = bits & 15;
		2412	int corner = (bits >> 8) & ~(bits >> 4) & 15;
		2413	float dx = tex.s * .0625f; // 16 images/row
		2414	float dy = tex.t * .5f ; // 2 images/column
		2415
2381	HE *he;	2416	if (tex.name)
2382
2383	hv_iterinit (smooth);
2384	while ((he = hv_iternext (smooth)))
2385	{	2417	{
2386	smooth_key skey = (smooth_key )HeKEY (he);	2418	// this time avoiding texture state changes
2387	IV bits = SvIVX (HeVAL (he));	2419	// save gobs of state changes.
2388		2420	if (key.texname != tex.name)
2389	if (!(bits & 0x1000)
2390	&& skey->level == level
2391	&& level > smooth_max [skey->x][skey->y])
2392	{	2421	{
2393	maptex tex = self->tex [skey->tile];
2394	int px = (((int)skey->x) - 1) * Tw;
2395	int py = (((int)skey->y) - 1) * Th;
2396	int border = bits & 15;
2397	int corner = (bits >> 8) & ~(bits >> 4) & 15;
2398	float dx = tex.s * .0625f; // 16 images/row
2399	float dy = tex.t * .5f ; // 2 images/column
2400
2401	if (tex.name)
2402	{
2403	// this time avoiding texture state changes
2404	// save gobs of state changes.
2405	if (key.texname != tex.name)
2406	{
2407	self->tex [skey->tile].unused = 0;	2422	self->tex [skey.tile].unused = 0;
2408		2423
2409	glEnd ();	2424	glEnd ();
2410	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);	2425	glBindTexture (GL_TEXTURE_2D, key.texname = tex.name);
2411	glBegin (GL_QUADS);	2426	glBegin (GL_QUADS);
2412	}	2427	}
2413		2428
2414	if (border)	2429	if (border)
2415	{	2430	{
2416	float ox = border * dx;	2431	float ox = border * dx;
2417		2432
2418	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );	2433	glTexCoord2f (ox , 0.f ); glVertex2i (px , py );
2419	glTexCoord2f (ox , dy ); glVertex2i (px , py + Th);	2434	glTexCoord2f (ox , dy ); glVertex2i (px , py + Th);
2420	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py + Th);	2435	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py + Th);
2421	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + Tw, py );	2436	glTexCoord2f (ox + dx, 0.f ); glVertex2i (px + Tw, py );
2422	}	2437	}
2423		2438
2424	if (corner)	2439	if (corner)
2425	{	2440	{
2426	float ox = corner * dx;	2441	float ox = corner * dx;
2427		2442
2428	glTexCoord2f (ox , dy ); glVertex2i (px , py );	2443	glTexCoord2f (ox , dy ); glVertex2i (px , py );
2429	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + Th);	2444	glTexCoord2f (ox , dy * 2.f); glVertex2i (px , py + Th);
2430	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + Tw, py + Th);	2445	glTexCoord2f (ox + dx, dy * 2.f); glVertex2i (px + Tw, py + Th);
2431	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py );	2446	glTexCoord2f (ox + dx, dy ); glVertex2i (px + Tw, py );
2432	}
2433	}
2434	}	2447	}
2435	}	2448	}
2436	}	2449	}
2437	}	2450	}
2438		2451
2439	glEnd ();	2452	glEnd ();
2440	glDisable (GL_TEXTURE_2D);	2453	glDisable (GL_TEXTURE_2D);
2441	key.texname = -1;	2454	key.texname = -1;
2442	}	2455	}
2443
2444	hv_clear (smooth);
2445	}	2456	}
2446		2457
2447	if (pl_tex.name)	2458	if (pl_tex.name)
2448	{	2459	{
2449	maptex tex = pl_tex;	2460	maptex tex = pl_tex;
2450	int px = pl_x + sdx;	2461	int px = pl_x + sdx;
2451	int py = pl_y + sdy;	2462	int py = pl_y + sdy;
2452		2463
2453	key.texname = tex.name;	2464	key.texname = tex.name;
2454	arr = rc_array (rc, &key);	2465	rc_t::array_t &arr = rc.array (key);
2455		2466
2456	rc_t2f_v3f (arr, 0 , 0 , px , py , 0);	2467	arr.t2f_v3f (0 , 0 , px , py , 0);
2457	rc_t2f_v3f (arr, 0 , tex.t, px , py + tex.h, 0);	2468	arr.t2f_v3f (0 , tex.t, px , py + tex.h, 0);
2458	rc_t2f_v3f (arr, tex.s, tex.t, px + tex.w, py + tex.h, 0);	2469	arr.t2f_v3f (tex.s, tex.t, px + tex.w, py + tex.h, 0);
2459	rc_t2f_v3f (arr, tex.s, 0 , px + tex.w, py , 0);	2470	arr.t2f_v3f (tex.s, 0 , px + tex.w, py , 0);
2460		2471
2461	rc_draw (rc);	2472	rc.draw ();
2462	}	2473	}
2463		2474
2464	rc_draw (rc_ov);	2475	rc_ov.draw ();
2465	rc_clear (rc_ov);	2476	rc_ov.clear ();
2466		2477
2467	glDisable (GL_BLEND);	2478	glDisable (GL_BLEND);
2468	rc_free (rc);
2469	rc_free (rc_ov);
2470		2479
2471	// top layer: overlays such as the health bar	2480	// top layer: overlays such as the health bar
2472	for (y = 0; y < sh; y++)	2481	for (y = 0; y < sh; y++)
2473	if (0 <= y + my && y + my < self->rows)	2482	if (0 <= y + my && y + my < self->rows)
2474	{	2483	{
…		…
2718	else	2727	else
2719	*data++ = 0;	2728	*data++ = 0;
2720	}	2729	}
2721	}	2730	}
2722		2731
2723	/* if size is wh + 5 then no data has been found /	2732	/* if size is wh + 5 then no data has been found /
2724	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)	2733	if (data - (uint8_t )SvPVX (data_sv) != w h + 5)
2725	{	2734	{
2726	SvPOK_only (data_sv);	2735	SvPOK_only (data_sv);
2727	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));	2736	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
2728	}	2737	}
2729		2738
2730	RETVAL = data_sv;	2739	RETVAL = data_sv;
2731	}	2740	}
2732	OUTPUT:	2741	OUTPUT:
2733	RETVAL	2742	RETVAL
2734		2743
2735	void	2744	void
…		…
2742	STRLEN len;	2751	STRLEN len;
2743	uint8_t data, end;	2752	uint8_t data, end;
2744		2753
2745	len = SvLEN (data_sv);	2754	len = SvLEN (data_sv);
2746	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more	2755	SvGROW (data_sv, len + 8); // reserve at least 7+ bytes more
2747	data = SvPVbyte_nolen (data_sv);	2756	data = (uint8_t *)SvPVbyte_nolen (data_sv);
2748	end = data + len + 8;	2757	end = data + len + 8;
2749		2758
2750	if (len < 5)	2759	if (len < 5)
2751	XSRETURN_EMPTY;	2760	XSRETURN_EMPTY;
2752		2761
…		…
2813	}	2822	}
2814		2823
2815	MODULE = Deliantra::Client PACKAGE = DC::RW	2824	MODULE = Deliantra::Client PACKAGE = DC::RW
2816		2825
2817	DC::RW	2826	DC::RW
2818	new (SV class, SV data_sv)	2827	new (SV klass, SV data_sv)
2819	CODE:	2828	CODE:
2820	{	2829	{
2821	STRLEN datalen;	2830	STRLEN datalen;
2822	char *data = SvPVbyte (data_sv, datalen);	2831	char *data = SvPVbyte (data_sv, datalen);
2823		2832
…		…
2825	}	2834	}
2826	OUTPUT:	2835	OUTPUT:
2827	RETVAL	2836	RETVAL
2828		2837
2829	DC::RW	2838	DC::RW
2830	new_from_file (SV class, const char path, const char *mode = "rb")	2839	new_from_file (SV klass, const char path, const char *mode = "rb")
2831	CODE:	2840	CODE:
2832	RETVAL = SDL_RWFromFile (path, mode);	2841	RETVAL = SDL_RWFromFile (path, mode);
2833	OUTPUT:	2842	OUTPUT:
2834	RETVAL	2843	RETVAL
2835		2844
…		…
2944	#else	2953	#else
2945	XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));	2954	XPUSHs (sv_2mortal (newSVpv ("(sdl mixer too old)", 0)));
2946	#endif	2955	#endif
2947		2956
2948	DC::MixChunk	2957	DC::MixChunk
2949	new (SV *class, DC::RW rwops)	2958	new (SV *klass, DC::RW rwops)
2950	CODE:	2959	CODE:
2951	RETVAL = Mix_LoadWAV_RW (rwops, 1);	2960	RETVAL = Mix_LoadWAV_RW (rwops, 1);
2952	OUTPUT:	2961	OUTPUT:
2953	RETVAL	2962	RETVAL
2954		2963
…		…
3024	RETVAL = Mix_PlayingMusic ();	3033	RETVAL = Mix_PlayingMusic ();
3025	OUTPUT:	3034	OUTPUT:
3026	RETVAL	3035	RETVAL
3027		3036
3028	DC::MixMusic	3037	DC::MixMusic
3029	new (SV *class, DC::RW rwops)	3038	new (SV *klass, DC::RW rwops)
3030	CODE:	3039	CODE:
3031	RETVAL = Mix_LoadMUS_RW (rwops);	3040	RETVAL = Mix_LoadMUS_RW (rwops);
3032	OUTPUT:	3041	OUTPUT:
3033	RETVAL	3042	RETVAL
3034		3043
…		…
3187	gl.BlendFuncSeparateEXT = 0;	3196	gl.BlendFuncSeparateEXT = 0;
3188		3197
3189	void	3198	void
3190	apple_nvidia_bug (int enable)	3199	apple_nvidia_bug (int enable)
3191		3200
3192	char *	3201	const char *
3193	gl_vendor ()	3202	gl_vendor ()
3194	CODE:	3203	CODE:
3195	RETVAL = (char *)glGetString (GL_VENDOR);	3204	RETVAL = (const char *)glGetString (GL_VENDOR);
3196	OUTPUT:	3205	OUTPUT:
3197	RETVAL	3206	RETVAL
3198		3207
3199	char *	3208	const char *
3200	gl_version ()	3209	gl_version ()
3201	CODE:	3210	CODE:
3202	RETVAL = (char *)glGetString (GL_VERSION);	3211	RETVAL = (const char *)glGetString (GL_VERSION);
3203	OUTPUT:	3212	OUTPUT:
3204	RETVAL	3213	RETVAL
3205		3214
3206	char *	3215	const char *
3207	gl_extensions ()	3216	gl_extensions ()
3208	CODE:	3217	CODE:
3209	RETVAL = (char *)glGetString (GL_EXTENSIONS);	3218	RETVAL = (const char *)glGetString (GL_EXTENSIONS);
3210	OUTPUT:	3219	OUTPUT:
3211	RETVAL	3220	RETVAL
3212		3221
3213	const char *glGetString (GLenum pname)	3222	const char *glGetString (GLenum pname)
		3223	CODE:
		3224	RETVAL = (const char *)glGetString (pname);
		3225	OUTPUT:
		3226	RETVAL
3214		3227
3215	GLint glGetInteger (GLenum pname)	3228	GLint glGetInteger (GLenum pname)
3216	CODE:	3229	CODE:
3217	glGetIntegerv (pname, &RETVAL);	3230	glGetIntegerv (pname, &RETVAL);
3218	OUTPUT:	3231	OUTPUT:
…		…
3421		3434
3422	void	3435	void
3423	find_widget (SV *self, NV x, NV y)	3436	find_widget (SV *self, NV x, NV y)
3424	PPCODE:	3437	PPCODE:
3425	{	3438	{
3426	if (within_widget (self, x, y))	3439	if (within_widget (self, x, y))
3427	XPUSHs (self);	3440	XPUSHs (self);
3428	}	3441	}
3429		3442
3430	BOOT:	3443	BOOT:
3431	{	3444	{
…		…
3439		3452
3440	void	3453	void
3441	draw (SV *self)	3454	draw (SV *self)
3442	CODE:	3455	CODE:
3443	{	3456	{
3444	HV *hv;	3457	HV *hv;
3445	SV **svp;	3458	SV **svp;
3446	NV x, y, w, h;	3459	NV x, y, w, h;
3447	SV *draw_x_sv = GvSV (draw_x_gv);	3460	SV *draw_x_sv = GvSV (draw_x_gv);
3448	SV *draw_y_sv = GvSV (draw_y_gv);	3461	SV *draw_y_sv = GvSV (draw_y_gv);
3449	SV *draw_w_sv = GvSV (draw_w_gv);	3462	SV *draw_w_sv = GvSV (draw_w_gv);
3450	SV *draw_h_sv = GvSV (draw_h_gv);	3463	SV *draw_h_sv = GvSV (draw_h_gv);

Diff Legend

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

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.318 by root, Wed Dec 24 06:12:21 2014 UTC vs. Revision 1.329 by root, Sun Nov 18 13:07:51 2018 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.318 by root, Wed Dec 24 06:12:21 2014 UTC vs.
Revision 1.329 by root, Sun Nov 18 13:07:51 2018 UTC