38 |
|
static void getmbcalfile(char *fn, struct mbc *mb); |
39 |
|
|
40 |
|
|
41 |
< |
extern double |
41 |
> |
double |
42 |
|
rgblum( /* compute (scotopic) luminance of RGB color */ |
43 |
|
COLOR clr, |
44 |
|
int scotopic |
53 |
|
} |
54 |
|
|
55 |
|
|
56 |
< |
extern double |
56 |
> |
double |
57 |
|
cielum( /* compute (scotopic) luminance of CIE color */ |
58 |
|
COLOR xyz, |
59 |
|
int scotopic |
67 |
|
} |
68 |
|
|
69 |
|
|
70 |
< |
extern COLOR * |
70 |
> |
COLOR * |
71 |
|
nextscan(void) /* read and condition next scanline */ |
72 |
|
{ |
73 |
|
if (nread >= numscans(&inpres)) { |
78 |
|
} |
79 |
|
if (what2do&DO_ACUITY) |
80 |
|
acuscan(scanbuf, nread); |
81 |
< |
else if (freadscan(scanbuf, scanlen(&inpres), infp) < 0) { |
81 |
> |
else if (fread2scan(scanbuf, scanlen(&inpres), infp, |
82 |
> |
NCSAMP, WLPART) < 0) { |
83 |
|
fprintf(stderr, "%s: %s: scanline read error\n", |
84 |
|
progname, infn); |
85 |
|
exit(1); |
103 |
|
} |
104 |
|
|
105 |
|
|
106 |
< |
extern COLOR * |
106 |
> |
COLOR * |
107 |
|
firstscan(void) /* return first processed scanline */ |
108 |
|
{ |
109 |
|
if (mbcalfile != NULL) /* load macbethcal file */ |
128 |
|
|
129 |
|
static void |
130 |
|
sfscan( /* apply scalefactor to scanline */ |
131 |
< |
register COLOR *sl, |
131 |
> |
COLOR *sl, |
132 |
|
int len, |
133 |
|
double sf |
134 |
|
) |
150 |
|
/* improves saturated color rendering */ |
151 |
|
copycolor(gryc, col); |
152 |
|
for (i = 3; i--; ) |
153 |
< |
if (gryc[i] > cwhite[i]) |
154 |
< |
gryc[i] = cwhite[i]; |
155 |
< |
else if (gryc[i] < cblack[i]) |
156 |
< |
gryc[i] = cblack[i]; |
157 |
< |
return((*lumf)(gryc,0)); |
153 |
> |
if (gryc[i] > 1) |
154 |
> |
gryc[i] = 1; |
155 |
> |
else if (gryc[i] < 0) |
156 |
> |
gryc[i] = 0; |
157 |
> |
return(bright(gryc)); |
158 |
|
} |
159 |
|
|
160 |
|
|
161 |
|
static void |
162 |
|
matscan( /* apply color matrix to scaline */ |
163 |
< |
register COLOR *sl, |
163 |
> |
COLOR *sl, |
164 |
|
int len, |
165 |
|
COLORMAT mat |
166 |
|
) |
167 |
|
{ |
167 |
– |
double gryv; |
168 |
– |
|
168 |
|
while (len--) { |
170 |
– |
gryv = greypoint(sl[0]); |
169 |
|
colortrans(sl[0], mat, sl[0]); |
170 |
< |
clipgamut(sl[0], gryv, CGAMUT, cblack, cwhite); |
170 |
> |
clipgamut(sl[0], greypoint(sl[0]), CGAMUT, cblack, cwhite); |
171 |
|
sl++; |
172 |
|
} |
173 |
|
} |
177 |
|
mbscan( /* apply macbethcal adj. to scaline */ |
178 |
|
COLOR *sl, |
179 |
|
int len, |
180 |
< |
register struct mbc *mb |
180 |
> |
struct mbc *mb |
181 |
|
) |
182 |
|
{ |
183 |
|
double d; |
184 |
< |
register int i, j; |
184 |
> |
int i, j; |
185 |
|
|
186 |
|
while (len--) { |
189 |
– |
d = greypoint(sl[0]); |
187 |
|
colortrans(sl[0], mb->cmat, sl[0]); |
188 |
< |
clipgamut(sl[0], d, CGAMUT, mb->cmin, mb->cmax); |
188 |
> |
clipgamut(sl[0], greypoint(sl[0]), CGAMUT, mb->cmin, mb->cmax); |
189 |
|
for (i = 0; i < 3; i++) { |
190 |
|
d = colval(sl[0],i); |
191 |
|
for (j = 0; j < 4 && mb->xa[i][j+1] <= d; j++) |
207 |
|
) |
208 |
|
{ |
209 |
|
int rval; |
213 |
– |
double gryv; |
210 |
|
|
211 |
|
while (len--) { |
216 |
– |
gryv = greypoint(sl[0]); |
212 |
|
rval = warp3d(sl[0], sl[0], wp); |
213 |
|
if (rval & W3ERROR) |
214 |
|
syserror("warp3d"); |
217 |
|
progname, cwarpfile); |
218 |
|
exit(1); |
219 |
|
} |
220 |
< |
clipgamut(sl[0], gryv, CGAMUT, cblack, cwhite); |
220 |
> |
clipgamut(sl[0], greypoint(sl[0]), CGAMUT, cblack, cwhite); |
221 |
|
sl++; |
222 |
|
} |
223 |
|
} |
226 |
|
static void |
227 |
|
getmbcalfile( /* load macbethcal file */ |
228 |
|
char *fn, |
229 |
< |
register struct mbc *mb |
229 |
> |
struct mbc *mb |
230 |
|
) |
231 |
|
{ |
232 |
|
char buf[128]; |
233 |
|
FILE *fp; |
234 |
|
int inpflags = 0; |
235 |
< |
register int i; |
235 |
> |
int i; |
236 |
|
|
237 |
|
if ((fp = fopen(fn, "r")) == NULL) |
238 |
|
syserror(fn); |