ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rmain.c
Revision: 2.35
Committed: Wed Dec 21 09:51:52 1994 UTC (30 years, 5 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.34: +15 -3 lines
Log Message: 
added -bv option for back face visibility (normally on)

File Contents

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