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.20 by root, Wed Apr 12 02:00:06 2006 UTC vs.
Revision 1.41 by root, Sat Apr 15 01:52:53 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
22typedef struct cf_layout { 33typedef struct cf_layout {
23 PangoLayout *pl; 34 PangoLayout *pl;
26 37
27static void 38static void
28substitute_func (FcPattern *pattern, gpointer data) 39substitute_func (FcPattern *pattern, gpointer data)
29{ 40{
30 FcPatternAddBool (pattern, FC_HINTING , 1); 41 FcPatternAddBool (pattern, FC_HINTING , 1);
31 FcPatternAddBool (pattern, FC_AUTOHINT, 1); 42 FcPatternAddBool (pattern, FC_AUTOHINT, 0);
32} 43}
33 44
34static void 45static void
35layout_update (CFClient__Layout self) 46layout_update (CFClient__Layout self)
36{ 47{
51 *w = (*w + 3) & ~3; 62 *w = (*w + 3) & ~3;
52 if (!*w) *w = 1; 63 if (!*w) *w = 1;
53 if (!*h) *h = 1; 64 if (!*h) *h = 1;
54} 65}
55 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
56MODULE = CFClient PACKAGE = CFClient 161MODULE = CFClient PACKAGE = CFClient
57 162
58PROTOTYPES: ENABLE 163PROTOTYPES: ENABLE
59 164
60BOOT: 165BOOT:
96 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 201 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
97 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0); 202 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
98 FcPatternDestroy (pattern); 203 FcPatternDestroy (pattern);
99 pango_context_set_font_description (context, font); 204 pango_context_set_font_description (context, font);
100} 205}
206
207void
208load_image_inline (SV *image_)
209 ALIAS:
210 load_image_file = 1
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: %s", SDL_GetError ());
223
224 surface = IMG_Load_RW (rw, 1);
225 if (!surface)
226 croak ("load_image: %s", SDL_GetError ());
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 uint32_t r = 0, g = 0, b = 0, a = 0;
269
270 x = y = x * y;
271
272 while (x--)
273 {
274 uint32_t p = *data++;
275
276 r += (p ) & 255;
277 g += (p >> 8) & 255;
278 b += (p >> 16) & 255;
279 a += (p >> 24) & 255;
280 }
281
282 EXTEND (SP, 4);
283 PUSHs (sv_2mortal (newSViv (r / y)));
284 PUSHs (sv_2mortal (newSViv (g / y)));
285 PUSHs (sv_2mortal (newSViv (b / y)));
286 PUSHs (sv_2mortal (newSViv (a / y)));
287}
288
289void
290fatal (char *message)
291 CODE:
292#ifdef WIN32
293 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
294#else
295 fprintf (stderr, "FATAL: %s\n", message);
296#endif
297 exit (1);
101 298
102MODULE = CFClient PACKAGE = CFClient::Layout 299MODULE = CFClient PACKAGE = CFClient::Layout
103 300
104CFClient::Layout 301CFClient::Layout
105new (SV *class, int base_height = 10) 302new (SV *class, int base_height = 10)
116 CODE: 313 CODE:
117 g_object_unref (self->pl); 314 g_object_unref (self->pl);
118 Safefree (self); 315 Safefree (self);
119 316
120void 317void
318set_text (CFClient::Layout self, SV *text_)
319 CODE:
320{
321 STRLEN textlen;
322 char *text = SvPVutf8 (text_, textlen);
323
324 pango_layout_set_text (self->pl, text, textlen);
325}
326
327void
121set_markup (CFClient::Layout self, SV *text_) 328set_markup (CFClient::Layout self, SV *text_)
122 CODE: 329 CODE:
123{ 330{
124 STRLEN textlen; 331 STRLEN textlen;
125 char *text = SvPVutf8 (text_, textlen); 332 char *text = SvPVutf8 (text_, textlen);
170 PPCODE: 377 PPCODE:
171{ 378{
172 PangoRectangle strong_pos; 379 PangoRectangle strong_pos;
173 layout_update (self); 380 layout_update (self);
174 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 381 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
382
175 EXTEND (SP, 3); 383 EXTEND (SP, 3);
176 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE))); 384 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
177 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 385 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
178 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 386 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
179} 387}
211} 419}
212 420
213MODULE = CFClient PACKAGE = CFClient::Texture 421MODULE = CFClient PACKAGE = CFClient::Texture
214 422
215void 423void
216draw_quad (SV *self, double x, double y, double w = 0, double h = 0) 424draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
217 PROTOTYPE: $$$;$$ 425 PROTOTYPE: $$$;$$
218 CODE: 426 CODE:
219{ 427{
220 HV *hv = (HV *)SvRV (self); 428 HV *hv = (HV *)SvRV (self);
221 double s = SvNV (*hv_fetch (hv, "s", 1, 1)); 429 float s = SvNV (*hv_fetch (hv, "s", 1, 1));
222 double t = SvNV (*hv_fetch (hv, "t", 1, 1)); 430 float t = SvNV (*hv_fetch (hv, "t", 1, 1));
223 int name = SvIV (*hv_fetch (hv, "name", 4, 1)); 431 int name = SvIV (*hv_fetch (hv, "name", 4, 1));
432 int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
224 433
225 if (items < 5) 434 if (items < 5)
226 { 435 {
227 w = SvNV (*hv_fetch (hv, "w", 1, 1)); 436 w = SvNV (*hv_fetch (hv, "w", 1, 1));
228 h = SvNV (*hv_fetch (hv, "h", 1, 1)); 437 h = SvNV (*hv_fetch (hv, "h", 1, 1));
229 } 438 }
230 439
231 glBindTexture (GL_TEXTURE_2D, name); 440 glBindTexture (GL_TEXTURE_2D, name);
441 if (wrap_mode) {
442 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
443 glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
444 }
232 glBegin (GL_QUADS); 445 glBegin (GL_QUADS);
233 glTexCoord2d (0, 0); glVertex2d (x , y ); 446 glTexCoord2f (0, 0); glVertex2f (x , y );
234 glTexCoord2d (0, t); glVertex2d (x , y + h); 447 glTexCoord2f (0, t); glVertex2f (x , y + h);
235 glTexCoord2d (s, t); glVertex2d (x + w, y + h); 448 glTexCoord2f (s, t); glVertex2f (x + w, y + h);
236 glTexCoord2d (s, 0); glVertex2d (x + w, y ); 449 glTexCoord2f (s, 0); glVertex2f (x + w, y );
237 glEnd (); 450 glEnd ();
238} 451}
452
453MODULE = CFClient PACKAGE = CFClient::Map
454
455CFClient::Map
456new (SV *class, int map_width, int map_height)
457 CODE:
458 New (0, RETVAL, 1, struct map);
459 RETVAL->x = 0;
460 RETVAL->y = 0;
461 RETVAL->w = map_width;
462 RETVAL->h = map_height;
463 RETVAL->vx = 0;
464 RETVAL->vy = 0;
465 RETVAL->faces = 8192;
466 Newz (0, RETVAL->face, RETVAL->faces, mapface);
467 RETVAL->rows = 0;
468 RETVAL->row = 0;
469 OUTPUT:
470 RETVAL
471
472void
473DESTROY (CFClient::Map self)
474 CODE:
475{
476 map_clear (self);
477 Safefree (self->face);
478 Safefree (self);
479}
480
481void
482clear (CFClient::Map self)
483 CODE:
484 map_clear (self);
485
486void
487set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t, int r, int g, int b, int a)
488 CODE:
489{
490 while (self->faces < face)
491 {
492 Append (mapface, self->face, self->faces, self->faces);
493 self->faces *= 2;
494 }
495
496 mapface *f = self->face + face;
497
498 f->name = name;
499 f->w = w;
500 f->h = h;
501 f->s = s;
502 f->t = t;
503 f->r = r;
504 f->g = g;
505 f->b = b;
506 f->a = a;
507}
508
509void
510scroll (CFClient::Map self, int dx, int dy)
511 CODE:
512{
513 if (dx > 0)
514 map_blank (self, self->x, self->y, dx - 1, self->h);
515 else if (dx < 0)
516 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
517
518 if (dy > 0)
519 map_blank (self, self->x, self->y, self->w, dy - 1);
520 else if (dy < 0)
521 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
522
523 self->x += dx;
524 self->y += dy;
525
526 while (self->y < 0)
527 {
528 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
529
530 self->rows += MAP_EXTEND_Y;
531 self->y += MAP_EXTEND_Y;
532 }
533}
534
535void
536map1a_update (CFClient::Map self, SV *data_)
537 CODE:
538{
539 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
540 uint8_t *data_end = (uint8_t *)SvEND (data_);
541
542 while (data < data_end)
543 {
544 int flags = (data [0] << 8) + data [1]; data += 2;
545
546 int x = ((flags >> 10) & 63) + self->x;
547 int y = ((flags >> 4) & 63) + self->y;
548
549 while (y >= self->rows)
550 {
551 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
552
553 self->rows += MAP_EXTEND_Y;
554 }
555
556 maprow *row = self->row + y;
557
558 if (!row->col)
559 {
560 Newz (0, row->col, MAP_EXTEND_X, mapcell);
561 row->c0 = self->x - MAP_EXTEND_X / 4;
562 row->c1 = row->c0 + MAP_EXTEND_X;
563 }
564
565 if (row->c0 > x)
566 {
567 int extend = row->c0 - x + MAP_EXTEND_X;
568 Prepend (mapcell, row->col, row->c1 - row->c0, extend);
569 row->c0 -= extend;
570 }
571 else if (x >= row->c1)
572 {
573 int extend = x - row->c1 + MAP_EXTEND_X;
574 Append (mapcell, row->col, row->c1 - row->c0, extend);
575 row->c1 += extend;
576 }
577
578 assert (y >= 0);
579 assert (y < self->rows);
580 assert (x >= row->c0);
581 assert (x < row->c1);
582 mapcell *cell = row->col + (x - row->c0);
583
584 if (flags & 15)
585 {
586 if (cell->darkness < 0 && x < self->w && y < self->h)
587 {
588 cell->darkness = 0;
589 cell->face [0] = 0;
590 cell->face [1] = 0;
591 cell->face [2] = 0;
592 }
593
594 cell->darkness = flags & 8 ? *data++ : 255;
595
596 if (flags & 4)
597 {
598 cell->face [0] = (data [0] << 8) + data [1]; data += 2;
599 }
600
601 if (flags & 2)
602 {
603 cell->face [1] = (data [0] << 8) + data [1]; data += 2;
604 }
605
606 if (flags & 1)
607 {
608 cell->face [2] = (data [0] << 8) + data [1]; data += 2;
609 }
610 }
611 else
612 cell->darkness = -1;
613 }
614}
615
616SV *
617mapmap (CFClient::Map self, int w, int h)
618 CODE:
619{
620 int x0, x1, x;
621 int y0, y1, y;
622 int z;
623 SV *map_sv = newSV (w * h * sizeof (uint32_t));
624 uint32_t *map = (uint32_t *)SvPVX (map_sv);
625
626 SvPOK_only (map_sv);
627 SvCUR_set (map_sv, w * h * sizeof (uint32_t));
628
629 x0 = self->x - w / 2; x1 = x0 + w;
630 y0 = self->y - h / 2; y1 = y0 + h;
631
632 for (y = y0; y < y1; y++)
633 {
634 maprow *row = 0 <= y && y < self->rows
635 ? self->row + y
636 : 0;
637
638 for (x = x0; x < x1; x++)
639 {
640 int r = 32, g = 32, b = 32, a = 192;
641
642 if (row && row->c0 <= x && x < row->c1)
643 {
644 mapcell *cell = row->col + (x - row->c0);
645
646 for (z = 0; z <= 0; z++)
647 {
648 uint16_t face = cell->face [z];
649
650 if (face)
651 {
652 mapface tex = self->face [face];
653 int a0 = 255 - tex.a;
654 int a1 = tex.a;
655
656 r = (r * a0 + tex.r * a1) / 255;
657 g = (g * a0 + tex.g * a1) / 255;
658 b = (b * a0 + tex.b * a1) / 255;
659 a = (a * a0 + tex.a * a1) / 255;
660 }
661 }
662 }
663
664 *map++ = (r )
665 | (g << 8)
666 | (b << 16)
667 | (a << 24);
668 }
669 }
670
671 RETVAL = map_sv;
672}
673 OUTPUT:
674 RETVAL
675
676void
677draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
678 PPCODE:
679{
680 int sw4 = (sw + 3) & ~3;
681 SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
682 uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);
683
684 SvPOK_only (darkness_sv);
685 SvCUR_set (darkness_sv, sw4 * sh);
686
687 int vx = self->x + (self->w - sw) / 2 - shift_x;
688 int vy = self->y + (self->h - sh) / 2 - shift_y;
689
690 if (0)
691 {
692 int vx = self->vx = self->w >= sw
693 ? self->x + (self->w - sw) / 2
694 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
695
696 int vy = self->vy = self->h >= sh
697 ? self->y + (self->h - sh) / 2
698 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
699 }
700
701 glColor4ub (255, 255, 255, 255);
702
703 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
704 glEnable (GL_BLEND);
705 glEnable (GL_TEXTURE_2D);
706 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
707
708 int x, y, z;
709
710 int last_name = 0;
711
712 glBegin (GL_QUADS);
713
714 for (z = 0; z < 3; z++)
715 for (y = 0; y < sh; y++)
716 if (0 <= y + vy && y + vy < self->rows)
717 {
718 maprow *row = self->row + (y + vy);
719
720 for (x = 0; x < sw; x++)
721 if (row->c0 <= x + vx && x + vx < row->c1)
722 {
723 mapcell *cell = row->col + (x + vx - row->c0);
724
725 darkness[y * sw4 + x] = cell->darkness < 0
726 ? 255 - FOW_DARKNESS
727 : 255 - cell->darkness;
728
729 uint16_t face = cell->face [z];
730
731 if (face)
732 {
733 mapface tex = self->face [face];
734
735 int px = (x + 1) * 32 - tex.w;
736 int py = (y + 1) * 32 - tex.h;
737
738 if (last_name != tex.name)
739 {
740 glEnd ();
741 last_name = tex.name;
742 glBindTexture (GL_TEXTURE_2D, last_name);
743 glBegin (GL_QUADS);
744 }
745
746 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
747 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
748 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
749 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
750 }
751 }
752 }
753
754 glEnd ();
755
756 glDisable (GL_TEXTURE_2D);
757 glDisable (GL_BLEND);
758
759 EXTEND (SP, 3);
760 PUSHs (sv_2mortal (newSViv (sw4)));
761 PUSHs (sv_2mortal (newSViv (sh)));
762 PUSHs (darkness_sv);
763}
764

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines