ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rmain.c
Revision: 2.31
Committed: Thu Nov 18 09:22:50 1993 UTC (31 years, 5 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.30: +5 -5 lines
Log Message: 
fixed time declaration and use

File Contents

# User Rev Content
1 greg 2.20 /* Copyright (c) 1993 Regents of the University of California */
2 greg 1.1
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ LBL";
5     #endif
6    
7     /*
8     * rmain.c - main for ray tracing programs
9     *
10     * 3/24/87
11     */
12    
13     /* for flaky pre-processors */
14 greg 2.10 #ifndef RPICT
15     #define RPICT 0
16 greg 1.1 #endif
17 greg 2.10 #ifndef RTRACE
18     #define RTRACE 0
19 greg 1.1 #endif
20 greg 2.10 #ifndef RVIEW
21     #define RVIEW 0
22 greg 1.1 #endif
23    
24     #include "ray.h"
25    
26 greg 1.50 #include "resolu.h"
27    
28 greg 1.1 #include "octree.h"
29    
30     #include <signal.h>
31    
32     #include "view.h"
33    
34 greg 2.10 #include "paths.h"
35 greg 2.23 /* persistent processes define */
36     #ifdef F_SETLKW
37     #if RPICT|RTRACE
38 greg 2.27 #define PERSIST 1 /* normal persist */
39     #define PARALLEL 2 /* parallel persist */
40     #define PCHILD 3 /* child of normal persist */
41 greg 2.23 #endif
42     #endif
43 greg 1.1
44     char *progname; /* argv[0] */
45    
46 greg 1.19 char *octname; /* octree name */
47    
48 greg 1.1 char *libpath; /* library directory list */
49    
50     char *sigerr[NSIG]; /* signal error messages */
51    
52 greg 1.46 extern char VersionID[]; /* version ID string */
53    
54 greg 1.1 extern int stderr_v(); /* standard error output */
55     int (*errvec)() = stderr_v; /* error output vector */
56     int (*wrnvec)() = stderr_v; /* warning output vector */
57     int (*cmdvec)() = NULL; /* command error vector */
58    
59     int (*trace)() = NULL; /* trace call */
60 greg 1.36 int do_irrad = 0; /* compute irradiance? */
61 greg 1.1
62 greg 2.31 extern unsigned long time();
63     unsigned long tstart; /* start time */
64 greg 1.34
65 greg 1.24 extern int ambnotify(); /* new object notify functions */
66 greg 2.25 #if RTRACE
67     extern int tranotify();
68     int (*addobjnotify[])() = {ambnotify, tranotify, NULL};
69     extern char *tralist[]; /* trace include/exclude list */
70     extern int traincl; /* include == 1, exclude == 0 */
71     #else
72 greg 1.24 int (*addobjnotify[])() = {ambnotify, NULL};
73 greg 2.25 #endif
74 greg 1.24
75 greg 1.1 CUBE thescene; /* our scene */
76 greg 2.10 OBJECT nsceneobjs; /* number of objects in our scene */
77 greg 1.1
78 greg 2.24 extern unsigned long raynum, nrays; /* ray counts */
79 greg 2.22
80 greg 1.36 extern int imm_irrad; /* calculate immediate irradiance? */
81    
82 greg 1.1 extern int ralrm; /* seconds between reports */
83    
84     extern int greyscale; /* map colors to brightness? */
85     extern char *devname; /* output device name */
86 greg 2.30 extern double exposure; /* exposure compensation */
87 greg 1.1
88 greg 2.8 extern char *formstr(); /* string from format */
89 greg 1.1 extern int inform; /* input format */
90     extern int outform; /* output format */
91     extern char *outvals; /* output values */
92    
93     extern VIEW ourview; /* viewing parameters */
94    
95 greg 2.28 extern char rifname[]; /* rad input file name */
96    
97 greg 1.1 extern int hresolu; /* horizontal resolution */
98     extern int vresolu; /* vertical resolution */
99 greg 1.22 extern double pixaspect; /* pixel aspect ratio */
100 greg 1.1
101     extern int psample; /* pixel sample size */
102     extern double maxdiff; /* max. sample difference */
103 greg 1.11 extern double dstrpix; /* square pixel distribution */
104 greg 1.1
105     extern double dstrsrc; /* square source distribution */
106 greg 1.11 extern double shadthresh; /* shadow threshold */
107 greg 1.15 extern double shadcert; /* shadow testing certainty */
108 greg 1.39 extern int directrelay; /* number of source relays */
109 greg 1.40 extern int vspretest; /* virtual source pretest density */
110 greg 2.17 extern int directvis; /* light sources visible to eye? */
111 greg 1.47 extern double srcsizerat; /* maximum source size/dist. ratio */
112 greg 1.1
113 greg 2.4 extern double specthresh; /* specular sampling threshold */
114     extern double specjitter; /* specular sampling jitter */
115    
116 greg 1.1 extern int maxdepth; /* maximum recursion depth */
117     extern double minweight; /* minimum ray weight */
118    
119     extern COLOR ambval; /* ambient value */
120     extern double ambacc; /* ambient accuracy */
121     extern int ambres; /* ambient resolution */
122     extern int ambdiv; /* ambient divisions */
123     extern int ambssamp; /* ambient super-samples */
124     extern int ambounce; /* ambient bounces */
125     extern char *amblist[]; /* ambient include/exclude list */
126     extern int ambincl; /* include == 1, exclude == 0 */
127    
128    
129     main(argc, argv)
130     int argc;
131     char *argv[];
132     {
133 greg 2.10 #define check(ol,al) if (argv[i][ol] || \
134 greg 1.49 badarg(argc-i-1,argv+i+1,al)) \
135     goto badopt
136 greg 2.10 #define bool(olen,var) switch (argv[i][olen]) { \
137 greg 1.43 case '\0': var = !var; break; \
138     case 'y': case 'Y': case 't': case 'T': \
139     case '+': case '1': var = 1; break; \
140     case 'n': case 'N': case 'f': case 'F': \
141     case '-': case '0': var = 0; break; \
142     default: goto badopt; }
143 greg 1.1 char *err;
144     char *recover = NULL;
145 greg 2.7 char *outfile = NULL;
146 greg 1.20 char *zfile = NULL;
147 greg 1.1 char *errfile = NULL;
148     char *ambfile = NULL;
149     int loadflags = ~IO_FILES;
150 greg 2.7 int seqstart = 0;
151 greg 2.29 int persist = 0;
152 greg 2.25 char **amblp;
153     char **tralp;
154 greg 2.18 int duped1;
155 greg 2.7 int rval;
156 greg 1.1 int i;
157 greg 1.34 /* record start time */
158 greg 2.31 tstart = time((unsigned long *)NULL);
159 greg 1.1 /* global program name */
160 greg 2.11 progname = argv[0] = fixargv0(argv[0]);
161 greg 1.1 /* get library path */
162     if ((libpath = getenv(ULIBVAR)) == NULL)
163     libpath = DEFPATH;
164 greg 1.31 /* initialize object types */
165     initotypes();
166 greg 1.37 /* initialize urand */
167 greg 1.41 initurand(2048);
168 greg 1.10 /* option city */
169 greg 2.12 for (i = 1; i < argc; i++) {
170 greg 2.13 /* expand arguments */
171     while (rval = expandarg(&argc, &argv, i))
172     if (rval < 0) {
173     sprintf(errmsg, "cannot expand '%s'", argv[i]);
174     error(SYSTEM, errmsg);
175     }
176 greg 2.15 if (argv[i] == NULL || argv[i][0] != '-')
177 greg 2.12 break; /* break from options */
178 greg 1.46 if (!strcmp(argv[i], "-version")) {
179     puts(VersionID);
180     quit(0);
181     }
182 greg 1.18 if (!strcmp(argv[i], "-defaults") ||
183     !strcmp(argv[i], "-help")) {
184 greg 1.1 printdefaults();
185     quit(0);
186     }
187     #if RVIEW
188     if (!strcmp(argv[i], "-devices")) {
189     printdevices();
190     quit(0);
191     }
192     #endif
193 greg 1.21 #if RPICT|RVIEW
194     rval = getviewopt(&ourview, argc-i, argv+i);
195     if (rval >= 0) {
196     i += rval;
197     continue;
198     }
199     #endif
200 greg 1.1 switch (argv[i][1]) {
201     #if RPICT|RVIEW
202 greg 1.21 case 'v': /* view file */
203     if (argv[i][2] != 'f')
204 greg 1.10 goto badopt;
205 greg 1.49 check(3,"s");
206 greg 1.50 rval = viewfile(argv[++i], &ourview, NULL);
207 greg 1.21 if (rval < 0) {
208     sprintf(errmsg,
209     "cannot open view file \"%s\"",
210     argv[i]);
211     error(SYSTEM, errmsg);
212     } else if (rval == 0) {
213     sprintf(errmsg,
214     "bad view file \"%s\"",
215     argv[i]);
216     error(USER, errmsg);
217 greg 2.7 }
218 greg 1.1 break;
219     #endif
220 greg 1.11 case 'd': /* direct */
221 greg 1.1 switch (argv[i][2]) {
222 greg 1.13 case 't': /* threshold */
223 greg 1.49 check(3,"f");
224 greg 1.11 shadthresh = atof(argv[++i]);
225 greg 1.1 break;
226 greg 1.15 case 'c': /* certainty */
227 greg 1.49 check(3,"f");
228 greg 1.15 shadcert = atof(argv[++i]);
229     break;
230 greg 1.11 case 'j': /* jitter */
231 greg 1.49 check(3,"f");
232 greg 1.1 dstrsrc = atof(argv[++i]);
233     break;
234 greg 1.47 case 'r': /* relays */
235 greg 1.49 check(3,"i");
236 greg 1.39 directrelay = atoi(argv[++i]);
237     break;
238 greg 1.47 case 'p': /* pretest */
239 greg 1.49 check(3,"i");
240 greg 1.40 vspretest = atoi(argv[++i]);
241 greg 1.42 break;
242 greg 2.17 case 'v': /* visibility */
243     bool(3,directvis);
244 greg 1.40 break;
245 greg 1.47 case 's': /* size */
246 greg 1.49 check(3,"f");
247 greg 1.47 srcsizerat = atof(argv[++i]);
248     break;
249 greg 1.1 default:
250 greg 1.10 goto badopt;
251 greg 1.1 }
252     break;
253 greg 2.4 case 's': /* specular */
254     switch (argv[i][2]) {
255     case 't': /* threshold */
256     check(3,"f");
257     specthresh = atof(argv[++i]);
258     break;
259     case 'j': /* jitter */
260     check(3,"f");
261     specjitter = atof(argv[++i]);
262     break;
263     default:
264     goto badopt;
265     }
266     break;
267 greg 1.1 #if RPICT|RVIEW
268 greg 2.4 case 'p': /* pixel */
269 greg 1.1 switch (argv[i][2]) {
270 greg 2.4 case 's': /* sample */
271 greg 1.49 check(3,"i");
272 greg 1.1 psample = atoi(argv[++i]);
273     break;
274 greg 1.13 case 't': /* threshold */
275 greg 1.49 check(3,"f");
276 greg 1.1 maxdiff = atof(argv[++i]);
277     break;
278 greg 1.11 #if RPICT
279     case 'j': /* jitter */
280 greg 1.49 check(3,"f");
281 greg 1.11 dstrpix = atof(argv[++i]);
282     break;
283 greg 2.4 case 'a': /* aspect */
284     check(3,"f");
285     pixaspect = atof(argv[++i]);
286     break;
287 greg 1.11 #endif
288 greg 2.30 #if RVIEW
289     case 'e': /* exposure */
290     check(3,"f");
291     exposure = atof(argv[++i]);
292     if (argv[i][0] == '+' || argv[i][0] == '-')
293     exposure = pow(2.0, exposure);
294     break;
295     #endif
296 greg 1.1 default:
297 greg 1.10 goto badopt;
298 greg 1.1 }
299     break;
300     #endif
301 greg 1.22 #if RPICT|RTRACE
302 greg 1.1 case 'x': /* x resolution */
303 greg 1.49 check(2,"i");
304 greg 1.1 hresolu = atoi(argv[++i]);
305     break;
306     case 'y': /* y resolution */
307 greg 1.49 check(2,"i");
308 greg 1.1 vresolu = atoi(argv[++i]);
309     break;
310 greg 1.22 #endif
311 greg 1.1 case 'w': /* warnings */
312 greg 1.43 rval = wrnvec != NULL;
313     bool(2,rval);
314 greg 2.6 if (rval) wrnvec = stderr_v;
315     else wrnvec = NULL;
316 greg 1.1 break;
317     case 'e': /* error file */
318 greg 1.49 check(2,"s");
319 greg 1.1 errfile = argv[++i];
320     break;
321     case 'l': /* limit */
322     switch (argv[i][2]) {
323     case 'r': /* recursion */
324 greg 1.49 check(3,"i");
325 greg 1.1 maxdepth = atoi(argv[++i]);
326     break;
327     case 'w': /* weight */
328 greg 1.49 check(3,"f");
329 greg 1.1 minweight = atof(argv[++i]);
330     break;
331     default:
332 greg 1.10 goto badopt;
333 greg 1.1 }
334     break;
335 greg 1.36 case 'i': /* irradiance */
336 greg 1.43 bool(2,do_irrad);
337 greg 1.36 break;
338 greg 1.1 #if RPICT
339 greg 2.7 case 'S': /* slave index */
340     check(2,"i");
341     seqstart = atoi(argv[++i]);
342     break;
343     case 'o': /* output file */
344     check(2,"s");
345     outfile = argv[++i];
346     break;
347 greg 1.20 case 'z': /* z file */
348 greg 1.49 check(2,"s");
349 greg 1.20 zfile = argv[++i];
350     break;
351 greg 1.1 case 'r': /* recover file */
352 greg 2.16 if (argv[i][2] == 'o') { /* +output */
353     check(3,"s");
354     outfile = argv[i+1];
355     } else
356     check(2,"s");
357 greg 1.1 recover = argv[++i];
358     break;
359     case 't': /* timer */
360 greg 1.49 check(2,"i");
361 greg 1.1 ralrm = atoi(argv[++i]);
362     break;
363     #endif
364     case 'a': /* ambient */
365     switch (argv[i][2]) {
366     case 'v': /* value */
367 greg 1.49 check(3,"fff");
368 greg 1.1 setcolor(ambval, atof(argv[i+1]),
369     atof(argv[i+2]),
370     atof(argv[i+3]));
371     i += 3;
372     break;
373     case 'a': /* accuracy */
374 greg 1.49 check(3,"f");
375 greg 1.1 ambacc = atof(argv[++i]);
376     break;
377     case 'r': /* resolution */
378 greg 1.49 check(3,"i");
379 greg 1.1 ambres = atoi(argv[++i]);
380     break;
381     case 'd': /* divisions */
382 greg 1.49 check(3,"i");
383 greg 1.1 ambdiv = atoi(argv[++i]);
384     break;
385     case 's': /* super-samp */
386 greg 1.49 check(3,"i");
387 greg 1.1 ambssamp = atoi(argv[++i]);
388     break;
389     case 'b': /* bounces */
390 greg 1.49 check(3,"i");
391 greg 1.1 ambounce = atoi(argv[++i]);
392     break;
393     case 'i': /* include */
394 greg 2.5 case 'I':
395 greg 1.49 check(3,"s");
396 greg 1.1 if (ambincl != 1) {
397     ambincl = 1;
398     amblp = amblist;
399     }
400 greg 2.5 if (argv[i][2] == 'I') { /* file */
401 greg 2.13 rval = wordfile(amblp,
402     getpath(argv[++i],libpath,R_OK));
403 greg 2.5 if (rval < 0) {
404     sprintf(errmsg,
405     "cannot open ambient include file \"%s\"",
406     argv[i]);
407     error(SYSTEM, errmsg);
408     }
409     amblp += rval;
410 greg 2.25 } else {
411 greg 2.5 *amblp++ = argv[++i];
412 greg 2.25 *amblp = NULL;
413     }
414 greg 1.1 break;
415     case 'e': /* exclude */
416 greg 2.5 case 'E':
417 greg 1.49 check(3,"s");
418 greg 1.1 if (ambincl != 0) {
419     ambincl = 0;
420     amblp = amblist;
421     }
422 greg 2.5 if (argv[i][2] == 'E') { /* file */
423 greg 2.13 rval = wordfile(amblp,
424     getpath(argv[++i],libpath,R_OK));
425 greg 2.5 if (rval < 0) {
426     sprintf(errmsg,
427     "cannot open ambient exclude file \"%s\"",
428     argv[i]);
429     error(SYSTEM, errmsg);
430     }
431     amblp += rval;
432 greg 2.25 } else {
433 greg 2.5 *amblp++ = argv[++i];
434 greg 2.25 *amblp = NULL;
435     }
436 greg 1.1 break;
437     case 'f': /* file */
438 greg 1.49 check(3,"s");
439 greg 1.1 ambfile= argv[++i];
440     break;
441     default:
442 greg 1.10 goto badopt;
443 greg 1.1 }
444     break;
445     #if RTRACE
446 greg 1.36 case 'I': /* immed. irradiance */
447 greg 1.43 bool(2,imm_irrad);
448 greg 1.36 break;
449 greg 1.1 case 'f': /* format i/o */
450     switch (argv[i][2]) {
451     case 'a': /* ascii */
452     case 'f': /* float */
453     case 'd': /* double */
454     inform = argv[i][2];
455     break;
456     default:
457 greg 1.10 goto badopt;
458 greg 1.1 }
459     switch (argv[i][3]) {
460     case '\0':
461     outform = inform;
462     break;
463     case 'a': /* ascii */
464     case 'f': /* float */
465     case 'd': /* double */
466 greg 2.7 case 'c': /* color */
467 greg 1.49 check(4,"");
468 greg 1.1 outform = argv[i][3];
469     break;
470     default:
471 greg 1.10 goto badopt;
472 greg 1.1 }
473     break;
474     case 'o': /* output */
475     outvals = argv[i]+2;
476     break;
477 greg 1.44 case 'h': /* header output */
478     rval = loadflags & IO_INFO;
479     bool(2,rval);
480     loadflags = rval ? loadflags | IO_INFO :
481     loadflags & ~IO_INFO;
482 greg 1.1 break;
483 greg 2.25 case 't': /* trace */
484     switch (argv[i][2]) {
485     case 'i': /* include */
486     case 'I':
487     check(3,"s");
488     if (traincl != 1) {
489     traincl = 1;
490     tralp = tralist;
491     }
492     if (argv[i][2] == 'I') { /* file */
493     rval = wordfile(tralp,
494     getpath(argv[++i],libpath,R_OK));
495     if (rval < 0) {
496     sprintf(errmsg,
497     "cannot open trace include file \"%s\"",
498     argv[i]);
499     error(SYSTEM, errmsg);
500     }
501     tralp += rval;
502     } else {
503     *tralp++ = argv[++i];
504     *tralp = NULL;
505     }
506     break;
507     case 'e': /* exclude */
508     case 'E':
509     check(3,"s");
510     if (traincl != 0) {
511     traincl = 0;
512     tralp = tralist;
513     }
514     if (argv[i][2] == 'E') { /* file */
515     rval = wordfile(tralp,
516     getpath(argv[++i],libpath,R_OK));
517     if (rval < 0) {
518     sprintf(errmsg,
519     "cannot open trace exclude file \"%s\"",
520     argv[i]);
521     error(SYSTEM, errmsg);
522     }
523     tralp += rval;
524     } else {
525     *tralp++ = argv[++i];
526     *tralp = NULL;
527     }
528     break;
529     default:
530     goto badopt;
531     }
532     break;
533 greg 1.1 #endif
534     #if RVIEW
535     case 'b': /* black and white */
536 greg 1.49 bool(2,greyscale);
537 greg 1.1 break;
538     case 'o': /* output device */
539 greg 1.49 check(2,"s");
540 greg 1.1 devname = argv[++i];
541 greg 2.28 break;
542     case 'R': /* render input file */
543     check(2,"s");
544     strcpy(rifname, argv[++i]);
545 greg 1.1 break;
546     #endif
547 greg 2.18 #ifdef PERSIST
548     case 'P': /* persist file */
549     if (argv[i][2] == 'P') {
550     check(3,"s");
551 greg 2.27 persist = PARALLEL;
552 greg 2.18 } else {
553     check(2,"s");
554 greg 2.27 persist = PERSIST;
555 greg 2.18 }
556     persistfile(argv[++i]);
557     break;
558     #endif
559 greg 1.1 default:
560 greg 1.19 goto badopt;
561 greg 1.1 }
562     }
563     #if RPICT|RVIEW
564     err = setview(&ourview); /* set viewing parameters */
565     if (err != NULL)
566     error(USER, err);
567     #endif
568     /* set up signal handling */
569     sigdie(SIGINT, "Interrupt");
570     sigdie(SIGHUP, "Hangup");
571     sigdie(SIGTERM, "Terminate");
572     sigdie(SIGPIPE, "Broken pipe");
573 greg 1.45 sigdie(SIGALRM, "Alarm clock");
574 greg 2.10 #ifdef SIGXCPU
575 greg 1.1 sigdie(SIGXCPU, "CPU limit exceeded");
576     sigdie(SIGXFSZ, "File size exceeded");
577     #endif
578     /* open error file */
579     if (errfile != NULL) {
580     if (freopen(errfile, "a", stderr) == NULL)
581 greg 1.14 quit(2);
582 greg 1.1 fprintf(stderr, "**************\n*** PID %5d: ",
583     getpid());
584     printargs(argc, argv, stderr);
585 greg 2.12 putc('\n', stderr);
586 greg 1.1 fflush(stderr);
587     }
588 greg 2.10 #ifdef NICE
589 greg 1.1 nice(NICE); /* lower priority */
590     #endif
591 greg 1.19 /* get octree */
592 greg 1.1 #if RVIEW
593     loadflags &= ~IO_INFO;
594     #endif
595     if (i == argc)
596 greg 1.19 octname = NULL;
597     else if (i == argc-1)
598     octname = argv[i];
599 greg 1.1 else
600 greg 1.19 goto badopt;
601 greg 2.7 if (
602     #if RPICT
603     seqstart > 0 &&
604     #endif
605     octname == NULL)
606 greg 1.19 error(USER, "missing octree argument");
607 greg 2.26 /* set up output */
608 greg 2.18 #ifdef PERSIST
609     if (persist) {
610 greg 2.7 #if RPICT
611 greg 2.26 if (recover != NULL)
612     error(USER, "persist option used with recover file");
613 greg 2.18 if (seqstart <= 0)
614     error(USER, "persist option only for sequences");
615 greg 2.26 if (outfile == NULL)
616 greg 2.18 #endif
617     duped1 = dup(fileno(stdout)); /* don't lose our output */
618     openheader();
619     }
620     #if RPICT
621 greg 2.27 else
622     #endif
623     #endif
624     #if RPICT
625 greg 2.7 if (outfile != NULL)
626     openheader();
627 greg 1.1 #endif
628 greg 2.10 #ifdef MSDOS
629     #if RTRACE
630     if (outform != 'a')
631     #endif
632     setmode(fileno(stdout), O_BINARY);
633     if (octname == NULL)
634     setmode(fileno(stdin), O_BINARY);
635     #endif
636 greg 1.19 readoct(octname, loadflags, &thescene, NULL);
637 greg 2.9 nsceneobjs = nobjects;
638 greg 1.1
639     if (loadflags & IO_INFO) { /* print header */
640     printargs(i, argv, stdout);
641 greg 1.46 printf("SOFTWARE= %s\n", VersionID);
642 greg 2.8 #if RTRACE
643     fputformat(formstr(outform), stdout);
644     putchar('\n');
645     #endif
646 greg 1.1 }
647    
648     marksources(); /* find and mark sources */
649    
650 greg 1.24 setambient(ambfile); /* initialize ambient calculation */
651 greg 1.1
652 greg 2.18 #ifdef PERSIST
653     if (persist) {
654 greg 2.26 fflush(stdout);
655     if (outfile == NULL) { /* reconnect stdout */
656     dup2(duped1, fileno(stdout));
657     close(duped1);
658     }
659 greg 2.27 if (persist == PARALLEL) { /* multiprocessing */
660 greg 2.18 preload_objs(); /* preload scene */
661     while ((rval=fork()) == 0) { /* keep on forkin' */
662     pflock(1);
663     pfhold();
664 greg 2.31 tstart = time((unsigned long *)NULL);
665 greg 2.18 }
666     if (rval < 0)
667     error(SYSTEM, "cannot fork child for persist function");
668 greg 2.27 pfdetach(); /* parent exits */
669 greg 2.18 }
670     }
671     runagain:
672 greg 2.27 if (persist)
673     if (outfile == NULL) /* if out to stdout */
674     dupheader(); /* send header */
675     else /* if out to file */
676     duped1 = dup(fileno(stdout)); /* hang onto pipe */
677 greg 2.18 #endif
678 greg 1.1 #if RPICT
679 greg 2.7 rpict(seqstart, outfile, zfile, recover);
680 greg 1.1 #endif
681     #if RTRACE
682 greg 2.8 rtrace(NULL);
683 greg 1.1 #endif
684     #if RVIEW
685 greg 2.8 rview();
686 greg 2.18 #endif
687 greg 2.21 ambsync(); /* flush ambient file */
688 greg 2.18 #ifdef PERSIST
689 greg 2.27 if (persist == PERSIST) { /* first run-through */
690 greg 2.20 if ((rval=fork()) == 0) { /* child loops until killed */
691     pflock(1);
692 greg 2.27 persist = PCHILD;
693 greg 2.20 } else { /* original process exits */
694     if (rval < 0)
695     error(SYSTEM, "cannot fork child for persist function");
696 greg 2.27 pfdetach(); /* parent exits */
697 greg 2.20 }
698     }
699 greg 2.27 if (persist == PCHILD) { /* wait for a signal then go again */
700     if (outfile != NULL)
701     close(duped1); /* release output handle */
702 greg 2.20 pfhold();
703 greg 2.31 tstart = time((unsigned long *)NULL); /* reinitialize */
704 greg 2.22 raynum = nrays = 0;
705 greg 2.18 goto runagain;
706     }
707 greg 1.1 #endif
708     quit(0);
709 greg 1.19
710     badopt:
711     sprintf(errmsg, "command line error at '%s'", argv[i]);
712     error(USER, errmsg);
713    
714 greg 2.10 #undef check
715     #undef bool
716 greg 1.1 }
717    
718    
719     eputs(s) /* error output */
720     char *s;
721     {
722     if (errvec != NULL)
723     (*errvec)(s);
724     }
725    
726    
727     wputs(s) /* warning output */
728     char *s;
729     {
730 greg 2.3 int lasterrno = errno; /* save errno */
731    
732 greg 1.1 if (wrnvec != NULL)
733     (*wrnvec)(s);
734 greg 2.3
735     errno = lasterrno;
736 greg 1.1 }
737    
738    
739     cputs(s) /* command error output */
740     char *s;
741     {
742     if (cmdvec != NULL)
743     (*cmdvec)(s);
744     }
745    
746    
747     stderr_v(s) /* put string to stderr */
748     register char *s;
749     {
750 greg 1.26 static int midline = 0;
751 greg 1.1
752 greg 1.27 if (!*s)
753     return;
754 greg 1.26 if (!midline++) {
755 greg 1.1 fputs(progname, stderr);
756     fputs(": ", stderr);
757     }
758     fputs(s, stderr);
759 greg 1.27 if (s[strlen(s)-1] == '\n') {
760 greg 1.1 fflush(stderr);
761 greg 1.26 midline = 0;
762 greg 1.1 }
763     }
764    
765    
766     onsig(signo) /* fatal signal */
767     int signo;
768     {
769 greg 1.8 static int gotsig = 0;
770    
771     if (gotsig++) /* two signals and we're gone! */
772 greg 1.9 _exit(signo);
773 greg 1.8
774 greg 1.48 alarm(15); /* allow 15 seconds to clean up */
775     signal(SIGALRM, SIG_DFL); /* make certain we do die */
776 greg 1.1 eputs("signal - ");
777     eputs(sigerr[signo]);
778     eputs("\n");
779 greg 1.14 quit(3);
780 greg 1.1 }
781    
782    
783     sigdie(signo, msg) /* set fatal signal */
784     int signo;
785     char *msg;
786     {
787     if (signal(signo, onsig) == SIG_IGN)
788     signal(signo, SIG_IGN);
789     sigerr[signo] = msg;
790     }
791    
792    
793     printdefaults() /* print default values to stdout */
794     {
795     register char *cp;
796    
797 greg 1.43 #if RTRACE
798     if (imm_irrad)
799     printf("-I+\t\t\t\t# immediate irradiance on\n");
800     else
801     #endif
802     printf(do_irrad ? "-i+\t\t\t\t# irradiance calculation on\n" :
803     "-i-\t\t\t\t# irradiance calculation off\n");
804 greg 1.49 #if RVIEW
805     printf(greyscale ? "-b+\t\t\t\t# greyscale on\n" :
806     "-b-\t\t\t\t# greyscale off\n");
807     #endif
808 greg 1.1 #if RPICT|RVIEW
809 greg 1.7 printf("-vt%c\t\t\t\t# view type %s\n", ourview.type,
810 greg 1.1 ourview.type==VT_PER ? "perspective" :
811     ourview.type==VT_PAR ? "parallel" :
812 greg 1.28 ourview.type==VT_HEM ? "hemispherical" :
813     ourview.type==VT_ANG ? "angular" :
814 greg 1.1 "unknown");
815     printf("-vp %f %f %f\t# view point\n",
816     ourview.vp[0], ourview.vp[1], ourview.vp[2]);
817 greg 2.11 printf("-vd %f %f %f\t# view direction\n",
818 greg 1.1 ourview.vdir[0], ourview.vdir[1], ourview.vdir[2]);
819 greg 2.11 printf("-vu %f %f %f\t# view up\n",
820 greg 1.1 ourview.vup[0], ourview.vup[1], ourview.vup[2]);
821     printf("-vh %f\t\t\t# view horizontal size\n", ourview.horiz);
822     printf("-vv %f\t\t\t# view vertical size\n", ourview.vert);
823 greg 1.22 printf("-vs %f\t\t\t# view shift\n", ourview.hoff);
824     printf("-vl %f\t\t\t# view lift\n", ourview.voff);
825 greg 1.1 #endif
826 greg 1.22 #if RPICT|RTRACE
827 greg 1.1 printf("-x %-9d\t\t\t# x resolution\n", hresolu);
828     printf("-y %-9d\t\t\t# y resolution\n", vresolu);
829 greg 1.22 #endif
830     #if RPICT
831 greg 2.4 printf("-pa %f\t\t\t# pixel aspect ratio\n", pixaspect);
832     printf("-pj %f\t\t\t# pixel jitter\n", dstrpix);
833 greg 2.30 #endif
834     #if RVIEW
835     printf("-pe %f\t\t\t# pixel exposure\n", exposure);
836 greg 1.22 #endif
837 greg 1.1 #if RPICT|RVIEW
838 greg 2.4 printf("-ps %-9d\t\t\t# pixel sample\n", psample);
839     printf("-pt %f\t\t\t# pixel threshold\n", maxdiff);
840 greg 1.22 #endif
841 greg 1.29 printf("-dt %f\t\t\t# direct threshold\n", shadthresh);
842     printf("-dc %f\t\t\t# direct certainty\n", shadcert);
843     printf("-dj %f\t\t\t# direct jitter\n", dstrsrc);
844 greg 1.47 printf("-ds %f\t\t\t# direct sampling\n", srcsizerat);
845 greg 1.39 printf("-dr %-9d\t\t\t# direct relays\n", directrelay);
846 greg 1.40 printf("-dp %-9d\t\t\t# direct pretest density\n", vspretest);
847 greg 2.17 printf(directvis ? "-dv+\t\t\t\t# direct visibility on\n" :
848     "-dv-\t\t\t\t# direct visibility off\n");
849 greg 2.4 printf("-sj %f\t\t\t# specular jitter\n", specjitter);
850     printf("-st %f\t\t\t# specular threshold\n", specthresh);
851 greg 1.1 printf("-av %f %f %f\t# ambient value\n", colval(ambval,RED),
852     colval(ambval,GRN), colval(ambval, BLU));
853     printf("-ab %-9d\t\t\t# ambient bounces\n", ambounce);
854     printf("-aa %f\t\t\t# ambient accuracy\n", ambacc);
855     printf("-ar %-9d\t\t\t# ambient resolution\n", ambres);
856     printf("-ad %-9d\t\t\t# ambient divisions\n", ambdiv);
857     printf("-as %-9d\t\t\t# ambient super-samples\n", ambssamp);
858     printf("-lr %-9d\t\t\t# limit reflection\n", maxdepth);
859     printf("-lw %f\t\t\t# limit weight\n", minweight);
860     #if RPICT
861     printf("-t %-9d\t\t\t# time between reports\n", ralrm);
862     #endif
863     #if RVIEW
864     printf("-o %s\t\t\t\t# output device\n", devname);
865     #endif
866     #if RTRACE
867     printf("-f%c%c\t\t\t\t# format input/output = %s/%s\n",
868 greg 2.7 inform, outform, formstr(inform), formstr(outform));
869 greg 1.1 printf("-o%s\t\t\t\t# output", outvals);
870     for (cp = outvals; *cp; cp++)
871     switch (*cp) {
872     case 't': printf(" trace"); break;
873     case 'o': printf(" origin"); break;
874     case 'd': printf(" direction"); break;
875     case 'v': printf(" value"); break;
876     case 'l': printf(" length"); break;
877 greg 2.14 case 'L': printf(" first_length"); break;
878 greg 1.1 case 'p': printf(" point"); break;
879     case 'n': printf(" normal"); break;
880 greg 2.14 case 'N': printf(" unperturbed_normal"); break;
881 greg 1.1 case 's': printf(" surface"); break;
882     case 'w': printf(" weight"); break;
883     case 'm': printf(" modifier"); break;
884     }
885 greg 2.7 putchar('\n');
886 greg 1.1 #endif
887 greg 1.43 printf(wrnvec != NULL ? "-w+\t\t\t\t# warning messages on\n" :
888     "-w-\t\t\t\t# warning messages off\n");
889 greg 1.1 }