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.10 by root, Sun Apr 9 17:34:15 2006 UTC vs.
Revision 1.28 by root, Thu Apr 13 00:25:28 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> 5#include <string.h>
6#include <stdio.h>
6 7
7#include <SDL.h> 8#include <SDL.h>
9#include <SDL_image.h>
8#include <SDL_opengl.h> 10#include <SDL_opengl.h>
9 11
10#include <pango/pango.h> 12#include <pango/pango.h>
11#include <pango/pangofc-fontmap.h> 13#include <pango/pangofc-fontmap.h>
12#include <pango/pangoft2.h> 14#include <pango/pangoft2.h>
14#include <sys/types.h> 16#include <sys/types.h>
15#include <sys/socket.h> 17#include <sys/socket.h>
16#include <netinet/in.h> 18#include <netinet/in.h>
17#include <netinet/tcp.h> 19#include <netinet/tcp.h>
18 20
21#include <inttypes.h>
22
19static PangoContext *context; 23static PangoContext *context;
20static PangoFontMap *fontmap; 24static PangoFontMap *fontmap;
21 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
60typedef struct {
61 uint16_t face[3];
62 uint8_t darkness;
63 uint8_t padding;
64} mapcell;
65
66typedef struct {
67 uint32_t cols;
68 mapcell *col;
69} maprow;
70
71typedef struct map {
72 int x, y, w, h;
73 int faces;
74 GLint *face;
75
76 uint32_t rows;
77 maprow *row;
78} *CFClient__Map;
79
22MODULE = Crossfire::Client PACKAGE = Crossfire::Client 80MODULE = CFClient PACKAGE = CFClient
81
82PROTOTYPES: ENABLE
23 83
24BOOT: 84BOOT:
25{ 85{
26 fontmap = pango_ft2_font_map_new (); 86 fontmap = pango_ft2_font_map_new ();
87 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
27 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 88 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
28} 89}
29 90
30void 91void
31lowdelay (int fd, int val = 1) 92lowdelay (int fd, int val = 1)
45 RETVAL = (char *)glGetString (GL_EXTENSIONS); 106 RETVAL = (char *)glGetString (GL_EXTENSIONS);
46 OUTPUT: 107 OUTPUT:
47 RETVAL 108 RETVAL
48 109
49void 110void
111add_font (char *file)
112 CODE:
113 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
114
115void
50set_font (char *file) 116set_font (char *file)
51 CODE: 117 CODE:
52{ 118{
53 int count; 119 int count;
54 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 120 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
55 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
56 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0); 121 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
57 FcPatternDestroy (pattern); 122 FcPatternDestroy (pattern);
58 pango_context_set_font_description (context, font); 123 pango_context_set_font_description (context, font);
59} 124}
60 125
61void 126void
62font_render (SV *text_, int height = 10) 127load_image_inline (SV *image_)
128 ALIAS:
129 load_image_file = 1
63 PPCODE: 130 PPCODE:
131{
132 STRLEN image_len;
133 char *image = (char *)SvPVbyte (image_, image_len);
134 SDL_Surface *surface, *surface2;
135 SDL_PixelFormat fmt;
136 SDL_RWops *rw = ix
137 ? SDL_RWFromFile (image, "r")
138 : SDL_RWFromConstMem (image, image_len);
139
140 if (!rw)
141 croak ("load_image: unable to open file");
142
143 surface = IMG_Load_RW (rw, 1);
144 if (!surface)
145 croak ("load_image: unable to read file");
146
147 fmt.palette = NULL;
148 fmt.BitsPerPixel = 32;
149 fmt.BytesPerPixel = 4;
150 fmt.Rmask = 0x000000ff;
151 fmt.Gmask = 0x0000ff00;
152 fmt.Bmask = 0x00ff0000;
153 fmt.Amask = 0xff000000;
154 fmt.Rloss = 0;
155 fmt.Gloss = 0;
156 fmt.Bloss = 0;
157 fmt.Aloss = 0;
158 fmt.Rshift = 0;
159 fmt.Gshift = 8;
160 fmt.Bshift = 16;
161 fmt.Ashift = 24;
162 fmt.colorkey = 0;
163 fmt.alpha = 0;
164
165 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
166
167 EXTEND (SP, 5);
168 PUSHs (sv_2mortal (newSViv (surface2->w)));
169 PUSHs (sv_2mortal (newSViv (surface2->h)));
170 SDL_LockSurface (surface2);
171 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
172 SDL_UnlockSurface (surface2);
173 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
174 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
175 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
176
177 SDL_FreeSurface (surface);
178 SDL_FreeSurface (surface2);
179}
180
181void
182fatal (char *message)
183 CODE:
184#ifdef WIN32
185 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
186#else
187 fprintf (stderr, "%s\n", message);
188#endif
189 exit (1);
190
191MODULE = CFClient PACKAGE = CFClient::Layout
192
193CFClient::Layout
194new (SV *class, int base_height = 10)
195 CODE:
196 New (0, RETVAL, 1, struct cf_layout);
197 RETVAL->base_height = base_height;
198 RETVAL->pl = pango_layout_new (context);
199 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
200 OUTPUT:
201 RETVAL
202
203void
204DESTROY (CFClient::Layout self)
205 CODE:
206 g_object_unref (self->pl);
207 Safefree (self);
208
209void
210set_markup (CFClient::Layout self, SV *text_)
211 CODE:
64{ 212{
65 STRLEN textlen; 213 STRLEN textlen;
66 char *text = SvPVutf8 (text_, textlen); 214 char *text = SvPVutf8 (text_, textlen);
215
216 pango_layout_set_markup (self->pl, text, textlen);
217}
218
219void
220set_height (CFClient::Layout self, int base_height)
221 CODE:
222 self->base_height = base_height;
223
224void
225set_width (CFClient::Layout self, int max_width = -1)
226 CODE:
227 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
228
229void
230size (CFClient::Layout self)
231 PPCODE:
232{
233 int w, h;
234
235 layout_update (self);
236 layout_get_pixel_size (self, &w, &h);
237
238 EXTEND (SP, 2);
239 PUSHs (sv_2mortal (newSViv (w)));
240 PUSHs (sv_2mortal (newSViv (h)));
241}
242
243int
244xy_to_index (CFClient::Layout self, int x, int y)
245 CODE:
246{
247 int index, trailing;
248
249 layout_update (self);
250 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
251
252 RETVAL = index;
253}
254 OUTPUT:
255 RETVAL
256
257void
258cursor_pos (CFClient::Layout self, int index)
259 PPCODE:
260{
261 PangoRectangle strong_pos;
262 layout_update (self);
263 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
264 EXTEND (SP, 3);
265 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
266 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
267 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
268}
269
270void
271render (CFClient::Layout self)
272 PPCODE:
273{
67 SV *retval; 274 SV *retval;
68 int w, h; 275 int w, h;
69 FT_Bitmap bitmap; 276 FT_Bitmap bitmap;
70 PangoLayout *layout;
71 PangoFontDescription *font = pango_context_get_font_description (context);
72 pango_font_description_set_absolute_size (font, height * PANGO_SCALE);
73 277
74 layout = pango_layout_new (context); 278 layout_update (self);
75 pango_layout_set_markup (layout, text, textlen);
76 pango_layout_get_pixel_size (layout, &w, &h); 279 layout_get_pixel_size (self, &w, &h);
77
78 w = (w + 3) & ~3;
79 if (!w) w = 1;
80 if (!h) h = 1;
81 280
82 retval = newSV (w * h); 281 retval = newSV (w * h);
83 SvPOK_only (retval); 282 SvPOK_only (retval);
84 SvCUR_set (retval, w * h); 283 SvCUR_set (retval, w * h);
85 284
90 bitmap.num_grays = 256; 289 bitmap.num_grays = 256;
91 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 290 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
92 291
93 memset (bitmap.buffer, 0, w * h); 292 memset (bitmap.buffer, 0, w * h);
94 293
95 pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 294 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
96 g_object_unref (layout);
97 295
98 EXTEND (SP, 3); 296 EXTEND (SP, 3);
99 PUSHs (sv_2mortal (newSViv (w))); 297 PUSHs (sv_2mortal (newSViv (w)));
100 PUSHs (sv_2mortal (newSViv (h))); 298 PUSHs (sv_2mortal (newSViv (h)));
101 PUSHs (sv_2mortal (retval)); 299 PUSHs (sv_2mortal (retval));
102} 300}
301
302MODULE = CFClient PACKAGE = CFClient::Texture
303
304void
305draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
306 PROTOTYPE: $$$;$$
307 CODE:
308{
309 HV *hv = (HV *)SvRV (self);
310 double s = SvNV (*hv_fetch (hv, "s", 1, 1));
311 double t = SvNV (*hv_fetch (hv, "t", 1, 1));
312 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
313
314 if (items < 5)
315 {
316 w = SvNV (*hv_fetch (hv, "w", 1, 1));
317 h = SvNV (*hv_fetch (hv, "h", 1, 1));
318 }
319
320 glBindTexture (GL_TEXTURE_2D, name);
321 glBegin (GL_QUADS);
322 glTexCoord2d (0, 0); glVertex2d (x , y );
323 glTexCoord2d (0, t); glVertex2d (x , y + h);
324 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
325 glTexCoord2d (s, 0); glVertex2d (x + w, y );
326 glEnd ();
327}
328
329MODULE = CFClient PACKAGE = CFClient::Map
330
331CFClient::Map
332new (SV *class, int map_width, int map_height)
333 CODE:
334 New (0, RETVAL, 1, struct map);
335 RETVAL->x = 0;
336 RETVAL->y = 0;
337 RETVAL->w = map_width;
338 RETVAL->h = map_height;
339 RETVAL->faces = 0;
340 RETVAL->face = 0;
341
342 RETVAL->rows = 0;
343 RETVAL->row = 0;
344 OUTPUT:
345 RETVAL
346
347void
348DESTROY (CFClient::Map self)
349 CODE:
350{
351 int r, c;
352
353 Safefree (self->face);
354 for (r = 0; r < self->rows; r++)
355 {
356 maprow *row = self->row + r;
357 if (!row)
358 continue;
359
360 Safefree (row->col);
361 }
362
363 Safefree (self->row);
364 Safefree (self);
365}
366

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines