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;
} 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: unable to open file");

        surface = IMG_Load_RW (rw, 1);
        if (!surface)
          croak ("load_image: unable to read file");

        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);

        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
fatal (char *message)
        CODE:
#ifdef WIN32
        MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK | MB_ICONERROR | MB_SETFOREGROUND);
#else
        fprintf (stderr, "%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, double x, double y, double w = 0, double h = 0)
        PROTOTYPE: $$$;$$
        CODE:
{
        HV *hv = (HV *)SvRV (self);
        double s = SvNV (*hv_fetch (hv, "s", 1, 1));
        double 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);
        glTexCoord2d (0, 0); glVertex2d (x    , y    );
        glTexCoord2d (0, t); glVertex2d (x    , y + h);
        glTexCoord2d (s, t); glVertex2d (x + w, y + h);
        glTexCoord2d (s, 0); glVertex2d (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)
        CODE:
{
        while (self->faces < face)
          {
            Append (mapface, self->face, self->faces, self->faces);
            self->faces *= 2;
          }

        self->face [face].name = name;
        self->face [face].w    = w;
        self->face [face].h    = h;
        self->face [face].s    = s;
        self->face [face].t    = t;
}

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;
          }
}

void
draw (CFClient::Map self, 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->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.36
Committed:	Fri Apr 14 11:32:21 2006 UTC (18 years, 1 month ago) by elmex
Branch:	MAIN
Changes since 1.35:	+5 -0 lines
Log Message:	implemented texture repeation and change signals for entrys. also updated the config dialog so that it saves host and port and stuff... added a default say command which is used when writing text in the entry box
#	Content
1	#include "EXTERN.h"
2	#include "perl.h"
3	#include "XSUB.h"
4
5	#include <string.h>
6	#include <stdio.h>
7
8	#include <SDL.h>
9	#include <SDL_image.h>
10	#include <SDL_opengl.h>
11
12	#include <glib/gmacros.h>
13
14	#include <pango/pango.h>
15	#include <pango/pangofc-fontmap.h>
16	#include <pango/pangoft2.h>
17
18	#include <sys/types.h>
19	#include <sys/socket.h>
20	#include <netinet/in.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
29
30	static PangoContext *context;
31	static PangoFontMap *fontmap;
32
33	typedef struct cf_layout {
34	PangoLayout *pl;
35	int base_height;
36	} *CFClient__Layout;
37
38	static void
39	substitute_func (FcPattern *pattern, gpointer data)
40	{
41	FcPatternAddBool (pattern, FC_HINTING , 1);
42	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
43	}
44
45	static void
46	layout_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
55	static void
56	layout_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
67	typedef struct {
68	GLint name;
69	int w, h;
70	float s, t;
71	} mapface;
72
73	typedef struct {
74	int16_t darkness;
75	uint16_t face[3];
76	} mapcell;
77
78	typedef struct {
79	int32_t c0, c1;
80	mapcell *col;
81	} maprow;
82
83	typedef 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
93	static char *
94	prepend (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
106	static char *
107	append (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
118	static void
119	map_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
136	static void
137	map_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	}
158	}
159
160	MODULE = CFClient PACKAGE = CFClient
161
162	PROTOTYPES: ENABLE
163
164	BOOT:
165	{
166	fontmap = pango_ft2_font_map_new ();
167	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
168	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
169	}
170
171	void
172	lowdelay (int fd, int val = 1)
173	CODE:
174	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
175
176	char *
177	gl_version ()
178	CODE:
179	RETVAL = (char *)glGetString (GL_VERSION);
180	OUTPUT:
181	RETVAL
182
183	char *
184	gl_extensions ()
185	CODE:
186	RETVAL = (char *)glGetString (GL_EXTENSIONS);
187	OUTPUT:
188	RETVAL
189
190	void
191	add_font (char *file)
192	CODE:
193	FcConfigAppFontAddFile (0, (const FcChar8 )file); / no idea wether this is required */
194
195	void
196	set_font (char *file)
197	CODE:
198	{
199	int count;
200	FcPattern pattern = FcFreeTypeQuery ((const FcChar8 )file, 0, 0, &count);
201	PangoFontDescription *font = pango_fc_font_description_from_pattern (pattern, 0);
202	FcPatternDestroy (pattern);
203	pango_context_set_font_description (context, font);
204	}
205
206	void
207	load_image_inline (SV *image_)
208	ALIAS:
209	load_image_file = 1
210	PPCODE:
211	{
212	STRLEN image_len;
213	char image = (char )SvPVbyte (image_, image_len);
214	SDL_Surface surface, surface2;
215	SDL_PixelFormat fmt;
216	SDL_RWops *rw = ix
217	? SDL_RWFromFile (image, "r")
218	: SDL_RWFromConstMem (image, image_len);
219
220	if (!rw)
221	croak ("load_image: unable to open file");
222
223	surface = IMG_Load_RW (rw, 1);
224	if (!surface)
225	croak ("load_image: unable to read file");
226
227	fmt.palette = NULL;
228	fmt.BitsPerPixel = 32;
229	fmt.BytesPerPixel = 4;
230	fmt.Rmask = 0x000000ff;
231	fmt.Gmask = 0x0000ff00;
232	fmt.Bmask = 0x00ff0000;
233	fmt.Amask = 0xff000000;
234	fmt.Rloss = 0;
235	fmt.Gloss = 0;
236	fmt.Bloss = 0;
237	fmt.Aloss = 0;
238	fmt.Rshift = 0;
239	fmt.Gshift = 8;
240	fmt.Bshift = 16;
241	fmt.Ashift = 24;
242	fmt.colorkey = 0;
243	fmt.alpha = 0;
244
245	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
246
247	EXTEND (SP, 5);
248	PUSHs (sv_2mortal (newSViv (surface2->w)));
249	PUSHs (sv_2mortal (newSViv (surface2->h)));
250	SDL_LockSurface (surface2);
251	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
252	SDL_UnlockSurface (surface2);
253	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
254	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
255	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));
256
257	SDL_FreeSurface (surface);
258	SDL_FreeSurface (surface2);
259	}
260
261	void
262	fatal (char *message)
263	CODE:
264	#ifdef WIN32
265	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
266	#else
267	fprintf (stderr, "%s\n", message);
268	#endif
269	exit (1);
270
271	MODULE = CFClient PACKAGE = CFClient::Layout
272
273	CFClient::Layout
274	new (SV *class, int base_height = 10)
275	CODE:
276	New (0, RETVAL, 1, struct cf_layout);
277	RETVAL->base_height = base_height;
278	RETVAL->pl = pango_layout_new (context);
279	pango_layout_set_wrap (RETVAL->pl, PANGO_WRAP_WORD_CHAR);
280	OUTPUT:
281	RETVAL
282
283	void
284	DESTROY (CFClient::Layout self)
285	CODE:
286	g_object_unref (self->pl);
287	Safefree (self);
288
289	void
290	set_text (CFClient::Layout self, SV *text_)
291	CODE:
292	{
293	STRLEN textlen;
294	char *text = SvPVutf8 (text_, textlen);
295
296	pango_layout_set_text (self->pl, text, textlen);
297	}
298
299	void
300	set_markup (CFClient::Layout self, SV *text_)
301	CODE:
302	{
303	STRLEN textlen;
304	char *text = SvPVutf8 (text_, textlen);
305
306	pango_layout_set_markup (self->pl, text, textlen);
307	}
308
309	void
310	set_height (CFClient::Layout self, int base_height)
311	CODE:
312	self->base_height = base_height;
313
314	void
315	set_width (CFClient::Layout self, int max_width = -1)
316	CODE:
317	pango_layout_set_width (self->pl, max_width < 0 ? max_width : max_width * PANGO_SCALE);
318
319	void
320	size (CFClient::Layout self)
321	PPCODE:
322	{
323	int w, h;
324
325	layout_update (self);
326	layout_get_pixel_size (self, &w, &h);
327
328	EXTEND (SP, 2);
329	PUSHs (sv_2mortal (newSViv (w)));
330	PUSHs (sv_2mortal (newSViv (h)));
331	}
332
333	int
334	xy_to_index (CFClient::Layout self, int x, int y)
335	CODE:
336	{
337	int index, trailing;
338
339	layout_update (self);
340	pango_layout_xy_to_index (self->pl, x * PANGO_SCALE, y * PANGO_SCALE, &index, &trailing);
341
342	RETVAL = index;
343	}
344	OUTPUT:
345	RETVAL
346
347	void
348	cursor_pos (CFClient::Layout self, int index)
349	PPCODE:
350	{
351	PangoRectangle strong_pos;
352	layout_update (self);
353	pango_layout_get_cursor_pos (self->pl, index, &strong_pos, 0);
354
355	EXTEND (SP, 3);
356	PUSHs (sv_2mortal (newSViv (strong_pos.x / PANGO_SCALE)));
357	PUSHs (sv_2mortal (newSViv (strong_pos.y / PANGO_SCALE)));
358	PUSHs (sv_2mortal (newSViv (strong_pos.height / PANGO_SCALE)));
359	}
360
361	void
362	render (CFClient::Layout self)
363	PPCODE:
364	{
365	SV *retval;
366	int w, h;
367	FT_Bitmap bitmap;
368
369	layout_update (self);
370	layout_get_pixel_size (self, &w, &h);
371
372	retval = newSV (w * h);
373	SvPOK_only (retval);
374	SvCUR_set (retval, w * h);
375
376	bitmap.rows = h;
377	bitmap.width = w;
378	bitmap.pitch = w;
379	bitmap.buffer = (unsigned char*)SvPVX (retval);
380	bitmap.num_grays = 256;
381	bitmap.pixel_mode = FT_PIXEL_MODE_GRAY;
382
383	memset (bitmap.buffer, 0, w * h);
384
385	pango_ft2_render_layout (&bitmap, self->pl, 0 * PANGO_SCALE, 0 * PANGO_SCALE);
386
387	EXTEND (SP, 3);
388	PUSHs (sv_2mortal (newSViv (w)));
389	PUSHs (sv_2mortal (newSViv (h)));
390	PUSHs (sv_2mortal (retval));
391	}
392
393	MODULE = CFClient PACKAGE = CFClient::Texture
394
395	void
396	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)
397	PROTOTYPE: $$$;$$
398	CODE:
399	{
400	HV hv = (HV )SvRV (self);
401	double s = SvNV (*hv_fetch (hv, "s", 1, 1));
402	double t = SvNV (*hv_fetch (hv, "t", 1, 1));
403	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
404	int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
405
406	if (items < 5)
407	{
408	w = SvNV (*hv_fetch (hv, "w", 1, 1));
409	h = SvNV (*hv_fetch (hv, "h", 1, 1));
410	}
411
412	glBindTexture (GL_TEXTURE_2D, name);
413	if (wrap_mode) {
414	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
415	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
416	}
417	glBegin (GL_QUADS);
418	glTexCoord2d (0, 0); glVertex2d (x , y );
419	glTexCoord2d (0, t); glVertex2d (x , y + h);
420	glTexCoord2d (s, t); glVertex2d (x + w, y + h);
421	glTexCoord2d (s, 0); glVertex2d (x + w, y );
422	glEnd ();
423	}
424
425	MODULE = CFClient PACKAGE = CFClient::Map
426
427	CFClient::Map
428	new (SV *class, int map_width, int map_height)
429	CODE:
430	New (0, RETVAL, 1, struct map);
431	RETVAL->x = 0;
432	RETVAL->y = 0;
433	RETVAL->w = map_width;
434	RETVAL->h = map_height;
435	RETVAL->vx = 0;
436	RETVAL->vy = 0;
437	RETVAL->faces = 8192;
438	Newz (0, RETVAL->face, RETVAL->faces, mapface);
439	RETVAL->rows = 0;
440	RETVAL->row = 0;
441	OUTPUT:
442	RETVAL
443
444	void
445	DESTROY (CFClient::Map self)
446	CODE:
447	{
448	map_clear (self);
449	Safefree (self->face);
450	Safefree (self);
451	}
452
453	void
454	clear (CFClient::Map self)
455	CODE:
456	map_clear (self);
457
458	void
459	set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t)
460	CODE:
461	{
462	while (self->faces < face)
463	{
464	Append (mapface, self->face, self->faces, self->faces);
465	self->faces *= 2;
466	}
467
468	self->face [face].name = name;
469	self->face [face].w = w;
470	self->face [face].h = h;
471	self->face [face].s = s;
472	self->face [face].t = t;
473	}
474
475	void
476	scroll (CFClient::Map self, int dx, int dy)
477	CODE:
478	{
479	if (dx > 0)
480	map_blank (self, self->x, self->y, dx - 1, self->h);
481	else if (dx < 0)
482	map_blank (self, self->x + self->w + dx + 1, self->y, 1 - dx, self->h);
483
484	if (dy > 0)
485	map_blank (self, self->x, self->y, self->w, dy - 1);
486	else if (dy < 0)
487	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
488
489	self->x += dx;
490	self->y += dy;
491
492	while (self->y < 0)
493	{
494	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
495
496	self->rows += MAP_EXTEND_Y;
497	self->y += MAP_EXTEND_Y;
498	}
499	}
500
501	void
502	map1a_update (CFClient::Map self, SV *data_)
503	CODE:
504	{
505	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
506	uint8_t data_end = (uint8_t )SvEND (data_);
507
508	while (data < data_end)
509	{
510	int flags = (data [0] << 8) + data [1]; data += 2;
511
512	int x = ((flags >> 10) & 63) + self->x;
513	int y = ((flags >> 4) & 63) + self->y;
514
515	while (y >= self->rows)
516	{
517	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
518
519	self->rows += MAP_EXTEND_Y;
520	}
521
522	maprow *row = self->row + y;
523
524	if (!row->col)
525	{
526	Newz (0, row->col, MAP_EXTEND_X, mapcell);
527	row->c0 = self->x - MAP_EXTEND_X / 4;
528	row->c1 = row->c0 + MAP_EXTEND_X;
529	}
530
531	if (row->c0 > x)
532	{
533	int extend = row->c0 - x + MAP_EXTEND_X;
534	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
535	row->c0 -= extend;
536	}
537	else if (x >= row->c1)
538	{
539	int extend = x - row->c1 + MAP_EXTEND_X;
540	Append (mapcell, row->col, row->c1 - row->c0, extend);
541	row->c1 += extend;
542	}
543
544	assert (y >= 0);
545	assert (y < self->rows);
546	assert (x >= row->c0);
547	assert (x < row->c1);
548	mapcell *cell = row->col + (x - row->c0);
549
550	if (flags & 15)
551	{
552	if (cell->darkness < 0 && x < self->w && y < self->h)
553	{
554	cell->darkness = 0;
555	cell->face [0] = 0;
556	cell->face [1] = 0;
557	cell->face [2] = 0;
558	}
559
560	cell->darkness = flags & 8 ? *data++ : 255;
561
562	if (flags & 4)
563	{
564	cell->face [0] = (data [0] << 8) + data [1]; data += 2;
565	}
566
567	if (flags & 2)
568	{
569	cell->face [1] = (data [0] << 8) + data [1]; data += 2;
570	}
571
572	if (flags & 1)
573	{
574	cell->face [2] = (data [0] << 8) + data [1]; data += 2;
575	}
576	}
577	else
578	cell->darkness = -1;
579	}
580	}
581
582	void
583	draw (CFClient::Map self, int x0, int y0, int sw, int sh)
584	PPCODE:
585	{
586	int sw4 = (sw + 3) & ~3;
587	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
588	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
589
590	SvPOK_only (darkness_sv);
591	SvCUR_set (darkness_sv, sw4 * sh);
592
593	int vx = self->vx = self->w >= sw
594	? self->x + (self->w - sw) / 2
595	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
596
597	int vy = self->vy = self->h >= sh
598	? self->y + (self->h - sh) / 2
599	: MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
600
601	glColor4ub (255, 255, 255, 255);
602
603	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
604	glEnable (GL_BLEND);
605	glEnable (GL_TEXTURE_2D);
606	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
607
608	int x, y, z;
609
610	int last_name = 0;
611
612	glBegin (GL_QUADS);
613
614	for (z = 0; z < 3; z++)
615	for (y = 0; y < sh; y++)
616	if (0 <= y + vy && y + vy < self->rows)
617	{
618	maprow *row = self->row + (y + vy);
619
620	for (x = 0; x < sw; x++)
621	if (row->c0 <= x + vx && x + vx < row->c1)
622	{
623	mapcell *cell = row->col + (x + vx - row->c0);
624
625	darkness[y * sw4 + x] = cell->darkness < 0
626	? 255 - FOW_DARKNESS
627	: 255 - cell->darkness;
628
629	uint16_t face = cell->face [z];
630
631	if (face)
632	{
633	mapface tex = self->face [face];
634
635	int px = (x + 1) * 32 - tex.w;
636	int py = (y + 1) * 32 - tex.h;
637
638	if (last_name != tex.name)
639	{
640	glEnd ();
641	last_name = tex.name;
642	glBindTexture (GL_TEXTURE_2D, last_name);
643	glBegin (GL_QUADS);
644	}
645
646	glTexCoord2f (0 , 0 ); glVertex2f (px , py );
647	glTexCoord2f (0 , tex.t); glVertex2f (px , py + tex.h);
648	glTexCoord2f (tex.s, tex.t); glVertex2f (px + tex.w, py + tex.h);
649	glTexCoord2f (tex.s, 0 ); glVertex2f (px + tex.w, py );
650	}
651	}
652	}
653
654	glEnd ();
655
656	glDisable (GL_TEXTURE_2D);
657	glDisable (GL_BLEND);
658
659	EXTEND (SP, 3);
660	PUSHs (sv_2mortal (newSViv (sw4)));
661	PUSHs (sv_2mortal (newSViv (sh)));
662	PUSHs (darkness_sv);
663	}
664