7 |
|
* 1/4/89 |
8 |
|
*/ |
9 |
|
|
10 |
– |
#include "standard.h" |
10 |
|
#include "platform.h" |
11 |
+ |
#include "rtprocess.h" |
12 |
+ |
#include "rterror.h" |
13 |
|
#include "color.h" |
14 |
|
#include "calcomp.h" |
15 |
|
#include "view.h" |
70 |
|
int wrongformat = 0; |
71 |
|
int gotview; |
72 |
|
|
72 |
– |
FILE *popen(); |
73 |
|
|
74 |
|
extern char *emalloc(); |
75 |
|
|
76 |
+ |
static gethfunc tabputs; |
77 |
|
|
78 |
|
main(argc, argv) |
79 |
|
int argc; |
110 |
|
for (nfiles = 0; nfiles < MAXINP; nfiles++) { |
111 |
|
setcolor(input[nfiles].coef, 1.0, 1.0, 1.0); |
112 |
|
setcolor(input[nfiles].expos, 1.0, 1.0, 1.0); |
113 |
< |
copystruct(&input[nfiles].vw, &stdview); |
113 |
> |
input[nfiles].vw = stdview; |
114 |
|
input[nfiles].pa = 1.0; |
115 |
|
} |
116 |
|
nfiles = 0; |
220 |
|
} |
221 |
|
|
222 |
|
|
223 |
< |
tabputs(s) /* put out string preceded by a tab */ |
224 |
< |
char *s; |
223 |
> |
static int |
224 |
> |
tabputs( /* put out string preceded by a tab */ |
225 |
> |
char *s, |
226 |
> |
void *p |
227 |
> |
) |
228 |
|
{ |
229 |
|
char fmt[32]; |
230 |
|
double d; |
316 |
|
|
317 |
|
init() /* perform final setup */ |
318 |
|
{ |
319 |
< |
double l_colin(), l_expos(), l_pixaspect(), l_ray(), l_psize(); |
319 |
> |
double l_colin(char *), l_expos(char *), l_pixaspect(char *), |
320 |
> |
l_ray(char *), l_psize(char *); |
321 |
|
register int i; |
322 |
|
/* define constants */ |
323 |
|
varset("PI", ':', PI); |
451 |
|
|
452 |
|
|
453 |
|
double |
454 |
< |
l_pixaspect() /* return pixel aspect ratio */ |
454 |
> |
l_pixaspect(char *nm) /* return pixel aspect ratio */ |
455 |
|
{ |
456 |
|
register int fn; |
457 |
|
|
523 |
|
static unsigned long ltick[MAXINP]; |
524 |
|
static FVECT lorg[MAXINP], ldir[MAXINP]; |
525 |
|
static double ldist[MAXINP]; |
526 |
< |
FLOAT loc[2]; |
526 |
> |
RREAL loc[2]; |
527 |
|
int fn; |
528 |
|
register int i; |
529 |
|
|
556 |
|
|
557 |
|
|
558 |
|
double |
559 |
< |
l_psize() /* compute pixel size in steradians */ |
559 |
> |
l_psize(char *nm) /* compute pixel size in steradians */ |
560 |
|
{ |
561 |
|
static unsigned long ltick[MAXINP]; |
562 |
|
static double psize[MAXINP]; |
563 |
|
FVECT dir0, org, dirx, diry; |
564 |
< |
FLOAT locx[2], locy[2]; |
564 |
> |
RREAL locx[2], locy[2]; |
565 |
|
double d; |
566 |
|
int fn; |
567 |
|
register int i; |
601 |
|
} |
602 |
|
|
603 |
|
|
604 |
< |
void |
605 |
< |
wputs(msg) |
601 |
< |
char *msg; |
604 |
> |
extern void |
605 |
> |
wputs(char *msg) |
606 |
|
{ |
607 |
|
if (!nowarn) |
608 |
|
eputs(msg); |
609 |
|
} |
610 |
|
|
611 |
|
|
612 |
< |
void |
613 |
< |
eputs(msg) |
610 |
< |
char *msg; |
612 |
> |
extern void |
613 |
> |
eputs(char *msg) |
614 |
|
{ |
615 |
|
fputs(msg, stderr); |
616 |
|
} |
617 |
|
|
618 |
|
|
619 |
< |
void |
620 |
< |
quit(code) /* exit gracefully */ |
618 |
< |
int code; |
619 |
> |
extern void |
620 |
> |
quit(int code) /* exit gracefully */ |
621 |
|
{ |
622 |
|
register int i; |
623 |
|
/* close input files */ |