mirror of
https://github.com/woo-j/zint.git
synced 2024-12-24 17:34:05 +03:00
625 lines
22 KiB
C
625 lines
22 KiB
C
/* tif.c - Aldus Tagged Image File Format support */
|
|
/* TIFF Revision 6.0 https://www.adobe.io/content/dam/udp/en/open/standards/tiff/TIFF6.pdf */
|
|
|
|
/*
|
|
libzint - the open source barcode library
|
|
Copyright (C) 2016 - 2021 Robin Stuart <rstuart114@gmail.com>
|
|
|
|
Redistribution and use in source and binary forms, with or without
|
|
modification, are permitted provided that the following conditions
|
|
are met:
|
|
|
|
1. Redistributions of source code must retain the above copyright
|
|
notice, this list of conditions and the following disclaimer.
|
|
2. Redistributions in binary form must reproduce the above copyright
|
|
notice, this list of conditions and the following disclaimer in the
|
|
documentation and/or other materials provided with the distribution.
|
|
3. Neither the name of the project nor the names of its contributors
|
|
may be used to endorse or promote products derived from this software
|
|
without specific prior written permission.
|
|
|
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
|
|
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
|
|
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
SUCH DAMAGE.
|
|
*/
|
|
/* vim: set ts=4 sw=4 et : */
|
|
|
|
#include <errno.h>
|
|
#include <stdio.h>
|
|
#include <math.h>
|
|
#include <assert.h>
|
|
#include <limits.h>
|
|
#include "common.h"
|
|
#include "tif.h"
|
|
#include "tif_lzw.h"
|
|
#ifdef _MSC_VER
|
|
#include <io.h>
|
|
#include <fcntl.h>
|
|
#include <malloc.h>
|
|
#endif
|
|
|
|
/* PhotometricInterpretation */
|
|
#define TIF_PMI_WHITEISZERO 0
|
|
#define TIF_PMI_BLACKISZERO 1
|
|
#define TIF_PMI_RGB 2
|
|
#define TIF_PMI_PALETTE_COLOR 3
|
|
#define TIF_PMI_SEPARATED 5 /* CMYK */
|
|
|
|
/* Compression */
|
|
#define TIF_NO_COMPRESSION 1
|
|
#define TIF_LZW 5
|
|
|
|
static void to_color_map(unsigned char rgb[4], tiff_color_t *color_map_entry) {
|
|
color_map_entry->red = (rgb[0] << 8) | rgb[0];
|
|
color_map_entry->green = (rgb[1] << 8) | rgb[1];
|
|
color_map_entry->blue = (rgb[2] << 8) | rgb[2];
|
|
}
|
|
|
|
static void to_cmyk(unsigned char rgb[3], unsigned char alpha, unsigned char *cmyk) {
|
|
unsigned char max = rgb[0];
|
|
if (rgb[1] > max) {
|
|
max = rgb[1];
|
|
}
|
|
if (rgb[2] > max) {
|
|
max = rgb[2];
|
|
}
|
|
cmyk[0] = max - rgb[0];
|
|
cmyk[1] = max - rgb[1];
|
|
cmyk[2] = max - rgb[2];
|
|
cmyk[3] = 0xff - max;
|
|
cmyk[4] = alpha;
|
|
|
|
}
|
|
|
|
static int is_big_endian() {
|
|
return (*((const uint16_t *)"\x11\x22") == 0x1122);
|
|
}
|
|
|
|
INTERNAL int tif_pixel_plot(struct zint_symbol *symbol, unsigned char *pixelbuf) {
|
|
unsigned char fg[4], bg[4];
|
|
int i;
|
|
int pmi; /* PhotometricInterpretation */
|
|
int rows_per_strip, strip_count;
|
|
int rows_last_strip;
|
|
int bytes_per_strip;
|
|
uint16_t bits_per_sample;
|
|
int samples_per_pixel;
|
|
int pixels_per_sample;
|
|
unsigned char map[128];
|
|
tiff_color_t color_map[256] = {{0}};
|
|
unsigned char palette[32][5];
|
|
int color_map_size = 0;
|
|
int extra_samples = 0;
|
|
uint32_t free_memory;
|
|
int row, column, strip;
|
|
int strip_row;
|
|
unsigned int bytes_put;
|
|
long total_bytes_put;
|
|
FILE *tif_file;
|
|
unsigned char *pb;
|
|
int compression = TIF_NO_COMPRESSION;
|
|
tif_lzw_state lzw_state;
|
|
long file_pos;
|
|
const int output_to_stdout = symbol->output_options & BARCODE_STDOUT;
|
|
#ifdef _MSC_VER
|
|
uint32_t* strip_offset;
|
|
uint32_t* strip_bytes;
|
|
unsigned char *strip_buf;
|
|
#endif
|
|
|
|
tiff_header_t header;
|
|
uint16_t entries = 0;
|
|
tiff_tag_t tags[20];
|
|
uint32_t offset = 0;
|
|
int update_offsets[20];
|
|
int offsets = 0;
|
|
int ifd_size;
|
|
uint32_t temp32;
|
|
|
|
fg[0] = (16 * ctoi(symbol->fgcolour[0])) + ctoi(symbol->fgcolour[1]);
|
|
fg[1] = (16 * ctoi(symbol->fgcolour[2])) + ctoi(symbol->fgcolour[3]);
|
|
fg[2] = (16 * ctoi(symbol->fgcolour[4])) + ctoi(symbol->fgcolour[5]);
|
|
bg[0] = (16 * ctoi(symbol->bgcolour[0])) + ctoi(symbol->bgcolour[1]);
|
|
bg[1] = (16 * ctoi(symbol->bgcolour[2])) + ctoi(symbol->bgcolour[3]);
|
|
bg[2] = (16 * ctoi(symbol->bgcolour[4])) + ctoi(symbol->bgcolour[5]);
|
|
|
|
if (strlen(symbol->fgcolour) > 6) {
|
|
fg[3] = (16 * ctoi(symbol->fgcolour[6])) + ctoi(symbol->fgcolour[7]);
|
|
} else {
|
|
fg[3] = 0xff;
|
|
}
|
|
|
|
if (strlen(symbol->bgcolour) > 6) {
|
|
bg[3] = (16 * ctoi(symbol->bgcolour[6])) + ctoi(symbol->bgcolour[7]);
|
|
} else {
|
|
bg[3] = 0xff;
|
|
}
|
|
|
|
if (symbol->symbology == BARCODE_ULTRA) {
|
|
static const int ultra_chars[8] = { 'W', 'C', 'B', 'M', 'R', 'Y', 'G', 'K' };
|
|
static unsigned char ultra_rgbs[8][3] = {
|
|
{ 0xff, 0xff, 0xff, }, /* White */
|
|
{ 0, 0xff, 0xff, }, /* Cyan */
|
|
{ 0, 0, 0xff, }, /* Blue */
|
|
{ 0xff, 0, 0xff, }, /* Magenta */
|
|
{ 0xff, 0, 0, }, /* Red */
|
|
{ 0xff, 0xff, 0, }, /* Yellow */
|
|
{ 0, 0xff, 0, }, /* Green */
|
|
{ 0, 0, 0, }, /* Black */
|
|
};
|
|
|
|
if (symbol->output_options & CMYK_COLOUR) {
|
|
for (i = 0; i < 8; i++) {
|
|
map[ultra_chars[i]] = i;
|
|
to_cmyk(ultra_rgbs[i], fg[3], palette[i]);
|
|
}
|
|
map['0'] = 8;
|
|
to_cmyk(bg, bg[3], palette[8]);
|
|
map['1'] = 9;
|
|
to_cmyk(fg, fg[3], palette[9]);
|
|
|
|
pmi = TIF_PMI_SEPARATED;
|
|
bits_per_sample = 8;
|
|
if (fg[3] == 0xff && bg[3] == 0xff) { /* If no alpha */
|
|
samples_per_pixel = 4;
|
|
} else {
|
|
samples_per_pixel = 5;
|
|
extra_samples = 1; /* Associated alpha */
|
|
}
|
|
pixels_per_sample = 1;
|
|
} else {
|
|
for (i = 0; i < 8; i++) {
|
|
map[ultra_chars[i]] = i;
|
|
memcpy(palette[i], ultra_rgbs[i], 3);
|
|
palette[i][3] = fg[3];
|
|
}
|
|
map['0'] = 8;
|
|
memcpy(palette[8], bg, 4);
|
|
map['1'] = 9;
|
|
memcpy(palette[9], fg, 4);
|
|
|
|
if (fg[3] == 0xff && bg[3] == 0xff) { /* If no alpha */
|
|
pmi = TIF_PMI_PALETTE_COLOR;
|
|
for (i = 0; i < 10; i++) {
|
|
to_color_map(palette[i], &color_map[i]);
|
|
}
|
|
bits_per_sample = 4;
|
|
samples_per_pixel = 1;
|
|
pixels_per_sample = 2;
|
|
color_map_size = 16; /* 2**BitsPerSample */
|
|
} else {
|
|
pmi = TIF_PMI_RGB;
|
|
bits_per_sample = 8;
|
|
samples_per_pixel = 4;
|
|
pixels_per_sample = 1;
|
|
extra_samples = 1; /* Associated alpha */
|
|
}
|
|
}
|
|
} else { /* fg/bg only */
|
|
if (symbol->output_options & CMYK_COLOUR) {
|
|
map['0'] = 0;
|
|
to_cmyk(bg, bg[3], palette[0]);
|
|
map['1'] = 1;
|
|
to_cmyk(fg, fg[3], palette[1]);
|
|
|
|
pmi = TIF_PMI_SEPARATED;
|
|
bits_per_sample = 8;
|
|
if (fg[3] == 0xff && bg[3] == 0xff) { /* If no alpha */
|
|
samples_per_pixel = 4;
|
|
} else {
|
|
samples_per_pixel = 5;
|
|
extra_samples = 1; /* Associated alpha */
|
|
}
|
|
pixels_per_sample = 1;
|
|
} else if (bg[0] == 0xff && bg[1] == 0xff && bg[2] == 0xff && bg[3] == 0xff
|
|
&& fg[0] == 0 && fg[1] == 0 && fg[2] == 0 && fg[3] == 0xff) {
|
|
map['0'] = 0;
|
|
map['1'] = 1;
|
|
|
|
pmi = TIF_PMI_WHITEISZERO;
|
|
bits_per_sample = 1;
|
|
samples_per_pixel = 1;
|
|
pixels_per_sample = 8;
|
|
} else if (bg[0] == 0 && bg[1] == 0 && bg[2] == 0 && bg[3] == 0xff
|
|
&& fg[0] == 0xff && fg[1] == 0xff && fg[2] == 0xff && fg[3] == 0xff) {
|
|
map['0'] = 0;
|
|
map['1'] = 1;
|
|
|
|
pmi = TIF_PMI_BLACKISZERO;
|
|
bits_per_sample = 1;
|
|
samples_per_pixel = 1;
|
|
pixels_per_sample = 8;
|
|
} else {
|
|
map['0'] = 0;
|
|
memcpy(palette[0], bg, 4);
|
|
map['1'] = 1;
|
|
memcpy(palette[1], fg, 4);
|
|
|
|
pmi = TIF_PMI_PALETTE_COLOR;
|
|
for (i = 0; i < 2; i++) {
|
|
to_color_map(palette[i], &color_map[i]);
|
|
}
|
|
if (fg[3] == 0xff && bg[3] == 0xff) { /* If no alpha */
|
|
bits_per_sample = 4;
|
|
samples_per_pixel = 1;
|
|
pixels_per_sample = 2;
|
|
color_map_size = 16; /* 2**BitsPerSample */
|
|
} else {
|
|
bits_per_sample = 8;
|
|
samples_per_pixel = 2;
|
|
pixels_per_sample = 1;
|
|
color_map_size = 256; /* 2**BitsPerSample */
|
|
extra_samples = 1; /* Associated alpha */
|
|
}
|
|
}
|
|
}
|
|
|
|
/* TIFF Rev 6 Section 7 p.27 "Set RowsPerStrip such that the size of each strip is about 8K bytes...
|
|
* Note that extremely wide high resolution images may have rows larger than 8K bytes; in this case,
|
|
* RowsPerStrip should be 1, and the strip will be larger than 8K." */
|
|
rows_per_strip = (8192 * pixels_per_sample) / (symbol->bitmap_width * samples_per_pixel);
|
|
if (rows_per_strip == 0) {
|
|
rows_per_strip = 1;
|
|
}
|
|
|
|
/* Suppresses clang-tidy clang-analyzer-core.VLASize warning */
|
|
assert(symbol->bitmap_height > 0);
|
|
|
|
if (rows_per_strip >= symbol->bitmap_height) {
|
|
strip_count = 1;
|
|
rows_per_strip = rows_last_strip = symbol->bitmap_height;
|
|
} else {
|
|
strip_count = symbol->bitmap_height / rows_per_strip;
|
|
rows_last_strip = symbol->bitmap_height % rows_per_strip;
|
|
if (rows_last_strip != 0) {
|
|
strip_count++;
|
|
}
|
|
if (rows_per_strip > symbol->bitmap_height) {
|
|
rows_per_strip = rows_last_strip = symbol->bitmap_height;
|
|
}
|
|
}
|
|
assert(strip_count > 0); /* Suppress clang-analyzer-core.UndefinedBinaryOperatorResult */
|
|
|
|
if (symbol->debug & ZINT_DEBUG_PRINT) {
|
|
printf("TIFF (%dx%d) Strip Count %d, Rows Per Strip %d, Pixels Per Sample %d, Samples Per Pixel %d, PMI %d\n",
|
|
symbol->bitmap_width, symbol->bitmap_height, strip_count, rows_per_strip, pixels_per_sample,
|
|
samples_per_pixel, pmi);
|
|
}
|
|
|
|
bytes_per_strip = rows_per_strip * ((symbol->bitmap_width + pixels_per_sample - 1) / pixels_per_sample)
|
|
* samples_per_pixel;
|
|
|
|
#ifndef _MSC_VER
|
|
uint32_t strip_offset[strip_count];
|
|
uint32_t strip_bytes[strip_count];
|
|
unsigned char strip_buf[bytes_per_strip + 1];
|
|
#else
|
|
strip_offset = (uint32_t *) _alloca(strip_count * sizeof(uint32_t));
|
|
strip_bytes = (uint32_t *) _alloca(strip_count * sizeof(uint32_t));
|
|
strip_buf = (unsigned char *) _alloca(bytes_per_strip + 1);
|
|
#endif
|
|
free_memory = sizeof(tiff_header_t);
|
|
|
|
for (i = 0; i < strip_count; i++) {
|
|
strip_offset[i] = free_memory;
|
|
if (i != (strip_count - 1)) {
|
|
strip_bytes[i] = bytes_per_strip;
|
|
} else {
|
|
if (rows_last_strip) {
|
|
strip_bytes[i] = rows_last_strip
|
|
* ((symbol->bitmap_width + pixels_per_sample - 1) / pixels_per_sample)
|
|
* samples_per_pixel;
|
|
} else {
|
|
strip_bytes[i] = bytes_per_strip;
|
|
}
|
|
}
|
|
free_memory += strip_bytes[i];
|
|
}
|
|
if (free_memory & 1) {
|
|
free_memory++; // IFD must be on word boundary
|
|
}
|
|
|
|
if (free_memory > 0xffff0000) {
|
|
strcpy(symbol->errtxt, "670: Output file size too big");
|
|
return ZINT_ERROR_MEMORY;
|
|
}
|
|
|
|
/* Open output file in binary mode */
|
|
if (output_to_stdout) {
|
|
#ifdef _MSC_VER
|
|
if (-1 == _setmode(_fileno(stdout), _O_BINARY)) {
|
|
sprintf(symbol->errtxt, "671: Could not set stdout to binary (%d: %.30s)", errno, strerror(errno));
|
|
return ZINT_ERROR_FILE_ACCESS;
|
|
}
|
|
#endif
|
|
tif_file = stdout;
|
|
} else {
|
|
if (!(tif_file = fopen(symbol->outfile, "wb+"))) { /* '+' as use fseek/ftell() */
|
|
sprintf(symbol->errtxt, "672: Could not open output file (%d: %.30s)", errno, strerror(errno));
|
|
return ZINT_ERROR_FILE_ACCESS;
|
|
}
|
|
compression = TIF_LZW;
|
|
tif_lzw_init(&lzw_state);
|
|
}
|
|
|
|
/* Header */
|
|
if (is_big_endian()) {
|
|
header.byte_order = 0x4D4D; // "MM" big-endian
|
|
} else {
|
|
header.byte_order = 0x4949; // "II" little-endian
|
|
}
|
|
header.identity = 42;
|
|
header.offset = free_memory;
|
|
|
|
fwrite(&header, sizeof(tiff_header_t), 1, tif_file);
|
|
total_bytes_put = sizeof(tiff_header_t);
|
|
|
|
/* Pixel data */
|
|
pb = pixelbuf;
|
|
strip = 0;
|
|
strip_row = 0;
|
|
bytes_put = 0;
|
|
for (row = 0; row < symbol->bitmap_height; row++) {
|
|
if (samples_per_pixel == 1) {
|
|
if (bits_per_sample == 1) { /* WHITEISZERO or BLACKISZERO */
|
|
for (column = 0; column < symbol->bitmap_width; column += 8) {
|
|
unsigned char byte = 0;
|
|
for (i = 0; i < 8 && column + i < symbol->bitmap_width; i++, pb++) {
|
|
byte |= map[*pb] << (7 - i);
|
|
}
|
|
strip_buf[bytes_put++] = byte;
|
|
}
|
|
} else { /* bits_per_sample == 4, PALETTE_COLOR with no alpha */
|
|
for (column = 0; column < symbol->bitmap_width; column += 2) {
|
|
unsigned char byte = map[*pb++] << 4;
|
|
if (column + 1 < symbol->bitmap_width) {
|
|
byte |= map[*pb++];
|
|
}
|
|
strip_buf[bytes_put++] = byte;
|
|
}
|
|
}
|
|
} else if (samples_per_pixel == 2) { /* PALETTE_COLOR with alpha */
|
|
for (column = 0; column < symbol->bitmap_width; column++) {
|
|
int idx = map[*pb++];
|
|
strip_buf[bytes_put++] = idx;
|
|
strip_buf[bytes_put++] = palette[idx][3];
|
|
}
|
|
} else { /* samples_per_pixel >= 4, RGB with alpha (4) or CMYK with (5) or without (4) alpha */
|
|
for (column = 0; column < symbol->bitmap_width; column++) {
|
|
int idx = map[*pb++];
|
|
memcpy(&strip_buf[bytes_put], &palette[idx], samples_per_pixel);
|
|
bytes_put += samples_per_pixel;
|
|
}
|
|
}
|
|
|
|
strip_row++;
|
|
|
|
if (strip_row == rows_per_strip || (strip == strip_count - 1 && strip_row == rows_last_strip)) {
|
|
// End of strip
|
|
if (compression == TIF_LZW) {
|
|
file_pos = ftell(tif_file);
|
|
if (!tif_lzw_encode(&lzw_state, tif_file, strip_buf, bytes_put)) { /* Only fails if can't malloc */
|
|
tif_lzw_cleanup(&lzw_state);
|
|
fclose(tif_file); /* Only use LZW if not STDOUT, so ok to close */
|
|
strcpy(symbol->errtxt, "673: Failed to malloc LZW hash table");
|
|
return ZINT_ERROR_MEMORY;
|
|
}
|
|
bytes_put = ftell(tif_file) - file_pos;
|
|
if (bytes_put != strip_bytes[strip]) {
|
|
int diff = bytes_put - strip_bytes[strip];
|
|
strip_bytes[strip] = bytes_put;
|
|
for (i = strip + 1; i < strip_count; i++) {
|
|
strip_offset[i] += diff;
|
|
}
|
|
}
|
|
} else {
|
|
fwrite(strip_buf, 1, bytes_put, tif_file);
|
|
}
|
|
strip++;
|
|
total_bytes_put += bytes_put;
|
|
bytes_put = 0;
|
|
strip_row = 0;
|
|
/* Suppress clang-analyzer-core.UndefinedBinaryOperatorResult */
|
|
assert(strip < strip_count || row + 1 == symbol->bitmap_height);
|
|
}
|
|
}
|
|
|
|
if (total_bytes_put & 1) {
|
|
putc(0, tif_file); // IFD must be on word boundary
|
|
total_bytes_put++;
|
|
}
|
|
|
|
if (compression == TIF_LZW) {
|
|
tif_lzw_cleanup(&lzw_state);
|
|
|
|
file_pos = ftell(tif_file);
|
|
fseek(tif_file, 4, SEEK_SET);
|
|
free_memory = file_pos;
|
|
fwrite(&free_memory, 4, 1, tif_file);
|
|
fseek(tif_file, file_pos, SEEK_SET);
|
|
}
|
|
|
|
/* Image File Directory */
|
|
tags[entries].tag = 0x0100; // ImageWidth
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = symbol->bitmap_width;
|
|
|
|
tags[entries].tag = 0x0101; // ImageLength - number of rows
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = symbol->bitmap_height;
|
|
|
|
if (samples_per_pixel != 1 || bits_per_sample != 1) {
|
|
tags[entries].tag = 0x0102; // BitsPerSample
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = samples_per_pixel;
|
|
if (samples_per_pixel == 1) {
|
|
tags[entries++].offset = bits_per_sample;
|
|
} else if (samples_per_pixel == 2) { /* 2 SHORTS fit into LONG offset so packed into offset */
|
|
tags[entries++].offset = (bits_per_sample << 16) | bits_per_sample;
|
|
} else {
|
|
update_offsets[offsets++] = entries;
|
|
tags[entries++].offset = free_memory;
|
|
free_memory += samples_per_pixel * 2;
|
|
}
|
|
}
|
|
|
|
tags[entries].tag = 0x0103; // Compression
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = compression;
|
|
|
|
tags[entries].tag = 0x0106; // PhotometricInterpretation
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = pmi;
|
|
|
|
tags[entries].tag = 0x0111; // StripOffsets
|
|
tags[entries].type = 4; // LONG
|
|
tags[entries].count = strip_count;
|
|
if (strip_count == 1) {
|
|
tags[entries++].offset = strip_offset[0];
|
|
} else {
|
|
update_offsets[offsets++] = entries;
|
|
tags[entries++].offset = free_memory;
|
|
free_memory += strip_count * 4;
|
|
}
|
|
|
|
if (samples_per_pixel > 1) {
|
|
tags[entries].tag = 0x0115; // SamplesPerPixel
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = samples_per_pixel;
|
|
}
|
|
|
|
tags[entries].tag = 0x0116; // RowsPerStrip
|
|
tags[entries].type = 4; // LONG
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = rows_per_strip;
|
|
|
|
tags[entries].tag = 0x0117; // StripByteCounts
|
|
tags[entries].type = 4; // LONG
|
|
tags[entries].count = strip_count;
|
|
if (strip_count == 1) {
|
|
tags[entries++].offset = strip_bytes[0];
|
|
} else {
|
|
update_offsets[offsets++] = entries;
|
|
tags[entries++].offset = free_memory;
|
|
free_memory += strip_count * 4;
|
|
}
|
|
|
|
tags[entries].tag = 0x011a; // XResolution
|
|
tags[entries].type = 5; // RATIONAL
|
|
tags[entries].count = 1;
|
|
update_offsets[offsets++] = entries;
|
|
tags[entries++].offset = free_memory;
|
|
free_memory += 8;
|
|
|
|
tags[entries].tag = 0x011b; // YResolution
|
|
tags[entries].type = 5; // RATIONAL
|
|
tags[entries].count = 1;
|
|
update_offsets[offsets++] = entries;
|
|
tags[entries++].offset = free_memory;
|
|
free_memory += 8;
|
|
|
|
tags[entries].tag = 0x0128; // ResolutionUnit
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = 2; // Inches
|
|
|
|
if (color_map_size) {
|
|
tags[entries].tag = 0x0140; // ColorMap
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = color_map_size * 3;
|
|
update_offsets[offsets++] = entries;
|
|
tags[entries++].offset = free_memory;
|
|
//free_memory += color_map_size * 3 * 2; /* Unnecessary as long as last use */
|
|
}
|
|
|
|
if (extra_samples) {
|
|
tags[entries].tag = 0x0152; // ExtraSamples
|
|
tags[entries].type = 3; // SHORT
|
|
tags[entries].count = 1;
|
|
tags[entries++].offset = extra_samples;
|
|
}
|
|
|
|
ifd_size = sizeof(entries) + sizeof(tiff_tag_t) * entries + sizeof(offset);
|
|
for (i = 0; i < offsets; i++) {
|
|
tags[update_offsets[i]].offset += ifd_size;
|
|
}
|
|
|
|
fwrite(&entries, sizeof(entries), 1, tif_file);
|
|
fwrite(&tags, sizeof(tiff_tag_t), entries, tif_file);
|
|
fwrite(&offset, sizeof(offset), 1, tif_file);
|
|
total_bytes_put += ifd_size;
|
|
|
|
if (samples_per_pixel > 2) {
|
|
for (i = 0; i < samples_per_pixel; i++) {
|
|
fwrite(&bits_per_sample, sizeof(bits_per_sample), 1, tif_file);
|
|
}
|
|
total_bytes_put += sizeof(bits_per_sample) * samples_per_pixel;
|
|
}
|
|
|
|
if (strip_count != 1) {
|
|
/* Strip offsets */
|
|
for (i = 0; i < strip_count; i++) {
|
|
fwrite(&strip_offset[i], 4, 1, tif_file);
|
|
}
|
|
|
|
/* Strip byte lengths */
|
|
for (i = 0; i < strip_count; i++) {
|
|
fwrite(&strip_bytes[i], 4, 1, tif_file);
|
|
}
|
|
total_bytes_put += strip_count * 8;
|
|
}
|
|
|
|
/* X Resolution */
|
|
temp32 = 72;
|
|
fwrite(&temp32, 4, 1, tif_file);
|
|
temp32 = 1;
|
|
fwrite(&temp32, 4, 1, tif_file);
|
|
total_bytes_put += 8;
|
|
|
|
/* Y Resolution */
|
|
temp32 = 72;
|
|
fwrite(&temp32, 4, 1, tif_file);
|
|
temp32 = 1;
|
|
fwrite(&temp32, 4, 1, tif_file);
|
|
total_bytes_put += 8;
|
|
|
|
if (color_map_size) {
|
|
for (i = 0; i < color_map_size; i++) {
|
|
fwrite(&color_map[i].red, 2, 1, tif_file);
|
|
}
|
|
for (i = 0; i < color_map_size; i++) {
|
|
fwrite(&color_map[i].green, 2, 1, tif_file);
|
|
}
|
|
for (i = 0; i < color_map_size; i++) {
|
|
fwrite(&color_map[i].blue, 2, 1, tif_file);
|
|
}
|
|
total_bytes_put += 6 * color_map_size;
|
|
}
|
|
|
|
if (output_to_stdout) {
|
|
fflush(tif_file);
|
|
} else {
|
|
if (ftell(tif_file) != total_bytes_put) {
|
|
fclose(tif_file);
|
|
strcpy(symbol->errtxt, "674: Failed to write all output");
|
|
return ZINT_ERROR_FILE_WRITE;
|
|
}
|
|
fclose(tif_file);
|
|
}
|
|
|
|
return 0;
|
|
}
|