ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rv2.c
Revision: 2.51
Committed: Tue Jun 14 03:34:14 2005 UTC (18 years, 10 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.50: +4 -4 lines
Log Message:
Had to change new -R rendering option to -u to avoid conflict with rpiece

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 greg 2.51 static const char RCSid[] = "$Id: rv2.c,v 2.50 2005/06/13 20:07:56 greg Exp $";
3 greg 1.1 #endif
4     /*
5     * rv2.c - command routines used in tracing a view.
6     *
7 greg 2.38 * External symbols declared in rpaint.h
8     */
9    
10 schorsch 2.41 #include "copyright.h"
11    
12 schorsch 2.40 #include <ctype.h>
13 schorsch 2.41 #include <string.h>
14 greg 1.1
15 schorsch 2.40 #include "platform.h"
16 greg 1.1 #include "ray.h"
17 greg 2.46 #include "source.h"
18 schorsch 2.43 #include "ambient.h"
19 greg 1.1 #include "otypes.h"
20     #include "rpaint.h"
21    
22 greg 2.38 extern int psample; /* pixel sample size */
23     extern double maxdiff; /* max. sample difference */
24 greg 1.1
25 greg 2.4 #define CTRL(c) ((c)-'@')
26 greg 1.1
27 greg 2.6 #ifdef SMLFLT
28     #define sscanvec(s,v) (sscanf(s,"%f %f %f",v,v+1,v+2)==3)
29     #else
30     #define sscanvec(s,v) (sscanf(s,"%lf %lf %lf",v,v+1,v+2)==3)
31     #endif
32    
33 greg 2.20 extern char rifname[128]; /* rad input file name */
34 greg 2.18
35 greg 1.1 extern char *progname;
36 greg 1.29 extern char *octname;
37 greg 1.1
38    
39 schorsch 2.43 extern void
40     getframe( /* get a new frame */
41     char *s
42     )
43 greg 1.1 {
44 greg 1.12 if (getrect(s, &pframe) < 0)
45 greg 1.1 return;
46     pdepth = 0;
47     }
48    
49    
50 schorsch 2.43 extern void
51     getrepaint( /* get area and repaint */
52     char *s
53     )
54 greg 1.12 {
55     RECT box;
56    
57     if (getrect(s, &box) < 0)
58     return;
59 greg 1.14 paintrect(&ptrunk, 0, 0, hresolu, vresolu, &box);
60 greg 1.12 }
61    
62    
63 schorsch 2.43 extern void
64     getview( /* get/show view parameters */
65     char *s
66     )
67 greg 1.1 {
68     FILE *fp;
69     char buf[128];
70 greg 1.10 char *fname;
71 greg 1.3 int change = 0;
72 greg 2.44 VIEW nv = ourview;
73 greg 1.1
74 greg 2.9 while (isspace(*s))
75     s++;
76     if (*s == '-') { /* command line parameters */
77     if (sscanview(&nv, s))
78     newview(&nv);
79     else
80     error(COMMAND, "bad view option(s)");
81     return;
82     }
83 greg 1.1 if (sscanf(s, "%s", buf) == 1) { /* write parameters to a file */
84 greg 1.10 if ((fname = getpath(buf, NULL, 0)) == NULL ||
85 greg 1.1 (fp = fopen(fname, "a")) == NULL) {
86     sprintf(errmsg, "cannot open \"%s\"", buf);
87     error(COMMAND, errmsg);
88     return;
89     }
90 greg 1.2 fputs(progname, fp);
91 greg 1.1 fprintview(&ourview, fp);
92 greg 1.19 fputs(sskip(s), fp);
93 greg 2.18 putc('\n', fp);
94 greg 1.1 fclose(fp);
95     return;
96     }
97     sprintf(buf, "view type (%c): ", ourview.type);
98     (*dev->comout)(buf);
99 greg 1.18 (*dev->comin)(buf, NULL);
100 greg 2.4 if (buf[0] == CTRL('C')) return;
101 greg 1.3 if (buf[0] && buf[0] != ourview.type) {
102 greg 1.1 nv.type = buf[0];
103 greg 1.3 change++;
104 greg 2.44 }
105 greg 1.1 sprintf(buf, "view point (%.6g %.6g %.6g): ",
106     ourview.vp[0], ourview.vp[1], ourview.vp[2]);
107     (*dev->comout)(buf);
108 greg 1.18 (*dev->comin)(buf, NULL);
109 greg 2.4 if (buf[0] == CTRL('C')) return;
110 greg 2.6 if (sscanvec(buf, nv.vp))
111 greg 1.3 change++;
112 greg 1.1 sprintf(buf, "view direction (%.6g %.6g %.6g): ",
113 greg 2.45 ourview.vdir[0]*ourview.vdist,
114     ourview.vdir[1]*ourview.vdist,
115     ourview.vdir[2]*ourview.vdist);
116 greg 1.1 (*dev->comout)(buf);
117 greg 1.18 (*dev->comin)(buf, NULL);
118 greg 2.4 if (buf[0] == CTRL('C')) return;
119 greg 2.45 if (sscanvec(buf, nv.vdir)) {
120     nv.vdist = 1.;
121 greg 1.3 change++;
122 greg 2.45 }
123 greg 1.1 sprintf(buf, "view up (%.6g %.6g %.6g): ",
124     ourview.vup[0], ourview.vup[1], ourview.vup[2]);
125     (*dev->comout)(buf);
126 greg 1.18 (*dev->comin)(buf, NULL);
127 greg 2.4 if (buf[0] == CTRL('C')) return;
128 greg 2.6 if (sscanvec(buf, nv.vup))
129 greg 1.3 change++;
130 greg 1.1 sprintf(buf, "view horiz and vert size (%.6g %.6g): ",
131     ourview.horiz, ourview.vert);
132     (*dev->comout)(buf);
133 greg 1.18 (*dev->comin)(buf, NULL);
134 greg 2.4 if (buf[0] == CTRL('C')) return;
135 greg 1.3 if (sscanf(buf, "%lf %lf", &nv.horiz, &nv.vert) == 2)
136     change++;
137 greg 2.26 sprintf(buf, "fore and aft clipping plane (%.6g %.6g): ",
138     ourview.vfore, ourview.vaft);
139     (*dev->comout)(buf);
140     (*dev->comin)(buf, NULL);
141     if (buf[0] == CTRL('C')) return;
142     if (sscanf(buf, "%lf %lf", &nv.vfore, &nv.vaft) == 2)
143     change++;
144 greg 1.14 sprintf(buf, "view shift and lift (%.6g %.6g): ",
145     ourview.hoff, ourview.voff);
146 greg 1.1 (*dev->comout)(buf);
147 greg 1.18 (*dev->comin)(buf, NULL);
148 greg 2.4 if (buf[0] == CTRL('C')) return;
149 greg 1.14 if (sscanf(buf, "%lf %lf", &nv.hoff, &nv.voff) == 2)
150 greg 1.3 change++;
151     if (change)
152     newview(&nv);
153 greg 1.1 }
154    
155    
156 schorsch 2.43 extern void
157     lastview( /* return to a previous view */
158     char *s
159     )
160 greg 1.1 {
161     char buf[128];
162 greg 1.10 char *fname;
163 greg 1.1 int success;
164     VIEW nv;
165    
166     if (sscanf(s, "%s", buf) == 1) { /* get parameters from a file */
167 schorsch 2.42 nv = stdview;
168 greg 2.19 if ((fname = getpath(buf, "", R_OK)) == NULL ||
169 greg 1.33 (success = viewfile(fname, &nv, NULL)) == -1) {
170 greg 1.1 sprintf(errmsg, "cannot open \"%s\"", buf);
171     error(COMMAND, errmsg);
172     return;
173     }
174     if (!success)
175     error(COMMAND, "wrong file format");
176     else
177     newview(&nv);
178     return;
179     }
180 greg 1.20 if (oldview.type == 0) { /* no old view! */
181 greg 1.1 error(COMMAND, "no previous view");
182     return;
183     }
184 schorsch 2.42 nv = ourview;
185     ourview = oldview;
186     oldview = nv;
187 greg 1.1 newimage();
188 greg 2.18 }
189    
190    
191 schorsch 2.43 extern void
192     saveview( /* save view to rad file */
193     char *s
194     )
195 greg 2.18 {
196     char view[64];
197     char *fname;
198     FILE *fp;
199    
200 greg 2.19 if (*atos(view, sizeof(view), s)) {
201     if (isint(view)) {
202     error(COMMAND, "cannot write view by number");
203     return;
204     }
205 greg 2.18 s = sskip(s);
206 greg 2.19 }
207 greg 2.20 while (isspace(*s))
208     s++;
209     if (*s)
210     atos(rifname, sizeof(rifname), s);
211     else if (rifname[0] == '\0') {
212 greg 2.18 error(COMMAND, "no previous rad file");
213     return;
214     }
215     if ((fname = getpath(rifname, NULL, 0)) == NULL ||
216     (fp = fopen(fname, "a")) == NULL) {
217     sprintf(errmsg, "cannot open \"%s\"", rifname);
218     error(COMMAND, errmsg);
219     return;
220     }
221     fputs("view= ", fp);
222     fputs(view, fp);
223     fprintview(&ourview, fp);
224     putc('\n', fp);
225     fclose(fp);
226     }
227    
228    
229 schorsch 2.43 extern void
230     loadview( /* load view from rad file */
231     char *s
232     )
233 greg 2.18 {
234     char buf[512];
235     char *fname;
236     FILE *fp;
237     VIEW nv;
238    
239     strcpy(buf, "rad -n -s -V -v ");
240     if (sscanf(s, "%s", buf+strlen(buf)) == 1)
241     s = sskip(s);
242     else
243     strcat(buf, "1");
244 greg 2.20 if (*s)
245     atos(rifname, sizeof(rifname), s);
246     else if (rifname[0] == '\0') {
247 greg 2.18 error(COMMAND, "no previous rad file");
248     return;
249     }
250 greg 2.19 if ((fname = getpath(rifname, "", R_OK)) == NULL) {
251 greg 2.18 sprintf(errmsg, "cannot access \"%s\"", rifname);
252     error(COMMAND, errmsg);
253     return;
254     }
255     sprintf(buf+strlen(buf), " %s", fname);
256     if ((fp = popen(buf, "r")) == NULL) {
257     error(COMMAND, "cannot run rad");
258     return;
259     }
260     buf[0] = '\0';
261     fgets(buf, sizeof(buf), fp);
262     pclose(fp);
263 schorsch 2.42 nv = stdview;
264 greg 2.18 if (!sscanview(&nv, buf)) {
265     error(COMMAND, "rad error -- no such view?");
266     return;
267     }
268     newview(&nv);
269 greg 1.1 }
270    
271    
272 schorsch 2.43 extern void
273     getaim( /* aim camera */
274     char *s
275     )
276 greg 1.1 {
277 greg 2.44 VIEW nv = ourview;
278 greg 1.1 double zfact;
279    
280     if (getinterest(s, 1, nv.vdir, &zfact) < 0)
281     return;
282 greg 1.21 zoomview(&nv, zfact);
283 greg 1.1 newview(&nv);
284     }
285    
286    
287 schorsch 2.43 extern void
288 greg 2.45 getfocus( /* set focus distance */
289     char *s
290     )
291     {
292     FVECT vc;
293     double dist;
294    
295     if (sscanf(s, "%lf", &dist) < 1) {
296     int x, y;
297     RAY thisray;
298     if (dev->getcur == NULL)
299     return;
300     (*dev->comout)("Pick focus point\n");
301     if ((*dev->getcur)(&x, &y) == ABORT)
302     return;
303     if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
304     &ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
305     error(COMMAND, "not on image");
306     return;
307     }
308 greg 2.49 rayorigin(&thisray, PRIMARY, NULL, NULL);
309 greg 2.45 if (!localhit(&thisray, &thescene)) {
310     error(COMMAND, "not a local object");
311     return;
312     }
313     dist = thisray.rot;
314     } else if (dist <= .0) {
315     error(COMMAND, "focus distance must be positive");
316     return;
317     }
318     ourview.vdist = dist;
319     }
320    
321    
322     extern void
323 schorsch 2.43 getmove( /* move camera */
324     char *s
325     )
326 greg 1.1 {
327     FVECT vc;
328     double mag;
329    
330     if (getinterest(s, 0, vc, &mag) < 0)
331     return;
332 greg 1.4 moveview(0.0, 0.0, mag, vc);
333 greg 1.1 }
334    
335    
336 schorsch 2.43 extern void
337     getrotate( /* rotate camera */
338     char *s
339     )
340 greg 1.1 {
341 greg 2.44 VIEW nv = ourview;
342 greg 1.1 FVECT v1;
343 greg 1.4 double angle, elev, zfact;
344 greg 1.1
345 greg 1.4 elev = 0.0; zfact = 1.0;
346     if (sscanf(s, "%lf %lf %lf", &angle, &elev, &zfact) < 1) {
347 greg 1.1 error(COMMAND, "missing angle");
348     return;
349     }
350     spinvector(nv.vdir, ourview.vdir, ourview.vup, angle*(PI/180.));
351     if (elev != 0.0) {
352     fcross(v1, nv.vdir, ourview.vup);
353     normalize(v1);
354     spinvector(nv.vdir, nv.vdir, v1, elev*(PI/180.));
355     }
356 greg 1.21 zoomview(&nv, zfact);
357 greg 1.1 newview(&nv);
358     }
359    
360    
361 schorsch 2.43 extern void
362     getpivot( /* pivot viewpoint */
363     register char *s
364     )
365 greg 1.1 {
366     FVECT vc;
367 greg 1.4 double angle, elev, mag;
368 greg 1.1
369 greg 1.4 elev = 0.0;
370     if (sscanf(s, "%lf %lf", &angle, &elev) < 1) {
371 greg 1.1 error(COMMAND, "missing angle");
372     return;
373     }
374 greg 2.33 if (getinterest(sskip2(s,2), 0, vc, &mag) < 0)
375 greg 1.1 return;
376 greg 1.4 moveview(angle, elev, mag, vc);
377 greg 1.1 }
378    
379    
380 schorsch 2.43 extern void
381     getexposure( /* get new exposure */
382     char *s
383     )
384 greg 1.1 {
385     char buf[128];
386     register char *cp;
387     RECT r;
388     int x, y;
389 greg 2.16 register PNODE *p = &ptrunk;
390     int adapt = 0;
391     double e = 1.0;
392 greg 2.25
393 greg 1.1 for (cp = s; isspace(*cp); cp++)
394     ;
395 greg 2.16 if (*cp == '@') {
396     adapt++;
397 greg 2.25 while (isspace(*++cp))
398     ;
399 greg 2.16 }
400 greg 1.1 if (*cp == '\0') { /* normalize to point */
401     if (dev->getcur == NULL)
402     return;
403     (*dev->comout)("Pick point for exposure\n");
404     if ((*dev->getcur)(&x, &y) == ABORT)
405     return;
406     r.l = r.d = 0;
407 greg 1.14 r.r = hresolu; r.u = vresolu;
408 greg 1.1 p = findrect(x, y, &ptrunk, &r, -1);
409     } else {
410     if (*cp == '=') { /* absolute setting */
411     p = NULL;
412     e = 1.0/exposure;
413     for (cp++; isspace(*cp); cp++)
414     ;
415     if (*cp == '\0') { /* interactive */
416 greg 2.15 sprintf(buf, "exposure (%f): ", exposure);
417 greg 1.1 (*dev->comout)(buf);
418 greg 1.18 (*dev->comin)(buf, NULL);
419 greg 1.1 for (cp = buf; isspace(*cp); cp++)
420     ;
421     if (*cp == '\0')
422     return;
423     }
424     }
425     if (*cp == '+' || *cp == '-') /* f-stops */
426     e *= pow(2.0, atof(cp));
427     else /* multiplier */
428     e *= atof(cp);
429     }
430     if (p != NULL) { /* relative setting */
431 greg 2.14 if (bright(p->v) < 1e-15) {
432 greg 1.1 error(COMMAND, "cannot normalize to zero");
433     return;
434     }
435 greg 2.16 if (adapt)
436     e *= 106./pow(1.219+pow(luminance(p->v)/exposure,.4),2.5)/exposure;
437     else
438     e *= 0.5 / bright(p->v);
439 greg 1.1 }
440     if (e <= FTINY || fabs(1.0 - e) <= FTINY)
441     return;
442     scalepict(&ptrunk, e);
443     exposure *= e;
444     redraw();
445     }
446    
447 greg 2.38 typedef union {int i; double d; COLOR C;} *MyUptr;
448 greg 1.1
449 schorsch 2.43 extern int
450     getparam( /* get variable from user */
451     char *str,
452     char *dsc,
453     int typ,
454     void *p
455     )
456 greg 1.24 {
457 greg 2.38 register MyUptr ptr = (MyUptr)p;
458 greg 1.24 int i0;
459     double d0, d1, d2;
460     char buf[48];
461    
462     switch (typ) {
463     case 'i': /* integer */
464     if (sscanf(str, "%d", &i0) != 1) {
465     (*dev->comout)(dsc);
466     sprintf(buf, " (%d): ", ptr->i);
467     (*dev->comout)(buf);
468     (*dev->comin)(buf, NULL);
469     if (sscanf(buf, "%d", &i0) != 1)
470 greg 1.31 return(0);
471 greg 1.24 }
472     ptr->i = i0;
473 greg 1.31 return(1);
474 greg 1.24 case 'r': /* real */
475     if (sscanf(str, "%lf", &d0) != 1) {
476     (*dev->comout)(dsc);
477     sprintf(buf, " (%.6g): ", ptr->d);
478     (*dev->comout)(buf);
479     (*dev->comin)(buf, NULL);
480     if (sscanf(buf, "%lf", &d0) != 1)
481 greg 1.31 return(0);
482 greg 1.24 }
483     ptr->d = d0;
484 greg 1.31 return(1);
485 greg 1.24 case 'b': /* boolean */
486     if (sscanf(str, "%1s", buf) != 1) {
487     (*dev->comout)(dsc);
488 greg 2.2 sprintf(buf, "? (%c): ", ptr->i ? 'y' : 'n');
489 greg 1.24 (*dev->comout)(buf);
490     (*dev->comin)(buf, NULL);
491 greg 1.25 if (buf[0] == '\0' ||
492 schorsch 2.41 strchr("yY+1tTnN-0fF", buf[0]) == NULL)
493 greg 1.31 return(0);
494 greg 1.24 }
495 schorsch 2.41 ptr->i = strchr("yY+1tT", buf[0]) != NULL;
496 greg 1.31 return(1);
497 greg 1.24 case 'C': /* color */
498     if (sscanf(str, "%lf %lf %lf", &d0, &d1, &d2) != 3) {
499     (*dev->comout)(dsc);
500     sprintf(buf, " (%.6g %.6g %.6g): ",
501     colval(ptr->C,RED),
502     colval(ptr->C,GRN),
503     colval(ptr->C,BLU));
504     (*dev->comout)(buf);
505     (*dev->comin)(buf, NULL);
506     if (sscanf(buf, "%lf %lf %lf", &d0, &d1, &d2) != 3)
507 greg 1.31 return(0);
508 greg 1.24 }
509     setcolor(ptr->C, d0, d1, d2);
510 greg 1.31 return(1);
511 greg 1.24 }
512 schorsch 2.43 return 0; /* nothing matched */
513 greg 1.24 }
514    
515    
516 schorsch 2.43 extern void
517     setparam( /* get/set program parameter */
518     register char *s
519     )
520 greg 1.1 {
521 greg 1.24 char buf[128];
522 greg 1.1
523     if (s[0] == '\0') {
524 greg 1.23 (*dev->comout)(
525 greg 2.51 "aa ab ad ar as av aw b bv dc dv dj ds dt i lr lw me ma mg ms ps pt sj st u: ");
526 greg 1.18 (*dev->comin)(buf, NULL);
527 greg 1.1 s = buf;
528     }
529     switch (s[0]) {
530 greg 2.51 case 'u': /* uncorrelated sampling */
531     getparam(s+1, "uncorrelated sampling", 'b',
532 greg 2.50 (void *)&rand_samp);
533     break;
534 greg 1.1 case 'l': /* limit */
535     switch (s[1]) {
536     case 'w': /* weight */
537 greg 2.38 getparam(s+2, "limit weight", 'r',
538     (void *)&minweight);
539 greg 1.1 break;
540     case 'r': /* reflection */
541 greg 2.38 getparam(s+2, "limit reflection", 'i',
542     (void *)&maxdepth);
543 greg 1.1 break;
544     default:
545     goto badparam;
546     }
547     break;
548 greg 1.5 case 'd': /* direct */
549     switch (s[1]) {
550     case 'j': /* jitter */
551 greg 2.38 getparam(s+2, "direct jitter", 'r',
552     (void *)&dstrsrc);
553 greg 1.9 break;
554     case 'c': /* certainty */
555 greg 2.38 getparam(s+2, "direct certainty", 'r',
556     (void *)&shadcert);
557 greg 1.5 break;
558 greg 1.8 case 't': /* threshold */
559 greg 2.38 getparam(s+2, "direct threshold", 'r',
560     (void *)&shadthresh);
561 greg 1.5 break;
562 greg 2.13 case 'v': /* visibility */
563 greg 2.38 getparam(s+2, "direct visibility", 'b',
564     (void *)&directvis);
565 greg 1.30 break;
566     case 's': /* sampling */
567 greg 2.38 getparam(s+2, "direct sampling", 'r',
568     (void *)&srcsizerat);
569 greg 1.23 break;
570 greg 1.5 default:
571 greg 1.1 goto badparam;
572     }
573 greg 1.23 break;
574 greg 2.27 case 'b': /* back faces or black and white */
575     switch (s[1]) {
576     case 'v': /* back face visibility */
577 greg 2.38 getparam(s+2, "back face visibility", 'b',
578     (void *)&backvis);
579 greg 2.27 break;
580     case '\0': /* black and white */
581 greg 2.29 case ' ':
582 greg 2.27 case 'y': case 'Y': case 't': case 'T': case '1': case '+':
583     case 'n': case 'N': case 'f': case 'F': case '0': case '-':
584 greg 2.38 getparam(s+1, "black and white", 'b',
585     (void *)&greyscale);
586 greg 2.27 break;
587     default:
588     goto badparam;
589     }
590 greg 1.23 break;
591     case 'i': /* irradiance */
592 greg 2.38 getparam(s+1, "irradiance", 'b',
593     (void *)&do_irrad);
594 greg 1.1 break;
595     case 'a': /* ambient */
596     switch (s[1]) {
597     case 'v': /* value */
598 greg 2.38 getparam(s+2, "ambient value", 'C',
599     (void *)ambval);
600 greg 2.34 break;
601     case 'w': /* weight */
602 greg 2.38 getparam(s+2, "ambient value weight", 'i',
603     (void *)&ambvwt);
604 greg 1.1 break;
605     case 'a': /* accuracy */
606 greg 2.38 if (getparam(s+2, "ambient accuracy", 'r',
607     (void *)&ambacc))
608 greg 2.17 setambacc(ambacc);
609 greg 1.1 break;
610     case 'd': /* divisions */
611 greg 2.38 getparam(s+2, "ambient divisions", 'i',
612     (void *)&ambdiv);
613 greg 1.1 break;
614     case 's': /* samples */
615 greg 2.38 getparam(s+2, "ambient super-samples", 'i',
616     (void *)&ambssamp);
617 greg 1.1 break;
618     case 'b': /* bounces */
619 greg 2.38 getparam(s+2, "ambient bounces", 'i',
620     (void *)&ambounce);
621 greg 1.1 break;
622     case 'r':
623 greg 2.38 if (getparam(s+2, "ambient resolution", 'i',
624     (void *)&ambres))
625 greg 2.8 setambres(ambres);
626 greg 2.32 break;
627     default:
628     goto badparam;
629     }
630     break;
631     case 'm': /* medium */
632     switch (s[1]) {
633     case 'e': /* extinction coefficient */
634     getparam(s+2, "extinction coefficient", 'C',
635 greg 2.38 (void *)cextinction);
636 greg 2.32 break;
637     case 'a': /* scattering albedo */
638 greg 2.35 getparam(s+2, "scattering albedo", 'C',
639 greg 2.38 (void *)salbedo);
640 greg 2.32 break;
641     case 'g': /* scattering eccentricity */
642 greg 2.38 getparam(s+2, "scattering eccentricity", 'r',
643     (void *)&seccg);
644 greg 2.32 break;
645     case 's': /* sampling distance */
646     getparam(s+2, "mist sampling distance", 'r',
647 greg 2.38 (void *)&ssampdist);
648 greg 1.1 break;
649     default:
650     goto badparam;
651     }
652     break;
653 greg 2.5 case 'p': /* pixel */
654 greg 1.1 switch (s[1]) {
655 greg 2.5 case 's': /* sample */
656 greg 2.38 if (getparam(s+2, "pixel sample", 'i',
657     (void *)&psample))
658 greg 1.31 pdepth = 0;
659 greg 1.1 break;
660 greg 1.8 case 't': /* threshold */
661 greg 2.38 if (getparam(s+2, "pixel threshold", 'r',
662     (void *)&maxdiff))
663 greg 1.31 pdepth = 0;
664 greg 2.5 break;
665     default:
666     goto badparam;
667     }
668     break;
669     case 's': /* specular */
670     switch (s[1]) {
671     case 'j': /* jitter */
672 greg 2.38 getparam(s+2, "specular jitter", 'r',
673     (void *)&specjitter);
674 greg 2.5 break;
675     case 't': /* threshold */
676 greg 2.38 getparam(s+2, "specular threshold", 'r',
677     (void *)&specthresh);
678 greg 1.1 break;
679     default:
680     goto badparam;
681     }
682     break;
683     case '\0': /* nothing */
684     break;
685     default:;
686     badparam:
687 greg 1.26 *sskip(s) = '\0';
688 greg 1.1 sprintf(errmsg, "%s: unknown variable", s);
689     error(COMMAND, errmsg);
690     break;
691     }
692     }
693    
694    
695 schorsch 2.43 extern void
696 greg 1.1 traceray(s) /* trace a single ray */
697     char *s;
698     {
699     char buf[128];
700     int x, y;
701 greg 2.37 OBJREC *ino;
702 greg 1.1 RAY thisray;
703    
704 greg 2.26 thisray.rmax = 0.0;
705    
706 greg 2.6 if (!sscanvec(s, thisray.rorg) ||
707 greg 2.33 !sscanvec(sskip2(s,3), thisray.rdir)) {
708 greg 1.1
709     if (dev->getcur == NULL)
710     return;
711     (*dev->comout)("Pick ray\n");
712     if ((*dev->getcur)(&x, &y) == ABORT)
713     return;
714    
715 greg 2.26 if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
716     &ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
717 greg 1.21 error(COMMAND, "not on image");
718     return;
719     }
720    
721 greg 1.1 } else if (normalize(thisray.rdir) == 0.0) {
722     error(COMMAND, "zero ray direction");
723     return;
724     }
725    
726 greg 2.49 rayorigin(&thisray, PRIMARY, NULL, NULL);
727 greg 1.1
728     rayvalue(&thisray);
729    
730     if (thisray.ro == NULL)
731     (*dev->comout)("ray hit nothing");
732     else {
733 greg 2.47 OBJREC *mat = NULL;
734     OBJREC *mod = NULL;;
735     char matspec[256];
736     matspec[0] = '\0';
737     if (thisray.ro->omod != OVOID) {
738     mod = objptr(thisray.ro->omod);
739     mat = findmaterial(mod);
740     }
741     if (thisray.rod < 0.0)
742     strcpy(matspec, "back of ");
743     if (mod != NULL) {
744     strcat(matspec, mod->oname);
745 greg 2.48 if (mat != mod && mat != NULL)
746     sprintf(matspec+strlen(matspec),
747     " (%s)", mat->oname);
748 greg 2.47 } else
749     strcat(matspec, VOIDID);
750     sprintf(buf, "ray hit %s %s \"%s\"", matspec,
751 greg 1.1 ofun[thisray.ro->otype].funame,
752     thisray.ro->oname);
753 greg 2.37 if ((ino = objptr(thisray.robj)) != thisray.ro)
754     sprintf(buf+strlen(buf), " in %s \"%s\"",
755     ofun[ino->otype].funame, ino->oname);
756 greg 1.1 (*dev->comout)(buf);
757 greg 1.18 (*dev->comin)(buf, NULL);
758 greg 1.1 if (thisray.rot >= FHUGE)
759     (*dev->comout)("at infinity");
760     else {
761 greg 2.30 sprintf(buf, "at (%.6g %.6g %.6g) (%.6g)",
762     thisray.rop[0], thisray.rop[1],
763     thisray.rop[2], thisray.rt);
764 greg 1.1 (*dev->comout)(buf);
765     }
766 greg 1.18 (*dev->comin)(buf, NULL);
767 greg 2.38 sprintf(buf, "value (%.5g %.5g %.5g) (%.3gL)",
768 greg 1.1 colval(thisray.rcol,RED),
769     colval(thisray.rcol,GRN),
770 greg 1.32 colval(thisray.rcol,BLU),
771     luminance(thisray.rcol));
772 greg 1.1 (*dev->comout)(buf);
773     }
774 greg 1.18 (*dev->comin)(buf, NULL);
775 greg 1.1 }
776    
777    
778 schorsch 2.43 extern void
779 greg 1.1 writepict(s) /* write the picture to a file */
780     char *s;
781     {
782     static char buf[128];
783 greg 1.10 char *fname;
784 greg 1.1 FILE *fp;
785     COLR *scanline;
786     int y;
787    
788 greg 2.20 while (isspace(*s))
789     s++;
790     if (*s)
791     atos(buf, sizeof(buf), s);
792     else if (buf[0] == '\0') {
793 greg 1.1 error(COMMAND, "no file");
794     return;
795     }
796 greg 1.10 if ((fname = getpath(buf, NULL, 0)) == NULL ||
797 greg 1.1 (fp = fopen(fname, "w")) == NULL) {
798     sprintf(errmsg, "cannot open \"%s\"", buf);
799     error(COMMAND, errmsg);
800     return;
801     }
802 schorsch 2.40 SET_FILE_BINARY(fp);
803 greg 1.1 (*dev->comout)("writing \"");
804     (*dev->comout)(fname);
805     (*dev->comout)("\"...\n");
806     /* write header */
807 greg 2.24 newheader("RADIANCE", fp);
808 greg 1.1 fputs(progname, fp);
809     fprintview(&ourview, fp);
810 greg 1.29 if (octname != NULL)
811     fprintf(fp, " %s\n", octname);
812     else
813     putc('\n', fp);
814 greg 1.28 fprintf(fp, "SOFTWARE= %s\n", VersionID);
815 greg 2.38 fputnow(fp);
816 greg 1.1 if (exposure != 1.0)
817 greg 1.13 fputexpos(exposure, fp);
818 greg 1.15 if (dev->pixaspect != 1.0)
819     fputaspect(dev->pixaspect, fp);
820 greg 1.22 fputformat(COLRFMT, fp);
821 greg 1.11 putc('\n', fp);
822 greg 1.33 fprtresolu(hresolu, vresolu, fp);
823 greg 1.1
824 greg 1.14 scanline = (COLR *)malloc(hresolu*sizeof(COLR));
825 greg 1.27 if (scanline == NULL) {
826     error(COMMAND, "not enough memory!");
827     fclose(fp);
828     unlink(fname);
829     return;
830     }
831 greg 1.14 for (y = vresolu-1; y >= 0; y--) {
832     getpictcolrs(y, scanline, &ptrunk, hresolu, vresolu);
833     if (fwritecolrs(scanline, hresolu, fp) < 0)
834 greg 1.1 break;
835     }
836 greg 2.38 free((void *)scanline);
837 greg 1.1 if (fclose(fp) < 0)
838     error(COMMAND, "write error");
839     }