deliantra/Deliantra-Client/Client.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include <string.h>
#include <stdio.h>

#include <SDL.h>
#include <SDL_image.h>
#include <SDL_opengl.h>

#include <glib/gmacros.h>

#include <pango/pango.h>
#include <pango/pangofc-fontmap.h>
#include <pango/pangoft2.h>

#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>

#include <inttypes.h>

#define FOW_DARKNESS 32

#define MAP_EXTEND_X  32
#define MAP_EXTEND_Y 512

static PangoContext *context;
static PangoFontMap *fontmap;

typedef struct cf_layout {
  PangoLayout *pl;
  int base_height;
} *CFClient__Layout;

static void
substitute_func (FcPattern *pattern, gpointer data)
{
  FcPatternAddBool (pattern, FC_HINTING , 1);
  FcPatternAddBool (pattern, FC_AUTOHINT, 0);
}

static void
layout_update (CFClient__Layout self)
{
  /* use a random scale factor to account for unknown descenders, 0.8 works
   * reasonably well with bitstream vera
   */
  PangoFontDescription *font = pango_context_get_font_description (context);
  pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
}

static void
layout_get_pixel_size (CFClient__Layout self, int *w, int *h)
{
  layout_update (self);

  pango_layout_get_pixel_size (self->pl, w, h);

  *w = (*w + 3) & ~3;
  if (!*w) *w = 1;
  if (!*h) *h = 1;
}

typedef struct {
  GLint name;
  int w, h;
  float s, t;
  uint8_t r, g, b, a;
} mapface;

typedef struct {
  int16_t darkness;
  uint16_t face[3];
} mapcell;

typedef struct {
  int32_t c0, c1;
  mapcell *col;
} maprow;

typedef struct map {
  int x, y, w, h;
  int vx, vy;
  int faces;
  mapface *face;

  uint32_t rows;
  maprow *row;
} *CFClient__Map;

static char *
prepend (char *ptr, int sze, int inc)
{
  char *p;

  New (0, p, sze + inc, char);
  Zero (p, inc, char);
  Move (ptr, p + inc, sze, char);
  Safefree (ptr);

  return p;
}

static char *
append (char *ptr, int sze, int inc)
{
  Renew (ptr, sze + inc, char);
  Zero (ptr + sze, inc, char);

  return ptr;
}

#define Append(type,ptr,sze,inc)  (ptr) = (type *)append  ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))
#define Prepend(type,ptr,sze,inc) (ptr) = (type *)prepend ((char *)ptr, (sze) * sizeof (type), (inc) * sizeof (type))

static void
map_clear (CFClient__Map self)
{
  int r;

  for (r = 0; r < self->rows; r++)
    Safefree (self->row[r].col);

  Safefree (self->row);

  self->x    = 0;
  self->y    = 0;
  self->vx   = 0;
  self->vy   = 0;
  self->row  = 0;
  self->rows = 0;
}

static void
map_blank (CFClient__Map self, int x0, int y0, int w, int h)
{
  int x, y;

  for (y = y0; y < y0 + h; y++)
    if (y >= 0)
      {
        if (y >= self->rows)
          break;

        maprow *row = self->row + y;

        for (x = x0; x < x0 + w; x++)
          if (x >= row->c0)
            {
              if (x >= row->c1)
                break;

              row->col[x - row->c0].darkness = -1;
            }
      }
}

MODULE = CFClient       PACKAGE = CFClient

PROTOTYPES: ENABLE

BOOT:
{
        fontmap = pango_ft2_font_map_new ();
        pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
        context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
}

void
lowdelay (int fd, int val = 1)
        CODE:
        setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));

char *
gl_version ()
        CODE:
        RETVAL = (char *)glGetString (GL_VERSION);
        OUTPUT:
        RETVAL

char *
gl_extensions ()
        CODE:
        RETVAL = (char *)glGetString (GL_EXTENSIONS);
        OUTPUT:
        RETVAL

void
add_font (char *file)
        CODE:
        FcConfigAppFontAddFile (0, (const FcChar8 *)file); /* no idea wether this is required */

