ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/Client.xs
(Generate patch)

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.8 by root, Sun Apr 9 01:19:15 2006 UTC vs.
Revision 1.21 by root, Wed Apr 12 18:09:21 2006 UTC

… …
6 6
7#include <SDL.h> 7#include <SDL.h>
8#include <SDL_opengl.h> 8#include <SDL_opengl.h>
9 9
10#include <pango/pango.h> 10#include <pango/pango.h>
11#include <pango/pangofc-fontmap.h>
11#include <pango/pangoft2.h> 12#include <pango/pangoft2.h>
13
14#include <sys/types.h>
15#include <sys/socket.h>
16#include <netinet/in.h>
17#include <netinet/tcp.h>
12 18
13static PangoContext *context; 19static PangoContext *context;
14static PangoFontMap *fontmap; 20static PangoFontMap *fontmap;
15 21
22typedef struct cf_layout {
23 PangoLayout *pl;
24 int base_height;
25} *CFClient__Layout;
26
27static void
28substitute_func (FcPattern *pattern, gpointer data)
29{
30 FcPatternAddBool (pattern, FC_HINTING , 1);
31 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
32}
33
34static void
35layout_update (CFClient__Layout self)
36{
37 /* use a random scale factor to account for unknown descenders, 0.8 works
38 * reasonably well with bitstream vera
39 */
40 PangoFontDescription *font = pango_context_get_font_description (context);
41 pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
42}
43
44static void
45layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
46{
47 layout_update (self);
48
49 pango_layout_get_pixel_size (self->pl, w, h);
50
51 *w = (*w + 3) & ~3;
52 if (!*w) *w = 1;
53 if (!*h) *h = 1;
54}
55
16MODULE = Crossfire::Client PACKAGE = Crossfire::Client 56MODULE = CFClient PACKAGE = CFClient
57
58PROTOTYPES: ENABLE
17 59
18BOOT: 60BOOT:
19{ 61{
20 fontmap = pango_ft2_font_map_new (); 62 fontmap = pango_ft2_font_map_new ();
63 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
21 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 64 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
22} 65}
66
67void
68lowdelay (int fd, int val = 1)
69 CODE:
70 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
23 71
24char * 72char *
25gl_version () 73gl_version ()
26 CODE: 74 CODE:
27 RETVAL = (char *)glGetString (GL_VERSION); 75 RETVAL = (char *)glGetString (GL_VERSION);
… …
36 RETVAL 84 RETVAL
37 85
38void 86void
39add_font (char *file) 87add_font (char *file)
40 CODE: 88 CODE:
41 FcConfigAppFontAddFile (0, (const FcChar8 *)file); 89 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
42 90
43void 91void
44set_font (char *pango_font) 92set_font (char *file)
45 CODE: 93 CODE:
46{ 94{
95 int count;
96 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
47 PangoFontDescription *font = pango_font_description_from_string (pango_font); 97 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
98 FcPatternDestroy (pattern);
48 pango_context_set_font_description (context, font); 99 pango_context_set_font_description (context, font);
49} 100}
50 101
51void 102void
52font_render (SV *text_, int height = 10) 103wait_events (SV *rfd_, SV *wfd_)
104 PPCODE:
105{
106}
107
108MODULE = CFClient PACKAGE = CFClient::Layout
109
110CFClient::Layout
111new (SV *class, int base_height = 10)
53 PPCODE: 112 CODE:
113 New (0, RETVAL, 1, struct cf_layout);
114 RETVAL->base_height = base_height;
115 RETVAL->pl = pango_layout_new (context);
116 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
117 OUTPUT:
118 RETVAL
119
120void
121DESTROY (CFClient::Layout self)
122 CODE:
123 g_object_unref (self->pl);
124 Safefree (self);
125
126void
127set_markup (CFClient::Layout self, SV *text_)
128 CODE:
54{ 129{
55 STRLEN textlen; 130 STRLEN textlen;
56 char *text = SvPVutf8 (text_, textlen); 131 char *text = SvPVutf8 (text_, textlen);
132
133 pango_layout_set_markup (self->pl, text, textlen);
134}
135
136void
137set_height (CFClient::Layout self, int base_height)
138 CODE:
139 self->base_height = base_height;
140
141void
142set_width (CFClient::Layout self, int max_width = -1)
143 CODE:
144 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
145
146void
147size (CFClient::Layout self)
148 PPCODE:
149{
150 int w, h;
151
152 layout_update (self);
153 layout_get_pixel_size (self, &w, &h);
154
155 EXTEND (SP, 2);
156 PUSHs (sv_2mortal (newSViv (w)));
157 PUSHs (sv_2mortal (newSViv (h)));
158}
159
160int
161xy_to_index (CFClient::Layout self, int x, int y)
162 CODE:
163{
164 int index, trailing;
165
166 layout_update (self);
167 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
168
169 RETVAL = index;
170}
171 OUTPUT:
172 RETVAL
173
174void
175cursor_pos (CFClient::Layout self, int index)
176 PPCODE:
177{
178 PangoRectangle strong_pos;
179 layout_update (self);
180 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
181 EXTEND (SP, 3);
182 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
183 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
184 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
185}
186
187void
188render (CFClient::Layout self)
189 PPCODE:
190{
57 SV *retval; 191 SV *retval;
58 int w, h; 192 int w, h;
59 FT_Bitmap bitmap; 193 FT_Bitmap bitmap;
60 PangoLayout *layout;
61 PangoFontDescription *font = pango_context_get_font_description (context);
62 pango_font_description_set_absolute_size (font, height * PANGO_SCALE);
63 194
64 layout = pango_layout_new (context); 195 layout_update (self);
65 pango_layout_set_markup (layout, text, textlen);
66 pango_layout_get_pixel_size (layout, &w, &h); 196 layout_get_pixel_size (self, &w, &h);
67
68 w = (w + 3) & ~3;
69 if (!w) w = 1;
70 if (!h) h = 1;
71 197
72 retval = newSV (w * h); 198 retval = newSV (w * h);
73 SvPOK_only (retval); 199 SvPOK_only (retval);
74 SvCUR_set (retval, w * h); 200 SvCUR_set (retval, w * h);
75 201
… …
80 bitmap.num_grays = 256; 206 bitmap.num_grays = 256;
81 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 207 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
82 208
83 memset (bitmap.buffer, 0, w * h); 209 memset (bitmap.buffer, 0, w * h);
84 210
85 pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 211 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
86 g_object_unref (layout);
87 212
88 EXTEND (SP, 3); 213 EXTEND (SP, 3);
89 PUSHs (sv_2mortal (newSViv (w))); 214 PUSHs (sv_2mortal (newSViv (w)));
90 PUSHs (sv_2mortal (newSViv (h))); 215 PUSHs (sv_2mortal (newSViv (h)));
91 PUSHs (sv_2mortal (retval)); 216 PUSHs (sv_2mortal (retval));
92} 217}
218
219MODULE = CFClient PACKAGE = CFClient::Texture
220
221void
222draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
223 PROTOTYPE: $$$;$$
224 CODE:
225{
226 HV *hv = (HV *)SvRV (self);
227 double s = SvNV (*hv_fetch (hv, "s", 1, 1));
228 double t = SvNV (*hv_fetch (hv, "t", 1, 1));
229 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
230
231 if (items < 5)
232 {
233 w = SvNV (*hv_fetch (hv, "w", 1, 1));
234 h = SvNV (*hv_fetch (hv, "h", 1, 1));
235 }
236
237 glBindTexture (GL_TEXTURE_2D, name);
238 glBegin (GL_QUADS);
239 glTexCoord2d (0, 0); glVertex2d (x , y );
240 glTexCoord2d (0, t); glVertex2d (x , y + h);
241 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
242 glTexCoord2d (s, 0); glVertex2d (x + w, y );
243 glEnd ();
244}

Diff Legend

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