1 /* ppm.c - load PPM image from file
3 * Raster graphics library
5 * Copyright (c) 1997 Alfredo K. Kojima
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Library General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Library General Public License for more details.
17 * You should have received a copy of the GNU Library General Public
18 * License along with this library; if not, write to the Free
19 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
34 load_graymap(char *file_name
, FILE *file
, int w
, int h
, int max
, int raw
)
38 image
= RCreateImage(w
, h
, 0);
40 sprintf(RErrorString
, "out of memory");
47 if (!fgets(image
->data
[0], w
*h
, file
))
49 memcpy(image
->data
[0], image
->data
[1], w
*h
);
50 memcpy(image
->data
[0], image
->data
[2], w
*h
);
59 sprintf(RErrorString
, "PPM file \"%s\" seems to be truncated", file_name
);
65 load_pixmap(char *file_name
, FILE *file
, int w
, int h
, int max
, int raw
)
72 image
= RCreateImage(w
, h
, 0);
74 sprintf(RErrorString
, "out of memory");
86 if (fread(buf
, 1, 3, file
)!=3)
101 sprintf(RErrorString
, "PPM file \"%s\" seems to be truncated", file_name
);
107 RLoadPPM(RContext
*context
, char *file_name
, int index
)
110 RImage
*image
= NULL
;
115 #define GETL() if (!fgets(buffer, 255, file)) goto short_file
119 file
= fopen(file_name
, "r");
121 sprintf(RErrorString
, "could not open PPM file \"%s\"", file_name
);
128 /* only accept raw pixmaps or graymaps */
129 if (buffer
[0] != 'P' || (buffer
[1] != '5' && buffer
[1] != '6')) {
130 sprintf(RErrorString
, "unknown PPM format in \"%s\"", file_name
);
146 if (sscanf(buffer
, "%i %i", &w
, &h
)!=2)
151 if (sscanf(buffer
, "%i", &m
)!=1 || m
< 1)
155 image
= load_graymap(file_name
, file
, w
, h
, m
, type
=='5');
157 image
= load_pixmap(file_name
, file
, w
, h
, m
, type
=='6');
163 sprintf(RErrorString
, "PPM file \"%s\" seems to be corrupted", file_name
);
168 sprintf(RErrorString
, "PPM file \"%s\" seems to be truncated", file_name
);