void
set_font (char *file)
        CODE:
{
        int count;
        FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)file, 0, 0, &count);
        PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
        FcPatternDestroy (pattern);
        pango_context_set_font_description (context, font);
}

void
load_image_inline (SV *image_)
        ALIAS:
        load_image_file = 1
        PPCODE:
{
        STRLEN image_len;
        char *image = (char *)SvPVbyte (image_, image_len);
        SDL_Surface *surface, *surface2;
        SDL_PixelFormat fmt;
        SDL_RWops *rw = ix
          ? SDL_RWFromFile (image, "r")
          : SDL_RWFromConstMem (image, image_len);

        if (!rw)
          croak ("load_image: %s", SDL_GetError ());

        surface = IMG_Load_RW (rw, 1);
        if (!surface)
          croak ("load_image: %s", SDL_GetError ());

        fmt.palette = NULL;
        fmt.BitsPerPixel = 32;
        fmt.BytesPerPixel = 4;
        fmt.Rmask = 0x000000ff;
        fmt.Gmask = 0x0000ff00;
        fmt.Bmask = 0x00ff0000;
        fmt.Amask = 0xff000000;
        fmt.Rloss = 0;
        fmt.Gloss = 0;
        fmt.Bloss = 0;
        fmt.Aloss = 0;
        fmt.Rshift = 0;
        fmt.Gshift = 8;
        fmt.Bshift = 16;
        fmt.Ashift = 24;
        fmt.colorkey = 0;
        fmt.alpha = 0;

        surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);

        assert (surface2->pitch == surface2->w * 4);

        EXTEND (SP, 5);
        PUSHs (sv_2mortal (newSViv (surface2->w)));
        PUSHs (sv_2mortal (newSViv (surface2->h)));
        SDL_LockSurface (surface2);
        PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
        SDL_UnlockSurface (surface2);
        PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY | SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
        PUSHs (sv_2mortal (newSViv (GL_RGBA)));
        PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));

        SDL_FreeSurface (surface);
        SDL_FreeSurface (surface2);
}

void
average (int x, int y, uint32_t *data)
        PPCODE:
{
        uint32_t r = 0, g = 0, b = 0, a = 0;

        x = y = x * y;

        while (x--)
          {
            uint32_t p = *data++;

            r += (p      ) & 255;
            g += (p >>  8) & 255;
            b += (p >> 16) & 255;
            a += (p >> 24) & 255;
          }

        EXTEND (SP, 4);
        PUSHs (sv_2mortal (newSViv (r / y)));
        PUSHs (sv_2mortal (newSViv (g / y)));
        PUSHs (sv_2mortal (newSViv (b / y)));
        PUSHs (sv_2mortal (newSViv (a / y)));
}

void
fatal (char *message)
        CODE:
#ifdef WIN32
        MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
#else
        fprintf (stderr, "FATAL: %s\n", message);
#endif
        exit (1);

MODULE = CFClient       PACKAGE = CFClient::Layout

CFClient::Layout
new (SV *class, int base_height = 10)
        CODE:
        New (0, RETVAL, 1, struct cf_layout);
        RETVAL->base_height = base_height;
        RETVAL->pl = pango_layout_new (context);
        pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
        OUTPUT:
        RETVAL

void
DESTROY (CFClient::Layout self)
        CODE:
        g_object_unref (self->pl);
        Safefree (self);

void
set_text (CFClient::Layout self, SV *text_)
        CODE:
{
        STRLEN textlen;
        char *text = SvPVutf8 (text_, textlen);

        pango_layout_set_text (self->pl, text, textlen);
}

void
set_markup (CFClient::Layout self, SV *text_)
        CODE:
{
        STRLEN textlen;
        char *text = SvPVutf8 (text_, textlen);

        pango_layout_set_markup (self->pl, text, textlen);
}

void
set_height (CFClient::Layout self, int base_height)
        CODE:
        self->base_height = base_height;

void
set_width (CFClient::Layout self, int max_width = -1)
        CODE:
        pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);

void
size (CFClient::Layout self)
        PPCODE:
{
        int w, h;

        layout_update (self);
        layout_get_pixel_size (self, &w, &h);

        EXTEND (SP, 2);
        PUSHs (sv_2mortal (newSViv (w)));
        PUSHs (sv_2mortal (newSViv (h)));
}

