ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/gen/mkillum.c
Revision: 2.1
Committed: Tue Nov 12 17:05:04 1991 UTC (32 years, 4 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.14: +0 -0 lines
Log Message:
updated revision number for release 2.0

File Contents

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