#include <stdio.h></stdio.h>

#include <stdlib.h></stdlib.h>

#include <string.h></string.h>

#include <assert.h></assert.h>

#ifdef WIN32

#include <windows.h></windows.h>

#else

#include <unistd.h></unistd.h>

#endif

#include "toonz.h"

#include "tmsg.h"

#include "file.h"

#include "img.h"

#include "tmachine.h"

#include "../infoRegionP.h"

#include "ImageP/filetzr.h"

#if !defined(TNZ_LITTLE_ENDIAN)

  TNZ_LITTLE_ENDIAN undefined!!

#endif

#if TNZ_LITTLE_ENDIAN

#define TZR_MAGIC ('T' | 'Z' << 8 | 'R' << 16 | 'A' << 24)

#else

#define TZR_MAGIC ('T' << 24 | 'Z' << 16 | 'R' << 8 | 'A')

#endif

#ifdef NOTES

numbers are always big endian (most significant byte first)

floats and doubles are IEEE, sign and exponent first (1+8+23 and 1+11+52)

4 bytes: 'T' 'Z' 'R' 'A' (0x545a5241 big endian or 0x41525a54 little endian)

1 byte: type of file (0 is not valid)

1 byte: ST1 (subtype, must be 0 if not used)

1 byte: ST2 (")

1 byte: ST3 (")

(types form a tree, numbers should increase chronologically)

type 1: fast

  ST1 1: lineart CM (1 ink, 2 colors (transparent and opaque), 4 bits ramp)

    ST2 1: RLE compression (see image section)

    3 bytes: image lx

    3 bytes: image ly

    3 bytes: image offset from start of file

    tagged fields (fill up the space before the image):

      1 byte field tag

      if (tag >= 128)

        2 bytes field length(=n)

	n bytes field value

      else

	1 byte field length(=n)

	n bytes field value

    image:

      rle encoded 1 line at a time (to allow for subsampling)

      rle encoding of 1 line:

        2 or 3 bytes: length in bytes of encoded line

	(2 if image lx <= 8*1024, 3 otherwise)

        1 nibble at a time, most significative nibble first:

        if (0x0 <= nibble[0] <= 0xE)

	  nibble[0] is the tone value (0 is black)

        if (nibble[0] == 0xF)

          if (0x0 <= nibble[1] <= 0x7)

            nibble[1] is the count of nibbles which follow (may be zero)

            nibble[2...] number of white pixels in a run - 1, big endian

          if (nibble[1] == 0x8)

            toggle between transparent (0) and opaque (1) (starts with 0)

          if (nibble[1] == 0xF)

            if (nibble[2] == 0xE)

              end of encoding

            if (nibble[2] == 0xF)

              nibble[3] is last pixel tone value, end of encoding

        if line ends at odd nibble, a 0x0 nibble is appended

32:

        1 nibble at a time, most significative nibble first:

        if (0x0 <= nibble[1]|nibble[0] <= 0xFE)

	  nibble[1]|nibble[0] is the tone value (0 is black)

        if (nibble[1]|nibble[0] == 0xFF)

          if (0x0 <= nibble[2] <= 0x7)

            nibble[2] is the count of nibbles which follow (may be zero)

            nibble[3...] number of white pixels in a run - 1, big endian

          if (nibble[2] == 0x8)

            toggle between transparent (0) and opaque (1) (starts with 0)

          if (nibble[2] == 0xF)

            if (nibble[3] == 0xE)

              end of encoding

            if (nibble[3] == 0xF)

              nibble[4]|nibble[5] is last pixel tone value, end of encoding

        if line ends at odd nibble, a 0x0 nibble is appended

#endif

typedef enum

  {

	TAG_NONE = 0,

	TAG_DPI = 1,	  /* size 16: double[2] (x_dpi, y_dpi) */

		TAG_HPOS = 2, /* size  8: double */

		TAG_HOW_MANY = 256

  }

  TAG_TYPE;

#define TAGS_BUFLEN 65536

#define READ_BYTES_OR_ERROR(buf, n, file)       \

	{                                           \

		if (fread((buf), 1, (n), (file)) < (n)) \

			goto error;                         \

	}

#define BYTES_TO_FLOAT(b, f)       \

	{                              \

		UCHAR *fr = (b);           \

		UCHAR *to = (UCHAR *)&(f); \

		if (TNZ_LITTLE_ENDIAN) {   \

			to[0] = fr[3];         \

			to[1] = fr[2];         \

			to[2] = fr[1];         \

			to[3] = fr[0];         \

		} else {                   \

			to[0] = fr[0];         \

			to[1] = fr[1];         \

			to[2] = fr[2];         \

			to[3] = fr[3];         \

		}                          \

	}

#define FLOAT_TO_BYTES(f, b)       \

	{                              \

		UCHAR *fr = (UCHAR *)&(f); \

		UCHAR *to = (b);           \

		if (TNZ_LITTLE_ENDIAN) {   \

			to[0] = fr[3];         \

			to[1] = fr[2];         \

			to[2] = fr[1];         \

			to[3] = fr[0];         \

		} else {                   \

			to[0] = fr[0];         \

			to[1] = fr[1];         \

			to[2] = fr[2];         \

			to[3] = fr[3];         \

		}                          \

	}

#define BYTES_TO_DOUBLE(b, d)      \

	{                              \

		UCHAR *fr = (b);           \

		UCHAR *to = (UCHAR *)&(d); \

		if (TNZ_LITTLE_ENDIAN) {   \

			to[0] = fr[7];         \

			to[1] = fr[6];         \

			to[2] = fr[5];         \

			to[3] = fr[4];         \

			to[4] = fr[3];         \

			to[5] = fr[2];         \

			to[6] = fr[1];         \

			to[7] = fr[0];         \

		} else {                   \

			to[0] = fr[0];         \

			to[1] = fr[1];         \

			to[2] = fr[2];         \

			to[3] = fr[3];         \

			to[4] = fr[4];         \

			to[5] = fr[5];         \

			to[6] = fr[6];         \

			to[7] = fr[7];         \

		}                          \

	}

#define DOUBLE_TO_BYTES(d, b)      \

	{                              \

		UCHAR *fr = (UCHAR *)&(d); \

		UCHAR *to = (b);           \

		if (TNZ_LITTLE_ENDIAN) {   \

			to[0] = fr[7];         \

			to[1] = fr[6];         \

			to[2] = fr[5];         \

			to[3] = fr[4];         \

			to[4] = fr[3];         \

			to[5] = fr[2];         \

			to[6] = fr[1];         \

			to[7] = fr[0];         \

		} else {                   \

			to[0] = fr[0];         \

			to[1] = fr[1];         \

			to[2] = fr[2];         \

			to[3] = fr[3];         \

			to[4] = fr[4];         \

			to[5] = fr[5];         \

			to[6] = fr[6];         \

			to[7] = fr[7];         \

		}                          \

	}

static void *Tzr_buffer;

static int   Tzr_buffer_bytes;

static int Next_img_read_tzr_cmapped = FALSE;

static int Read_cmapped = FALSE;

#define SET_READ_CMAPPED                          \

	{                                             \

		Read_cmapped = Next_img_read_tzr_cmapped; \

		Next_img_read_tzr_cmapped = FALSE;        \

	}

/*---------------------------------------------------------------------------*/

int tzr_safe_bytes_for_1_1_1_pixels (int n_pix)

{

	/* un colore con cambio colore, un colore con cambio colore */

	/* = 2 + 2 + 2 + 2 nibble = 4 bytes per 2 pixel */

	return 2 * n_pix + 2;

}

/*---------------------------------------------------------------------------*/

int tzr_safe_bytes_for_2_1_1_pixels (int n_pix)

{

	/* un colore con cambio colore, un colore con cambio colore */

	/* = 2 + 4 + 2 + 4 nibble = 6 bytes per 2 pixel */

	return 4 * n_pix + 2;

}

  /*---------------------------------------------------------------------------*/

#define GET_INVAL      \

	{                  \

		inval = *in++; \

		remain--;      \

	}

#define PUT_OUTVAL              \

	{                           \

		*out++ = (UCHAR)outval; \

	}

/*---------------------------------------------------------------------------*/

int tzr_encode_cm16_1_1_1 (USHORT *buf_in, int buf_in_len,

                           UCHAR  *buf_out)

{

	int count, prevremain, remain;

	UINT inval, outval;

	UINT lastval, lastcol__;

	UINT colmask, maxtone;

	UINT incol__, tone;

	USHORT *in, save;

	UCHAR *out;

	maxtone = 0xF;

	colmask = 0x07F0;

	remain = buf_in_len;

	lastval = maxtone;

	lastcol__ = 0;

	in = buf_in;

	out = buf_out;

	if (buf_in_len <= 1) {

		if (buf_in_len < 0)

			return 0;

		if (buf_in_len == 0) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = 0xE0;

			PUT_OUTVAL

		} else {

			GET_INVAL

			if (inval & colmask) {

				outval = 0xF8;

				PUT_OUTVAL

			}

			outval = 0xFF;

			PUT_OUTVAL

			outval = 0xF0 | inval & 0xF;

			PUT_OUTVAL

		}

		return out - buf_out;

	}

	save = buf_in[buf_in_len - 1];

	buf_in[buf_in_len - 1] = buf_in[buf_in_len - 2] ^ colmask;

	GET_INVAL

check_colpen_on_out0:

	incol__ = inval & colmask;

	if (incol__)

		incol__ = 0x10;

	if (incol__ == lastcol__)

		goto check_tone_on_out0;

	lastcol__ = incol__;

	if (!remain)

		goto end_toonz1_encoding_on_out0;

	outval = (0xF << 4) | 0x8;

	PUT_OUTVAL

check_tone_on_out0:

	tone = inval & maxtone;

	if (tone == maxtone) {

		lastval = inval;

		prevremain = remain;

		do

			GET_INVAL

		while (inval == lastval);

		count = prevremain - remain - 1;

		if (count <= 0xF)

			if (count == 0) {

				outval = (0xF << 4) | 0x0;

				PUT_OUTVAL

				goto check_colpen_on_out0;

			} else {

				outval = (0xF << 4) | 0x1;

				PUT_OUTVAL

				outval = count << 4;

				goto check_colpen_on_out1;

			}

		else if (count <= 0xFF) {

			outval = (0xF << 4) | 0x2;

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFF) {

			outval = (0xF << 4) | 0x3;

			PUT_OUTVAL

			outval = count >> 4;

			PUT_OUTVAL

			outval = count << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFF) {

			outval = (0xF << 4) | 0x4;

			PUT_OUTVAL

			outval = count >> 8;

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFFF) {

			outval = (0xF << 4) | 0x5;

			PUT_OUTVAL

			outval = count >> 12;

			PUT_OUTVAL

			outval = count >> 4;

			PUT_OUTVAL

			outval = count << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFFFF) {

			outval = (0xF << 4) | 0x6;

			PUT_OUTVAL

			outval = count >> 16;

			PUT_OUTVAL

			outval = count >> 8;

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFFFFF) {

			outval = (0xF << 4) | 0x7;

			PUT_OUTVAL

			outval = count >> 20;

			PUT_OUTVAL

			outval = count >> 12;

			PUT_OUTVAL

			outval = count >> 4;

			PUT_OUTVAL

			outval = count << 4;

			goto check_colpen_on_out1;

		} else {

			buf_in[buf_in_len - 1] = save;

			return 0;

		}

	} else {

		outval = tone << 4;

		GET_INVAL

		/*goto check_colpen_on_out1;*/

	}

check_colpen_on_out1:

	incol__ = inval & colmask;

	if (incol__)

		incol__ = 0x10;

	if (incol__ == lastcol__)

		goto check_tone_on_out1;

	lastcol__ = incol__;

	if (!remain)

		goto end_toonz1_encoding_on_out1;

	outval |= 0xF;

	PUT_OUTVAL

	outval = 0x8 << 4;

check_tone_on_out1:

	tone = inval & maxtone;

	if (tone == maxtone) {

		lastval = inval;

		prevremain = remain;

		do

			GET_INVAL

		while (inval == lastval);

		count = prevremain - remain - 1;

		outval |= 0xF;

		PUT_OUTVAL

		if (count <= 0xF)

			if (count == 0) {

				outval = 0x0 << 4;

				goto check_colpen_on_out1;

			} else {

				outval = (0x1 << 4) | count;

				PUT_OUTVAL

				goto check_colpen_on_out0;

			}

		else if (count <= 0xFF) {

			outval = (0x2 << 4) | (count >> 4);

			PUT_OUTVAL

			outval = count << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFF) {

			outval = (0x3 << 4) | (count >> 8);

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFF) {

			outval = (0x4 << 4) | (count >> 12);

			PUT_OUTVAL

			outval = count >> 4;

			PUT_OUTVAL

			outval = count << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFFF) {

			outval = (0x5 << 4) | (count >> 16);

			PUT_OUTVAL

			outval = count >> 8;

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFFFF) {

			outval = (0x6 << 4) | (count >> 20);

			PUT_OUTVAL

			outval = count >> 12;

			PUT_OUTVAL

			outval = count >> 4;

			PUT_OUTVAL

			outval = count << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFFFFF) {

			outval = (0x7 << 4) | (count >> 24);

			PUT_OUTVAL

			outval = count >> 16;

			PUT_OUTVAL

			outval = count >> 8;

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else {

			buf_in[buf_in_len - 1] = save;

			return 0;

		}

	} else {

		outval |= tone;

		PUT_OUTVAL

		GET_INVAL

		goto check_colpen_on_out0;

	}

end_toonz1_encoding_on_out0:

	if ((save & colmask) != (in[-2] & colmask)) {

		outval = 0xF8;

		PUT_OUTVAL

	}

	outval = 0xFF;

	PUT_OUTVAL

	outval = 0xF0 | save & 0xF;

	PUT_OUTVAL

	buf_in[buf_in_len - 1] = save;

	return out - buf_out;

end_toonz1_encoding_on_out1:

	if ((save & colmask) != (in[-2] & colmask)) {

		outval |= 0xF;

		PUT_OUTVAL

		outval = 0x80;

	}

	outval |= 0xF;

	PUT_OUTVAL

	outval = 0xFF;

	PUT_OUTVAL

	outval = (save & 0xF) << 4;

	PUT_OUTVAL

	buf_in[buf_in_len - 1] = save;

	return out - buf_out;

}

/*---------------------------------------------------------------------------*/

int tzr_encode_cm24_2_1_1 (ULONG *buf_in, int buf_in_len,

                           UCHAR  *buf_out)

{

	int count, prevremain, remain;

	UINT inval, outval;

	UINT lastval, lastcol__;

	UINT colmask, maxtone;

	UINT incol__, tone;

	ULONG *in, save;

	UCHAR *out;

	maxtone = 0xFF;

	colmask = 0x0FF00;

	remain = buf_in_len;

	lastval = maxtone;

	lastcol__ = 0;

	in = buf_in;

	out = buf_out;

	if (buf_in_len <= 1) {

		if (buf_in_len < 0)

			return 0;

		if (buf_in_len == 0) {

			outval = 0xFFFF;

			PUT_OUTVAL

			outval = 0xFE;

			PUT_OUTVAL

		} else {

			GET_INVAL

			if (inval & colmask) {

				outval = 0xF8;

				PUT_OUTVAL

			}

			outval = 0xFF;

			PUT_OUTVAL

			if ((inval & 0xF) == 0xF)

				inval--;

			outval = 0xF0 | inval & 0xF;

			PUT_OUTVAL

			outval = (inval & 0xF0) >> 4;

		}

		return out - buf_out;

	}

	save = buf_in[buf_in_len - 1];

	buf_in[buf_in_len - 1] = buf_in[buf_in_len - 2] ^ colmask;

	GET_INVAL

check_colpen_on_out0:

	incol__ = inval & colmask;

	if (incol__)

		incol__ = 0x100;

	if (incol__ == lastcol__)

		goto check_tone_on_out0;

	lastcol__ = incol__;

	if (!remain)

		goto end_toonz1_encoding_and_save_on_out0;

	outval = 0xFF;

	PUT_OUTVAL

	outval = 0x8 << 4;

	goto check_tone_on_out1;

check_tone_on_out0:

	tone = inval & maxtone;

	if (tone == maxtone) {

		lastval = inval;

		prevremain = remain;

		do

			GET_INVAL

		while (inval == lastval);

		count = prevremain - remain - 1;

		if (count <= 0xF)

			if (count == 0) {

				outval = 0xFF;

				PUT_OUTVAL

				outval = 0x0 << 4;

				goto check_colpen_on_out1;

			} else {

				outval = 0xFF;

				PUT_OUTVAL

				outval = (0x1 << 4) | count;

				PUT_OUTVAL

				goto check_colpen_on_out0;

			}

		else if (count <= 0xFF) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = (0x2 << 4) | (count >> 4);

			PUT_OUTVAL

			outval = (count & 0xF) << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFF) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = (0x3 << 4) | (count >> 8);

			PUT_OUTVAL

			outval = count & 0xFF;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFF) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = (0x4 << 4) | (count >> 12);

			PUT_OUTVAL

			outval = (count & 0xFF0) >> 4;

			PUT_OUTVAL

			outval = (count & 0xF) << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFFF) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = (0x5 << 4) | (count >> 16);

			PUT_OUTVAL

			outval = (count & 0xFF0) >> 4;

			PUT_OUTVAL

			outval = (count & 0xFF000) >> 12;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFFFF) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = (0x6 << 4) | (count >> 20);

			PUT_OUTVAL

			outval = (count & 0xFF0) >> 4;

			PUT_OUTVAL

			outval = (count & 0xFF000) >> 12;

			PUT_OUTVAL

			outval = (count & 0xF00000) >> 16;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFFFFF) {

			outval = 0xFF;

			PUT_OUTVAL

			outval = (0x7 << 4) | (count >> 24);

			PUT_OUTVAL

			outval = (count & 0xFF0) >> 4;

			PUT_OUTVAL

			outval = (count & 0xFF000) >> 12;

			PUT_OUTVAL

			outval = (count & 0xFF00000) >> 20;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else {

			buf_in[buf_in_len - 1] = save;

			return 0;

		}

	} else {

		/*if ((tone & 0xF)==0xF) tone--;*/

		outval = (((tone & 0xF) << 4) | ((tone & 0xF0)) >> 4);

		PUT_OUTVAL

		GET_INVAL

		goto check_colpen_on_out0;

	}

