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.15 by root, Tue Apr 11 13:14:36 2006 UTC

… …
17#include <netinet/tcp.h> 17#include <netinet/tcp.h>
18 18
19static PangoContext *context; 19static PangoContext *context;
20static PangoFontMap *fontmap; 20static PangoFontMap *fontmap;
21 21
22typedef struct cf_layout {
23 PangoLayout *pl;
24 int base_height;
25} *CFClient__Layout;
26
27static void
28layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
29{
30 pango_layout_get_pixel_size (self->pl, w, h);
31
32 *w = (*w + 3) & ~3;
33 if (!*w) *w = 1;
34 if (!*h) *h = 1;
35}
36
22MODULE = Crossfire::Client PACKAGE = Crossfire::Client 37MODULE = CFClient PACKAGE = CFClient
38
39PROTOTYPES: ENABLE
23 40
24BOOT: 41BOOT:
25{ 42{
26 fontmap = pango_ft2_font_map_new (); 43 fontmap = pango_ft2_font_map_new ();
27 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 44 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
… …
45 RETVAL = (char *)glGetString (GL_EXTENSIONS); 62 RETVAL = (char *)glGetString (GL_EXTENSIONS);
46 OUTPUT: 63 OUTPUT:
47 RETVAL 64 RETVAL
48 65
49void 66void
67add_font (char *file)
68 CODE:
69 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
70
71void
50set_font (char *file) 72set_font (char *file)
51 CODE: 73 CODE:
52{ 74{
53 int count; 75 int count;
54 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 76 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); 77 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
57 FcPatternDestroy (pattern); 78 FcPatternDestroy (pattern);
58 pango_context_set_font_description (context, font); 79 pango_context_set_font_description (context, font);
59} 80}
60 81
82MODULE = CFClient PACKAGE = CFClient::Layout
83
84CFClient::Layout
85new (SV *class, int base_height = 10)
86 CODE:
87 New (0, RETVAL, 1, struct cf_layout);
88 RETVAL->base_height = base_height;
89 RETVAL->pl = pango_layout_new (context);
90 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
91 OUTPUT:
92 RETVAL
93
61void 94void
62font_render (SV *text_, int height = 10) 95DESTROY (CFClient::Layout self)
63 PPCODE: 96 CODE:
97 g_object_unref (self->pl);
98 Safefree (self);
99
100void
101set_markup (CFClient::Layout self, SV *text_)
102 CODE:
64{ 103{
65 STRLEN textlen; 104 STRLEN textlen;
66 char *text = SvPVutf8 (text_, textlen); 105 char *text = SvPVutf8 (text_, textlen);
106
107 pango_layout_set_markup (self->pl, text, textlen);
108}
109
110void
111set_width (CFClient::Layout self, int max_width = -1)
112 CODE:
113 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
114
115void
116size (CFClient::Layout self)
117 PPCODE:
118{
119 int w, h;
120
121 PangoFontDescription *font = pango_context_get_font_description (context);
122 pango_font_description_set_absolute_size (font, self->base_height * PANGO_SCALE);
123
124 layout_get_pixel_size (self, &w, &h);
125
126 EXTEND (SP, 2);
127 PUSHs (sv_2mortal (newSViv (w)));
128 PUSHs (sv_2mortal (newSViv (h)));
129}
130
131void
132render (CFClient::Layout self)
133 PPCODE:
134{
67 SV *retval; 135 SV *retval;
68 int w, h; 136 int w, h;
69 FT_Bitmap bitmap; 137 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 138
74 layout = pango_layout_new (context);
75 pango_layout_set_markup (layout, text, textlen);
76 pango_layout_get_pixel_size (layout, &w, &h); 139 layout_get_pixel_size (self, &w, &h);
77
78 w = (w + 3) & ~3;
79 if (!w) w = 1;
80 if (!h) h = 1;
81 140
82 retval = newSV (w * h); 141 retval = newSV (w * h);
83 SvPOK_only (retval); 142 SvPOK_only (retval);
84 SvCUR_set (retval, w * h); 143 SvCUR_set (retval, w * h);
85 144
… …
90 bitmap.num_grays = 256; 149 bitmap.num_grays = 256;
91 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 150 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
92 151
93 memset (bitmap.buffer, 0, w * h); 152 memset (bitmap.buffer, 0, w * h);
94 153
95 pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 154 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
96 g_object_unref (layout);
97 155
98 EXTEND (SP, 3); 156 EXTEND (SP, 3);
99 PUSHs (sv_2mortal (newSViv (w))); 157 PUSHs (sv_2mortal (newSViv (w)));
100 PUSHs (sv_2mortal (newSViv (h))); 158 PUSHs (sv_2mortal (newSViv (h)));
101 PUSHs (sv_2mortal (retval)); 159 PUSHs (sv_2mortal (retval));
102} 160}
161
162MODULE = CFClient PACKAGE = CFClient::Texture
163
164void
165draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
166 PROTOTYPE: $$$;$$
167 CODE:
168{
169 HV *hv = (HV *)SvRV (self);
170 double s = SvNV (*hv_fetch (hv, "s", 1, 1));
171 double t = SvNV (*hv_fetch (hv, "t", 1, 1));
172 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
173
174 if (items < 5)
175 {
176 w = SvNV (*hv_fetch (hv, "width", 5, 1));
177 h = SvNV (*hv_fetch (hv, "height", 6, 1));
178 }
179
180 glBindTexture (GL_TEXTURE_2D, name);
181 glBegin (GL_QUADS);
182 glTexCoord2d (0, 0); glVertex2d (x , y );
183 glTexCoord2d (0, t); glVertex2d (x , y + h);
184 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
185 glTexCoord2d (s, 0); glVertex2d (x + w, y );
186 glEnd ();
187}

Diff Legend

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