deliantra/Deliantra-Client/Client.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include <string.h>

#include <SDL.h>
#include <SDL_opengl.h>

#include <pango/pango.h>
#include <pango/pangofc-fontmap.h>
#include <pango/pangoft2.h>

#include <sys/time.h>
#include <sys/types.h>
#include <unistd.h>

#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>

static PangoContext *context;
static PangoFontMap *fontmap;

typedef struct cf_layout {
  PangoLayout *pl;
  int base_height;
} *CFClient__Layout;

static void
substitute_func (FcPattern *pattern, gpointer data)
{
  FcPatternAddBool (pattern, FC_HINTING , 1);
  FcPatternAddBool (pattern, FC_AUTOHINT, 1);
}

static void
layout_update (CFClient__Layout self)
{
  /* use a random scale factor to account for unknown descenders, 0.8 works
   * reasonably well with bitstream vera
   */
  PangoFontDescription *font = pango_context_get_font_description (context);
  pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
}

static void
layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
{
  layout_update (self);

  pango_layout_get_pixel_size (self->pl, w, h);

  *w = (*w + 3) & ~3;
  if (!*w) *w = 1;
  if (!*h) *h = 1;
}

MODULE = CFClient       PACKAGE = CFClient

PROTOTYPES: ENABLE

BOOT:
{
        fontmap = pango_ft2_font_map_new ();
        pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
        context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
}

void
lowdelay (int fd, int val = 1)
        CODE:
        setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));

char *
gl_version ()
        CODE:
        RETVAL = (char *)glGetString (GL_VERSION);
        OUTPUT:
        RETVAL

char *
gl_extensions ()
        CODE:
        RETVAL = (char *)glGetString (GL_EXTENSIONS);
        OUTPUT:
        RETVAL

void
add_font (char *file)
        CODE:
        FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */

void
set_font (char *file)
        CODE:
{
        int count;
        FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
        PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
        FcPatternDestroy (pattern);
        pango_context_set_font_description (context, font);
}

MODULE = CFClient       PACKAGE = CFClient::Layout

CFClient::Layout
new (SV *class, int base_height = 10)
        CODE:
        New (0, RETVAL, 1, struct cf_layout);
        RETVAL->base_height = base_height;
        RETVAL->pl = pango_layout_new (context);
        pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
        OUTPUT:
        RETVAL

void
DESTROY (CFClient::Layout self)
        CODE:
        g_object_unref (self->pl);
        Safefree (self);

void
set_markup (CFClient::Layout self, SV *text_)
        CODE:
{
        STRLEN textlen;
        char *text = SvPVutf8 (text_, textlen);

        pango_layout_set_markup (self->pl, text, textlen);
}

void
set_height (CFClient::Layout self, int base_height)
        CODE:
        self->base_height = base_height;

void
set_width (CFClient::Layout self, int max_width = -1)
        CODE:
        pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);

void
size (CFClient::Layout self)
        PPCODE:
{
        int w, h;

        layout_update (self);
        layout_get_pixel_size (self, &w, &h);

        EXTEND (SP, 2);
        PUSHs (sv_2mortal (newSViv (w)));
        PUSHs (sv_2mortal (newSViv (h)));
}

int
xy_to_index (CFClient::Layout self, int x, int y)
        CODE:
{
        int index, trailing;

        layout_update (self);
        pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);

        RETVAL = index;
}
        OUTPUT:
        RETVAL

void
cursor_pos (CFClient::Layout self, int index)
        PPCODE:
{
        PangoRectangle strong_pos;
        layout_update (self);
        pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
        EXTEND (SP, 3);
        PUSHs (sv_2mortal (newSViv (strong_pos.x      / PANGO_SCALE)));
        PUSHs (sv_2mortal (newSViv (strong_pos.y      / PANGO_SCALE)));
        PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
}

void
render (CFClient::Layout self)
        PPCODE:
{
        SV *retval;
        int w, h;
        FT_Bitmap bitmap;

        layout_update (self);
        layout_get_pixel_size (self, &w, &h);

        retval = newSV (w * h);
        SvPOK_only (retval);
        SvCUR_set (retval, w * h);

        bitmap.rows       = h;
        bitmap.width      = w;
        bitmap.pitch      = w;
        bitmap.buffer     = (unsigned char*)SvPVX (retval);
        bitmap.num_grays  = 256;
        bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;

        memset (bitmap.buffer, 0, w * h);
            
        pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);

        EXTEND (SP, 3);
        PUSHs (sv_2mortal (newSViv (w)));
        PUSHs (sv_2mortal (newSViv (h)));
        PUSHs (sv_2mortal (retval));
}

MODULE = CFClient       PACKAGE = CFClient::Texture

