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.19 by root, Tue Apr 11 22:49:13 2006 UTC vs.
Revision 1.29 by root, Thu Apr 13 01:55:38 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>
9 11
10#include <pango/pango.h> 12#include <pango/pango.h>
11#include <pango/pangofc-fontmap.h> 13#include <pango/pangofc-fontmap.h>
12#include <pango/pangoft2.h> 14#include <pango/pangoft2.h>
… …
14#include <sys/types.h> 16#include <sys/types.h>
15#include <sys/socket.h> 17#include <sys/socket.h>
16#include <netinet/in.h> 18#include <netinet/in.h>
17#include <netinet/tcp.h> 19#include <netinet/tcp.h>
18 20
21#include <inttypes.h>
22
23#define FOW_DARKNESS 32
24
25#define MAP_EXTEND_X 32
26#define MAP_EXTEND_Y 512
27
19static PangoContext *context; 28static PangoContext *context;
20static PangoFontMap *fontmap; 29static PangoFontMap *fontmap;
21 30
22typedef struct cf_layout { 31typedef struct cf_layout {
23 PangoLayout *pl; 32 PangoLayout *pl;
… …
25} *CFClient__Layout; 34} *CFClient__Layout;
26 35
27static void 36static void
28substitute_func (FcPattern *pattern, gpointer data) 37substitute_func (FcPattern *pattern, gpointer data)
29{ 38{
30 //FcPatternAddBool (pattern, FC_HINTING, 1); 39 FcPatternAddBool (pattern, FC_HINTING , 1);
31 //FcPatternAddBool (pattern, FC_AUTOHINT, 1); 40 FcPatternAddBool (pattern, FC_AUTOHINT, 1);
32} 41}
33 42
34static void 43static void
35layout_update (CFClient__Layout self) 44layout_update (CFClient__Layout self)
36{ 45{
… …
51 *w = (*w + 3) & ~3; 60 *w = (*w + 3) & ~3;
52 if (!*w) *w = 1; 61 if (!*w) *w = 1;
53 if (!*h) *h = 1; 62 if (!*h) *h = 1;
54} 63}
55 64
65typedef struct {
66 int16_t darkness;
67 uint16_t face[3];
68} mapcell;
69
70typedef struct {
71 uint32_t c0, c1;
72 mapcell *col;
73} maprow;
74
75typedef struct map {
76 int x, y, w, h;
77 int faces;
78 GLint *face;
79
80 uint32_t rows;
81 maprow *row;
82} *CFClient__Map;
83
84static void
85map_blank (CFClient__Map self, int x0, int y0, int w, int h)
86{
87 int x, y;
88
89 for (y = y0; y < y0 + h; y++)
90 {
91 if (y >= self->rows)
92 break;
93
94 maprow *row = self->row + y;
95
96 for (x = x0; x < x0 + w; x++)
97 if (x >= row->c0)
98 {
99 if (x >= row->c1)
100 break;
101
102 row->col[x].darkness = -1;
103 }
104 }
105}
106
56MODULE = CFClient PACKAGE = CFClient 107MODULE = CFClient PACKAGE = CFClient
57 108
58PROTOTYPES: ENABLE 109PROTOTYPES: ENABLE
59 110
60BOOT: 111BOOT:
… …
96 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count); 147 FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
97 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0); 148 PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
98 FcPatternDestroy (pattern); 149 FcPatternDestroy (pattern);
99 pango_context_set_font_description (context, font); 150 pango_context_set_font_description (context, font);
100} 151}
152
153void
154load_image_inline (SV *image_)
155 ALIAS:
156 load_image_file = 1
157 PPCODE:
158{
159 STRLEN image_len;
160 char *image = (char *)SvPVbyte (image_, image_len);
161 SDL_Surface *surface, *surface2;
162 SDL_PixelFormat fmt;
163 SDL_RWops *rw = ix
164 ? SDL_RWFromFile (image, "r")
165 : SDL_RWFromConstMem (image, image_len);
166
167 if (!rw)
168 croak ("load_image: unable to open file");
169
170 surface = IMG_Load_RW (rw, 1);
171 if (!surface)
172 croak ("load_image: unable to read file");
173
174 fmt.palette = NULL;
175 fmt.BitsPerPixel = 32;
176 fmt.BytesPerPixel = 4;
177 fmt.Rmask = 0x000000ff;
178 fmt.Gmask = 0x0000ff00;
179 fmt.Bmask = 0x00ff0000;
180 fmt.Amask = 0xff000000;
181 fmt.Rloss = 0;
182 fmt.Gloss = 0;
183 fmt.Bloss = 0;
184 fmt.Aloss = 0;
185 fmt.Rshift = 0;
186 fmt.Gshift = 8;
187 fmt.Bshift = 16;
188 fmt.Ashift = 24;
189 fmt.colorkey = 0;
190 fmt.alpha = 0;
191
192 surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
193
194 EXTEND (SP, 5);
195 PUSHs (sv_2mortal (newSViv (surface2->w)));
196 PUSHs (sv_2mortal (newSViv (surface2->h)));
197 SDL_LockSurface (surface2);
198 PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
199 SDL_UnlockSurface (surface2);
200 PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
201 PUSHs (sv_2mortal (newSViv (GL_RGBA)));
202 PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
203
204 SDL_FreeSurface (surface);
205 SDL_FreeSurface (surface2);
206}
207
208void
209fatal (char *message)
210 CODE:
211#ifdef WIN32
212 MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
213#else
214 fprintf (stderr, "%s\n", message);
215#endif
216 exit (1);
101 217
102MODULE = CFClient PACKAGE = CFClient::Layout 218MODULE = CFClient PACKAGE = CFClient::Layout
103 219
104CFClient::Layout 220CFClient::Layout
105new (SV *class, int base_height = 10) 221new (SV *class, int base_height = 10)
… …
234 glTexCoord2d (0, t); glVertex2d (x , y + h); 350 glTexCoord2d (0, t); glVertex2d (x , y + h);
235 glTexCoord2d (s, t); glVertex2d (x + w, y + h); 351 glTexCoord2d (s, t); glVertex2d (x + w, y + h);
236 glTexCoord2d (s, 0); glVertex2d (x + w, y ); 352 glTexCoord2d (s, 0); glVertex2d (x + w, y );
237 glEnd (); 353 glEnd ();
238} 354}
355
356MODULE = CFClient PACKAGE = CFClient::Map
357
358CFClient::Map
359new (SV *class, int map_width, int map_height)
360 CODE:
361 New (0, RETVAL, 1, struct map);
362 RETVAL->x = 0;
363 RETVAL->y = 0;
364 RETVAL->w = map_width;
365 RETVAL->h = map_height;
366 RETVAL->faces = 1;
367 Newz (0, RETVAL->face, 1, GLint);
368 RETVAL->rows = 0;
369 RETVAL->row = 0;
370 printf ("new map %d,%d\n", map_width, map_height);//D
371 OUTPUT:
372 RETVAL
373
374void
375DESTROY (CFClient::Map self)
376 CODE:
377{
378 int r, c;
379
380 printf ("detroy map\n");//D
381 Safefree (self->face);
382
383 for (r = 0; r < self->rows; r++)
384 Safefree (self->row[r].col);
385
386 Safefree (self->row);
387 Safefree (self);
388}
389
390void
391set_face (CFClient::Map self, int facenum, int face)
392 CODE:
393{
394 while (self->faces < facenum)
395 {
396 printf ("setface %d (%d) = %d\n",facenum, self->faces, face);//D
397 Renew (self->face, self->faces * 2, GLint);
398 Zero (self->face + self->faces, self->faces, GLint);
399 self->faces *= 2;
400 }
401
402 self->face [facenum] = face;
403}
404
405void
406scroll (CFClient::Map self, int dx, int dy)
407 CODE:
408{
409 printf ("map_scroll %d,%d\n", dx, dy);//D
410 if (dx > 0)
411 map_blank (self, self->x, self->y, dx - 1, self->h);
412 else if (dx < 0)
413 map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
414
415 if (dy > 0)
416 map_blank (self, self->x, self->y, self->w, dy - 1);
417 else if (dy < 0)
418 map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
419
420 self->x += dx;
421 self->y += dy;
422
423 while (self->y < 0)
424 {
425 maprow *row;
426
427 New (0, row, self->rows + MAP_EXTEND_Y, maprow);
428 Move (self->row, row + MAP_EXTEND_Y, self->rows, maprow);
429 Zero (row, MAP_EXTEND_Y, maprow);
430
431 self->rows += MAP_EXTEND_Y;
432 self->y += MAP_EXTEND_Y;
433 self->row = row;
434 }
435
436 if (self->x < 0)
437 {
438 int y;
439 for (y = 0; y < self->rows; y++)
440 {
441 self->row[y].c0 += self->x;
442 self->row[y].c1 += self->x;
443 }
444
445 self->x = 0;
446 }
447}
448
449void
450map1a_update (CFClient::Map self, SV *data_)
451 CODE:
452{
453 uint8_t *data = (uint8_t *)SvPVbytes_nolen (data_);
454 uint8_t *data_end = (uint8_t *)SvEND (data_) + 1;
455
456 while (data < data_end)
457 {
458 int flags = (data [0] << 8) + data [1]; data += 2;
459 int x = ((flags >> 10) & 63) + self->x;
460 int y = ((flags >> 4) & 63) + self->y;
461
462 while (y >= self->rows)
463 {
464 Renew (self->row, self->rows + MAP_EXTEND_Y, maprow);
465 Zero (self->row + self->rows, MAP_EXTEND_Y, maprow);
466
467 self->rows += MAP_EXTEND_Y;
468 }
469
470 assert (y < self->rows);//D
471
472 maprow *row = self->row + y;
473
474 if (!row->col)
475 {
476 Newz (0, row->col, MAP_EXTEND_X, mapcell);
477 row->c0 = self->x - MAP_EXTEND_X / 4;
478 row->c1 = row->c0 + MAP_EXTEND_X;
479 }
480
481 if (row->c0 > x)
482 {
483 int extend = row->c0 - x + MAP_EXTEND_X;
484 mapcell *col;
485
486 New (0, col, row->c1 - row->c0 + extend, mapcell);
487 Move (row->col, col + extend, row->c1 - row->c0, mapcell);
488 Zero (col, extend, mapcell);
489
490 row->col = col;
491 row->c0 -= extend;
492 }
493 else if (x >= row->c1)
494 {
495 int extend = x - row->c1 + MAP_EXTEND_X;
496
497 Renew (row->col, row->c1 - row->c0 + extend, mapcell);
498 Zero (row->col + row->c1 - row->c0, extend, mapcell);
499
500 row->c1 += extend;
501 }
502
503 assert (x >= row->c0);//D
504 assert (x < row->c1);//D
505 mapcell *cell = row->col + (x - row->c0);
506
507 if (flags & 15)
508 {
509 if (cell->darkness < 0)
510 {
511 cell->darkness = 0;
512 cell->face [0] = 0;
513 cell->face [1] = 0;
514 cell->face [2] = 0;
515 }
516
517 cell->darkness = flags & 8 ? *data++ : 255;
518
519 if (flags & 4)
520 {
521 cell->face [0] = (data [0] << 8) + data [1]; data += 2;
522 }
523
524 if (flags & 2)
525 {
526 cell->face [1] = (data [0] << 8) + data [1]; data += 2;
527 }
528
529 if (flags & 1)
530 {
531 cell->face [2] = (data [0] << 8) + data [1]; data += 2;
532 }
533 }
534 else
535 cell->darkness = -1;
536 }
537}
538

Diff Legend

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