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.39 by root, Sat Apr 15 00:04:58 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>
11
12#include <glib/gmacros.h>
9 13
10#include <pango/pango.h> 14#include <pango/pango.h>
11#include <pango/pangofc-fontmap.h> 15#include <pango/pangofc-fontmap.h>
12#include <pango/pangoft2.h> 16#include <pango/pangoft2.h>
13 17
14#include <sys/types.h> 18#include <sys/types.h>
15#include <sys/socket.h> 19#include <sys/socket.h>
16#include <netinet/in.h> 20#include <netinet/in.h>
17#include <netinet/tcp.h> 21#include <netinet/tcp.h>
18 22
23#include <inttypes.h>
24
25#define FOW_DARKNESS 32
26
27#define MAP_EXTEND_X 32
28#define MAP_EXTEND_Y 512
29
19static PangoContext *context; 30static PangoContext *context;
20static PangoFontMap *fontmap; 31static PangoFontMap *fontmap;
21 32
33typedef struct cf_layout {
34 PangoLayout *pl;
35 int base_height;
36} *CFClient__Layout;
37
38static void
39substitute_func (FcPattern *pattern, gpointer data)
40{
41 FcPatternAddBool (pattern, FC_HINTING , 1);
42 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
43}
44
45static void
46layout_update (CFClient__Layout self)
47{
48 /* use a random scale factor to account for unknown descenders, 0.8 works
49 * reasonably well with bitstream vera
50 */
51 PangoFontDescription *font = pango_context_get_font_description (context);
52 pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
53}
54
55static void
56layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
57{
58 layout_update (self);
59
60 pango_layout_get_pixel_size (self->pl, w, h);
61
62 *w = (*w + 3) & ~3;
63 if (!*w) *w = 1;
64 if (!*h) *h = 1;
65}
66
67typedef struct {
68 GLint name;
69 int w, h;
70 float s, t;
71 uint8_t r, g, b, a;
72} mapface;
73
74typedef struct {
75 int16_t darkness;
76 uint16_t face[3];
77} mapcell;
78
79typedef struct {
80 int32_t c0, c1;
81 mapcell *col;
82} maprow;
83
84typedef struct map {
85 int x, y, w, h;
86 int vx, vy;
87 int faces;
88 mapface *face;
89
90 uint32_t rows;
91 maprow *row;
92} *CFClient__Map;
93
94static char *
95prepend (char *ptr, int sze, int inc)
96{
97 char *p;
98
99 New (0, p, sze + inc, char);
100 Zero (p, inc, char);
101 Move (ptr, p + inc, sze, char);
102 Safefree (ptr);
103
104 return p;
105}
106
107static char *
108append (char *ptr, int sze, int inc)
109{
110 Renew (ptr, sze + inc, char);
111 Zero (ptr + sze, inc, char);
112
113 return ptr;
114}
115
116#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
117#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
118
119static void
120map_clear (CFClient__Map self)
121{
122 int r;
123
124 for (r = 0; r < self->rows; r++)
125 Safefree (self->row[r].col);
126
127 Safefree (self->row);
128
129 self->x = 0;
130 self->y = 0;
131 self->vx = 0;
132 self->vy = 0;
133 self->row = 0;
134 self->rows = 0;
135}
136
137static void
138map_blank (CFClient__Map self, int x0, int y0, int w, int h)
139{
140 int x, y;
141
142 for (y = y0; y < y0 + h; y++)
143 if (y >= 0)
144 {
145 if (y >= self->rows)
146 break;
147
148 maprow *row = self->row + y;
149
150 for (x = x0; x < x0 + w; x++)
151 if (x >= row->c0)
152 {
153 if (x >= row->c1)
154 break;
155
156 row->col[x - row->c0].darkness = -1;
157 }
158 }
159}
160
22MODULE = Crossfire::Client PACKAGE = Crossfire::Client 161MODULE = CFClient PACKAGE = CFClient
162
163PROTOTYPES: ENABLE
23 164
24BOOT: 165BOOT:
25{ 166{
26 fontmap = pango_ft2_font_map_new (); 167 fontmap = pango_ft2_font_map_new ();
168 pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
27 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap); 169 context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
28} 170}
29 171
30void 172void
31lowdelay (int fd, int val = 1) 173lowdelay (int fd, int val = 1)
… …
45 RETVAL = (char *)glGetString (GL_EXTENSIONS); 187 RETVAL = (char *)glGetString (GL_EXTENSIONS);
46 OUTPUT: 188 OUTPUT:
47 RETVAL 189 RETVAL
48 190
49void 191void
192add_font (char *file)
193 CODE:
194 FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */
195
196void
50set_font (char *file) 197set_font (char *file)
51 CODE: 198 CODE:
52{ 199{
53 int count; 200 int count;
54 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 201 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); 202 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
57 FcPatternDestroy (pattern); 203 FcPatternDestroy (pattern);
58 pango_context_set_font_description (context, font); 204 pango_context_set_font_description (context, font);
59} 205}
60 206
61void 207void
62font_render (SV *text_, int height = 10) 208load_image_inline (SV *image_)
209 ALIAS:
210 load_image_file = 1
63 PPCODE: 211 PPCODE:
212{
213 STRLEN image_len;
214 char *image = (char *)SvPVbyte (image_, image_len);
215 SDL_Surface *surface, *surface2;
216 SDL_PixelFormat fmt;
217 SDL_RWops *rw = ix
218 ? SDL_RWFromFile (image, "r")
219 : SDL_RWFromConstMem (image, image_len);
220
221 if (!rw)
222 croak ("load_image: unable to open file");
223
224 surface = IMG_Load_RW (rw, 1);
225 if (!surface)
226 croak ("load_image: unable to read file");
227
228 fmt.palette = NULL;
229 fmt.BitsPerPixel = 32;
230 fmt.BytesPerPixel = 4;
231 fmt.Rmask = 0x000000ff;
232 fmt.Gmask = 0x0000ff00;
233 fmt.Bmask = 0x00ff0000;
234 fmt.Amask = 0xff000000;
235 fmt.Rloss = 0;
236 fmt.Gloss = 0;
237 fmt.Bloss = 0;
238 fmt.Aloss = 0;
239 fmt.Rshift = 0;
240 fmt.Gshift = 8;
241 fmt.Bshift = 16;
242 fmt.Ashift = 24;
243 fmt.colorkey = 0;
244 fmt.alpha = 0;
245
246 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
247
248 assert (surface2->pitch == surface2->w * 4);
249
250 EXTEND (SP, 5);
251 PUSHs (sv_2mortal (newSViv (surface2->w)));
252 PUSHs (sv_2mortal (newSViv (surface2->h)));
253 SDL_LockSurface (surface2);
254 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
255 SDL_UnlockSurface (surface2);
256 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
257 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
258 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
259
260 SDL_FreeSurface (surface);
261 SDL_FreeSurface (surface2);
262}
263
264void
265average (int x, int y, uint32_t *data)
266 PPCODE:
267{
268 // only good for x * y < 32768
269 uint32_t r = 0, g = 0, b = 0, a = 0;
270
271 x = y = x * y;
272
273 assert (x < 32768);
274
275 while (x--)
276 {
277 uint32_t p = *data++;
278
279 r += (p ) & 255;
280 g += (p >> 8) & 255;
281 b += (p >> 16) & 255;
282 a += (p >> 24) & 255;
283 }
284
285 EXTEND (SP, 4);
286 PUSHs (sv_2mortal (newSViv (r * 255 / y)));
287 PUSHs (sv_2mortal (newSViv (g * 255 / y)));
288 PUSHs (sv_2mortal (newSViv (b * 255 / y)));
289 PUSHs (sv_2mortal (newSViv (a * 255 / y)));
290}
291
292void
293fatal (char *message)
294 CODE:
295#ifdef WIN32
296 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
297#else
298 fprintf (stderr, "%s\n", message);
299#endif
300 exit (1);
301
302MODULE = CFClient PACKAGE = CFClient::Layout
303
304CFClient::Layout
305new (SV *class, int base_height = 10)
306 CODE:
307 New (0, RETVAL, 1, struct cf_layout);
308 RETVAL->base_height = base_height;
309 RETVAL->pl = pango_layout_new (context);
310 pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
311 OUTPUT:
312 RETVAL
313
314void
315DESTROY (CFClient::Layout self)
316 CODE:
317 g_object_unref (self->pl);
318 Safefree (self);
319
320void
321set_text (CFClient::Layout self, SV *text_)
322 CODE:
64{ 323{
65 STRLEN textlen; 324 STRLEN textlen;
66 char *text = SvPVutf8 (text_, textlen); 325 char *text = SvPVutf8 (text_, textlen);
326
327 pango_layout_set_text (self->pl, text, textlen);
328}
329
330void
331set_markup (CFClient::Layout self, SV *text_)
332 CODE:
333{
334 STRLEN textlen;
335 char *text = SvPVutf8 (text_, textlen);
336
337 pango_layout_set_markup (self->pl, text, textlen);
338}
339
340void
341set_height (CFClient::Layout self, int base_height)
342 CODE:
343 self->base_height = base_height;
344
345void
346set_width (CFClient::Layout self, int max_width = -1)
347 CODE:
348 pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
349
350void
351size (CFClient::Layout self)
352 PPCODE:
353{
354 int w, h;
355
356 layout_update (self);
357 layout_get_pixel_size (self, &w, &h);
358
359 EXTEND (SP, 2);
360 PUSHs (sv_2mortal (newSViv (w)));
361 PUSHs (sv_2mortal (newSViv (h)));
362}
363
364int
365xy_to_index (CFClient::Layout self, int x, int y)
366 CODE:
367{
368 int index, trailing;
369
370 layout_update (self);
371 pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
372
373 RETVAL = index;
374}
375 OUTPUT:
376 RETVAL
377
378void
379cursor_pos (CFClient::Layout self, int index)
380 PPCODE:
381{
382 PangoRectangle strong_pos;
383 layout_update (self);
384 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
385
386 EXTEND (SP, 3);
387 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
388 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
389 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
390}
391
392void
393render (CFClient::Layout self)
394 PPCODE:
395{
67 SV *retval; 396 SV *retval;
68 int w, h; 397 int w, h;
69 FT_Bitmap bitmap; 398 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 399
74 layout = pango_layout_new (context); 400 layout_update (self);
75 pango_layout_set_markup (layout, text, textlen);
76 pango_layout_get_pixel_size (layout, &w, &h); 401 layout_get_pixel_size (self, &w, &h);
77
78 w = (w + 3) & ~3;
79 if (!w) w = 1;
80 if (!h) h = 1;
81 402
82 retval = newSV (w * h); 403 retval = newSV (w * h);
83 SvPOK_only (retval); 404 SvPOK_only (retval);
84 SvCUR_set (retval, w * h); 405 SvCUR_set (retval, w * h);
85 406
… …
90 bitmap.num_grays = 256; 411 bitmap.num_grays = 256;
91 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY; 412 bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
92 413
93 memset (bitmap.buffer, 0, w * h); 414 memset (bitmap.buffer, 0, w * h);
94 415
95 pango_ft2_render_layout (&bitmap, layout, 0 * PANGO_SCALE, 0 * PANGO_SCALE); 416 pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
96 g_object_unref (layout);
97 417
98 EXTEND (SP, 3); 418 EXTEND (SP, 3);
99 PUSHs (sv_2mortal (newSViv (w))); 419 PUSHs (sv_2mortal (newSViv (w)));
100 PUSHs (sv_2mortal (newSViv (h))); 420 PUSHs (sv_2mortal (newSViv (h)));
101 PUSHs (sv_2mortal (retval)); 421 PUSHs (sv_2mortal (retval));
102} 422}
423
424MODULE = CFClient PACKAGE = CFClient::Texture
425
426void
427draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
428 PROTOTYPE: $$$;$$
429 CODE:
430{
431 HV *hv = (HV *)SvRV (self);
432 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
433 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
434 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
435 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
436
437 if (items < 5)
438 {
439 w = SvNV (*hv_fetch (hv, "w", 1, 1));
440 h = SvNV (*hv_fetch (hv, "h", 1, 1));
441 }
442
443 glBindTexture (GL_TEXTURE_2D, name);
444 if (wrap_mode) {
445 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
446 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
447 }
448 glBegin (GL_QUADS);
449 glTexCoord2f (0, 0); glVertex2f (x , y );
450 glTexCoord2f (0, t); glVertex2f (x , y + h);
451 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
452 glTexCoord2f (s, 0); glVertex2f (x + w, y );
453 glEnd ();
454}
455
456MODULE = CFClient PACKAGE = CFClient::Map
457
458CFClient::Map
459new (SV *class, int map_width, int map_height)
460 CODE:
461 New (0, RETVAL, 1, struct map);
462 RETVAL->x = 0;
463 RETVAL->y = 0;
464 RETVAL->w = map_width;
465 RETVAL->h = map_height;
466 RETVAL->vx = 0;
467 RETVAL->vy = 0;
468 RETVAL->faces = 8192;
469 Newz (0, RETVAL->face, RETVAL->faces, mapface);
470 RETVAL->rows = 0;
471 RETVAL->row = 0;
472 OUTPUT:
473 RETVAL
474
475void
476DESTROY (CFClient::Map self)
477 CODE:
478{
479 map_clear (self);
480 Safefree (self->face);
481 Safefree (self);
482}
483
484void
485clear (CFClient::Map self)
486 CODE:
487 map_clear (self);
488
489void
490set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t, int r, int g, int b, int a)
491 CODE:
492{
493 while (self->faces < face)
494 {
495 Append (mapface, self->face, self->faces, self->faces);
496 self->faces *= 2;
497 }
498
499 mapface *f = self->face + face;
500
501 f->name = name;
502 f->w = w;
503 f->h = h;
504 f->s = s;
505 f->t = t;
506 f->r = r;
507 f->g = g;
508 f->b = b;
509 f->a = a;
510}
511
512void
513scroll (CFClient::Map self, int dx, int dy)
514 CODE:
515{
516 if (dx > 0)
517 map_blank (self, self->x, self->y, dx - 1, self->h);
518 else if (dx < 0)
519 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
520
521 if (dy > 0)
522 map_blank (self, self->x, self->y, self->w, dy - 1);
523 else if (dy < 0)
524 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
525
526 self->x += dx;
527 self->y += dy;
528
529 while (self->y < 0)
530 {
531 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
532
533 self->rows += MAP_EXTEND_Y;
534 self->y += MAP_EXTEND_Y;
535 }
536}
537
538void
539map1a_update (CFClient::Map self, SV *data_)
540 CODE:
541{
542 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
543 uint8_t *data_end = (uint8_t *)SvEND (data_);
544
545 while (data < data_end)
546 {
547 int flags = (data [0] << 8) + data [1]; data += 2;
548
549 int x = ((flags >> 10) & 63) + self->x;
550 int y = ((flags >> 4) & 63) + self->y;
551
552 while (y >= self->rows)
553 {
554 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
555
556 self->rows += MAP_EXTEND_Y;
557 }
558
559 maprow *row = self->row + y;
560
561 if (!row->col)
562 {
563 Newz (0, row->col, MAP_EXTEND_X, mapcell);
564 row->c0 = self->x - MAP_EXTEND_X / 4;
565 row->c1 = row->c0 + MAP_EXTEND_X;
566 }
567
568 if (row->c0 > x)
569 {
570 int extend = row->c0 - x + MAP_EXTEND_X;
571 Prepend (mapcell, row->col, row->c1 - row->c0, extend);
572 row->c0 -= extend;
573 }
574 else if (x >= row->c1)
575 {
576 int extend = x - row->c1 + MAP_EXTEND_X;
577 Append (mapcell, row->col, row->c1 - row->c0, extend);
578 row->c1 += extend;
579 }
580
581 assert (y >= 0);
582 assert (y < self->rows);
583 assert (x >= row->c0);
584 assert (x < row->c1);
585 mapcell *cell = row->col + (x - row->c0);
586
587 if (flags & 15)
588 {
589 if (cell->darkness < 0 && x < self->w && y < self->h)
590 {
591 cell->darkness = 0;
592 cell->face [0] = 0;
593 cell->face [1] = 0;
594 cell->face [2] = 0;
595 }
596
597 cell->darkness = flags & 8 ? *data++ : 255;
598
599 if (flags & 4)
600 {
601 cell->face [0] = (data [0] << 8) + data [1]; data += 2;
602 }
603
604 if (flags & 2)
605 {
606 cell->face [1] = (data [0] << 8) + data [1]; data += 2;
607 }
608
609 if (flags & 1)
610 {
611 cell->face [2] = (data [0] << 8) + data [1]; data += 2;
612 }
613 }
614 else
615 cell->darkness = -1;
616 }
617}
618
619void
620draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
621 PPCODE:
622{
623 int sw4 = (sw + 3) & ~3;
624 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
625 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
626
627 SvPOK_only (darkness_sv);
628 SvCUR_set (darkness_sv, sw4 * sh);
629
630 int vx = self->x + (self->w - sw) / 2 - shift_x;
631 int vy = self->y + (self->h - sh) / 2 - shift_y;
632
633 if (0)
634 {
635 int vx = self->vx = self->w >= sw
636 ? self->x + (self->w - sw) / 2
637 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
638
639 int vy = self->vy = self->h >= sh
640 ? self->y + (self->h - sh) / 2
641 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
642 }
643
644 glColor4ub (255, 255, 255, 255);
645
646 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
647 glEnable (GL_BLEND);
648 glEnable (GL_TEXTURE_2D);
649 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
650
651 int x, y, z;
652
653 int last_name = 0;
654
655 glBegin (GL_QUADS);
656
657 for (z = 0; z < 3; z++)
658 for (y = 0; y < sh; y++)
659 if (0 <= y + vy && y + vy < self->rows)
660 {
661 maprow *row = self->row + (y + vy);
662
663 for (x = 0; x < sw; x++)
664 if (row->c0 <= x + vx && x + vx < row->c1)
665 {
666 mapcell *cell = row->col + (x + vx - row->c0);
667
668 darkness[y * sw4 + x] = cell->darkness < 0
669 ? 255 - FOW_DARKNESS
670 : 255 - cell->darkness;
671
672 uint16_t face = cell->face [z];
673
674 if (face)
675 {
676 mapface tex = self->face [face];
677
678 int px = (x + 1) * 32 - tex.w;
679 int py = (y + 1) * 32 - tex.h;
680
681 if (last_name != tex.name)
682 {
683 glEnd ();
684 last_name = tex.name;
685 glBindTexture (GL_TEXTURE_2D, last_name);
686 glBegin (GL_QUADS);
687 }
688
689 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
690 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
691 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
692 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
693 }
694 }
695 }
696
697 glEnd ();
698
699 glDisable (GL_TEXTURE_2D);
700 glDisable (GL_BLEND);
701
702 EXTEND (SP, 3);
703 PUSHs (sv_2mortal (newSViv (sw4)));
704 PUSHs (sv_2mortal (newSViv (sh)));
705 PUSHs (darkness_sv);
706}
707

Diff Legend

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