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

    }

  }

  buffer = (ULONG *)image->pixmap.buffer;

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

    int i;

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

    /*for (i=0; i

printf("*** %x %x %x %x\n", tzr_buf[enclen_bytes+i],

                    tzr_buf[enclen_bytes+i+1],

                    tzr_buf[enclen_bytes+i+2],

                    tzr_buf[enclen_bytes+i+3]); */

    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;

    }