ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rmain.c
Revision: 2.37
Committed: Fri Aug 18 10:27:08 1995 UTC (29 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.36: +1 -0 lines
Log Message: 
added cylindrical view type

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