| 1 |
– |
/* Copyright (c) 1994 Regents of the University of California */ |
| 2 |
– |
|
| 1 |
|
#ifndef lint |
| 2 |
< |
static char SCCSid[] = "$SunId$ LBL"; |
| 2 |
> |
static const char RCSid[] = "$Id$"; |
| 3 |
|
#endif |
| 6 |
– |
|
| 4 |
|
/* |
| 5 |
|
* Convert from Radiance picture file to Compuserve GIF. |
| 6 |
|
* Currently, we don't know how to get back. |
| 7 |
|
*/ |
| 8 |
|
|
| 9 |
|
#include <stdio.h> |
| 10 |
+ |
#include <time.h> |
| 11 |
+ |
#include <math.h> |
| 12 |
|
|
| 13 |
+ |
#include "platform.h" |
| 14 |
|
#include "color.h" |
| 15 |
– |
|
| 15 |
|
#include "resolu.h" |
| 16 |
|
|
| 18 |
– |
#ifdef MSDOS |
| 19 |
– |
#include <fcntl.h> |
| 20 |
– |
#endif |
| 21 |
– |
|
| 22 |
– |
#include <math.h> |
| 23 |
– |
|
| 17 |
|
#define MAXCOLORS 256 |
| 18 |
|
|
| 19 |
|
int rmap[MAXCOLORS]; |
| 26 |
|
|
| 27 |
|
long picstart; |
| 28 |
|
|
| 29 |
< |
extern BYTE clrtab[][3]; |
| 29 |
> |
BYTE clrtab[256][3]; |
| 30 |
|
|
| 31 |
+ |
extern int samplefac; |
| 32 |
+ |
|
| 33 |
|
extern int getgifpix(); |
| 34 |
|
|
| 35 |
|
COLR *scanln; |
| 45 |
|
|
| 46 |
|
int bradj = 0; /* brightness adjustment */ |
| 47 |
|
|
| 48 |
+ |
int ncolors = 0; /* number of colors requested */ |
| 49 |
+ |
|
| 50 |
|
char *progname; |
| 51 |
|
|
| 52 |
|
|
| 54 |
|
int argc; |
| 55 |
|
char *argv[]; |
| 56 |
|
{ |
| 60 |
– |
int ncolors = 0; |
| 57 |
|
int bitsperpix; |
| 58 |
|
int i; |
| 59 |
< |
#ifdef MSDOS |
| 60 |
< |
extern int _fmode; |
| 61 |
< |
_fmode = O_BINARY; |
| 66 |
< |
setmode(fileno(stdin), O_BINARY); |
| 67 |
< |
setmode(fileno(stdout), O_BINARY); |
| 68 |
< |
#endif |
| 59 |
> |
SET_DEFAULT_BINARY(); |
| 60 |
> |
SET_FILE_BINARY(stdin); |
| 61 |
> |
SET_FILE_BINARY(stdout); |
| 62 |
|
progname = argv[0]; |
| 63 |
+ |
samplefac = 0; |
| 64 |
|
|
| 65 |
|
for (i = 1; i < argc; i++) |
| 66 |
|
if (argv[i][0] == '-') |
| 82 |
|
goto userr; |
| 83 |
|
bradj = atoi(argv[++i]); |
| 84 |
|
break; |
| 85 |
+ |
case 'n': |
| 86 |
+ |
samplefac = atoi(argv[++i]); |
| 87 |
+ |
break; |
| 88 |
|
default: |
| 89 |
|
goto userr; |
| 90 |
|
} |
| 133 |
|
exit(0); |
| 134 |
|
userr: |
| 135 |
|
fprintf(stderr, |
| 136 |
< |
"Usage: %s [-b][-c ncolors][-g gamv][-e +/-stops] input [output]\n", |
| 136 |
> |
"Usage: %s [-b][-d][-n samp][-c ncolors][-g gamv][-e +/-stops] input [output]\n", |
| 137 |
|
progname); |
| 138 |
|
exit(1); |
| 139 |
|
} |
| 159 |
|
shiftcolrs(scanln, xmax, bradj); |
| 160 |
|
colrs_gambs(scanln, xmax); |
| 161 |
|
if (pixscan != NULL) |
| 162 |
< |
dith_colrs(pixscan, scanln, xmax); |
| 162 |
> |
if (samplefac) |
| 163 |
> |
neu_dith_colrs(pixscan, scanln, xmax); |
| 164 |
> |
else |
| 165 |
> |
dith_colrs(pixscan, scanln, xmax); |
| 166 |
|
} |
| 167 |
|
|
| 168 |
|
|
| 171 |
|
{ |
| 172 |
|
register int i; |
| 173 |
|
|
| 174 |
< |
new_histo(); |
| 174 |
> |
if ((samplefac ? neu_init(xmax*ymax) : new_histo(xmax*ymax)) == -1) |
| 175 |
> |
goto memerr; |
| 176 |
|
for (i = 0; i < ymax; i++) { |
| 177 |
|
getrow(i); |
| 178 |
< |
cnt_colrs(scanln, xmax); |
| 178 |
> |
if (samplefac) |
| 179 |
> |
neu_colrs(scanln, xmax); |
| 180 |
> |
else |
| 181 |
> |
cnt_colrs(scanln, xmax); |
| 182 |
|
} |
| 183 |
< |
new_clrtab(nc); |
| 183 |
> |
if (samplefac) |
| 184 |
> |
neu_clrtab(nc); |
| 185 |
> |
else |
| 186 |
> |
new_clrtab(nc); |
| 187 |
|
for (i = 0; i < nc; i++) { |
| 188 |
|
rmap[i] = clrtab[i][RED]; |
| 189 |
|
gmap[i] = clrtab[i][GRN]; |
| 190 |
|
bmap[i] = clrtab[i][BLU]; |
| 191 |
|
} |
| 192 |
< |
if (dither && (pixscan = (BYTE *)malloc(xmax)) == NULL) { |
| 193 |
< |
fprintf(stderr, "%s: out of memory\n", progname); |
| 194 |
< |
exit(1); |
| 195 |
< |
} |
| 192 |
> |
if (dither && (pixscan = (BYTE *)malloc(xmax)) == NULL) |
| 193 |
> |
goto memerr; |
| 194 |
> |
return; |
| 195 |
> |
memerr: |
| 196 |
> |
fprintf(stderr, "%s: out of memory\n", progname); |
| 197 |
> |
exit(1); |
| 198 |
|
} |
| 199 |
|
|
| 200 |
|
|
| 219 |
|
|
| 220 |
|
getrow(y); |
| 221 |
|
if (greyscale) |
| 222 |
< |
return(normbright(scanln[x])); |
| 222 |
> |
return((normbright(scanln[x])*ncolors)>>8); |
| 223 |
|
if (pixscan != NULL) |
| 224 |
|
return(pixscan[x]); |
| 225 |
< |
return(map_pixel(scanln[x])); |
| 225 |
> |
return(samplefac ? neu_map_pixel(scanln[x]) : map_pixel(scanln[x])); |
| 226 |
|
} |
| 227 |
|
|
| 228 |
|
|