int
xy_to_index (CFClient::Layout self, int x, int y)
        CODE:
{
        int index, trailing;

        layout_update (self);
        pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);

        RETVAL = index;
}
        OUTPUT:
        RETVAL

void
cursor_pos (CFClient::Layout self, int index)
        PPCODE:
{
        PangoRectangle strong_pos;
        layout_update (self);
        pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);

        EXTEND (SP, 3);
        PUSHs (sv_2mortal (newSViv (strong_pos.x      / PANGO_SCALE)));
        PUSHs (sv_2mortal (newSViv (strong_pos.y      / PANGO_SCALE)));
        PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
}

void
render (CFClient::Layout self)
        PPCODE:
{
        SV *retval;
        int w, h;
        FT_Bitmap bitmap;

        layout_update (self);
        layout_get_pixel_size (self, &w, &h);

        retval = newSV (w * h);
        SvPOK_only (retval);
        SvCUR_set (retval, w * h);

        bitmap.rows       = h;
        bitmap.width      = w;
        bitmap.pitch      = w;
        bitmap.buffer     = (unsigned char*)SvPVX (retval);
        bitmap.num_grays  = 256;
        bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;

        memset (bitmap.buffer, 0, w * h);
            
        pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);

        EXTEND (SP, 3);
        PUSHs (sv_2mortal (newSViv (w)));
        PUSHs (sv_2mortal (newSViv (h)));
        PUSHs (sv_2mortal (retval));
}

MODULE = CFClient       PACKAGE = CFClient::Texture

void
draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
        PROTOTYPE: $$$;$$
        CODE:
{
        HV *hv = (HV *)SvRV (self);
        float s = SvNV (*hv_fetch (hv, "s", 1, 1));
        float t = SvNV (*hv_fetch (hv, "t", 1, 1));
        int name = SvIV (*hv_fetch (hv, "name", 4, 1));
        int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));

        if (items < 5)
          {
            w = SvNV (*hv_fetch (hv, "w", 1, 1));
            h = SvNV (*hv_fetch (hv, "h", 1, 1));
          }

        glBindTexture (GL_TEXTURE_2D, name);
        if (wrap_mode) {
           glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
           glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
        }
        glBegin (GL_QUADS);
        glTexCoord2f (0, 0); glVertex2f (x    , y    );
        glTexCoord2f (0, t); glVertex2f (x    , y + h);
        glTexCoord2f (s, t); glVertex2f (x + w, y + h);
        glTexCoord2f (s, 0); glVertex2f (x + w, y    );
        glEnd ();
}

MODULE = CFClient       PACKAGE = CFClient::Map

CFClient::Map
new (SV *class, int map_width, int map_height)
        CODE:
        New (0, RETVAL, 1, struct map);
        RETVAL->x = 0;
        RETVAL->y = 0;
        RETVAL->w = map_width;
        RETVAL->h = map_height;
        RETVAL->vx = 0;
        RETVAL->vy = 0;
        RETVAL->faces = 8192;
        Newz (0, RETVAL->face, RETVAL->faces, mapface);
        RETVAL->rows = 0;
        RETVAL->row = 0;
        OUTPUT:
        RETVAL

void
DESTROY (CFClient::Map self)
        CODE:
{
        map_clear (self);
        Safefree (self->face);
        Safefree (self);
}

void
clear (CFClient::Map self)
        CODE:
        map_clear (self);

void
set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t, int r, int g, int b, int a)
        CODE:
{
        while (self->faces < face)
          {
            Append (mapface, self->face, self->faces, self->faces);
            self->faces *= 2;
          }

        mapface *f = self->face + face;

        f->name = name;
        f->w = w;
        f->h = h;
        f->s = s;
        f->t = t;
        f->r = r;
        f->g = g;
        f->b = b;
        f->a = a;
}