void
draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
        PROTOTYPE: $$$;$$
        CODE:
{
        HV *hv = (HV *)SvRV (self);
        double s = SvNV (*hv_fetch (hv, "s", 1, 1));
        double t = SvNV (*hv_fetch (hv, "t", 1, 1));
        int name = SvIV (*hv_fetch (hv, "name", 4, 1));

        if (items < 5)
          {
            w = SvNV (*hv_fetch (hv, "w", 1, 1));
            h = SvNV (*hv_fetch (hv, "h", 1, 1));
          }

        glBindTexture (GL_TEXTURE_2D, name);
        glBegin (GL_QUADS);
        glTexCoord2d (0, 0); glVertex2d (x    , y    );
        glTexCoord2d (0, t); glVertex2d (x    , y + h);
        glTexCoord2d (s, t); glVertex2d (x + w, y + h);
        glTexCoord2d (s, 0); glVertex2d (x + w, y    );
        glEnd ();
}
Revision:	1.22
Committed:	Wed Apr 12 20:06:36 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.21:	+4 -6 lines
Log Message:	even less gtk
#	Content
1	#include "EXTERN.h"
2	#include "perl.h"
3	#include "XSUB.h"
4
5	#include <string.h>
6
7	#include <SDL.h>
8	#include <SDL_opengl.h>
9
10	#include <pango/pango.h>
11	#include <pango/pangofc-fontmap.h>
12	#include <pango/pangoft2.h>
13
14	#include <sys/time.h>
15	#include <sys/types.h>
16	#include <unistd.h>
17
18	#include <sys/types.h>
19	#include <sys/socket.h>
20	#include <netinet/in.h>
21	#include <netinet/tcp.h>
22
23	static PangoContext *context;
24	static PangoFontMap *fontmap;
25
26	typedef struct cf_layout {
27	PangoLayout *pl;
28	int base_height;
29	} *CFClient__Layout;
30
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
49	layout_get_pixel_size (CFClient__Layout self, int w, int h)
50	{
51	layout_update (self);
52
53	pango_layout_get_pixel_size (self->pl, w, h);
54
55	w = (w + 3) & ~3;
56	if (!w) w = 1;
57	if (!h) h = 1;
58	}
59
60	MODULE = CFClient PACKAGE = CFClient
61
62	PROTOTYPES: ENABLE
63
64	BOOT:
65	{
66	fontmap = pango_ft2_font_map_new ();
67	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
68	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
69	}
70
71	void
72	lowdelay (int fd, int val = 1)
73	CODE:
74	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
75
76	char *
77	gl_version ()
78	CODE:
79	RETVAL = (char *)glGetString (GL_VERSION);
80	OUTPUT:
81	RETVAL
82
83	char *
84	gl_extensions ()
85	CODE:
86	RETVAL = (char *)glGetString (GL_EXTENSIONS);
87	OUTPUT:
88	RETVAL
89
90	void
91	add_font (char *file)
92	CODE:
93	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
94
95	void
96	set_font (char *file)
97	CODE:
98	{
99	int count;
100	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
101	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
102	FcPatternDestroy (pattern);
103	pango_context_set_font_description (context, font);
104	}
105
106	MODULE = CFClient PACKAGE = CFClient::Layout
107
108	CFClient::Layout
109	new (SV *class, int base_height = 10)
110	CODE:
111	New (0, RETVAL, 1, struct cf_layout);
112	RETVAL->base_height = base_height;
113	RETVAL->pl = pango_layout_new (context);
114	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
115	OUTPUT:
116	RETVAL
117
118	void
119	DESTROY (CFClient::Layout self)
120	CODE:
121	g_object_unref (self->pl);
122	Safefree (self);
123
124	void
125	set_markup (CFClient::Layout self, SV *text_)
126	CODE:
127	{
128	STRLEN textlen;
129	char *text = SvPVutf8 (text_, textlen);
130
131	pango_layout_set_markup (self->pl, text, textlen);
132	}
133
134	void
135	set_height (CFClient::Layout self, int base_height)
136	CODE:
137	self->base_height = base_height;
138
139	void
140	set_width (CFClient::Layout self, int max_width = -1)
141	CODE:
142	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
143
144	void
145	size (CFClient::Layout self)
146	PPCODE:
147	{
148	int w, h;
149
150	layout_update (self);
151	layout_get_pixel_size (self, &w, &h);
152
153	EXTEND (SP, 2);
154	PUSHs (sv_2mortal (newSViv (w)));
155	PUSHs (sv_2mortal (newSViv (h)));
156	}
157
158	int
159	xy_to_index (CFClient::Layout self, int x, int y)
160	CODE:
161	{
162	int index, trailing;
163
164	layout_update (self);
165	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
166
167	RETVAL = index;
168	}
169	OUTPUT:
170	RETVAL
171
172	void
173	cursor_pos (CFClient::Layout self, int index)
174	PPCODE:
175	{
176	PangoRectangle strong_pos;
177	layout_update (self);
178	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
179	EXTEND (SP, 3);
180	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
181	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
182	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
183	}
184
185	void
186	render (CFClient::Layout self)
187	PPCODE:
188	{
189	SV *retval;
190	int w, h;
191	FT_Bitmap bitmap;
192
193	layout_update (self);
194	layout_get_pixel_size (self, &w, &h);
195
196	retval = newSV (w * h);
197	SvPOK_only (retval);
198	SvCUR_set (retval, w * h);
199
200	bitmap.rows = h;
201	bitmap.width = w;
202	bitmap.pitch = w;
203	bitmap.buffer = (unsigned char*)SvPVX (retval);
204	bitmap.num_grays = 256;
205	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
206
207	memset (bitmap.buffer, 0, w * h);
208
209	pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
210
211	EXTEND (SP, 3);
212	PUSHs (sv_2mortal (newSViv (w)));
213	PUSHs (sv_2mortal (newSViv (h)));
214	PUSHs (sv_2mortal (retval));
215	}
216
217	MODULE = CFClient PACKAGE = CFClient::Texture
218
219	void
220	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
221	PROTOTYPE: $$$;$$
222	CODE:
223	{
224	HV hv = (HV )SvRV (self);
225	double s = SvNV (*hv_fetch (hv, "s", 1, 1));
226	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
227	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
228
229	if (items < 5)
230	{
231	w = SvNV (*hv_fetch (hv, "w", 1, 1));
232	h = SvNV (*hv_fetch (hv, "h", 1, 1));
233	}
234
235	glBindTexture (GL_TEXTURE_2D, name);
236	glBegin (GL_QUADS);
237	glTexCoord2d (0, 0); glVertex2d (x , y );
238	glTexCoord2d (0, t); glVertex2d (x , y + h);
239	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
240	glTexCoord2d (s, 0); glVertex2d (x + w, y );
241	glEnd ();
242	}