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.9 by root, Sun Apr 9 01:35:40 2006 UTC vs.
Revision 1.25 by root, Wed Apr 12 21:20:42 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>
13#include <pango/pangofc-fontmap.h>
11#include <pango/pangoft2.h> 14#include <pango/pangoft2.h>
15
16#include <sys/types.h>
17#include <sys/socket.h>
18#include <netinet/in.h>
19#include <netinet/tcp.h>
12 20
13static PangoContext *context; 21static PangoContext *context;
14static PangoFontMap *fontmap; 22static PangoFontMap *fontmap;
15 23
24typedef struct cf_layout {
25 PangoLayout *pl;
26 int base_height;
27} *CFClient__Layout;
28
29static void
30substitute_func (FcPattern *pattern, gpointer data)
31{
32 FcPatternAddBool (pattern, FC_HINTING , 1);
33 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
34}
35
36static void
37layout_update (CFClient__Layout self)
38{
39 /* use a random scale factor to account for unknown descenders, 0.8 works
40 * reasonably well with bitstream vera
41 */
42 PangoFontDescription *font = pango_context_get_font_description (context);
43 pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
44}
45
46static void
47layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
48{
49 layout_update (self);
50
51 pango_layout_get_pixel_size (self->pl, w, h);
52
53 *w = (*w + 3) & ~3;
54 if (!*w) *w = 1;
55 if (!*h) *h = 1;
56}
57
16MODULE = Crossfire::Client PACKAGE = Crossfire::Client 58MODULE = CFClient PACKAGE = CFClient
59
60PROTOTYPES: ENABLE
17 61
18BOOT: 62BOOT:
19{ 63{
20 fontmap = pango_ft2_font_map_new (); 64 fontmap = pango_ft2_font_map_new ();
65 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
21 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 66 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
22} 67}
68
69void
70lowdelay (int fd, int val = 1)
71 CODE:
72 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
23 73
24char * 74char *
25gl_version () 75gl_version ()
26 CODE: 76 CODE:
27 RETVAL = (char *)glGetString (GL_VERSION); 77 RETVAL = (char *)glGetString (GL_VERSION);
… …
34 RETVAL = (char *)glGetString (GL_EXTENSIONS); 84 RETVAL = (char *)glGetString (GL_EXTENSIONS);
35 OUTPUT: 85 OUTPUT:
36 RETVAL 86 RETVAL
37 87
38void 88void
89add_font (char *file)
90 CODE:
91 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
92
93void
39set_font (char *file) 94set_font (char *file)
40 CODE: 95 CODE:
41{ 96{
42 int count; 97 int count;
43 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 98 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
44 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
45 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern); 99 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
46 FcPatternDestroy (pattern); 100 FcPatternDestroy (pattern);
47 pango_context_set_font_description (context, font); 101 pango_context_set_font_description (context, font);
48} 102}
49 103
50void 104void
51font_render (SV *text_, int height = 10) 105load_image_inline (SV *image_)
106 ALIAS:
107 load_image_file = 1
52 PPCODE: 108 PPCODE:
109{
110 STRLEN image_len;
111 char *image = (char *)SvPVbyte (image_, image_len);
112 SDL_Surface *surface, *surface2;
113 SDL_PixelFormat fmt;
114 SDL_RWops *rw = ix
115 ? SDL_RWFromFile (image, "r")
116 : SDL_RWFromConstMem (image, image_len);
117
118 if (!rw)
119 croak ("load_image: unable to open file");
120
121 surface = IMG_Load_RW (rw, 1);
122 if (!surface)
123 croak ("load_image: unable to read file");
124
125 fmt.palette = NULL;
126 fmt.BitsPerPixel = 32;
127 fmt.BytesPerPixel = 4;
128 fmt.Rmask = 0x000000ff;
129 fmt.Gmask = 0x0000ff00;
130 fmt.Bmask = 0x00ff0000;
131 fmt.Amask = 0xff000000;
132 fmt.Rloss = 0;
133 fmt.Gloss = 0;
134 fmt.Bloss = 0;
135 fmt.Aloss = 0;
136 fmt.Rshift = 0;
137 fmt.Gshift = 8;
138 fmt.Bshift = 16;
139 fmt.Ashift = 24;
140 fmt.colorkey = 0;
141 fmt.alpha = 0;
142
143 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
144
145 EXTEND (SP, 5);
146 PUSHs (sv_2mortal (newSViv (surface2->w)));
147 PUSHs (sv_2mortal (newSViv (surface2->h)));
148 SDL_LockSurface (surface2);
149 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
150 SDL_UnlockSurface (surface2);
151 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
152 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
153 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
154
155 SDL_FreeSurface (surface);
156 SDL_FreeSurface (surface2);
157}
158
159void
160fatal (char *message)
161 CODE:
162#ifdef WIN32
163 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
164#else
165 fprintf (stderr, "%s\n", message);
166#endif
167 exit (1);
168
169MODULE = CFClient PACKAGE = CFClient::Layout
170
171CFClient::Layout
172new (SV *class, int base_height = 10)
173 CODE:
174 New (0, RETVAL, 1, struct cf_layout);
175 RETVAL->base_height = base_height;
176 RETVAL->pl = pango_layout_new (context);
177 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
178 OUTPUT:
179 RETVAL
180
181void
182DESTROY (CFClient::Layout self)
183 CODE:
184 g_object_unref (self->pl);
185 Safefree (self);
186
187void
188set_markup (CFClient::Layout self, SV *text_)
189 CODE:
53{ 190{
54 STRLEN textlen; 191 STRLEN textlen;
55 char *text = SvPVutf8 (text_, textlen); 192 char *text = SvPVutf8 (text_, textlen);
193
194 pango_layout_set_markup (self->pl, text, textlen);
195}
196
197void
198set_height (CFClient::Layout self, int base_height)
199 CODE:
200 self->base_height = base_height;
201
202void
203set_width (CFClient::Layout self, int max_width = -1)
204 CODE:
205 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
206
207void
208size (CFClient::Layout self)
209 PPCODE:
210{
211 int w, h;
212
213 layout_update (self);
214 layout_get_pixel_size (self, &w, &h);
215
216 EXTEND (SP, 2);
217 PUSHs (sv_2mortal (newSViv (w)));
218 PUSHs (sv_2mortal (newSViv (h)));
219}
220
221int
222xy_to_index (CFClient::Layout self, int x, int y)
223 CODE:
224{
225 int index, trailing;
226
227 layout_update (self);
228 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
229
230 RETVAL = index;
231}
232 OUTPUT:
233 RETVAL
234
235void
236cursor_pos (CFClient::Layout self, int index)
237 PPCODE:
238{
239 PangoRectangle strong_pos;
240 layout_update (self);
241 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
242 EXTEND (SP, 3);
243 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
244 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
245 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
246}
247
248void
249render (CFClient::Layout self)
250 PPCODE:
251{
56 SV *retval; 252 SV *retval;
57 int w, h; 253 int w, h;
58 FT_Bitmap bitmap; 254 FT_Bitmap bitmap;
59 PangoLayout *layout;
60 PangoFontDescription *font = pango_context_get_font_description (context);
61 pango_font_description_set_absolute_size (font, height * PANGO_SCALE);
62 255
63 layout = pango_layout_new (context); 256 layout_update (self);
64 pango_layout_set_markup (layout, text, textlen);
65 pango_layout_get_pixel_size (layout, &w, &h); 257 layout_get_pixel_size (self, &w, &h);
66
67 w = (w + 3) & ~3;
68 if (!w) w = 1;
69 if (!h) h = 1;
70 258
71 retval = newSV (w * h); 259 retval = newSV (w * h);
72 SvPOK_only (retval); 260 SvPOK_only (retval);
73 SvCUR_set (retval, w * h); 261 SvCUR_set (retval, w * h);
74 262
… …
79 bitmap.num_grays = 256; 267 bitmap.num_grays = 256;
80 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 268 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
81 269
82 memset (bitmap.buffer, 0, w * h); 270 memset (bitmap.buffer, 0, w * h);
83 271
84 pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 272 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
85 g_object_unref (layout);
86 273
87 EXTEND (SP, 3); 274 EXTEND (SP, 3);
88 PUSHs (sv_2mortal (newSViv (w))); 275 PUSHs (sv_2mortal (newSViv (w)));
89 PUSHs (sv_2mortal (newSViv (h))); 276 PUSHs (sv_2mortal (newSViv (h)));
90 PUSHs (sv_2mortal (retval)); 277 PUSHs (sv_2mortal (retval));
91} 278}
279
280MODULE = CFClient PACKAGE = CFClient::Texture
281
282void
283draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
284 PROTOTYPE: $$$;$$
285 CODE:
286{
287 HV *hv = (HV *)SvRV (self);
288 double s = SvNV (*hv_fetch (hv, "s", 1, 1));
289 double t = SvNV (*hv_fetch (hv, "t", 1, 1));
290 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
291
292 if (items < 5)
293 {
294 w = SvNV (*hv_fetch (hv, "w", 1, 1));
295 h = SvNV (*hv_fetch (hv, "h", 1, 1));
296 }
297
298 glBindTexture (GL_TEXTURE_2D, name);
299 glBegin (GL_QUADS);
300 glTexCoord2d (0, 0); glVertex2d (x , y );
301 glTexCoord2d (0, t); glVertex2d (x , y + h);
302 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
303 glTexCoord2d (s, 0); glVertex2d (x + w, y );
304 glEnd ();
305}

Diff Legend

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