check_colpen_on_out1:

	incol__ = inval & colmask;

	if (incol__)

		incol__ = 0x100;

	if (incol__ == lastcol__)

		goto check_tone_on_out1;

	lastcol__ = incol__;

	if (!remain)

		goto end_toonz1_encoding_and_save_on_out1;

	outval |= 0xF;

	PUT_OUTVAL

	outval = (0xF << 4) | 0x8;

	PUT_OUTVAL

	goto check_tone_on_out0;

check_tone_on_out1:

	tone = inval & maxtone;

	if (tone == maxtone) {

		lastval = inval;

		prevremain = remain;

		do

			GET_INVAL

		while (inval == lastval);

		count = prevremain - remain - 1;

		outval |= 0xF;

		PUT_OUTVAL

		outval = 0xF << 4;

		if (count <= 0xF)

			if (count == 0) {

				outval |= 0x0;

				PUT_OUTVAL

				goto check_colpen_on_out0;

			} else {

				outval |= 0x1;

				PUT_OUTVAL

				outval = count << 4;

				goto check_colpen_on_out1;

			}

		else if (count <= 0xFF) {

			outval |= 0x2;

			PUT_OUTVAL

			outval = count;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFF) {

			outval |= 0x3;

			PUT_OUTVAL

			outval = count >> 4;

			PUT_OUTVAL

			outval = (count & 0XF) << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFF) {

			outval |= 0x4;

			PUT_OUTVAL

			outval = count >> 8;

			PUT_OUTVAL

			outval = count & 0XFF;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFFF) {

			outval |= 0x5;

			PUT_OUTVAL

			outval = count >> 12;

			PUT_OUTVAL

			outval = (count & 0XFF0) >> 4;

			PUT_OUTVAL

			outval = (count & 0XF) << 4;

			goto check_colpen_on_out1;

		} else if (count <= 0xFFFFFF) {

			outval |= 0x6;

			PUT_OUTVAL

			outval = count >> 16;

			PUT_OUTVAL

			outval = (count & 0XFF00) >> 8;

			PUT_OUTVAL

			outval = count & 0XFF;

			PUT_OUTVAL

			goto check_colpen_on_out0;

		} else if (count <= 0xFFFFFFF) {

			outval |= 0x7;

			PUT_OUTVAL

			outval = count >> 20;

			PUT_OUTVAL

			outval = (count & 0XFF000) >> 12;

			PUT_OUTVAL

			outval = (count & 0XFF0) >> 4;

			PUT_OUTVAL

			outval = (count & 0XF) << 4;

			goto check_colpen_on_out1;

		} else {

			buf_in[buf_in_len - 1] = save;

			return 0;

		}

	} else {

		/*if ((tone & 0xF)==0xF) tone--;*/

		outval |= tone & 0xF;

		PUT_OUTVAL

		outval = (tone & 0xF0);

		/*PUT_OUTVAL*/

		GET_INVAL

		goto check_colpen_on_out1;

	}

