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.27 by root, Wed Apr 12 23:32:27 2006 UTC vs.
Revision 1.31 by root, Thu Apr 13 23:11:11 2006 UTC

… …
6#include <stdio.h> 6#include <stdio.h>
7 7
8#include <SDL.h> 8#include <SDL.h>
9#include <SDL_image.h> 9#include <SDL_image.h>
10#include <SDL_opengl.h> 10#include <SDL_opengl.h>
11
12#include <glib/gmacros.h>
11 13
12#include <pango/pango.h> 14#include <pango/pango.h>
13#include <pango/pangofc-fontmap.h> 15#include <pango/pangofc-fontmap.h>
14#include <pango/pangoft2.h> 16#include <pango/pangoft2.h>
15 17
16#include <sys/types.h> 18#include <sys/types.h>
17#include <sys/socket.h> 19#include <sys/socket.h>
18#include <netinet/in.h> 20#include <netinet/in.h>
19#include <netinet/tcp.h> 21#include <netinet/tcp.h>
22
23#include <inttypes.h>
24
25#define FOW_DARKNESS 32
26
27#define MAP_EXTEND_X 32
28#define MAP_EXTEND_Y 512
20 29
21static PangoContext *context; 30static PangoContext *context;
22static PangoFontMap *fontmap; 31static PangoFontMap *fontmap;
23 32
24typedef struct cf_layout { 33typedef struct cf_layout {
… …
51 pango_layout_get_pixel_size (self->pl, w, h); 60 pango_layout_get_pixel_size (self->pl, w, h);
52 61
53 *w = (*w + 3) & ~3; 62 *w = (*w + 3) & ~3;
54 if (!*w) *w = 1; 63 if (!*w) *w = 1;
55 if (!*h) *h = 1; 64 if (!*h) *h = 1;
65}
66
67typedef struct {
68 GLint name;
69 int w, h;
70 float s, t;
71} mapface;
72
73typedef struct {
74 int16_t darkness;
75 uint16_t face[3];
76} mapcell;
77
78typedef struct {
79 int32_t c0, c1;
80 mapcell *col;
81} maprow;
82
83typedef struct map {
84 int x, y, w, h;
85 int vx, vy;
86 int faces;
87 mapface *face;
88
89 uint32_t rows;
90 maprow *row;
91} *CFClient__Map;
92
93static char *
94prepend (char *ptr, int sze, int inc)
95{
96 char *p;
97
98 New (0, p, sze + inc, char);
99 Zero (p, inc, char);
100 Move (ptr, p + inc, sze, char);
101 Safefree (ptr);
102
103 return p;
104}
105
106static char *
107append (char *ptr, int sze, int inc)
108{
109 Renew (ptr, sze + inc, char);
110 Zero (ptr + sze, inc, char);
111
112 return ptr;
113}
114
115#define Append(type,ptr,sze,inc) (ptr) = (type *)append ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
116#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
117
118static void
119map_clear (CFClient__Map self)
120{
121 int r;
122
123 for (r = 0; r < self->rows; r++)
124 Safefree (self->row[r].col);
125
126 Safefree (self->row);
127
128 self->x = 0;
129 self->y = 0;
130 self->vx = 0;
131 self->vy = 0;
132 self->row = 0;
133 self->rows = 0;
134}
135
136static void
137map_blank (CFClient__Map self, int x0, int y0, int w, int h)
138{
139 int x, y;
140
141 for (y = y0; y < y0 + h; y++)
142 if (y >= 0)
143 {
144 if (y >= self->rows)
145 break;
146
147 maprow *row = self->row + y;
148
149 for (x = x0; x < x0 + w; x++)
150 if (x >= row->c0)
151 {
152 if (x >= row->c1)
153 break;
154
155 row->col[x - row->c0].darkness = -1;
156 }
157 }
56} 158}
57 159
58MODULE = CFClient PACKAGE = CFClient 160MODULE = CFClient PACKAGE = CFClient
59 161
60PROTOTYPES: ENABLE 162PROTOTYPES: ENABLE
… …
237 PPCODE: 339 PPCODE:
238{ 340{
239 PangoRectangle strong_pos; 341 PangoRectangle strong_pos;
240 layout_update (self); 342 layout_update (self);
241 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0); 343 pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
344
242 EXTEND (SP, 3); 345 EXTEND (SP, 3);
243 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE))); 346 PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
244 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE))); 347 PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
245 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE))); 348 PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
246} 349}
… …
301 glTexCoord2d (0, t); glVertex2d (x , y + h); 404 glTexCoord2d (0, t); glVertex2d (x , y + h);
302 glTexCoord2d (s, t); glVertex2d (x + w, y + h); 405 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
303 glTexCoord2d (s, 0); glVertex2d (x + w, y ); 406 glTexCoord2d (s, 0); glVertex2d (x + w, y );
304 glEnd (); 407 glEnd ();
305} 408}
409
410MODULE = CFClient PACKAGE = CFClient::Map
411
412CFClient::Map
413new (SV *class, int map_width, int map_height)
414 CODE:
415 New (0, RETVAL, 1, struct map);
416 RETVAL->x = 0;
417 RETVAL->y = 0;
418 RETVAL->w = map_width;
419 RETVAL->h = map_height;
420 RETVAL->vx = 0;
421 RETVAL->vy = 0;
422 RETVAL->faces = 8192;
423 Newz (0, RETVAL->face, RETVAL->faces, mapface);
424 RETVAL->rows = 0;
425 RETVAL->row = 0;
426 OUTPUT:
427 RETVAL
428
429void
430DESTROY (CFClient::Map self)
431 CODE:
432{
433 map_clear (self);
434 Safefree (self->face);
435 Safefree (self);
436}
437
438void
439clear (CFClient::Map self)
440 CODE:
441 map_clear (self);
442
443void
444set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t)
445 CODE:
446{
447 while (self->faces < face)
448 {
449 Append (mapface, self->face, self->faces, self->faces);
450 self->faces *= 2;
451 }
452
453 self->face [face].name = name;
454 self->face [face].w = w;
455 self->face [face].h = h;
456 self->face [face].s = s;
457 self->face [face].t = t;
458}
459
460void
461scroll (CFClient::Map self, int dx, int dy)
462 CODE:
463{
464 if (dx > 0)
465 map_blank (self, self->x, self->y, dx - 1, self->h);
466 else if (dx < 0)
467 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
468
469 if (dy > 0)
470 map_blank (self, self->x, self->y, self->w, dy - 1);
471 else if (dy < 0)
472 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
473
474 self->x += dx;
475 self->y += dy;
476
477 while (self->y < 0)
478 {
479 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
480
481 self->rows += MAP_EXTEND_Y;
482 self->y += MAP_EXTEND_Y;
483 }
484}
485
486void
487map1a_update (CFClient::Map self, SV *data_)
488 CODE:
489{
490 uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
491 uint8_t *data_end = (uint8_t *)SvEND (data_);
492
493 while (data < data_end)
494 {
495 int flags = (data [0] << 8) + data [1]; data += 2;
496
497 int x = ((flags >> 10) & 63) + self->x;
498 int y = ((flags >> 4) & 63) + self->y;
499
500 while (y >= self->rows)
501 {
502 Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
503
504 self->rows += MAP_EXTEND_Y;
505 }
506
507 maprow *row = self->row + y;
508
509 if (!row->col)
510 {
511 Newz (0, row->col, MAP_EXTEND_X, mapcell);
512 row->c0 = self->x - MAP_EXTEND_X / 4;
513 row->c1 = row->c0 + MAP_EXTEND_X;
514 }
515
516 if (row->c0 > x)
517 {
518 int extend = row->c0 - x + MAP_EXTEND_X;
519 Prepend (mapcell, row->col, row->c1 - row->c0, extend);
520 row->c0 -= extend;
521 }
522 else if (x >= row->c1)
523 {
524 int extend = x - row->c1 + MAP_EXTEND_X;
525 Append (mapcell, row->col, row->c1 - row->c0, extend);
526 row->c1 += extend;
527 }
528
529 assert (y >= 0);
530 assert (y < self->rows);
531 assert (x >= row->c0);
532 assert (x < row->c1);
533 mapcell *cell = row->col + (x - row->c0);
534
535 if (flags & 15)
536 {
537 if (cell->darkness < 0 && x < self->w && y < self->h)
538 {
539 cell->darkness = 0;
540 cell->face [0] = 0;
541 cell->face [1] = 0;
542 cell->face [2] = 0;
543 }
544
545 cell->darkness = flags & 8 ? *data++ : 255;
546
547 if (flags & 4)
548 {
549 cell->face [0] = (data [0] << 8) + data [1]; data += 2;
550 }
551
552 if (flags & 2)
553 {
554 cell->face [1] = (data [0] << 8) + data [1]; data += 2;
555 }
556
557 if (flags & 1)
558 {
559 cell->face [2] = (data [0] << 8) + data [1]; data += 2;
560 }
561 }
562 else
563 cell->darkness = -1;
564 }
565}
566
567void
568draw (CFClient::Map self, int x0, int y0, int sw, int sh)
569 CODE:
570{
571 int vx = self->vx = self->w >= sw
572 ? self->x + (self->w - sw) / 2
573 : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
574
575 int vy = self->vy = self->h >= sh
576 ? self->y + (self->h - sh) / 2
577 : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
578
579 glColor4ub (255, 255, 255, 255);
580
581 glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
582 glEnable (GL_BLEND);
583 glEnable (GL_TEXTURE_2D);
584 glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
585
586 int x, y, z;
587
588 int last_name = 0;
589
590 glBegin (GL_QUADS);
591
592 for (z = 0; z < 3; z++)
593 for (y = 0; y < sh; y++)
594 if (0 <= y + vy && y + vy < self->rows)
595 {
596 maprow *row = self->row + (y + vy);
597
598 for (x = 0; x < sw; x++)
599 if (row->c0 <= x + vx && x + vx < row->c1)
600 {
601 mapcell *cell = row->col + (x + vx - row->c0);
602 uint16_t face = cell->face [z];
603
604 if (face)
605 {
606 mapface tex = self->face [face];
607
608 int px = (x + 1) * 32 - tex.w;
609 int py = (y + 1) * 32 - tex.h;
610
611 if (last_name != tex.name)
612 {
613 glEnd ();
614 last_name = tex.name;
615 glBindTexture (GL_TEXTURE_2D, last_name);
616 glBegin (GL_QUADS);
617 }
618
619 glTexCoord2f (0 , 0 ); glVertex2f (px , py );
620 glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
621 glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
622 glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
623 }
624 }
625 }
626
627 glEnd ();
628}
629

Diff Legend

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