ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rmain.c
Revision: 2.29
Committed: Fri Sep 3 11:52:54 1993 UTC (31 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.28: +1 -2 lines
Log Message: 
got rid of fatuous NOPERS macro

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