#include #include #include #include #ifdef WIN32 #include #else #include #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> 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_header (char *filename, FILE *file, IMAGE *image, UINT tzr_type) { UCHAR buf[100 + TAGS_BUFLEN]; ULONG *buf32; int lx, ly, img_offs = 0, img_offs_offs = 0, pos = 0; double x_dpi, y_dpi, h_pos; switch (tzr_type) { CASE 0x01010100 : __OR 0x02010100 : lx = image->pixmap.xsize; ly = image->pixmap.ysize; buf32 = (ULONG *)buf; *buf32 = TZR_MAGIC; buf[4] = (tzr_type >> 24) & 0xFF; buf[5] = (tzr_type >> 16) & 0xFF; buf[6] = (tzr_type >> 8) & 0xFF; buf[7] = tzr_type & 0xFF; buf[8] = (lx >> 16) & 0xFF; buf[9] = (lx >> 8) & 0xFF; buf[10] = lx & 0xFF; buf[11] = (ly >> 16) & 0xFF; buf[12] = (ly >> 8) & 0xFF; buf[13] = ly & 0xFF; img_offs_offs = 14; pos = img_offs_offs + 3; DEFAULT: assert(FALSE); } if (image->pixmap.x_dpi && image->pixmap.y_dpi) { buf[pos] = TAG_DPI; buf[pos + 1] = 8 + 8; x_dpi = image->pixmap.x_dpi; y_dpi = image->pixmap.y_dpi; DOUBLE_TO_BYTES(x_dpi, buf + pos + 2) DOUBLE_TO_BYTES(y_dpi, buf + pos + 10) pos += 1 + 1 + 8 + 8; } if (image->pixmap.h_pos) { buf[pos] = TAG_HPOS; buf[pos + 1] = 8; h_pos = image->pixmap.h_pos; DOUBLE_TO_BYTES(h_pos, buf + pos + 2) pos += 1 + 1 + 8; } img_offs = pos; buf[img_offs_offs] = (img_offs >> 16) & 0xFF; buf[img_offs_offs + 1] = (img_offs >> 8) & 0xFF; buf[img_offs_offs + 2] = img_offs & 0xFF; if (fwrite(buf, 1, img_offs, file) != img_offs) return FALSE; return TRUE; } /*---------------------------------------------------------------------------*/ TBOOL img_write_tzr (char *filename, IMAGE *image) { FILE *file; UCHAR buf[256]; UINT tzr_type; file = fopen(filename, "wb"); if (!file) return FALSE; switch (image->type) { CASE CMAPPED : tzr_type = 0x01010100; CASE CMAPPED24 : tzr_type = 0x02010100; DEFAULT: tmsg_error("bad image type for .tzr files"); goto error; } if (!write_tzr_header(filename, file, image, tzr_type)) goto error; switch (tzr_type) { CASE 0x01010100 : if (!write_tzr_1_1_1(filename, file, image)) goto error; CASE 0x02010100 : if (!write_tzr_2_1_1(filename, file, image)) goto error; DEFAULT: goto error; } fclose(file); return TRUE; error: if (file) fclose(file); return FALSE; } /*---------------------------------------------------------------------------*/ int tzr_decode_1_1_1_cm16 (UCHAR *buf_in, int *buf_in_len, USHORT *buf_out) { UCHAR *in; USHORT *out; int count; UINT inval, in0, in1; UINT outval, maxtone, outval_maxtone; #define GET_IN0 (inval = *in++, in1 = inval & 0xF, in0 = inval >> 4) maxtone = 0xF; outval = 0; outval_maxtone = outval | maxtone; count = 0; in = buf_in; out = buf_out; goto start_from_in0; count_out_and_start_from_in0: outval_maxtone = outval | maxtone; *out++ = outval_maxtone; while (count--) *out++ = outval_maxtone; start_from_in0: if (GET_IN0 == 0xF) { switch (in1) { CASE 0x0 : *out++ = outval | maxtone; goto start_from_in0; CASE 0x1 : count = GET_IN0; goto count_out_and_start_from_in1; CASE 0x2 : count = *in++; goto count_out_and_start_from_in0; CASE 0x3 : count = *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x4 : count = *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x5 : count = *in++ << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x6 : count = *in++ << 16; count += *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x7 : count = *in++ << 20; count += *in++ << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x8 : outval ^= 0x10; goto start_from_in0; CASE 0xF : switch (GET_IN0) { CASE 0xE : CASE 0xF : *out++ = outval | in1; DEFAULT: goto rle_decoding_error; } goto end_rle_decoding; DEFAULT: goto rle_decoding_error; } } else { *out++ = outval | in0; goto start_from_in1; } count_out_and_start_from_in1: outval_maxtone = outval | maxtone; *out++ = outval_maxtone; while (count--) *out++ = outval_maxtone; start_from_in1: if (in1 == 0xF) { switch (GET_IN0) { CASE 0x0 : *out++ = outval | maxtone; goto start_from_in1; CASE 0x1 : count = in1; goto count_out_and_start_from_in0; CASE 0x2 : count = in1 << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x3 : count = in1 << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x4 : count = in1 << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x5 : count = in1 << 16; count += *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x6 : count = in1 << 20; count += *in++ << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x7 : count = in1 << 24; count += *in++ << 16; count += *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x8 : outval ^= 0x10; goto start_from_in1; CASE 0xF : switch (in1) { CASE 0xE : CASE 0xF : *out++ = outval | *in++ >> 4; DEFAULT: goto rle_decoding_error; } goto end_rle_decoding; DEFAULT: return 0; } } else { *out++ = outval | in1; goto start_from_in0; } end_rle_decoding: if (buf_in_len) *buf_in_len = in - buf_in; return out - buf_out; rle_decoding_error: if (buf_in_len) *buf_in_len = 0; return 0; } /*---------------------------------------------------------------------------*/ int tzr_decode_2_1_1_cm24 (UCHAR *buf_in, int *buf_in_len, ULONG *buf_out) { UCHAR *in; ULONG *out; int count; UINT inval, in0, in1, aux; UINT outval, maxtone, outval_maxtone; #define GET_IN0 (inval = *in++, in1 = inval & 0xF, in0 = inval >> 4) maxtone = 0xFF; outval = 0; outval_maxtone = outval | maxtone; count = 0; in = buf_in; out = buf_out; goto start_from_in0; count_out_and_start_from_in0: outval_maxtone = outval | maxtone; *out++ = outval_maxtone; while (count--) *out++ = outval_maxtone; start_from_in0: GET_IN0; if (inval == 0xFF) { GET_IN0; switch (in0) { CASE 0x0 : *out++ = outval | maxtone; goto start_from_in1; CASE 0x1 : count = in1; goto count_out_and_start_from_in0; CASE 0x2 : count = in1 << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x3 : count = in1 << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x4 : count = in1 << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x5 : count = in1 << 16; count += *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x6 : count = in1 << 20; count += *in++ << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x7 : count = in1 << 24; count += *in++ << 16; count += *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x8 : outval ^= 0x100; goto start_from_in1; CASE 0xF : switch (in1) { CASE 0xE : CASE 0xF : GET_IN0; *out++ = outval | ((in1 << 4) | in0); DEFAULT: goto rle_decoding_error; } goto end_rle_decoding; DEFAULT: goto rle_decoding_error; } } else { *out++ = outval | ((in1 << 4) | in0); goto start_from_in0; } count_out_and_start_from_in1: outval_maxtone = outval | maxtone; *out++ = outval_maxtone; while (count--) *out++ = outval_maxtone; start_from_in1: aux = in1; GET_IN0; if (in0 == 0xF && aux == 0xF) { switch (in1) { CASE 0x0 : *out++ = outval | maxtone; goto start_from_in0; CASE 0x1 : GET_IN0; count = in0; goto count_out_and_start_from_in1; CASE 0x2 : count = *in++; goto count_out_and_start_from_in0; CASE 0x3 : count = *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x4 : count = *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x5 : count = *in++ << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x6 : count = *in++ << 16; count += *in++ << 8; count += *in++; goto count_out_and_start_from_in0; CASE 0x7 : count = *in++ << 20; count += *in++ << 12; count += *in++ << 4; count += GET_IN0; goto count_out_and_start_from_in1; CASE 0x8 : outval ^= 0x100; goto start_from_in0; CASE 0xF : switch (GET_IN0) { UINT aux; CASE 0xE : CASE 0xF : aux = in1; GET_IN0; *out++ = outval | (aux | (in0 << 4)); DEFAULT: goto rle_decoding_error; } goto end_rle_decoding; DEFAULT: return 0; } } else { *out++ = outval | ((in0 << 4) | aux); goto start_from_in1; } end_rle_decoding: if (buf_in_len) *buf_in_len = in - buf_in; return out - buf_out; rle_decoding_error: if (buf_in_len) *buf_in_len = 0; return 0; } /*---------------------------------------------------------------------------*/ static TBOOL read_tzr_1_1_1 (char *filename, FILE *file, IMAGE *image, int img_offs, TBOOL cmapped) { int lx, ly, wrap, y, x; USHORT *buf_cm, *line_cm; LPIXEL *buf_rgbm, *line_rgbm; int safe_bytes, enclen_bytes, enclen, dec, tzr_dec; UCHAR *tzr_buf; UINT tone, color; LPIXEL val; if (fseek(file, img_offs, SEEK_SET)) { tmsg_error("inconsistent data in %s (seek failed)", filename); return FALSE; } 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; } } if (cmapped) { buf_cm = image->pixmap.buffer; for (line_cm = buf_cm, y = 0; y < ly; line_cm += wrap, y++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; READ_BYTES_OR_ERROR(tzr_buf, enclen, file) dec = tzr_decode_1_1_1_cm16(tzr_buf, &tzr_dec, line_cm); assert(dec == lx); assert(tzr_dec == enclen); } } else { buf_rgbm = (LPIXEL *)image->pixmap.buffer; for (line_rgbm = buf_rgbm, y = 0; y < ly; line_rgbm += wrap, y++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; READ_BYTES_OR_ERROR(tzr_buf, enclen, file) line_cm = (USHORT *)line_rgbm; dec = tzr_decode_1_1_1_cm16(tzr_buf, &tzr_dec, line_cm); assert(dec == lx); assert(tzr_dec == enclen); for (x = lx - 1; x >= 0; x--) { tone = line_cm[x] & 0xF; color = line_cm[x] & 0x10; if (color) { val.r = val.g = val.b = tone * 8; val.m = 255; } else { val.r = val.g = val.b = 0; val.m = ~(tone * 17); } line_rgbm[x] = val; } } } return TRUE; error: return FALSE; } /*---------------------------------------------------------------------------*/ void vaffa(void) {} static TBOOL read_tzr_2_1_1 (char *filename, FILE *file, IMAGE *image, int img_offs, TBOOL cmapped) { int lx, ly, wrap, y, x; ULONG *buf_cm, *line_cm; LPIXEL *buf_rgbm, *line_rgbm; int safe_bytes, enclen_bytes, enclen, dec, tzr_dec; UCHAR *tzr_buf; UINT tone, color; LPIXEL val; if (fseek(file, img_offs, SEEK_SET)) { tmsg_error("inconsistent data in %s (seek failed)", filename); return FALSE; } 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; } } if (cmapped) { int i; buf_cm = (ULONG *)image->pixmap.buffer; for (line_cm = buf_cm, y = 0; y < ly; line_cm += wrap, y++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; READ_BYTES_OR_ERROR(tzr_buf, enclen, file) dec = tzr_decode_2_1_1_cm24(tzr_buf, &tzr_dec, line_cm); assert(dec == lx); assert(tzr_dec == enclen); } } else { buf_rgbm = (LPIXEL *)image->pixmap.buffer; for (line_rgbm = buf_rgbm, y = 0; y < ly; line_rgbm += wrap, y++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; READ_BYTES_OR_ERROR(tzr_buf, enclen, file) line_cm = (ULONG *)line_rgbm; dec = tzr_decode_2_1_1_cm24(tzr_buf, &tzr_dec, line_cm); assert(dec == lx); assert(tzr_dec == enclen); for (x = lx - 1; x >= 0; x--) { tone = line_cm[x] & 0xFF; color = line_cm[x] & 0x100; if (color) { val.r = val.g = val.b = tone >> 1; /* ???? tone * 8;*/ val.m = 255; } else { val.r = val.g = val.b = 0; val.m = ~(tone); } line_rgbm[x] = val; } } } return TRUE; error: return FALSE; } /*---------------------------------------------------------------------------*/ static TBOOL read_region_tzr_1_1_1 (char *filename, FILE *file, IMAGE *image, int img_offs, TBOOL cmapped, INFO_REGION *region) { int reg_lx, reg_ly, full_lx, full_ly, wrap, y, x, skip, step, k, tmp_x; USHORT *buf_cm, *line_cm, *tmp_buf; LPIXEL *buf_rgbm, *line_rgbm; int safe_bytes, decline_bytes, enclen_bytes, enclen, dec, tzr_dec; UCHAR *tzr_buf; UINT tone, color; LPIXEL val; if (fseek(file, img_offs, SEEK_SET)) { tmsg_error("inconsistent data in %s (seek failed)", filename); return FALSE; } full_lx = region->lx_in; wrap = region->xsize; step = region->step; enclen_bytes = 2 + (full_lx > 8 * 1024); safe_bytes = enclen_bytes + tzr_safe_bytes_for_1_1_1_pixels(full_lx); decline_bytes = full_lx * sizeof(USHORT); tzr_buf = Tzr_buffer; if (safe_bytes + decline_bytes > Tzr_buffer_bytes) { TREALLOC(tzr_buf, safe_bytes + decline_bytes) Tzr_buffer = tzr_buf; if (Tzr_buffer) Tzr_buffer_bytes = safe_bytes + decline_bytes; else { Tzr_buffer_bytes = 0; return FALSE; } } tmp_buf = (USHORT *)(tzr_buf + safe_bytes); for (y = 0; y < region->startScanRow; y++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; if (fseek(file, enclen, SEEK_CUR)) goto error; } buf_cm = image->pixmap.buffer; line_cm = buf_cm + region->x_offset + region->y_offset * wrap; buf_rgbm = (LPIXEL *)image->pixmap.buffer; line_rgbm = buf_rgbm + region->x_offset + region->y_offset * wrap; for (y = 0; y < region->scanNrow; y++, line_cm += wrap, line_rgbm += wrap) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; READ_BYTES_OR_ERROR(tzr_buf, enclen, file) dec = tzr_decode_1_1_1_cm16(tzr_buf, &tzr_dec, tmp_buf); assert(dec == full_lx); assert(tzr_dec == enclen); if (cmapped) for (tmp_x = region->x1, k = 0; k < region->scanNcol; k++, tmp_x += step) { line_cm[k] = tmp_buf[tmp_x]; } else { for (tmp_x = region->x1, k = 0; k < region->scanNcol; k++, tmp_x += step) { tone = tmp_buf[tmp_x] & 0xF; color = tmp_buf[tmp_x] & 0x10; if (color) { val.r = val.g = val.b = tone * 8; val.m = 255; } else { val.r = val.g = val.b = 0; val.m = ~(tone * 17); } line_rgbm[k] = val; } } if (y != region->scanNrow - 1) for (skip = 0; skip < step - 1; skip++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; if (fseek(file, enclen, SEEK_CUR)) goto error; } } return TRUE; error: return FALSE; } /*---------------------------------------------------------------------------*/ static TBOOL read_region_tzr_2_1_1 (char *filename, FILE *file, IMAGE *image, int img_offs, TBOOL cmapped, INFO_REGION *region) { int reg_lx, reg_ly, full_lx, full_ly, wrap, y, x, skip, step, k, tmp_x; ULONG *buf_cm, *line_cm, *tmp_buf; LPIXEL *buf_rgbm, *line_rgbm; int safe_bytes, decline_bytes, enclen_bytes, enclen, dec, tzr_dec; UCHAR *tzr_buf; UINT tone, color; LPIXEL val; if (fseek(file, img_offs, SEEK_SET)) { tmsg_error("inconsistent data in %s (seek failed)", filename); return FALSE; } full_lx = region->lx_in; wrap = region->xsize; step = region->step; enclen_bytes = 2 + (full_lx > 8 * 1024); safe_bytes = enclen_bytes + tzr_safe_bytes_for_2_1_1_pixels(full_lx); decline_bytes = full_lx * sizeof(ULONG); tzr_buf = Tzr_buffer; if (safe_bytes + decline_bytes > Tzr_buffer_bytes) { TREALLOC(tzr_buf, safe_bytes + decline_bytes) Tzr_buffer = tzr_buf; if (Tzr_buffer) Tzr_buffer_bytes = safe_bytes + decline_bytes; else { Tzr_buffer_bytes = 0; return FALSE; } } tmp_buf = (ULONG *)(tzr_buf + safe_bytes); for (y = 0; y < region->startScanRow; y++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; if (fseek(file, enclen, SEEK_CUR)) goto error; } buf_cm = (ULONG *)image->pixmap.buffer; line_cm = buf_cm + region->x_offset + region->y_offset * wrap; buf_rgbm = (LPIXEL *)image->pixmap.buffer; line_rgbm = buf_rgbm + region->x_offset + region->y_offset * wrap; for (y = 0; y < region->scanNrow; y++, line_cm += wrap, line_rgbm += wrap) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; READ_BYTES_OR_ERROR(tzr_buf, enclen, file) dec = tzr_decode_2_1_1_cm24(tzr_buf, &tzr_dec, tmp_buf); assert(dec == full_lx); assert(tzr_dec == enclen); if (cmapped) for (tmp_x = region->x1, k = 0; k < region->scanNcol; k++, tmp_x += step) { line_cm[k] = tmp_buf[tmp_x]; } else { for (tmp_x = region->x1, k = 0; k < region->scanNcol; k++, tmp_x += step) { tone = tmp_buf[tmp_x] & 0xFF; color = tmp_buf[tmp_x] & 0x100; if (color) { val.r = val.g = val.b = tone >> 1 /* ???? tone * 8 */; val.m = 255; } else { val.r = val.g = val.b = 0; val.m = ~(tone); } line_rgbm[k] = val; } } if (y != region->scanNrow - 1) for (skip = 0; skip < step - 1; skip++) { READ_BYTES_OR_ERROR(tzr_buf, enclen_bytes, file) if (enclen_bytes == 2) enclen = tzr_buf[0] << 8 | tzr_buf[1]; else enclen = tzr_buf[0] << 16 | tzr_buf[1] << 8 | tzr_buf[2]; if (fseek(file, enclen, SEEK_CUR)) goto error; } } return TRUE; error: return FALSE; } /*---------------------------------------------------------------------------*/ static TBOOL read_tzr_header (char *filename, FILE *file, IMAGE *image, UINT *tzr_type, int *p_img_offs, TBOOL cmapped, TBOOL read_tags) { UCHAR buf[TAGS_BUFLEN]; int lx, ly, img_offs = 0; int tags_len, file_pos, pos; double x_dpi, y_dpi, h_pos; *tzr_type = 0; READ_BYTES_OR_ERROR(buf, 8, file) if (*(ULONG *)buf != TZR_MAGIC) { tmsg_error("bad magic number in %s", filename); goto error; } switch (buf[4 + 0]) { CASE 1 : switch (buf[4 + 1]) { CASE 1 : switch (buf[4 + 2]) { CASE 1 : *tzr_type = 0x01010100; DEFAULT: tmsg_error("unsupported file type (%d %d %d) in %s", buf[4 + 0], buf[4 + 1], buf[4 + 2], filename); goto error; } } CASE 2 : switch (buf[4 + 1]) { CASE 1 : switch (buf[4 + 2]) { CASE 1 : *tzr_type = 0x02010100; DEFAULT: tmsg_error("unsupported file type (%d %d %d) in %s", buf[4 + 0], buf[4 + 1], buf[4 + 2], filename); goto error; } DEFAULT: tmsg_error("unsupported file type (%d %d) in %s", buf[4 + 0], buf[4 + 1], filename); goto error; } DEFAULT: tmsg_error("unsupported file type (%d) in %s", buf[4 + 0], filename); goto error; } switch (*tzr_type) { CASE 0x01010100 : __OR 0x02010100 : READ_BYTES_OR_ERROR(buf, 9, file) lx = buf[0] << 16 | buf[1] << 8 | buf[2]; ly = buf[3] << 16 | buf[4] << 8 | buf[5]; img_offs = buf[6] << 16 | buf[7] << 8 | buf[8]; if (*tzr_type == 0x01010100) { if (cmapped) { image->type = CMAPPED; image->cmap.info = Tcm_new_default_info; } else image->type = RGB; } else { if (cmapped) { image->type = CMAPPED24; image->cmap.info = Tcm_24_default_info; } else image->type = RGB; } image->pixmap.xsize = lx; image->pixmap.ysize = ly; image->pixmap.xSBsize = lx; image->pixmap.ySBsize = ly; DEFAULT: assert(0); } if (read_tags) { file_pos = ftell(file); tags_len = img_offs - file_pos; if (tags_len > TAGS_BUFLEN) { tmsg_error("tags section of %s too long", filename); goto error; } if (tags_len) READ_BYTES_OR_ERROR(buf, tags_len, file) pos = 0; while (pos < tags_len) { switch (buf[pos]) { CASE TAG_DPI : if (buf[pos + 1] != 8 + 8) goto unknown_tag; BYTES_TO_DOUBLE(buf + pos + 2, x_dpi) BYTES_TO_DOUBLE(buf + pos + 10, y_dpi) image->pixmap.x_dpi = x_dpi; image->pixmap.y_dpi = y_dpi; pos += 1 + 1 + 8 + 8; CASE TAG_HPOS : if (buf[pos + 1] != 8) goto unknown_tag; BYTES_TO_DOUBLE(buf + pos + 2, h_pos) image->pixmap.h_pos = h_pos; pos += 1 + 1 + 8; DEFAULT: unknown_tag: if (buf[pos] >= 128) pos += 1 + 2 + (buf[pos + 1] << 8 | buf[pos + 2]); else pos += 1 + 1 + buf[pos + 1]; } } } *p_img_offs = img_offs; return TRUE; error: return FALSE; } /*===========================================================================*/ void next_img_read_tzr_cmapped (void) { Next_img_read_tzr_cmapped = TRUE; } /*---------------------------------------------------------------------------*/ IMAGE *img_read_tzr (char *filename) { FILE *file; IMAGE *image; UINT tzr_type; int lx, ly, img_offs; SET_READ_CMAPPED file = fopen(filename, "rb"); if (!file) return NIL; image = new_img(); if (!image) goto error; if (!read_tzr_header(filename, file, image, &tzr_type, &img_offs, Read_cmapped, TRUE)) goto error; lx = image->pixmap.xsize; ly = image->pixmap.ysize; if (!allocate_pixmap(image, lx, ly)) goto error; switch (tzr_type) { CASE 0x01010100 : if (!read_tzr_1_1_1(filename, file, image, img_offs, Read_cmapped)) goto error; CASE 0x02010100 : if (!read_tzr_2_1_1(filename, file, image, img_offs, Read_cmapped)) goto error; DEFAULT: goto error; } fclose(file); return image; error: if (image) free_img(image); if (file) fclose(file); return NIL; } /*---------------------------------------------------------------------------*/ IMAGE *img_read_region_tzr (char *filename, int x0, int y0, int x1, int y1, int step) { FILE *file; IMAGE *image; UINT tzr_type; int full_lx, full_ly, reg_lx, reg_ly, img_offs; INFO_REGION region; int i, pixels; SET_READ_CMAPPED file = fopen(filename, "rb"); if (!file) return NIL; image = new_img(); if (!image) goto error; if (!read_tzr_header(filename, file, image, &tzr_type, &img_offs, Read_cmapped, TRUE)) goto error; full_lx = image->pixmap.xsize; full_ly = image->pixmap.ysize; if (x0 == -1) x0 = full_lx - 1; if (y0 == -1) y0 = full_ly - 1; reg_lx = (x1 - x0) / step + 1; reg_ly = (y1 - y0) / step + 1; if (!allocate_pixmap(image, reg_lx, reg_ly)) goto error; /* per adesso si fa un clear brutale */ pixels = reg_lx * reg_ly; switch (image->type) { CASE RGB : for (i = 0; i < pixels; i++)((ULONG *)(image->pixmap.buffer))[i] = 0; CASE CMAPPED : for (i = 0; i < pixels; i++)((USHORT *)(image->pixmap.buffer))[i] = 0xF; CASE CMAPPED24 : for (i = 0; i < pixels; i++)((ULONG *)(image->pixmap.buffer))[i] = 0xFF; DEFAULT: assert(0); } getInfoRegion(®ion, x0, y0, x1, y1, step, full_lx, full_ly); switch (tzr_type) { CASE 0x01010100 : if (!read_region_tzr_1_1_1(filename, file, image, img_offs, Read_cmapped, ®ion)) goto error; CASE 0x02010100 : if (!read_region_tzr_2_1_1(filename, file, image, img_offs, Read_cmapped, ®ion)) goto error; DEFAULT: goto error; } fclose(file); return image; error: if (image) free_img(image); if (file) fclose(file); return NIL; } /*---------------------------------------------------------------------------*/ IMAGE *img_read_tzr_info (char *filename) { FILE *file; IMAGE *image; int img_offs; UINT tzr_type; file = fopen(filename, "rb"); if (!file) return NIL; image = new_img(); if (!image) goto error; if (!read_tzr_header(filename, file, image, &tzr_type, &img_offs, Read_cmapped, TRUE)) goto error; fclose(file); return image; error: if (image) free_img(image); if (file) fclose(file); return NIL; }