void
scroll (CFClient::Map self, int dx, int dy)
        CODE:
{
        if (dx > 0)
          map_blank (self, self->x, self->y, dx - 1, self->h);
        else if (dx < 0)
          map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);

        if (dy > 0)
          map_blank (self, self->x, self->y, self->w, dy - 1);
        else if (dy < 0)
          map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);

        self->x += dx;
        self->y += dy;

        while (self->y < 0)
          {
            Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
             
            self->rows += MAP_EXTEND_Y;
            self->y    += MAP_EXTEND_Y;
          }
}

void
map1a_update (CFClient::Map self, SV *data_)
        CODE:
{
        uint8_t *data = (uint8_t *)SvPVbyte_nolen (data_);
        uint8_t *data_end = (uint8_t *)SvEND (data_);
        
        while (data < data_end)
          {
            int flags = (data [0] << 8) + data [1]; data += 2;
            
            int x = ((flags >> 10) & 63) + self->x;
            int y = ((flags >>  4) & 63) + self->y;

            while (y >= self->rows)
              {
                Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);

                self->rows += MAP_EXTEND_Y;
              }

            maprow *row = self->row + y;

            if (!row->col)
              {
                Newz (0, row->col, MAP_EXTEND_X, mapcell);
                row->c0 = self->x - MAP_EXTEND_X / 4;
                row->c1 = row->c0 + MAP_EXTEND_X;
              }

            if (row->c0 > x)
              {
                int extend = row->c0 - x + MAP_EXTEND_X;
                Prepend (mapcell, row->col, row->c1 - row->c0, extend);
                row->c0 -= extend;
              }
            else if (x >= row->c1)
              {
                int extend = x - row->c1 + MAP_EXTEND_X;
                Append (mapcell, row->col, row->c1 - row->c0, extend);
                row->c1 += extend;
              }

            assert (y >= 0);
            assert (y < self->rows);
            assert (x >= row->c0);
            assert (x < row->c1);
            mapcell *cell = row->col + (x - row->c0);

            if (flags & 15)
              {
                if (cell->darkness < 0 && x < self->w && y < self->h)
                  {
                    cell->darkness = 0;
                    cell->face [0] = 0;
                    cell->face [1] = 0;
                    cell->face [2] = 0;
                  }
                
                cell->darkness = flags & 8 ? *data++ : 255;

                if (flags & 4)
                  {
                    cell->face [0] = (data [0] << 8) + data [1]; data += 2;
                  }

                if (flags & 2)
                  {
                    cell->face [1] = (data [0] << 8) + data [1]; data += 2;
                  }

                if (flags & 1)
                  {
                    cell->face [2] = (data [0] << 8) + data [1]; data += 2;
                  }
              }
            else
              cell->darkness = -1;
          }
}

SV *
mapmap (CFClient::Map self, int w, int h)
        CODE:
{
        int x0, x1, x;
        int y0, y1, y;
        int z;
        SV *map_sv = newSV (w * h * sizeof (uint32_t));
        uint32_t *map = (uint32_t *)SvPVX (map_sv);

        SvPOK_only (map_sv);
        SvCUR_set (map_sv, w * h * sizeof (uint32_t));

        x0 = self->x - w / 2; x1 = x0 + w;
        y0 = self->y - h / 2; y1 = y0 + h;

        for (y = y0; y < y1; y++)
          {
            maprow *row = 0 <= y && y < self->rows
              ? self->row + y
              : 0;

            for (x = x0; x < x1; x++)
              {
                int r = 32, g = 32, b = 32, a = 192;

                if (row && row->c0 <= x && x < row->c1)
                  {
                    mapcell *cell = row->col + (x - row->c0);

                    for (z = 0; z <= 0; z++)
                      {
                        uint16_t face = cell->face [z];

                        if (face)
                          {
                            mapface tex = self->face [face];
                            int a0 = 255 - tex.a;
                            int a1 = tex.a;

                            r = (r * a0 + tex.r * a1) / 255;
                            g = (g * a0 + tex.g * a1) / 255;
                            b = (b * a0 + tex.b * a1) / 255;
                            a = (a * a0 + tex.a * a1) / 255;
                          }
                      }
                  }

                *map++ = (r      )
                       | (g <<  8)
                       | (b << 16)
                       | (a << 24);
              }
          }

        RETVAL = map_sv;
}
        OUTPUT:
        RETVAL

