wrlib: Renamed image format related files for clarity

This patch makes all files appear together when listing files and
it is more clear about their function.

Signed-off-by: Christophe CURIS <christophe.curis@free.fr>

wrlib/load_tiff.c

@@ -0,0 +1,141 @@
+/* tiff.c - load TIFF image from file
+ *
+ * Raster graphics library
+ *
+ * Copyright (c) 1997-2003 Alfredo K. Kojima
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Library General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2 of the License, or (at your option) any later version.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Library General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Library General Public
+ *  License along with this library; if not, write to the Free
+ *  Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+ *  MA 02110-1301, USA.
+ */
+
+#include <config.h>
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#include <tiff.h>
+#include <tiffio.h>
+
+#include "wraster.h"
+#include "imgformat.h"
+
+RImage *RLoadTIFF(const char *file, int index)
+{
+	RImage *image = NULL;
+	TIFF *tif;
+	int i;
+	unsigned char *r, *g, *b, *a;
+	uint16 alpha, amode;
+	uint32 width, height;
+	uint32 *data, *ptr;
+	uint16 extrasamples;
+	uint16 *sampleinfo;
+	int ch;
+
+	tif = TIFFOpen(file, "r");
+	if (!tif)
+		return NULL;
+
+	/* seek index */
+	i = index;
+	while (i > 0) {
+		if (!TIFFReadDirectory(tif)) {
+			RErrorCode = RERR_BADINDEX;
+			TIFFClose(tif);
+			return NULL;
+		}
+		i--;
+	}
+
+	/* get info */
+	TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &width);
+	TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &height);
+
+	TIFFGetFieldDefaulted(tif, TIFFTAG_EXTRASAMPLES, &extrasamples, &sampleinfo);
+
+	alpha = (extrasamples == 1 &&
+		 ((sampleinfo[0] == EXTRASAMPLE_ASSOCALPHA) || (sampleinfo[0] == EXTRASAMPLE_UNASSALPHA)));
+	amode = (extrasamples == 1 && sampleinfo[0] == EXTRASAMPLE_ASSOCALPHA);
+
+	if (width < 1 || height < 1) {
+		RErrorCode = RERR_BADIMAGEFILE;
+		TIFFClose(tif);
+		return NULL;
+	}
+
+	/* read data */
+	ptr = data = (uint32 *) _TIFFmalloc(width * height * sizeof(uint32));
+
+	if (!data) {
+		RErrorCode = RERR_NOMEMORY;
+	} else {
+		if (!TIFFReadRGBAImage(tif, width, height, data, 0)) {
+			RErrorCode = RERR_BADIMAGEFILE;
+		} else {
+
+			/* convert data */
+			image = RCreateImage(width, height, alpha);
+
+			if (alpha)
+				ch = 4;
+			else
+				ch = 3;
+
+			if (image) {
+				int x, y;
+
+				r = image->data;
+				g = image->data + 1;
+				b = image->data + 2;
+				a = image->data + 3;
+
+				/* data seems to be stored upside down */
+				data += width * (height - 1);
+				for (y = 0; y < height; y++) {
+					for (x = 0; x < width; x++) {
+
+						*(r) = (*data) & 0xff;
+						*(g) = (*data >> 8) & 0xff;
+						*(b) = (*data >> 16) & 0xff;
+
+						if (alpha) {
+							*(a) = (*data >> 24) & 0xff;
+
+							if (amode && (*a > 0)) {
+								*r = (*r * 255) / *(a);
+								*g = (*g * 255) / *(a);
+								*b = (*b * 255) / *(a);
+							}
+
+							a += 4;
+						}
+
+						r += ch;
+						g += ch;
+						b += ch;
+						data++;
+					}
+					data -= 2 * width;
+				}
+			}
+		}
+		_TIFFfree(ptr);
+	}
+
+	TIFFClose(tif);
+
+	return image;
+}