ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rv2.c
Revision: 2.53
Committed: Mon Aug 22 07:02:21 2005 UTC (18 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad3R7P2
Changes since 2.52: +4 -1 lines
Log Message:
Added feedback as to focus distance set with "focus" command

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 greg 2.53 static const char RCSid[] = "$Id: rv2.c,v 2.52 2005/06/16 01:55:44 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 greg 2.53 char buf[64];
293 greg 2.45 FVECT vc;
294     double dist;
295    
296     if (sscanf(s, "%lf", &dist) < 1) {
297     int x, y;
298     RAY thisray;
299     if (dev->getcur == NULL)
300     return;
301     (*dev->comout)("Pick focus point\n");
302     if ((*dev->getcur)(&x, &y) == ABORT)
303     return;
304     if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
305     &ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
306     error(COMMAND, "not on image");
307     return;
308     }
309 greg 2.49 rayorigin(&thisray, PRIMARY, NULL, NULL);
310 greg 2.45 if (!localhit(&thisray, &thescene)) {
311     error(COMMAND, "not a local object");
312     return;
313     }
314     dist = thisray.rot;
315     } else if (dist <= .0) {
316     error(COMMAND, "focus distance must be positive");
317     return;
318     }
319     ourview.vdist = dist;
320 greg 2.53 sprintf(buf, "Focus distance set to %f\n", dist);
321     (*dev->comout)(buf);
322 greg 2.45 }
323    
324    
325     extern void
326 schorsch 2.43 getmove( /* move camera */
327     char *s
328     )
329 greg 1.1 {
330     FVECT vc;
331     double mag;
332    
333     if (getinterest(s, 0, vc, &mag) < 0)
334     return;
335 greg 1.4 moveview(0.0, 0.0, mag, vc);
336 greg 1.1 }
337    
338    
339 schorsch 2.43 extern void
340     getrotate( /* rotate camera */
341     char *s
342     )
343 greg 1.1 {
344 greg 2.44 VIEW nv = ourview;
345 greg 1.1 FVECT v1;
346 greg 1.4 double angle, elev, zfact;
347 greg 1.1
348 greg 1.4 elev = 0.0; zfact = 1.0;
349     if (sscanf(s, "%lf %lf %lf", &angle, &elev, &zfact) < 1) {
350 greg 1.1 error(COMMAND, "missing angle");
351     return;
352     }
353     spinvector(nv.vdir, ourview.vdir, ourview.vup, angle*(PI/180.));
354     if (elev != 0.0) {
355     fcross(v1, nv.vdir, ourview.vup);
356     normalize(v1);
357     spinvector(nv.vdir, nv.vdir, v1, elev*(PI/180.));
358     }
359 greg 1.21 zoomview(&nv, zfact);
360 greg 1.1 newview(&nv);
361     }
362    
363    
364 schorsch 2.43 extern void
365     getpivot( /* pivot viewpoint */
366     register char *s
367     )
368 greg 1.1 {
369     FVECT vc;
370 greg 1.4 double angle, elev, mag;
371 greg 1.1
372 greg 1.4 elev = 0.0;
373     if (sscanf(s, "%lf %lf", &angle, &elev) < 1) {
374 greg 1.1 error(COMMAND, "missing angle");
375     return;
376     }
377 greg 2.33 if (getinterest(sskip2(s,2), 0, vc, &mag) < 0)
378 greg 1.1 return;
379 greg 1.4 moveview(angle, elev, mag, vc);
380 greg 1.1 }
381    
382    
383 schorsch 2.43 extern void
384     getexposure( /* get new exposure */
385     char *s
386     )
387 greg 1.1 {
388     char buf[128];
389     register char *cp;
390     RECT r;
391     int x, y;
392 greg 2.16 register PNODE *p = &ptrunk;
393     int adapt = 0;
394     double e = 1.0;
395 greg 2.25
396 greg 1.1 for (cp = s; isspace(*cp); cp++)
397     ;
398 greg 2.16 if (*cp == '@') {
399     adapt++;
400 greg 2.25 while (isspace(*++cp))
401     ;
402 greg 2.16 }
403 greg 1.1 if (*cp == '\0') { /* normalize to point */
404     if (dev->getcur == NULL)
405     return;
406     (*dev->comout)("Pick point for exposure\n");
407     if ((*dev->getcur)(&x, &y) == ABORT)
408     return;
409     r.l = r.d = 0;
410 greg 1.14 r.r = hresolu; r.u = vresolu;
411 greg 1.1 p = findrect(x, y, &ptrunk, &r, -1);
412     } else {
413     if (*cp == '=') { /* absolute setting */
414     p = NULL;
415     e = 1.0/exposure;
416     for (cp++; isspace(*cp); cp++)
417     ;
418     if (*cp == '\0') { /* interactive */
419 greg 2.15 sprintf(buf, "exposure (%f): ", exposure);
420 greg 1.1 (*dev->comout)(buf);
421 greg 1.18 (*dev->comin)(buf, NULL);
422 greg 1.1 for (cp = buf; isspace(*cp); cp++)
423     ;
424     if (*cp == '\0')
425     return;
426     }
427     }
428     if (*cp == '+' || *cp == '-') /* f-stops */
429     e *= pow(2.0, atof(cp));
430     else /* multiplier */
431     e *= atof(cp);
432     }
433     if (p != NULL) { /* relative setting */
434 greg 2.14 if (bright(p->v) < 1e-15) {
435 greg 1.1 error(COMMAND, "cannot normalize to zero");
436     return;
437     }
438 greg 2.16 if (adapt)
439     e *= 106./pow(1.219+pow(luminance(p->v)/exposure,.4),2.5)/exposure;
440     else
441     e *= 0.5 / bright(p->v);
442 greg 1.1 }
443     if (e <= FTINY || fabs(1.0 - e) <= FTINY)
444     return;
445     scalepict(&ptrunk, e);
446     exposure *= e;
447     redraw();
448     }
449    
450 greg 2.38 typedef union {int i; double d; COLOR C;} *MyUptr;
451 greg 1.1
452 schorsch 2.43 extern int
453     getparam( /* get variable from user */
454     char *str,
455     char *dsc,
456     int typ,
457     void *p
458     )
459 greg 1.24 {
460 greg 2.38 register MyUptr ptr = (MyUptr)p;
461 greg 1.24 int i0;
462     double d0, d1, d2;
463     char buf[48];
464    
465     switch (typ) {
466     case 'i': /* integer */
467     if (sscanf(str, "%d", &i0) != 1) {
468     (*dev->comout)(dsc);
469     sprintf(buf, " (%d): ", ptr->i);
470     (*dev->comout)(buf);
471     (*dev->comin)(buf, NULL);
472     if (sscanf(buf, "%d", &i0) != 1)
473 greg 1.31 return(0);
474 greg 1.24 }
475     ptr->i = i0;
476 greg 1.31 return(1);
477 greg 1.24 case 'r': /* real */
478     if (sscanf(str, "%lf", &d0) != 1) {
479     (*dev->comout)(dsc);
480     sprintf(buf, " (%.6g): ", ptr->d);
481     (*dev->comout)(buf);
482     (*dev->comin)(buf, NULL);
483     if (sscanf(buf, "%lf", &d0) != 1)
484 greg 1.31 return(0);
485 greg 1.24 }
486     ptr->d = d0;
487 greg 1.31 return(1);
488 greg 1.24 case 'b': /* boolean */
489     if (sscanf(str, "%1s", buf) != 1) {
490     (*dev->comout)(dsc);
491 greg 2.2 sprintf(buf, "? (%c): ", ptr->i ? 'y' : 'n');
492 greg 1.24 (*dev->comout)(buf);
493     (*dev->comin)(buf, NULL);
494 greg 1.25 if (buf[0] == '\0' ||
495 schorsch 2.41 strchr("yY+1tTnN-0fF", buf[0]) == NULL)
496 greg 1.31 return(0);
497 greg 1.24 }
498 schorsch 2.41 ptr->i = strchr("yY+1tT", buf[0]) != NULL;
499 greg 1.31 return(1);
500 greg 1.24 case 'C': /* color */
501     if (sscanf(str, "%lf %lf %lf", &d0, &d1, &d2) != 3) {
502     (*dev->comout)(dsc);
503     sprintf(buf, " (%.6g %.6g %.6g): ",
504     colval(ptr->C,RED),
505     colval(ptr->C,GRN),
506     colval(ptr->C,BLU));
507     (*dev->comout)(buf);
508     (*dev->comin)(buf, NULL);
509     if (sscanf(buf, "%lf %lf %lf", &d0, &d1, &d2) != 3)
510 greg 1.31 return(0);
511 greg 1.24 }
512     setcolor(ptr->C, d0, d1, d2);
513 greg 1.31 return(1);
514 greg 1.24 }
515 schorsch 2.43 return 0; /* nothing matched */
516 greg 1.24 }
517    
518    
519 schorsch 2.43 extern void
520     setparam( /* get/set program parameter */
521     register char *s
522     )
523 greg 1.1 {
524 greg 1.24 char buf[128];
525 greg 1.1
526     if (s[0] == '\0') {
527 greg 1.23 (*dev->comout)(
528 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: ");
529 greg 1.18 (*dev->comin)(buf, NULL);
530 greg 1.1 s = buf;
531     }
532     switch (s[0]) {
533 greg 2.51 case 'u': /* uncorrelated sampling */
534     getparam(s+1, "uncorrelated sampling", 'b',
535 greg 2.50 (void *)&rand_samp);
536     break;
537 greg 1.1 case 'l': /* limit */
538     switch (s[1]) {
539     case 'w': /* weight */
540 greg 2.38 getparam(s+2, "limit weight", 'r',
541     (void *)&minweight);
542 greg 1.1 break;
543     case 'r': /* reflection */
544 greg 2.38 getparam(s+2, "limit reflection", 'i',
545     (void *)&maxdepth);
546 greg 1.1 break;
547     default:
548     goto badparam;
549     }
550     break;
551 greg 1.5 case 'd': /* direct */
552     switch (s[1]) {
553     case 'j': /* jitter */
554 greg 2.38 getparam(s+2, "direct jitter", 'r',
555     (void *)&dstrsrc);
556 greg 1.9 break;
557     case 'c': /* certainty */
558 greg 2.38 getparam(s+2, "direct certainty", 'r',
559     (void *)&shadcert);
560 greg 1.5 break;
561 greg 1.8 case 't': /* threshold */
562 greg 2.38 getparam(s+2, "direct threshold", 'r',
563     (void *)&shadthresh);
564 greg 1.5 break;
565 greg 2.13 case 'v': /* visibility */
566 greg 2.38 getparam(s+2, "direct visibility", 'b',
567     (void *)&directvis);
568 greg 1.30 break;
569     case 's': /* sampling */
570 greg 2.38 getparam(s+2, "direct sampling", 'r',
571     (void *)&srcsizerat);
572 greg 1.23 break;
573 greg 1.5 default:
574 greg 1.1 goto badparam;
575     }
576 greg 1.23 break;
577 greg 2.27 case 'b': /* back faces or black and white */
578     switch (s[1]) {
579     case 'v': /* back face visibility */
580 greg 2.38 getparam(s+2, "back face visibility", 'b',
581     (void *)&backvis);
582 greg 2.27 break;
583     case '\0': /* black and white */
584 greg 2.29 case ' ':
585 greg 2.27 case 'y': case 'Y': case 't': case 'T': case '1': case '+':
586     case 'n': case 'N': case 'f': case 'F': case '0': case '-':
587 greg 2.38 getparam(s+1, "black and white", 'b',
588     (void *)&greyscale);
589 greg 2.27 break;
590     default:
591     goto badparam;
592     }
593 greg 1.23 break;
594     case 'i': /* irradiance */
595 greg 2.38 getparam(s+1, "irradiance", 'b',
596     (void *)&do_irrad);
597 greg 1.1 break;
598     case 'a': /* ambient */
599     switch (s[1]) {
600     case 'v': /* value */
601 greg 2.38 getparam(s+2, "ambient value", 'C',
602     (void *)ambval);
603 greg 2.34 break;
604     case 'w': /* weight */
605 greg 2.38 getparam(s+2, "ambient value weight", 'i',
606     (void *)&ambvwt);
607 greg 1.1 break;
608     case 'a': /* accuracy */
609 greg 2.38 if (getparam(s+2, "ambient accuracy", 'r',
610     (void *)&ambacc))
611 greg 2.17 setambacc(ambacc);
612 greg 1.1 break;
613     case 'd': /* divisions */
614 greg 2.38 getparam(s+2, "ambient divisions", 'i',
615     (void *)&ambdiv);
616 greg 1.1 break;
617     case 's': /* samples */
618 greg 2.38 getparam(s+2, "ambient super-samples", 'i',
619     (void *)&ambssamp);
620 greg 1.1 break;
621     case 'b': /* bounces */
622 greg 2.38 getparam(s+2, "ambient bounces", 'i',
623     (void *)&ambounce);
624 greg 1.1 break;
625     case 'r':
626 greg 2.38 if (getparam(s+2, "ambient resolution", 'i',
627     (void *)&ambres))
628 greg 2.8 setambres(ambres);
629 greg 2.32 break;
630     default:
631     goto badparam;
632     }
633     break;
634     case 'm': /* medium */
635     switch (s[1]) {
636     case 'e': /* extinction coefficient */
637     getparam(s+2, "extinction coefficient", 'C',
638 greg 2.38 (void *)cextinction);
639 greg 2.32 break;
640     case 'a': /* scattering albedo */
641 greg 2.35 getparam(s+2, "scattering albedo", 'C',
642 greg 2.38 (void *)salbedo);
643 greg 2.32 break;
644     case 'g': /* scattering eccentricity */
645 greg 2.38 getparam(s+2, "scattering eccentricity", 'r',
646     (void *)&seccg);
647 greg 2.32 break;
648     case 's': /* sampling distance */
649     getparam(s+2, "mist sampling distance", 'r',
650 greg 2.38 (void *)&ssampdist);
651 greg 1.1 break;
652     default:
653     goto badparam;
654     }
655     break;
656 greg 2.5 case 'p': /* pixel */
657 greg 1.1 switch (s[1]) {
658 greg 2.5 case 's': /* sample */
659 greg 2.38 if (getparam(s+2, "pixel sample", 'i',
660     (void *)&psample))
661 greg 1.31 pdepth = 0;
662 greg 1.1 break;
663 greg 1.8 case 't': /* threshold */
664 greg 2.38 if (getparam(s+2, "pixel threshold", 'r',
665     (void *)&maxdiff))
666 greg 1.31 pdepth = 0;
667 greg 2.5 break;
668     default:
669     goto badparam;
670     }
671     break;
672     case 's': /* specular */
673     switch (s[1]) {
674     case 'j': /* jitter */
675 greg 2.38 getparam(s+2, "specular jitter", 'r',
676     (void *)&specjitter);
677 greg 2.5 break;
678     case 't': /* threshold */
679 greg 2.38 getparam(s+2, "specular threshold", 'r',
680     (void *)&specthresh);
681 greg 1.1 break;
682     default:
683     goto badparam;
684     }
685     break;
686     case '\0': /* nothing */
687     break;
688     default:;
689     badparam:
690 greg 1.26 *sskip(s) = '\0';
691 greg 1.1 sprintf(errmsg, "%s: unknown variable", s);
692     error(COMMAND, errmsg);
693     break;
694     }
695     }
696    
697    
698 schorsch 2.43 extern void
699 greg 1.1 traceray(s) /* trace a single ray */
700     char *s;
701     {
702     char buf[128];
703     int x, y;
704 greg 2.37 OBJREC *ino;
705 greg 1.1 RAY thisray;
706    
707 greg 2.26 thisray.rmax = 0.0;
708    
709 greg 2.6 if (!sscanvec(s, thisray.rorg) ||
710 greg 2.33 !sscanvec(sskip2(s,3), thisray.rdir)) {
711 greg 1.1
712     if (dev->getcur == NULL)
713     return;
714     (*dev->comout)("Pick ray\n");
715     if ((*dev->getcur)(&x, &y) == ABORT)
716     return;
717    
718 greg 2.26 if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
719     &ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
720 greg 1.21 error(COMMAND, "not on image");
721     return;
722     }
723    
724 greg 1.1 } else if (normalize(thisray.rdir) == 0.0) {
725     error(COMMAND, "zero ray direction");
726     return;
727     }
728    
729 greg 2.49 rayorigin(&thisray, PRIMARY, NULL, NULL);
730 greg 1.1
731     rayvalue(&thisray);
732    
733     if (thisray.ro == NULL)
734     (*dev->comout)("ray hit nothing");
735     else {
736 greg 2.47 OBJREC *mat = NULL;
737 greg 2.52 OBJREC *mod = NULL;
738 greg 2.47 char matspec[256];
739     matspec[0] = '\0';
740     if (thisray.ro->omod != OVOID) {
741     mod = objptr(thisray.ro->omod);
742     mat = findmaterial(mod);
743     }
744     if (thisray.rod < 0.0)
745     strcpy(matspec, "back of ");
746     if (mod != NULL) {
747     strcat(matspec, mod->oname);
748 greg 2.48 if (mat != mod && mat != NULL)
749     sprintf(matspec+strlen(matspec),
750     " (%s)", mat->oname);
751 greg 2.47 } else
752     strcat(matspec, VOIDID);
753     sprintf(buf, "ray hit %s %s \"%s\"", matspec,
754 greg 1.1 ofun[thisray.ro->otype].funame,
755     thisray.ro->oname);
756 greg 2.37 if ((ino = objptr(thisray.robj)) != thisray.ro)
757     sprintf(buf+strlen(buf), " in %s \"%s\"",
758     ofun[ino->otype].funame, ino->oname);
759 greg 1.1 (*dev->comout)(buf);
760 greg 1.18 (*dev->comin)(buf, NULL);
761 greg 1.1 if (thisray.rot >= FHUGE)
762     (*dev->comout)("at infinity");
763     else {
764 greg 2.30 sprintf(buf, "at (%.6g %.6g %.6g) (%.6g)",
765     thisray.rop[0], thisray.rop[1],
766     thisray.rop[2], thisray.rt);
767 greg 1.1 (*dev->comout)(buf);
768     }
769 greg 1.18 (*dev->comin)(buf, NULL);
770 greg 2.38 sprintf(buf, "value (%.5g %.5g %.5g) (%.3gL)",
771 greg 1.1 colval(thisray.rcol,RED),
772     colval(thisray.rcol,GRN),
773 greg 1.32 colval(thisray.rcol,BLU),
774     luminance(thisray.rcol));
775 greg 1.1 (*dev->comout)(buf);
776     }
777 greg 1.18 (*dev->comin)(buf, NULL);
778 greg 1.1 }
779    
780    
781 schorsch 2.43 extern void
782 greg 1.1 writepict(s) /* write the picture to a file */
783     char *s;
784     {
785     static char buf[128];
786 greg 1.10 char *fname;
787 greg 1.1 FILE *fp;
788     COLR *scanline;
789     int y;
790    
791 greg 2.20 while (isspace(*s))
792     s++;
793     if (*s)
794     atos(buf, sizeof(buf), s);
795     else if (buf[0] == '\0') {
796 greg 1.1 error(COMMAND, "no file");
797     return;
798     }
799 greg 1.10 if ((fname = getpath(buf, NULL, 0)) == NULL ||
800 greg 1.1 (fp = fopen(fname, "w")) == NULL) {
801     sprintf(errmsg, "cannot open \"%s\"", buf);
802     error(COMMAND, errmsg);
803     return;
804     }
805 schorsch 2.40 SET_FILE_BINARY(fp);
806 greg 1.1 (*dev->comout)("writing \"");
807     (*dev->comout)(fname);
808     (*dev->comout)("\"...\n");
809     /* write header */
810 greg 2.24 newheader("RADIANCE", fp);
811 greg 1.1 fputs(progname, fp);
812     fprintview(&ourview, fp);
813 greg 1.29 if (octname != NULL)
814     fprintf(fp, " %s\n", octname);
815     else
816     putc('\n', fp);
817 greg 1.28 fprintf(fp, "SOFTWARE= %s\n", VersionID);
818 greg 2.38 fputnow(fp);
819 greg 1.1 if (exposure != 1.0)
820 greg 1.13 fputexpos(exposure, fp);
821 greg 1.15 if (dev->pixaspect != 1.0)
822     fputaspect(dev->pixaspect, fp);
823 greg 1.22 fputformat(COLRFMT, fp);
824 greg 1.11 putc('\n', fp);
825 greg 1.33 fprtresolu(hresolu, vresolu, fp);
826 greg 1.1
827 greg 1.14 scanline = (COLR *)malloc(hresolu*sizeof(COLR));
828 greg 1.27 if (scanline == NULL) {
829     error(COMMAND, "not enough memory!");
830     fclose(fp);
831     unlink(fname);
832     return;
833     }
834 greg 1.14 for (y = vresolu-1; y >= 0; y--) {
835     getpictcolrs(y, scanline, &ptrunk, hresolu, vresolu);
836     if (fwritecolrs(scanline, hresolu, fp) < 0)
837 greg 1.1 break;
838     }
839 greg 2.38 free((void *)scanline);
840 greg 1.1 if (fclose(fp) < 0)
841     error(COMMAND, "write error");
842     }