ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rmain.c
Revision: 2.43
Committed: Mon Oct 20 16:41:36 1997 UTC (27 years, 7 months ago) by gregl
Content type: text/plain
Branch: MAIN
Changes since 2.42: +3 -3 lines
Log Message: 
added "mist" to -me option default listings

File Contents

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