#include "image.h"
#include <ctype.h>
int
ImageReadPNM(image_t *img,
FILE *fp,
int primary,
int secondary,
int saturation,
int hue,
const ib_t *lut)
{
int x, y;
int bpp;
ib_t *in,
*inptr,
*out,
*outptr,
bit;
char line[255],
*lineptr;
int format,
val,
maxval;
lineptr = fgets(line, sizeof(line), fp);
lineptr ++;
format = atoi(lineptr);
while (isdigit(*lineptr & 255))
lineptr ++;
while (lineptr != NULL && img->xsize == 0)
{
if (*lineptr == '\0' || *lineptr == '#')
lineptr = fgets(line, sizeof(line), fp);
else if (isdigit(*lineptr & 255))
{
img->xsize = atoi(lineptr);
while (isdigit(*lineptr & 255))
lineptr ++;
}
else
lineptr ++;
}
while (lineptr != NULL && img->ysize == 0)
{
if (*lineptr == '\0' || *lineptr == '#')
lineptr = fgets(line, sizeof(line), fp);
else if (isdigit(*lineptr & 255))
{
img->ysize = atoi(lineptr);
while (isdigit(*lineptr & 255))
lineptr ++;
}
else
lineptr ++;
}
if (format != 1 && format != 4)
{
maxval = 0;
while (lineptr != NULL && maxval == 0)
{
if (*lineptr == '\0' || *lineptr == '#')
lineptr = fgets(line, sizeof(line), fp);
else if (isdigit(*lineptr & 255))
{
maxval = atoi(lineptr);
while (isdigit(*lineptr & 255))
lineptr ++;
}
else
lineptr ++;
}
}
else
maxval = 1;
if (img->xsize == 0 || img->xsize > IMAGE_MAX_WIDTH ||
img->ysize == 0 || img->ysize > IMAGE_MAX_HEIGHT)
{
fprintf(stderr, "ERROR: Bad PNM dimensions %dx%d!\n",
img->xsize, img->ysize);
fclose(fp);
return (1);
}
if (maxval == 0)
{
fprintf(stderr, "ERROR: Bad PNM max value %d!\n", maxval);
fclose(fp);
return (1);
}
if (format == 1 || format == 2 || format == 4 || format == 5)
img->colorspace = secondary;
else
img->colorspace = (primary == IMAGE_RGB_CMYK) ? IMAGE_RGB : primary;
ImageSetMaxTiles(img, 0);
bpp = ImageGetDepth(img);
in = malloc(img->xsize * 3);
out = malloc(img->xsize * bpp);
for (y = 0; y < img->ysize; y ++)
{
switch (format)
{
case 1 :
case 2 :
for (x = img->xsize, inptr = in; x > 0; x --, inptr ++)
if (fscanf(fp, "%d", &val) == 1)
*inptr = 255 * val / maxval;
break;
case 3 :
for (x = img->xsize, inptr = in; x > 0; x --, inptr += 3)
{
if (fscanf(fp, "%d", &val) == 1)
inptr[0] = 255 * val / maxval;
if (fscanf(fp, "%d", &val) == 1)
inptr[1] = 255 * val / maxval;
if (fscanf(fp, "%d", &val) == 1)
inptr[2] = 255 * val / maxval;
}
break;
case 4 :
fread(out, (img->xsize + 7) / 8, 1, fp);
for (x = img->xsize, inptr = in, outptr = out, bit = 128;
x > 0;
x --, inptr ++)
{
if (*outptr & bit)
*inptr = 255;
else
*inptr = 0;
if (bit > 1)
bit >>= 1;
else
{
bit = 128;
inptr ++;
}
}
break;
case 5 :
fread(in, img->xsize, 1, fp);
break;
case 6 :
fread(in, img->xsize, 3, fp);
break;
}
switch (format)
{
case 1 :
case 2 :
case 4 :
case 5 :
if (img->colorspace == IMAGE_WHITE)
{
if (lut)
ImageLut(in, img->xsize, lut);
ImagePutRow(img, 0, y, img->xsize, in);
}
else
{
switch (img->colorspace)
{
case IMAGE_RGB :
ImageWhiteToRGB(in, out, img->xsize);
break;
case IMAGE_BLACK :
ImageWhiteToBlack(in, out, img->xsize);
break;
case IMAGE_CMY :
ImageWhiteToCMY(in, out, img->xsize);
break;
case IMAGE_CMYK :
ImageWhiteToCMYK(in, out, img->xsize);
break;
}
if (lut)
ImageLut(out, img->xsize * bpp, lut);
ImagePutRow(img, 0, y, img->xsize, out);
}
break;
default :
if ((saturation != 100 || hue != 0) && bpp > 1)
ImageRGBAdjust(in, img->xsize, saturation, hue);
if (img->colorspace == IMAGE_RGB)
{
if (lut)
ImageLut(in, img->xsize * 3, lut);
ImagePutRow(img, 0, y, img->xsize, in);
}
else
{
switch (img->colorspace)
{
case IMAGE_WHITE :
ImageRGBToWhite(in, out, img->xsize);
break;
case IMAGE_BLACK :
ImageRGBToBlack(in, out, img->xsize);
break;
case IMAGE_CMY :
ImageRGBToCMY(in, out, img->xsize);
break;
case IMAGE_CMYK :
ImageRGBToCMYK(in, out, img->xsize);
break;
}
if (lut)
ImageLut(out, img->xsize * bpp, lut);
ImagePutRow(img, 0, y, img->xsize, out);
}
break;
}
}
free(in);
free(out);
fclose(fp);
return (0);
}