end_toonz1_encoding_and_save_on_out0:

	if ((save & colmask) != (in[-2] & colmask)) {

		outval = 0xFF;

		PUT_OUTVAL

		outval = 0x8 << 4;

		goto end_toonz1_encoding_on_out1;

	}

end_toonz1_encoding_on_out0:

	outval = 0xFF;

	PUT_OUTVAL

	outval = 0xFF;

	PUT_OUTVAL

	outval = (save & 0xF) << 4;

	outval |= (save & 0xF0) >> 4;

	PUT_OUTVAL

	buf_in[buf_in_len - 1] = save;

	return out - buf_out;

end_toonz1_encoding_and_save_on_out1:

	if ((save & colmask) != (in[-2] & colmask)) {

		outval |= 0xF;

		PUT_OUTVAL

		outval = (0xF << 4) | 0x80;

		PUT_OUTVAL

		goto end_toonz1_encoding_on_out0;

	}

end_toonz1_encoding_on_out1:

	outval |= 0xF;

	PUT_OUTVAL

	outval = 0xFF;

	PUT_OUTVAL

	outval = (0xF << 4) | (save & 0xF);

	PUT_OUTVAL

	outval = (save & 0xF0);

	PUT_OUTVAL

	buf_in[buf_in_len - 1] = save;

	return out - buf_out;

}

