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

Diff Legend

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