ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rmain.c
Revision: 2.26
Committed: Fri Jul 30 12:09:37 1993 UTC (31 years, 9 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.25: +17 -8 lines
Log Message: 
made output option consistent with persist options for rpict

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