/*---------------------------------------------------------------------------*/

static TBOOL write_tzr_1_1_1 (char *filename, FILE *file, IMAGE *image)

{

	int lx, ly, wrap, safe_bytes, enc, enclen_bytes, bytes, y;

	USHORT *buffer, *line;

	UCHAR *tzr_buf;

	lx = image->pixmap.xsize;

	ly = image->pixmap.ysize;

	wrap = lx;

	enclen_bytes = 2 + (lx > 8 * 1024);

	safe_bytes = enclen_bytes + tzr_safe_bytes_for_1_1_1_pixels(lx);

	tzr_buf = Tzr_buffer;

	if (safe_bytes > Tzr_buffer_bytes) {

		TREALLOC(tzr_buf, safe_bytes)

		Tzr_buffer = tzr_buf;

		if (Tzr_buffer)

			Tzr_buffer_bytes = safe_bytes;

		else {

			Tzr_buffer_bytes = 0;

			return FALSE;

		}

	}

	buffer = image->pixmap.buffer;

	for (line = buffer, y = 0; y < ly; line += wrap, y++) {

		enc = tzr_encode_cm16_1_1_1(line, lx, tzr_buf + enclen_bytes);

		if (enclen_bytes == 2) {

			tzr_buf[0] = (enc >> 8) & 0xFF;

			tzr_buf[1] = enc & 0xFF;

		} else {

			tzr_buf[0] = (enc >> 16) & 0xFF;

			tzr_buf[1] = (enc >> 8) & 0xFF;

			tzr_buf[2] = enc & 0xFF;

		}

		bytes = enclen_bytes + enc;

		if (fwrite(tzr_buf, 1, bytes, file) != bytes)

			return FALSE;

	}

	return TRUE;

}

/*---------------------------------------------------------------------------*/

static TBOOL write_tzr_2_1_1 (char *filename, FILE *file, IMAGE *image)

{

	int lx, ly, wrap, safe_bytes, enc, enclen_bytes, bytes, y;

	ULONG *buffer, *line;

	UCHAR *tzr_buf;

	lx = image->pixmap.xsize;

	ly = image->pixmap.ysize;

	wrap = lx;

	enclen_bytes = 2 + (lx > 8 * 1024);

	safe_bytes = enclen_bytes + tzr_safe_bytes_for_2_1_1_pixels(lx);

	tzr_buf = Tzr_buffer;

	if (safe_bytes > Tzr_buffer_bytes) {

		TREALLOC(tzr_buf, safe_bytes)

		Tzr_buffer = tzr_buf;

		if (Tzr_buffer)

			Tzr_buffer_bytes = safe_bytes;

		else {

			Tzr_buffer_bytes = 0;

			return FALSE;