void
draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
        PPCODE:
{
        int sw4 = (sw + 3) & ~3;
        SV *darkness_sv = sv_2mortal (newSV (sw4 * sh));
        uint8_t *darkness = (uint8_t *)SvPVX (darkness_sv);

        SvPOK_only (darkness_sv);
        SvCUR_set (darkness_sv, sw4 * sh);

        int vx = self->x + (self->w - sw) / 2 - shift_x;
        int vy = self->y + (self->h - sh) / 2 - shift_y;

        if (0)
          {
            int vx = self->vx = self->w >= sw
              ? self->x + (self->w - sw) / 2
              : MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));

            int vy = self->vy = self->h >= sh
              ? self->y + (self->h - sh) / 2
              : MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
          }

        glColor4ub (255, 255, 255, 255);

        glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
        glEnable (GL_BLEND);
        glEnable (GL_TEXTURE_2D);
        glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);

        int x, y, z;

        int last_name = 0;

        glBegin (GL_QUADS);

        for (z = 0; z < 3; z++)
          for (y = 0; y < sh; y++)
            if (0 <= y + vy && y + vy < self->rows)
              {
                maprow *row = self->row + (y + vy);

                for (x = 0; x < sw; x++)
                  if (row->c0 <= x + vx && x + vx < row->c1)
                    {
                      mapcell *cell = row->col + (x + vx - row->c0);

                      darkness[y * sw4 + x] = cell->darkness < 0
                        ? 255 - FOW_DARKNESS
                        : 255 - cell->darkness;

                      uint16_t face = cell->face [z];

                      if (face)
                        {
                          mapface tex = self->face [face];

                          int px = (x + 1) * 32 - tex.w;
                          int py = (y + 1) * 32 - tex.h;

                          if (last_name != tex.name)
                            {
                              glEnd ();
                              last_name = tex.name;
                              glBindTexture (GL_TEXTURE_2D, last_name);
                              glBegin (GL_QUADS);
                            }

                          glTexCoord2f (0    , 0    ); glVertex2f (px        , py        );
                          glTexCoord2f (0    , tex.t); glVertex2f (px        , py + tex.h);
                          glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
                          glTexCoord2f (tex.s, 0    ); glVertex2f (px + tex.w, py        );
                        }
                    }
              }

        glEnd ();

        glDisable (GL_TEXTURE_2D);
        glDisable (GL_BLEND);

        EXTEND (SP, 3);
        PUSHs (sv_2mortal (newSViv (sw4)));
        PUSHs (sv_2mortal (newSViv (sh)));
        PUSHs (darkness_sv);
}

