31 |
|
|
32 |
|
int nfiles; /* number of input files */ |
33 |
|
|
34 |
+ |
VIEW commvw; /* common view parameters */ |
35 |
+ |
|
36 |
|
char ourfmt[LPICFMT+1] = PICFMT; /* input picture format */ |
37 |
|
|
38 |
|
char StandardInput[] = "<stdin>"; |
98 |
|
int original; |
99 |
|
double f; |
100 |
|
int a; |
101 |
+ |
|
102 |
|
SET_DEFAULT_BINARY(); |
103 |
|
SET_FILE_BINARY(stdin); |
104 |
|
SET_FILE_BINARY(stdout); |
105 |
|
progname = argv[0]; |
106 |
+ |
esupport |= E_VARIABLE|E_FUNCTION|E_RCONST; |
107 |
+ |
esupport &= ~(E_OUTCHAN|E_INCHAN); |
108 |
|
/* scan options */ |
109 |
|
for (a = 1; a < argc; a++) { |
110 |
|
if (argv[a][0] == '-') |
193 |
|
init(); /* set constants */ |
194 |
|
/* go back and get expressions */ |
195 |
|
for (a = 1; a < argc; a++) { |
196 |
+ |
char *fpath; |
197 |
|
if (argv[a][0] == '-') |
198 |
|
switch (argv[a][1]) { |
199 |
|
case 'x': |
207 |
|
case 'h': |
208 |
|
continue; |
209 |
|
case 'f': |
210 |
< |
fcompile(argv[++a]); |
210 |
> |
fpath = getpath(argv[++a], getrlibpath(), 0); |
211 |
> |
if (fpath == NULL) { |
212 |
> |
eputs(argv[0]); |
213 |
> |
eputs(": cannot find file '"); |
214 |
> |
eputs(argv[a]); |
215 |
> |
eputs("'\n"); |
216 |
> |
quit(1); |
217 |
> |
} |
218 |
> |
fcompile(fpath); |
219 |
|
continue; |
220 |
|
case 'e': |
221 |
|
scompile(argv[++a], NULL, 0); |
223 |
|
} |
224 |
|
break; |
225 |
|
} |
226 |
< |
/* set/get output resolution */ |
213 |
< |
if (!vardefined(vxres)) |
214 |
< |
varset(vxres, ':', (double)xmax); |
215 |
< |
if (!vardefined(vyres)) |
216 |
< |
varset(vyres, ':', (double)ymax); |
226 |
> |
/* get output resolution */ |
227 |
|
xres = varvalue(vxres) + .5; |
228 |
|
yres = varvalue(vyres) + .5; |
229 |
|
if (xres <= 0 || yres <= 0) { |
233 |
|
} |
234 |
|
/* complete header */ |
235 |
|
printargs(argc, argv, stdout); |
236 |
+ |
if (commvw.type) { |
237 |
+ |
fputs(VIEWSTR, stdout); |
238 |
+ |
fprintview(&commvw, stdout); |
239 |
+ |
fputc('\n', stdout); |
240 |
+ |
} |
241 |
|
if (strcmp(ourfmt, PICFMT)) |
242 |
|
fputformat(ourfmt, stdout); /* print format if known */ |
243 |
|
putchar('\n'); |
261 |
|
void *p |
262 |
|
) |
263 |
|
{ |
264 |
< |
char fmt[32]; |
264 |
> |
char fmt[MAXFMTLEN]; |
265 |
|
double d; |
266 |
|
COLOR ctmp; |
267 |
|
|
297 |
|
static void |
298 |
|
checkfile(void) /* ready a file */ |
299 |
|
{ |
300 |
< |
register int i; |
300 |
> |
int i; |
301 |
|
/* process header */ |
302 |
|
gotview = 0; |
303 |
|
if (echoheader) { |
316 |
|
} |
317 |
|
if (!gotview || setview(&input[nfiles].vw) != NULL) |
318 |
|
input[nfiles].vw.type = 0; |
319 |
+ |
else if (!commvw.type) |
320 |
+ |
commvw = input[nfiles].vw; |
321 |
|
if (!fgetsresolu(&input[nfiles].rs, input[nfiles].fp)) { |
322 |
|
eputs(input[nfiles].name); |
323 |
|
eputs(": bad picture size\n"); |
362 |
|
static void |
363 |
|
init(void) /* perform final setup */ |
364 |
|
{ |
365 |
< |
register int i; |
365 |
> |
int i; |
366 |
|
/* define constants */ |
367 |
|
varset("PI", ':', PI); |
368 |
|
varset(vnfiles, ':', (double)nfiles); |
385 |
|
ourbright = xyz_bright; |
386 |
|
} else |
387 |
|
varset(vwhteff, ':', WHTEFFICACY); |
388 |
+ |
/* these may be overridden */ |
389 |
+ |
varset(vxres, ':', (double)xmax); |
390 |
+ |
varset(vyres, ':', (double)ymax); |
391 |
|
} |
392 |
|
|
393 |
|
|
397 |
|
EPNODE *coldef[3], *brtdef; |
398 |
|
COLOR *scanout; |
399 |
|
double d; |
400 |
< |
register int i, j; |
400 |
> |
int i, j; |
401 |
|
/* check defined variables */ |
402 |
|
for (j = 0; j < 3; j++) { |
403 |
|
if (vardefined(vcolout[j])) |
454 |
|
advance(void) /* read in data for next scanline */ |
455 |
|
{ |
456 |
|
int ytarget; |
457 |
< |
register COLOR *st; |
458 |
< |
register int i, j; |
457 |
> |
COLOR *st; |
458 |
> |
int i, j; |
459 |
|
|
460 |
|
for (ytarget = (ypos+.5)*ymax/yres; yscan > ytarget; yscan--) |
461 |
|
for (i = 0; i < nfiles; i++) { |
524 |
|
|
525 |
|
static double |
526 |
|
l_colin( /* return color value for picture */ |
527 |
< |
register char *nam |
527 |
> |
char *nam |
528 |
|
) |
529 |
|
{ |
530 |
|
int fn; |
531 |
< |
register int n, xoff, yoff; |
531 |
> |
int n, xoff, yoff; |
532 |
|
double d; |
533 |
|
|
534 |
|
d = argument(1); |
583 |
|
|
584 |
|
static double |
585 |
|
l_ray( /* return ray origin or direction */ |
586 |
< |
register char *nam |
586 |
> |
char *nam |
587 |
|
) |
588 |
|
{ |
589 |
|
static unsigned long ltick[MAXINP]; |
592 |
|
RREAL loc[2]; |
593 |
|
double d; |
594 |
|
int fn; |
595 |
< |
register int i; |
595 |
> |
int i; |
596 |
|
|
597 |
|
d = argument(1); |
598 |
|
if (d <= -0.5 || d >= nfiles+0.5) { |
635 |
|
RREAL locx[2], locy[2]; |
636 |
|
double d; |
637 |
|
int fn; |
638 |
< |
register int i; |
638 |
> |
int i; |
639 |
|
|
640 |
|
d = argument(1); |
641 |
|
if (d <= -0.5 || d >= nfiles+0.5) { |
692 |
|
extern void |
693 |
|
quit(int code) /* exit gracefully */ |
694 |
|
{ |
695 |
< |
register int i; |
695 |
> |
int i; |
696 |
|
/* close input files */ |
697 |
|
for (i = 0; i < nfiles; i++) |
698 |
|
if (input[i].name == Command) |