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.8 by root, Sun Apr 9 01:19:15 2006 UTC vs.
Revision 1.13 by root, Tue Apr 11 12:27:51 2006 UTC

… …
6 6
7#include <SDL.h> 7#include <SDL.h>
8#include <SDL_opengl.h> 8#include <SDL_opengl.h>
9 9
10#include <pango/pango.h> 10#include <pango/pango.h>
11#include <pango/pangofc-fontmap.h>
11#include <pango/pangoft2.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>
12 18
13static PangoContext *context; 19static PangoContext *context;
14static PangoFontMap *fontmap; 20static PangoFontMap *fontmap;
15 21
16MODULE = Crossfire::Client PACKAGE = Crossfire::Client 22MODULE = Crossfire::Client PACKAGE = Crossfire::Client
17 23
24PROTOTYPES: ENABLE
25
18BOOT: 26BOOT:
19{ 27{
20 fontmap = pango_ft2_font_map_new (); 28 fontmap = pango_ft2_font_map_new ();
21 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 29 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
22} 30}
31
32void
33lowdelay (int fd, int val = 1)
34 CODE:
35 setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
23 36
24char * 37char *
25gl_version () 38gl_version ()
26 CODE: 39 CODE:
27 RETVAL = (char *)glGetString (GL_VERSION); 40 RETVAL = (char *)glGetString (GL_VERSION);
… …
36 RETVAL 49 RETVAL
37 50
38void 51void
39add_font (char *file) 52add_font (char *file)
40 CODE: 53 CODE:
41 FcConfigAppFontAddFile (0, (const FcChar8 *)file); 54 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
42 55
43void 56void
44set_font (char *pango_font) 57set_font (char *file)
45 CODE: 58 CODE:
46{ 59{
60 int count;
61 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
47 PangoFontDescription *font = pango_font_description_from_string (pango_font); 62 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
63 FcPatternDestroy (pattern);
48 pango_context_set_font_description (context, font); 64 pango_context_set_font_description (context, font);
49} 65}
66
67MODULE = Crossfire::Client PACKAGE = Crossfire::Client
50 68
51void 69void
52font_render (SV *text_, int height = 10) 70font_render (SV *text_, int height = 10)
53 PPCODE: 71 PPCODE:
54{ 72{
… …
88 EXTEND (SP, 3); 106 EXTEND (SP, 3);
89 PUSHs (sv_2mortal (newSViv (w))); 107 PUSHs (sv_2mortal (newSViv (w)));
90 PUSHs (sv_2mortal (newSViv (h))); 108 PUSHs (sv_2mortal (newSViv (h)));
91 PUSHs (sv_2mortal (retval)); 109 PUSHs (sv_2mortal (retval));
92} 110}
111
112MODULE = Crossfire::Client PACKAGE = Crossfire::Client::Texture
113
114void
115draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
116 PROTOTYPE: $$$;$$
117 CODE:
118{
119 HV *hv = (HV *)SvRV (self);
120 double s = SvNV (*hv_fetch (hv, "s", 1, 1));
121 double t = SvNV (*hv_fetch (hv, "t", 1, 1));
122 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
123
124 if (items < 5)
125 {
126 w = SvNV (*hv_fetch (hv, "width", 5, 1));
127 h = SvNV (*hv_fetch (hv, "height", 6, 1));
128 }
129
130 glBindTexture (GL_TEXTURE_2D, name);
131 glBegin (GL_QUADS);
132 glTexCoord2d (0, 0); glVertex2d (x , y );
133 glTexCoord2d (0, t); glVertex2d (x , y + h);
134 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
135 glTexCoord2d (s, 0); glVertex2d (x + w, y );
136 glEnd ();
137}

Diff Legend

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