Revision:	1.41
Committed:	Sat Apr 15 01:52:53 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.40:	+2 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#include "EXTERN.h"
2			#include "perl.h"
3			#include "XSUB.h"
4
5	root	1.5	#include <string.h>
6	root	1.25	#include <stdio.h>
7	root	1.5
8	root	1.2	#include <SDL.h>
9	root	1.23	#include <SDL_image.h>
10	root	1.3	#include <SDL_opengl.h>
11	root	1.5
12	root	1.30	#include <glib/gmacros.h>
13
14	root	1.5	#include <pango/pango.h>
15	root	1.10	#include <pango/pangofc-fontmap.h>
16	root	1.5	#include <pango/pangoft2.h>
17
18	root	1.10	#include <sys/types.h>
19			#include <sys/socket.h>
20			#include <netinet/in.h>
21			#include <netinet/tcp.h>
22
23	root	1.28	#include <inttypes.h>
24
25	root	1.29	#define FOW_DARKNESS 32
26
27			#define MAP_EXTEND_X 32
28			#define MAP_EXTEND_Y 512
29
30	root	1.5	static PangoContext *context;
31			static PangoFontMap *fontmap;
32	root	1.2
33	root	1.14	typedef struct cf_layout {
34			PangoLayout *pl;
35			int base_height;
36	root	1.15	} *CFClient__Layout;
37	root	1.14
38			static void
39	root	1.19	substitute_func (FcPattern *pattern, gpointer data)
40			{
41	root	1.20	FcPatternAddBool (pattern, FC_HINTING , 1);
42	root	1.35	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
43	root	1.19	}
44
45			static void
46	root	1.17	layout_update (CFClient__Layout self)
47			{
48	root	1.19	/* use a random scale factor to account for unknown descenders, 0.8 works
49			* reasonably well with bitstream vera
50			*/
51	root	1.17	PangoFontDescription *font = pango_context_get_font_description (context);
52	root	1.19	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
53	root	1.17	}
54
55			static void
56	root	1.15	layout_get_pixel_size (CFClient__Layout self, int w, int h)
57	root	1.14	{
58	root	1.19	layout_update (self);
59	root	1.16
60	root	1.14	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
67	root	1.28	typedef struct {
68	root	1.30	GLint name;
69			int w, h;
70			float s, t;
71	root	1.39	uint8_t r, g, b, a;
72	root	1.30	} mapface;
73
74			typedef struct {
75	root	1.29	int16_t darkness;
76	root	1.28	uint16_t face[3];
77			} mapcell;
78
79			typedef struct {
80	root	1.30	int32_t c0, c1;
81	root	1.28	mapcell *col;
82			} maprow;
83
84			typedef struct map {
85			int x, y, w, h;
86	root	1.30	int vx, vy;
87	root	1.28	int faces;
88	root	1.30	mapface *face;
89	root	1.28
90			uint32_t rows;
91			maprow *row;
92			} *CFClient__Map;
93
94	root	1.30	static char *
95			prepend (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
107			static char *
108			append (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
119			static void
120			map_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
137	root	1.29	static void
138			map_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	root	1.30	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	root	1.29
156	root	1.31	row->col[x - row->c0].darkness = -1;
157	root	1.30	}
158			}
159	root	1.29	}
160
161	root	1.15	MODULE = CFClient PACKAGE = CFClient
162	root	1.1
163	root	1.11	PROTOTYPES: ENABLE
164
165	root	1.5	BOOT:
166			{
167			fontmap = pango_ft2_font_map_new ();
168	root	1.19	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
169	root	1.8	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
170	root	1.5	}
171
172	root	1.10	void
173			lowdelay (int fd, int val = 1)
174			CODE:
175			setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
176
177	root	1.3	char *
178	root	1.4	gl_version ()
179			CODE:
180	root	1.5	RETVAL = (char *)glGetString (GL_VERSION);
181	root	1.4	OUTPUT:
182			RETVAL
183
184			char *
185	root	1.3	gl_extensions ()
186			CODE:
187	root	1.5	RETVAL = (char *)glGetString (GL_EXTENSIONS);
188	root	1.3	OUTPUT:
189			RETVAL
190
191	root	1.5	void
192	root	1.13	add_font (char *file)
193			CODE:
194			FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
195
196			void
197	root	1.9	set_font (char *file)
198	root	1.8	CODE:
199			{
200	root	1.9	int count;
201			FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
202	root	1.10	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
203	root	1.9	FcPatternDestroy (pattern);
204	root	1.8	pango_context_set_font_description (context, font);
205			}
206
207	root	1.23	void
208			load_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	root	1.41	croak ("load_image: %s", SDL_GetError ());
223	root	1.23
224			surface = IMG_Load_RW (rw, 1);
225			if (!surface)
226	root	1.41	croak ("load_image: %s", SDL_GetError ());
227	root	1.23
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	root	1.39	assert (surface2->pitch == surface2->w * 4);
249
250	root	1.23	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	root	1.24	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
257	root	1.23	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
264	root	1.25	void
265	root	1.39	average (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	root	1.40	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	root	1.39	}
288
289			void
290	root	1.25	fatal (char *message)
291			CODE:
292			#ifdef WIN32
293			MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
294			#else
295	root	1.40	fprintf (stderr, "FATAL: %s\n", message);
296	root	1.25	#endif
297			exit (1);
298
299	root	1.15	MODULE = CFClient PACKAGE = CFClient::Layout
300	root	1.14
301	root	1.15	CFClient::Layout
302	root	1.14	new (SV *class, int base_height = 10)
303			CODE:
304			New (0, RETVAL, 1, struct cf_layout);
305			RETVAL->base_height = base_height;
306			RETVAL->pl = pango_layout_new (context);
307			pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
308			OUTPUT:
309			RETVAL
310
311			void
312	root	1.15	DESTROY (CFClient::Layout self)
313	root	1.14	CODE:
314			g_object_unref (self->pl);
315			Safefree (self);
316	root	1.13
317	root	1.8	void
318	root	1.35	set_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
327			void
328	root	1.15	set_markup (CFClient::Layout self, SV *text_)
329	root	1.14	CODE:
330	root	1.5	{
331			STRLEN textlen;
332			char *text = SvPVutf8 (text_, textlen);
333	root	1.14
334			pango_layout_set_markup (self->pl, text, textlen);
335			}
336
337			void
338	root	1.16	set_height (CFClient::Layout self, int base_height)
339			CODE:
340			self->base_height = base_height;
341
342			void
343	root	1.15	set_width (CFClient::Layout self, int max_width = -1)
344	root	1.14	CODE:
345			pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
346
347			void
348	root	1.15	size (CFClient::Layout self)
349	root	1.14	PPCODE:
350			{
351			int w, h;
352
353	root	1.17	layout_update (self);
354	root	1.14	layout_get_pixel_size (self, &w, &h);
355
356			EXTEND (SP, 2);
357			PUSHs (sv_2mortal (newSViv (w)));
358			PUSHs (sv_2mortal (newSViv (h)));
359			}
360
361	root	1.17	int
362			xy_to_index (CFClient::Layout self, int x, int y)
363			CODE:
364			{
365			int index, trailing;
366
367			layout_update (self);
368			pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
369
370			RETVAL = index;
371			}
372			OUTPUT:
373			RETVAL
374
375			void
376			cursor_pos (CFClient::Layout self, int index)
377			PPCODE:
378			{
379			PangoRectangle strong_pos;
380			layout_update (self);
381			pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
382	root	1.30
383	root	1.17	EXTEND (SP, 3);
384			PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
385			PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
386			PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
387			}
388
389	root	1.14	void
390	root	1.15	render (CFClient::Layout self)
391	root	1.14	PPCODE:
392			{
393	root	1.5	SV *retval;
394			int w, h;
395			FT_Bitmap bitmap;
396
397	root	1.17	layout_update (self);
398	root	1.14	layout_get_pixel_size (self, &w, &h);
399	root	1.5
400			retval = newSV (w * h);
401			SvPOK_only (retval);
402			SvCUR_set (retval, w * h);
403
404			bitmap.rows = h;
405			bitmap.width = w;
406			bitmap.pitch = w;
407			bitmap.buffer = (unsigned char*)SvPVX (retval);
408			bitmap.num_grays = 256;
409			bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
410
411			memset (bitmap.buffer, 0, w * h);
412
413	root	1.14	pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
414	root	1.1
415	root	1.5	EXTEND (SP, 3);
416			PUSHs (sv_2mortal (newSViv (w)));
417			PUSHs (sv_2mortal (newSViv (h)));
418			PUSHs (sv_2mortal (retval));
419			}
420	root	1.11
421	root	1.15	MODULE = CFClient PACKAGE = CFClient::Texture
422	root	1.11
423			void
424	root	1.37	draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
425	root	1.12	PROTOTYPE: $$$;$$
426	root	1.11	CODE:
427			{
428	root	1.12	HV hv = (HV )SvRV (self);
429	root	1.37	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
430			float t = SvNV (*hv_fetch (hv, "t", 1, 1));
431	root	1.12	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
432	elmex	1.36	int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
433	root	1.12
434			if (items < 5)
435			{
436	root	1.18	w = SvNV (*hv_fetch (hv, "w", 1, 1));
437			h = SvNV (*hv_fetch (hv, "h", 1, 1));
438	root	1.12	}
439
440			glBindTexture (GL_TEXTURE_2D, name);
441	elmex	1.36	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			}
445	root	1.12	glBegin (GL_QUADS);
446	root	1.37	glTexCoord2f (0, 0); glVertex2f (x , y );
447			glTexCoord2f (0, t); glVertex2f (x , y + h);
448			glTexCoord2f (s, t); glVertex2f (x + w, y + h);
449			glTexCoord2f (s, 0); glVertex2f (x + w, y );
450	root	1.12	glEnd ();
451	root	1.11	}
452	root	1.28
453			MODULE = CFClient PACKAGE = CFClient::Map
454
455			CFClient::Map
456			new (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	root	1.30	RETVAL->vx = 0;
464			RETVAL->vy = 0;
465			RETVAL->faces = 8192;
466			Newz (0, RETVAL->face, RETVAL->faces, mapface);
467	root	1.28	RETVAL->rows = 0;
468			RETVAL->row = 0;
469			OUTPUT:
470			RETVAL
471
472			void
473			DESTROY (CFClient::Map self)
474			CODE:
475			{
476	root	1.30	map_clear (self);
477	root	1.28	Safefree (self->face);
478	root	1.29	Safefree (self);
479			}
480
481			void
482	root	1.30	clear (CFClient::Map self)
483			CODE:
484			map_clear (self);
485
486			void
487	root	1.39	set_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	root	1.29	CODE:
489			{
490	root	1.30	while (self->faces < face)
491	root	1.28	{
492	root	1.30	Append (mapface, self->face, self->faces, self->faces);
493	root	1.29	self->faces *= 2;
494			}
495	root	1.28
496	root	1.39	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	root	1.29	}
508
509			void
510			scroll (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	root	1.30	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
529	root	1.29
530			self->rows += MAP_EXTEND_Y;
531			self->y += MAP_EXTEND_Y;
532	root	1.28	}
533	root	1.29	}
534	root	1.28
535	root	1.29	void
536			map1a_update (CFClient::Map self, SV *data_)
537			CODE:
538			{
539	root	1.30	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
540			uint8_t data_end = (uint8_t )SvEND (data_);
541	root	1.29
542			while (data < data_end)
543			{
544			int flags = (data [0] << 8) + data [1]; data += 2;
545	root	1.30
546	root	1.29	int x = ((flags >> 10) & 63) + self->x;
547			int y = ((flags >> 4) & 63) + self->y;
548
549			while (y >= self->rows)
550			{
551	root	1.30	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
552	root	1.29
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	root	1.30	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
569	root	1.29	row->c0 -= extend;
570			}
571			else if (x >= row->c1)
572			{
573			int extend = x - row->c1 + MAP_EXTEND_X;
574	root	1.30	Append (mapcell, row->col, row->c1 - row->c0, extend);
575	root	1.29	row->c1 += extend;
576			}
577
578	root	1.30	assert (y >= 0);
579			assert (y < self->rows);
580			assert (x >= row->c0);
581			assert (x < row->c1);
582	root	1.29	mapcell *cell = row->col + (x - row->c0);
583
584			if (flags & 15)
585			{
586	root	1.30	if (cell->darkness < 0 && x < self->w && y < self->h)
587	root	1.29	{
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	root	1.31	cell->darkness = -1;
613	root	1.29	}
614	root	1.28	}
615
616	root	1.40	SV *
617			mapmap (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
676	root	1.30	void
677	root	1.38	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
678	root	1.32	PPCODE:
679	root	1.30	{
680	root	1.32	int sw4 = (sw + 3) & ~3;
681			SV darkness_sv = sv_2mortal (newSV (sw4 sh));
682	root	1.35	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
683	root	1.32
684			SvPOK_only (darkness_sv);
685			SvCUR_set (darkness_sv, sw4 * sh);
686
687	root	1.38	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	root	1.30
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	root	1.32
725			darkness[y * sw4 + x] = cell->darkness < 0
726	root	1.33	? 255 - FOW_DARKNESS
727	root	1.32	: 255 - cell->darkness;
728
729	root	1.30	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	root	1.32
756	root	1.34	glDisable (GL_TEXTURE_2D);
757			glDisable (GL_BLEND);
758
759	root	1.32	EXTEND (SP, 3);
760			PUSHs (sv_2mortal (newSViv (sw4)));
761			PUSHs (sv_2mortal (newSViv (sh)));
762			PUSHs (darkness_sv);
763	root	1.30	}
764