ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/gen/mkillum.c
Revision: 1.7
Committed: Thu Jul 25 12:52:16 1991 UTC (32 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.6: +5 -4 lines
Log Message:
test debugging

File Contents

# User Rev Content
1 greg 1.1 /* Copyright (c) 1991 Regents of the University of California */
2    
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ LBL";
5     #endif
6    
7     /*
8     * Make illum sources for optimizing rendering process
9     */
10    
11 greg 1.2 #include "mkillum.h"
12 greg 1.1
13 greg 1.3 #include <signal.h>
14    
15 greg 1.2 #include <ctype.h>
16 greg 1.1
17     /* default parameters */
18     #define SAMPDENS 128 /* points per projected steradian */
19     #define NSAMPS 32 /* samples per point */
20     #define DFLMAT "illum_mat" /* material name */
21     /* selection options */
22     #define S_NONE 0 /* select none */
23     #define S_ELEM 1 /* select specified element */
24     #define S_COMPL 2 /* select all but element */
25     #define S_ALL 3 /* select all */
26    
27     /* rtrace command and defaults */
28 greg 1.4 char *rtargv[64] = { "rtrace", "-dj", ".25", "-dr", "3", "-di+",
29     "-ab", "2", "-ad", "256", "-as", "128", "-aa", ".15", };
30     int rtargc = 14;
31 greg 1.1 /* overriding rtrace options */
32 greg 1.4 char *myrtopts[] = { "-I-", "-i-", "-ov", "-h-", "-fff", NULL };
33 greg 1.1
34 greg 1.2 struct rtproc rt; /* our rtrace process */
35 greg 1.1
36 greg 1.2 struct illum_args thisillum = { /* our illum and default values */
37     0,
38     DFLMAT,
39     DFLMAT,
40     0,
41     VOIDID,
42 greg 1.3 SAMPDENS,
43 greg 1.2 NSAMPS,
44     };
45 greg 1.1
46     char matcheck[MAXSTR]; /* current material to include or exclude */
47     int matselect = S_ALL; /* selection criterion */
48    
49 greg 1.2 FUN ofun[NUMOTYPE] = INIT_OTYPE; /* object types */
50 greg 1.1
51     int gargc; /* global argc */
52     char **gargv; /* global argv */
53     #define progname gargv[0]
54    
55     int doneheader = 0; /* printed header yet? */
56 greg 1.2 #define checkhead() if (!doneheader++) printhead(gargc,gargv)
57 greg 1.1
58 greg 1.2 int warnings = 1; /* print warnings? */
59    
60 greg 1.1 extern char *fgetline(), *fgetword(), *sskip(),
61 greg 1.6 *atos(), *iskip(), *fskip(), *strcpy();
62 greg 1.1 extern FILE *popen();
63    
64    
65     main(argc, argv) /* compute illum distributions using rtrace */
66     int argc;
67     char *argv[];
68     {
69     extern char *getenv(), *getpath();
70     char *rtpath;
71 greg 1.3 FILE *fp;
72 greg 1.1 register int i;
73     /* set global arguments */
74 greg 1.3 gargv = argv;
75 greg 1.1 /* set up rtrace command */
76 greg 1.3 for (i = 1; i < argc; i++) {
77     if (argv[i][0] == '<' && !argv[i][1])
78     break;
79 greg 1.1 rtargv[rtargc++] = argv[i];
80 greg 1.2 if (argv[i][0] == '-' && argv[i][1] == 'w')
81     warnings = !warnings;
82     }
83 greg 1.3 if ((gargc = i) < 2)
84     error(USER, "too few arguments");
85     rtargc--;
86 greg 1.1 for (i = 0; myrtopts[i] != NULL; i++)
87     rtargv[rtargc++] = myrtopts[i];
88 greg 1.3 rtargv[rtargc++] = argv[gargc-1];
89 greg 1.1 rtargv[rtargc] = NULL;
90     /* just asking for defaults? */
91 greg 1.3 if (!strcmp(argv[gargc-1], "-defaults")) {
92 greg 1.1 rtpath = getpath(rtargv[0], getenv("PATH"), X_OK);
93     if (rtpath == NULL) {
94     eputs(rtargv[0]);
95     eputs(": command not found\n");
96     exit(1);
97     }
98     execv(rtpath, rtargv);
99     perror(rtpath);
100     exit(1);
101     }
102     /* else initialize and run our calculation */
103     init();
104 greg 1.3 if (gargc+1 < argc)
105     for (i = gargc+1; i < argc; i++) {
106 greg 1.5 if ((fp = fopen(argv[i], "r")) == NULL) {
107 greg 1.3 sprintf(errmsg,
108     "cannot open scene file \"%s\"", argv[i]);
109     error(SYSTEM, errmsg);
110     }
111     filter(fp, argv[i]);
112     fclose(fp);
113     }
114     else
115     filter(stdin, "standard input");
116 greg 1.2 quit(0);
117 greg 1.1 }
118    
119    
120 greg 1.3 quit(status) /* exit with status */
121     int status;
122     {
123     int rtstat;
124    
125     rtstat = close_process(rt.pd);
126     if (status == 0)
127     if (rtstat < 0)
128     error(WARNING,
129     "unknown return status from rtrace process");
130     else
131     status = rtstat;
132     exit(status);
133     }
134    
135    
136 greg 1.1 init() /* start rtrace and set up buffers */
137     {
138 greg 1.4 extern int o_face(), o_sphere(), o_ring();
139 greg 1.1 int maxbytes;
140 greg 1.3 /* set up object functions */
141     ofun[OBJ_FACE].funp = o_face;
142 greg 1.4 ofun[OBJ_SPHERE].funp = o_sphere;
143 greg 1.3 ofun[OBJ_RING].funp = o_ring;
144     /* set up signal handling */
145     signal(SIGPIPE, quit);
146     /* start rtrace process */
147 greg 1.2 maxbytes = open_process(rt.pd, rtargv);
148 greg 1.1 if (maxbytes == 0) {
149     eputs(rtargv[0]);
150     eputs(": command not found\n");
151     exit(1);
152     }
153     if (maxbytes < 0)
154     error(SYSTEM, "cannot start rtrace process");
155 greg 1.2 rt.bsiz = maxbytes/(6*sizeof(float));
156 greg 1.4 rt.buf = (float *)malloc(6*sizeof(float)*rt.bsiz--);
157     rt.dest = (float **)malloc(sizeof(float *)*rt.bsiz);
158     if (rt.buf == NULL || rt.dest == NULL)
159 greg 1.1 error(SYSTEM, "out of memory in init");
160 greg 1.2 rt.nrays = 0;
161 greg 1.6 /* set up urand */
162     initurand(2048);
163 greg 1.1 }
164    
165    
166     eputs(s) /* put string to stderr */
167     register char *s;
168     {
169     static int midline = 0;
170    
171     if (!*s) return;
172     if (!midline) {
173     fputs(progname, stderr);
174     fputs(": ", stderr);
175     }
176     fputs(s, stderr);
177     midline = s[strlen(s)-1] != '\n';
178     }
179    
180    
181 greg 1.2 wputs(s) /* print warning if enabled */
182     char *s;
183     {
184     if (warnings)
185     eputs(s);
186     }
187    
188    
189     filter(infp, name) /* process stream */
190 greg 1.1 register FILE *infp;
191     char *name;
192     {
193     char buf[512];
194     FILE *pfp;
195     register int c;
196    
197     while ((c = getc(infp)) != EOF) {
198     if (isspace(c))
199     continue;
200     if (c == '#') { /* comment/options */
201     buf[0] = c;
202     fgets(buf+1, sizeof(buf)-1, infp);
203 greg 1.2 xoptions(buf, name);
204 greg 1.1 } else if (c == '!') { /* command */
205     buf[0] = c;
206     fgetline(buf+1, sizeof(buf)-1, infp);
207     if ((pfp = popen(buf+1, "r")) == NULL) {
208     sprintf(errmsg, "cannot execute \"%s\"", buf);
209     error(SYSTEM, errmsg);
210     }
211 greg 1.2 filter(pfp, buf);
212 greg 1.1 pclose(pfp);
213     } else { /* object */
214     ungetc(c, infp);
215     xobject(infp, name);
216     }
217     }
218     }
219    
220    
221 greg 1.2 xoptions(s, nm) /* process options in string s */
222 greg 1.1 char *s;
223     char *nm;
224     {
225     extern FILE *freopen();
226     char buf[64];
227     int nerrs = 0;
228     register char *cp;
229    
230 greg 1.2 if (strncmp(s, "#@mkillum", 9) || !isspace(s[9])) {
231     fputs(s, stdout); /* not for us */
232 greg 1.1 return;
233 greg 1.2 }
234 greg 1.1 cp = s+10;
235     while (*cp) {
236     switch (*cp) {
237     case ' ':
238     case '\t':
239     case '\n':
240     cp++;
241     continue;
242     case 'm': /* material name */
243 greg 1.2 if (*++cp != '=')
244 greg 1.1 break;
245 greg 1.2 if (!*++cp)
246     break;
247 greg 1.1 atos(thisillum.matname, MAXSTR, cp);
248     cp = sskip(cp);
249     if (!(thisillum.flags & IL_DATCLB)) {
250     strcpy(thisillum.datafile, thisillum.matname);
251     thisillum.dfnum = 0;
252     }
253     continue;
254     case 'f': /* data file name */
255 greg 1.2 if (*++cp != '=')
256 greg 1.1 break;
257 greg 1.2 if (!*++cp) {
258 greg 1.6 strcpy(thisillum.datafile,thisillum.matname);
259 greg 1.1 thisillum.flags &= ~IL_DATCLB;
260     continue;
261     }
262     atos(thisillum.datafile, MAXSTR, cp);
263     cp = sskip(cp);
264     thisillum.dfnum = 0;
265     thisillum.flags |= IL_DATCLB;
266     continue;
267     case 'i': /* include material */
268     case 'e': /* exclude material */
269 greg 1.6 if (cp[1] != '=')
270 greg 1.1 break;
271 greg 1.7 matselect = (*cp == 'i') ? S_ELEM : S_COMPL;
272     cp += 2;
273     atos(matcheck, MAXSTR, cp);
274 greg 1.1 cp = sskip(cp);
275     continue;
276     case 'a': /* use everything */
277     cp = sskip(cp);
278     matselect = S_ALL;
279     continue;
280     case 'n': /* use nothing (passive) */
281     cp = sskip(cp);
282     matselect = S_NONE;
283     continue;
284     case 'c': /* color calculation */
285 greg 1.2 if (*++cp != '=')
286 greg 1.1 break;
287 greg 1.2 switch (*++cp) {
288 greg 1.1 case 'a': /* average */
289 greg 1.6 thisillum.flags = (thisillum.flags|IL_COLAVG)
290     & ~IL_COLDST;
291 greg 1.1 break;
292     case 'd': /* distribution */
293 greg 1.5 thisillum.flags |= (IL_COLDST|IL_COLAVG);
294 greg 1.1 break;
295     case 'n': /* none */
296     thisillum.flags &= ~(IL_COLAVG|IL_COLDST);
297     break;
298     default:
299     goto opterr;
300     }
301     cp = sskip(cp);
302     continue;
303     case 'd': /* point sample density */
304 greg 1.2 if (*++cp != '=')
305 greg 1.1 break;
306 greg 1.2 if (!isintd(++cp, " \t\n"))
307 greg 1.1 break;
308 greg 1.3 thisillum.sampdens = atoi(cp);
309 greg 1.1 cp = sskip(cp);
310     continue;
311     case 's': /* point super-samples */
312 greg 1.2 if (*++cp != '=')
313 greg 1.1 break;
314 greg 1.2 if (!isintd(++cp, " \t\n"))
315 greg 1.1 break;
316     thisillum.nsamps = atoi(cp);
317     cp = sskip(cp);
318     continue;
319 greg 1.3 case 'l': /* light sources */
320 greg 1.4 cp++;
321     if (*cp == '+')
322 greg 1.3 thisillum.flags |= IL_LIGHT;
323 greg 1.4 else if (*cp == '-')
324     thisillum.flags &= ~IL_LIGHT;
325 greg 1.3 else
326 greg 1.4 break;
327     cp++;
328 greg 1.3 continue;
329 greg 1.1 case 'o': /* output file */
330 greg 1.2 if (*++cp != '=')
331 greg 1.1 break;
332 greg 1.2 if (!*++cp)
333     break;
334 greg 1.1 atos(buf, sizeof(buf), cp);
335     cp = sskip(cp);
336     if (freopen(buf, "w", stdout) == NULL) {
337     sprintf(errmsg,
338     "cannot open output file \"%s\"", buf);
339     error(SYSTEM, errmsg);
340     }
341     doneheader = 0;
342     continue;
343 greg 1.6 case '!': /* processed file! */
344 greg 1.7 sprintf(errmsg, "(%s): already processed!", nm);
345 greg 1.6 error(WARNING, errmsg);
346 greg 1.7 matselect = S_NONE;
347 greg 1.6 return;
348 greg 1.1 }
349     opterr: /* skip faulty option */
350     cp = sskip(cp);
351     nerrs++;
352     }
353 greg 1.2 /* print header? */
354     checkhead();
355     /* issue warnings? */
356 greg 1.1 if (nerrs) {
357     sprintf(errmsg, "(%s): %d error(s) in option line:",
358     nm, nerrs);
359     error(WARNING, errmsg);
360 greg 1.2 wputs(s);
361     printf("# %s: the following option line has %d error(s):\n",
362     progname, nerrs);
363 greg 1.1 }
364 greg 1.2 /* print pure comment */
365 greg 1.4 printf("# %s", s+2);
366 greg 1.1 }
367 greg 1.2
368    
369     printhead(ac, av) /* print out header */
370     register int ac;
371     register char **av;
372     {
373     putchar('#');
374     while (ac-- > 0) {
375     putchar(' ');
376     fputs(*av++, stdout);
377     }
378 greg 1.6 fputs("\n#@mkillum !\n", stdout);
379 greg 1.2 }
380    
381    
382     xobject(fp, nm) /* translate an object from fp */
383     FILE *fp;
384     char *nm;
385     {
386     OBJREC thisobj;
387     char str[MAXSTR];
388     int doit;
389     /* read the object */
390     if (fgetword(thisillum.altmat, MAXSTR, fp) == NULL)
391     goto readerr;
392     if (fgetword(str, MAXSTR, fp) == NULL)
393     goto readerr;
394     /* is it an alias? */
395     if (!strcmp(str, ALIASID)) {
396     if (fgetword(str, MAXSTR, fp) == NULL)
397     goto readerr;
398     printf("\n%s %s %s", thisillum.altmat, ALIASID, str);
399     if (fgetword(str, MAXSTR, fp) == NULL)
400     goto readerr;
401 greg 1.4 printf("\t%s\n", str);
402 greg 1.2 return;
403     }
404 greg 1.4 thisobj.omod = OVOID; /* unused field */
405 greg 1.2 if ((thisobj.otype = otype(str)) < 0) {
406     sprintf(errmsg, "(%s): unknown type \"%s\"", nm, str);
407     error(USER, errmsg);
408     }
409     if (fgetword(str, MAXSTR, fp) == NULL)
410     goto readerr;
411     thisobj.oname = str;
412     if (readfargs(&thisobj.oargs, fp) != 1)
413     goto readerr;
414     thisobj.os = NULL;
415     /* check for translation */
416     switch (matselect) {
417     case S_NONE:
418     doit = 0;
419     break;
420     case S_ALL:
421 greg 1.4 doit = 1;
422 greg 1.2 break;
423     case S_ELEM:
424     doit = !strcmp(thisillum.altmat, matcheck);
425     break;
426     case S_COMPL:
427     doit = strcmp(thisillum.altmat, matcheck);
428     break;
429     }
430 greg 1.4 doit = doit && issurface(thisobj.otype);
431 greg 1.2 /* print header? */
432     checkhead();
433     /* process object */
434     if (doit)
435 greg 1.4 (*ofun[thisobj.otype].funp)(&thisobj, &thisillum, &rt, nm);
436 greg 1.2 else
437     printobj(thisillum.altmat, &thisobj);
438     /* free arguments */
439     freefargs(&thisobj.oargs);
440     return;
441     readerr:
442     sprintf(errmsg, "(%s): error reading scene", nm);
443     error(USER, errmsg);
444     }