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

Diff Legend

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