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.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);
… …
34 RETVAL = (char *)glGetString (GL_EXTENSIONS); 47 RETVAL = (char *)glGetString (GL_EXTENSIONS);
35 OUTPUT: 48 OUTPUT:
36 RETVAL 49 RETVAL
37 50
38void 51void
52add_font (char *file)
53 CODE:
54 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
55
56void
39set_font (char *file) 57set_font (char *file)
40 CODE: 58 CODE:
41{ 59{
42 int count; 60 int count;
43 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 61 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); 62 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
46 FcPatternDestroy (pattern); 63 FcPatternDestroy (pattern);
47 pango_context_set_font_description (context, font); 64 pango_context_set_font_description (context, font);
48} 65}
66
67MODULE = Crossfire::Client PACKAGE = Crossfire::Client
49 68
50void 69void
51font_render (SV *text_, int height = 10) 70font_render (SV *text_, int height = 10)
52 PPCODE: 71 PPCODE:
53{ 72{
… …
87 EXTEND (SP, 3); 106 EXTEND (SP, 3);
88 PUSHs (sv_2mortal (newSViv (w))); 107 PUSHs (sv_2mortal (newSViv (w)));
89 PUSHs (sv_2mortal (newSViv (h))); 108 PUSHs (sv_2mortal (newSViv (h)));
90 PUSHs (sv_2mortal (retval)); 109 PUSHs (sv_2mortal (retval));
91} 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