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/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>

static PangoContext *context;
static PangoFontMap *fontmap;

MODULE = Crossfire::Client      PACKAGE = Crossfire::Client

PROTOTYPES: ENABLE

BOOT:
{
        fontmap = pango_ft2_font_map_new ();
        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
set_font (char *file)
        CODE:
{
        int count;
        FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
        FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
        PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
        FcPatternDestroy (pattern);
        pango_context_set_font_description (context, font);
}

void
font_render (SV *text_, int height = 10)
        PPCODE:
{
        STRLEN textlen;
        char *text = SvPVutf8 (text_, textlen);
        SV *retval;
        int w, h;
        FT_Bitmap bitmap;
        PangoLayout *layout;
        PangoFontDescription *font = pango_context_get_font_description (context);
        pango_font_description_set_absolute_size (font, height * PANGO_SCALE);

        layout = pango_layout_new (context);
        pango_layout_set_markup (layout, text, textlen);
        pango_layout_get_pixel_size (layout, &w, &h);

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

        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, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
        g_object_unref (layout);

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

MODULE = Crossfire::Client      PACKAGE = Crossfire::Client::Texture

void
texture_quad (SV *self, double x0, double y0, double w, double h)
        CODE:
{
        //glBegin
}
Revision:	1.11
Committed:	Mon Apr 10 19:34:03 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.10:	+11 -0 lines
Log Message:	preliminary support for older opengl implementations (NPOT vs. POT)
#	User	Rev	Content
1	root	1.1	#include "EXTERN.h"
2			#include "perl.h"
3			#include "XSUB.h"
4
5	root	1.5	#include <string.h>
6
7	root	1.2	#include <SDL.h>
8	root	1.3	#include <SDL_opengl.h>
9	root	1.5
10			#include <pango/pango.h>
11	root	1.10	#include <pango/pangofc-fontmap.h>
12	root	1.5	#include <pango/pangoft2.h>
13
14	root	1.10	#include <sys/types.h>
15			#include <sys/socket.h>
16			#include <netinet/in.h>
17			#include <netinet/tcp.h>
18
19	root	1.5	static PangoContext *context;
20			static PangoFontMap *fontmap;
21	root	1.2
22	root	1.1	MODULE = Crossfire::Client PACKAGE = Crossfire::Client
23
24	root	1.11	PROTOTYPES: ENABLE
25
26	root	1.5	BOOT:
27			{
28			fontmap = pango_ft2_font_map_new ();
29	root	1.8	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
30	root	1.5	}
31
32	root	1.10	void
33			lowdelay (int fd, int val = 1)
34			CODE:
35			setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
36
37	root	1.3	char *
38	root	1.4	gl_version ()
39			CODE:
40	root	1.5	RETVAL = (char *)glGetString (GL_VERSION);
41	root	1.4	OUTPUT:
42			RETVAL
43
44			char *
45	root	1.3	gl_extensions ()
46			CODE:
47	root	1.5	RETVAL = (char *)glGetString (GL_EXTENSIONS);
48	root	1.3	OUTPUT:
49			RETVAL
50
51	root	1.5	void
52	root	1.9	set_font (char *file)
53	root	1.8	CODE:
54			{
55	root	1.9	int count;
56			FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
57			FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
58	root	1.10	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
59	root	1.9	FcPatternDestroy (pattern);
60	root	1.8	pango_context_set_font_description (context, font);
61			}
62
63			void
64	root	1.7	font_render (SV *text_, int height = 10)
65	root	1.5	PPCODE:
66			{
67			STRLEN textlen;
68			char *text = SvPVutf8 (text_, textlen);
69			SV *retval;
70			int w, h;
71			FT_Bitmap bitmap;
72			PangoLayout *layout;
73			PangoFontDescription *font = pango_context_get_font_description (context);
74	root	1.7	pango_font_description_set_absolute_size (font, height * PANGO_SCALE);
75	root	1.5
76			layout = pango_layout_new (context);
77			pango_layout_set_markup (layout, text, textlen);
78			pango_layout_get_pixel_size (layout, &w, &h);
79
80			w = (w + 3) & ~3;
81	root	1.6	if (!w) w = 1;
82			if (!h) h = 1;
83	root	1.5
84			retval = newSV (w * h);
85			SvPOK_only (retval);
86			SvCUR_set (retval, w * h);
87
88			bitmap.rows = h;
89			bitmap.width = w;
90			bitmap.pitch = w;
91			bitmap.buffer = (unsigned char*)SvPVX (retval);
92			bitmap.num_grays = 256;
93			bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
94
95			memset (bitmap.buffer, 0, w * h);
96
97			pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
98			g_object_unref (layout);
99	root	1.1
100	root	1.5	EXTEND (SP, 3);
101			PUSHs (sv_2mortal (newSViv (w)));
102			PUSHs (sv_2mortal (newSViv (h)));
103			PUSHs (sv_2mortal (retval));
104			}
105	root	1.11
106			MODULE = Crossfire::Client PACKAGE = Crossfire::Client::Texture
107
108			void
109			texture_quad (SV *self, double x0, double y0, double w, double h)
110			CODE:
111			{
112			//glBegin
113			}