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.3 by root, Sat Apr 8 13:36:25 2006 UTC vs.
Revision 1.22 by root, Wed Apr 12 20:06:36 2006 UTC

1#include "EXTERN.h" 1#include "EXTERN.h"
2#include "perl.h" 2#include "perl.h"
3#include "XSUB.h" 3#include "XSUB.h"
4 4
5#include <string.h>
6
5#include <SDL.h> 7#include <SDL.h>
6#include <SDL_opengl.h> 8#include <SDL_opengl.h>
7#include <SDL_image.h>
8 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
23static PangoContext *context;
24static PangoFontMap *fontmap;
25
26typedef struct cf_layout {
27 PangoLayout *pl;
28 int base_height;
29} *CFClient__Layout;
30
31static void
32substitute_func (FcPattern *pattern, gpointer data)
33{
34 FcPatternAddBool (pattern, FC_HINTING , 1);
35 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
36}
37
38static void
39layout_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
48static void
49layout_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
9MODULE = Crossfire::Client PACKAGE = Crossfire::Client 60MODULE = CFClient PACKAGE = CFClient
61
62PROTOTYPES: ENABLE
63
64BOOT:
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
71void
72lowdelay (int fd, int val = 1)
73 CODE:
74 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
75
76char *
77gl_version ()
78 CODE:
79 RETVAL = (char *)glGetString (GL_VERSION);
80 OUTPUT:
81 RETVAL
10 82
11char * 83char *
12gl_extensions () 84gl_extensions ()
13 CODE: 85 CODE:
14 RETVAL = glGetString (GL_EXTENSIONS); 86 RETVAL = (char *)glGetString (GL_EXTENSIONS);
15 OUTPUT: 87 OUTPUT:
88 RETVAL
89
90void
91add_font (char *file)
92 CODE:
93 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
94
95void
96set_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
106MODULE = CFClient PACKAGE = CFClient::Layout
107
108CFClient::Layout
109new (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
118void
119DESTROY (CFClient::Layout self)
120 CODE:
121 g_object_unref (self->pl);
122 Safefree (self);
123
124void
125set_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
134void
135set_height (CFClient::Layout self, int base_height)
136 CODE:
137 self->base_height = base_height;
138
139void
140set_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
144void
145size (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
158int
159xy_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
16 RETVAL 167 RETVAL = index;
168}
169 OUTPUT:
170 RETVAL
17 171
172void
173cursor_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}
18 184
185void
186render (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
217MODULE = CFClient PACKAGE = CFClient::Texture
218
219void
220draw_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}

Diff Legend

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