ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rv3.c
Revision: 2.27
Committed: Fri Sep 5 19:45:41 2008 UTC (15 years, 7 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.26: +21 -1 lines
Log Message:
Fixed bug that broke "exposure" command

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: rv3.c,v 2.26 2008/08/29 05:46:03 greg Exp $";
3 #endif
4 /*
5 * rv3.c - miscellaneous routines for rview.
6 *
7 * External symbols declared in rpaint.h
8 */
9
10 #include "copyright.h"
11
12 #include <string.h>
13
14 #include "ray.h"
15 #include "rpaint.h"
16 #include "random.h"
17
18 #ifndef WFLUSH
19 #define WFLUSH 64 /* flush after this many rays */
20 #endif
21
22 #ifdef SMLFLT
23 #define sscanvec(s,v) (sscanf(s,"%f %f %f",v,v+1,v+2)==3)
24 #else
25 #define sscanvec(s,v) (sscanf(s,"%lf %lf %lf",v,v+1,v+2)==3)
26 #endif
27
28 static unsigned long niflush; /* flushes since newimage() */
29
30 int
31 getrect( /* get a box */
32 char *s,
33 RECT *r
34 )
35 {
36 int x0, y0, x1, y1;
37
38 if (*s && !strncmp(s, "all", strlen(s))) {
39 r->l = r->d = 0;
40 r->r = hresolu;
41 r->u = vresolu;
42 return(0);
43 }
44 if (sscanf(s, "%d %d %d %d", &x0, &y0, &x1, &y1) != 4) {
45 if (dev->getcur == NULL)
46 return(-1);
47 (*dev->comout)("Pick first corner\n");
48 if ((*dev->getcur)(&x0, &y0) == ABORT)
49 return(-1);
50 (*dev->comout)("Pick second corner\n");
51 if ((*dev->getcur)(&x1, &y1) == ABORT)
52 return(-1);
53 }
54 if (x0 < x1) {
55 r->l = x0;
56 r->r = x1;
57 } else {
58 r->l = x1;
59 r->r = x0;
60 }
61 if (y0 < y1) {
62 r->d = y0;
63 r->u = y1;
64 } else {
65 r->d = y1;
66 r->u = y0;
67 }
68 if (r->l < 0) r->l = 0;
69 if (r->d < 0) r->d = 0;
70 if (r->r > hresolu) r->r = hresolu;
71 if (r->u > vresolu) r->u = vresolu;
72 if (r->l > r->r) r->l = r->r;
73 if (r->d > r->u) r->d = r->u;
74 return(0);
75 }
76
77
78 int
79 getinterest( /* get area of interest */
80 char *s,
81 int direc,
82 FVECT vec,
83 double *mp
84 )
85 {
86 int x, y;
87 RAY thisray;
88 int i;
89
90 if (sscanf(s, "%lf", mp) != 1)
91 *mp = 1.0;
92 else if (*mp < -FTINY) /* negative zoom is reduction */
93 *mp = -1.0 / *mp;
94 else if (*mp <= FTINY) { /* too small */
95 error(COMMAND, "illegal magnification");
96 return(-1);
97 }
98 if (!sscanvec(sskip(s), vec)) {
99 if (dev->getcur == NULL)
100 return(-1);
101 (*dev->comout)("Pick view center\n");
102 if ((*dev->getcur)(&x, &y) == ABORT)
103 return(-1);
104 if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
105 &ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
106 error(COMMAND, "not on image");
107 return(-1);
108 }
109 if (!direc || ourview.type == VT_PAR) {
110 rayorigin(&thisray, PRIMARY, NULL, NULL);
111 if (!localhit(&thisray, &thescene)) {
112 error(COMMAND, "not a local object");
113 return(-1);
114 }
115 }
116 if (direc)
117 if (ourview.type == VT_PAR)
118 for (i = 0; i < 3; i++)
119 vec[i] = thisray.rop[i] - ourview.vp[i];
120 else
121 VCOPY(vec, thisray.rdir);
122 else
123 VCOPY(vec, thisray.rop);
124 } else if (direc) {
125 for (i = 0; i < 3; i++)
126 vec[i] -= ourview.vp[i];
127 if (normalize(vec) == 0.0) {
128 error(COMMAND, "point at view origin");
129 return(-1);
130 }
131 }
132 return(0);
133 }
134
135
136 float * /* keep consistent with COLOR typedef */
137 greyof( /* convert color to greyscale */
138 COLOR col
139 )
140 {
141 static COLOR gcol;
142 double b;
143
144 b = bright(col);
145 setcolor(gcol, b, b, b);
146 return(gcol);
147 }
148
149 static void
150 recolor( /* recolor the given node */
151 PNODE *p
152 )
153 {
154 while (p->kid != NULL) { /* need to propogate down */
155 int mx = (p->xmin + p->xmax) >> 1;
156 int my = (p->ymin + p->ymax) >> 1;
157 int ki;
158 if (p->x >= mx)
159 ki = (p->y >= my) ? UR : DR;
160 else
161 ki = (p->y >= my) ? UL : DL;
162 pcopy(p, p->kid+ki);
163 p = p->kid + ki;
164 }
165
166 (*dev->paintr)(greyscale?greyof(p->v):p->v,
167 p->xmin, p->ymin, p->xmax, p->ymax);
168 }
169
170 int
171 paint( /* compute and paint a rectangle */
172 PNODE *p
173 )
174 {
175 extern int ray_pnprocs;
176 static unsigned long lastflush = 0;
177 static RAY thisray;
178 int flushintvl;
179 double h, v;
180
181 if (p->xmax - p->xmin <= 0 || p->ymax - p->ymin <= 0) { /* empty */
182 p->x = p->xmin;
183 p->y = p->ymin;
184 setcolor(p->v, 0.0, 0.0, 0.0);
185 return(0);
186 }
187 /* jitter ray direction */
188 p->x = h = p->xmin + (p->xmax-p->xmin)*frandom();
189 p->y = v = p->ymin + (p->ymax-p->ymin)*frandom();
190
191 if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir, &ourview,
192 h/hresolu, v/vresolu)) < -FTINY) {
193 setcolor(thisray.rcol, 0.0, 0.0, 0.0);
194 } else {
195 int rval;
196 rayorigin(&thisray, PRIMARY, NULL, NULL);
197 thisray.rno = (unsigned long)p;
198 rval = ray_pqueue(&thisray);
199 if (!rval)
200 return(0);
201 if (rval < 0)
202 return(-1);
203 p = (PNODE *)thisray.rno;
204 }
205
206 copycolor(p->v, thisray.rcol);
207 scalecolor(p->v, exposure);
208
209 recolor(p); /* paint it */
210
211 if (ambounce <= 0) /* shall we check for input? */
212 flushintvl = ray_pnprocs*WFLUSH;
213 else if (niflush < WFLUSH)
214 flushintvl = ray_pnprocs*niflush/(ambounce+1);
215 else
216 flushintvl = ray_pnprocs*WFLUSH/(ambounce+1);
217
218 if (dev->flush != NULL && raynum - lastflush >= flushintvl) {
219 lastflush = raynum;
220 (*dev->flush)();
221 niflush++;
222 }
223 return(1);
224 }
225
226
227 int
228 waitrays(void) /* finish up pending rays */
229 {
230 int nwaited = 0;
231 int rval;
232 RAY raydone;
233
234 while ((rval = ray_presult(&raydone, 0)) > 0) {
235 PNODE *p = (PNODE *)raydone.rno;
236 copycolor(p->v, raydone.rcol);
237 scalecolor(p->v, exposure);
238 recolor(p);
239 nwaited++;
240 }
241 if (rval < 0)
242 return(-1);
243 return(nwaited);
244 }
245
246
247 void
248 newimage( /* start a new image */
249 char *s
250 )
251 {
252 int newnp;
253 /* change in nproc? */
254 if (s != NULL && sscanf(s, "%d", &newnp) == 1 && newnp > 0) {
255 if (!newparam) {
256 if (newnp < nproc)
257 ray_pclose(nproc - newnp);
258 else
259 ray_popen(newnp - nproc);
260 }
261 nproc = newnp;
262 }
263 /* free old image */
264 freepkids(&ptrunk);
265 /* compute resolution */
266 hresolu = dev->xsiz;
267 vresolu = dev->ysiz;
268 normaspect(viewaspect(&ourview), &dev->pixaspect, &hresolu, &vresolu);
269 ptrunk.xmin = ptrunk.ymin = pframe.l = pframe.d = 0;
270 ptrunk.xmax = pframe.r = hresolu;
271 ptrunk.ymax = pframe.u = vresolu;
272 pdepth = 0;
273 /* clear device */
274 (*dev->clear)(hresolu, vresolu);
275
276 if (newparam) { /* (re)start rendering procs */
277 ray_pclose(0);
278 ray_popen(nproc);
279 newparam = 0;
280 }
281 niflush = 0; /* get first value */
282 paint(&ptrunk);
283 }
284
285
286 void
287 redraw(void) /* redraw the image */
288 {
289 (*dev->clear)(hresolu, vresolu);
290 (*dev->comout)("redrawing...\n");
291 repaint(0, 0, hresolu, vresolu);
292 (*dev->comout)("\n");
293 }
294
295
296 void
297 repaint( /* repaint a region */
298 int xmin,
299 int ymin,
300 int xmax,
301 int ymax
302 )
303 {
304 RECT reg;
305
306 reg.l = xmin; reg.r = xmax;
307 reg.d = ymin; reg.u = ymax;
308
309 paintrect(&ptrunk, &reg);
310 }
311
312
313 void
314 paintrect( /* paint picture rectangle */
315 PNODE *p,
316 RECT *r
317 )
318 {
319 int mx, my;
320
321 if (p->xmax - p->xmin <= 0 || p->ymax - p->ymin <= 0)
322 return;
323
324 if (p->kid == NULL) {
325 (*dev->paintr)(greyscale?greyof(p->v):p->v,
326 p->xmin, p->ymin, p->xmax, p->ymax); /* do this */
327 return;
328 }
329 mx = (p->xmin + p->xmax) >> 1; /* do kids */
330 my = (p->ymin + p->ymax) >> 1;
331 if (mx > r->l) {
332 if (my > r->d)
333 paintrect(p->kid+DL, r);
334 if (my < r->u)
335 paintrect(p->kid+UL, r);
336 }
337 if (mx < r->r) {
338 if (my > r->d)
339 paintrect(p->kid+DR, r);
340 if (my < r->u)
341 paintrect(p->kid+UR, r);
342 }
343 }
344
345
346 PNODE *
347 findrect( /* find a rectangle */
348 int x,
349 int y,
350 PNODE *p,
351 int pd
352 )
353 {
354 int mx, my;
355
356 while (p->kid != NULL && pd--) {
357
358 mx = (p->xmin + p->xmax) >> 1;
359 my = (p->ymin + p->ymax) >> 1;
360
361 if (x < mx) {
362 if (y < my) {
363 p = p->kid+DL;
364 } else {
365 p = p->kid+UL;
366 }
367 } else {
368 if (y < my) {
369 p = p->kid+DR;
370 } else {
371 p = p->kid+UR;
372 }
373 }
374 }
375 return(p);
376 }
377
378
379 void
380 compavg( /* recompute averages */
381 PNODE *p
382 )
383 {
384 if (p->kid == NULL)
385 return;
386 compavg(p->kid+DL);
387 compavg(p->kid+DR);
388 compavg(p->kid+UL);
389 compavg(p->kid+UR);
390 setcolor(p->v, .0, .0, .0);
391 addcolor(p->v, p->kid[DL].v);
392 addcolor(p->v, p->kid[DR].v);
393 addcolor(p->v, p->kid[UL].v);
394 addcolor(p->v, p->kid[UR].v);
395 scalecolor(p->v, 0.25);
396 }
397
398
399 void
400 scalepict( /* scale picture values */
401 PNODE *p,
402 double sf
403 )
404 {
405 scalecolor(p->v, sf); /* do this node */
406
407 if (p->kid == NULL)
408 return;
409 /* do children */
410 scalepict(p->kid+DL, sf);
411 scalepict(p->kid+DR, sf);
412 scalepict(p->kid+UL, sf);
413 scalepict(p->kid+UR, sf);
414 }
415
416
417 void
418 getpictcolrs( /* get scanline from picture */
419 int yoff,
420 COLR *scan,
421 PNODE *p,
422 int xsiz,
423 int ysiz
424 )
425 {
426 int mx;
427 int my;
428
429 if (p->kid == NULL) { /* do this node */
430 setcolr(scan[0], colval(p->v,RED),
431 colval(p->v,GRN),
432 colval(p->v,BLU));
433 for (mx = 1; mx < xsiz; mx++)
434 copycolr(scan[mx], scan[0]);
435 return;
436 }
437 /* do kids */
438 mx = xsiz >> 1;
439 my = ysiz >> 1;
440 if (yoff < my) {
441 getpictcolrs(yoff, scan, p->kid+DL, mx, my);
442 getpictcolrs(yoff, scan+mx, p->kid+DR, xsiz-mx, my);
443 } else {
444 getpictcolrs(yoff-my, scan, p->kid+UL, mx, ysiz-my);
445 getpictcolrs(yoff-my, scan+mx, p->kid+UR, xsiz-mx, ysiz-my);
446 }
447 }
448
449
450 void
451 freepkids( /* free pnode's children */
452 PNODE *p
453 )
454 {
455 if (p->kid == NULL)
456 return;
457 freepkids(p->kid+DL);
458 freepkids(p->kid+DR);
459 freepkids(p->kid+UL);
460 freepkids(p->kid+UR);
461 free((void *)p->kid);
462 p->kid = NULL;
463 }
464
465
466 void
467 newview( /* change viewing parameters */
468 VIEW *vp
469 )
470 {
471 char *err;
472
473 if ((err = setview(vp)) != NULL) {
474 sprintf(errmsg, "view not set - %s", err);
475 error(COMMAND, errmsg);
476 } else if (memcmp((char *)vp, (char *)&ourview, sizeof(VIEW))) {
477 oldview = ourview;
478 ourview = *vp;
479 newimage(NULL);
480 }
481 }
482
483
484 void
485 moveview( /* move viewpoint */
486 double angle,
487 double elev,
488 double mag,
489 FVECT vc
490 )
491 {
492 double d;
493 FVECT v1;
494 VIEW nv = ourview;
495 int i;
496
497 spinvector(nv.vdir, ourview.vdir, ourview.vup, angle*(PI/180.));
498 if (elev != 0.0) {
499 fcross(v1, ourview.vup, nv.vdir);
500 normalize(v1);
501 spinvector(nv.vdir, nv.vdir, v1, elev*(PI/180.));
502 }
503 if (nv.type == VT_PAR) {
504 nv.horiz /= mag;
505 nv.vert /= mag;
506 d = 0.0; /* don't move closer */
507 for (i = 0; i < 3; i++)
508 d += (vc[i] - ourview.vp[i])*ourview.vdir[i];
509 } else {
510 d = sqrt(dist2(ourview.vp, vc)) / mag;
511 if (nv.vfore > FTINY) {
512 nv.vfore += d - d*mag;
513 if (nv.vfore < 0.0) nv.vfore = 0.0;
514 }
515 if (nv.vaft > FTINY) {
516 nv.vaft += d - d*mag;
517 if (nv.vaft <= nv.vfore) nv.vaft = 0.0;
518 }
519 nv.vdist /= mag;
520 }
521 for (i = 0; i < 3; i++)
522 nv.vp[i] = vc[i] - d*nv.vdir[i];
523 newview(&nv);
524 }
525
526
527 void
528 pcopy( /* copy paint node p1 into p2 */
529 PNODE *p1,
530 PNODE *p2
531 )
532 {
533 copycolor(p2->v, p1->v);
534 p2->x = p1->x;
535 p2->y = p1->y;
536 }
537
538
539 void
540 zoomview( /* zoom in or out */
541 VIEW *vp,
542 double zf
543 )
544 {
545 switch (vp->type) {
546 case VT_PAR: /* parallel view */
547 vp->horiz /= zf;
548 vp->vert /= zf;
549 return;
550 case VT_ANG: /* angular fisheye */
551 vp->horiz /= zf;
552 if (vp->horiz > 360.)
553 vp->horiz = 360.;
554 vp->vert /= zf;
555 if (vp->vert > 360.)
556 vp->vert = 360.;
557 return;
558 case VT_PLS: /* planisphere fisheye */
559 vp->horiz = sin((PI/180./2.)*vp->horiz) /
560 (1.0 + cos((PI/180./2.)*vp->horiz)) / zf;
561 vp->horiz *= vp->horiz;
562 vp->horiz = (2.*180./PI)*acos((1. - vp->horiz) /
563 (1. + vp->horiz));
564 vp->vert = sin((PI/180./2.)*vp->vert) /
565 (1.0 + cos((PI/180./2.)*vp->vert)) / zf;
566 vp->vert *= vp->vert;
567 vp->vert = (2.*180./PI)*acos((1. - vp->vert) /
568 (1. + vp->vert));
569 return;
570 case VT_CYL: /* cylindrical panorama */
571 vp->horiz /= zf;
572 if (vp->horiz > 360.)
573 vp->horiz = 360.;
574 vp->vert = atan(tan(vp->vert*(PI/180./2.))/zf) / (PI/180./2.);
575 return;
576 case VT_PER: /* perspective view */
577 vp->horiz = atan(tan(vp->horiz*(PI/180./2.))/zf) /
578 (PI/180./2.);
579 vp->vert = atan(tan(vp->vert*(PI/180./2.))/zf) /
580 (PI/180./2.);
581 return;
582 case VT_HEM: /* hemispherical fisheye */
583 vp->horiz = sin(vp->horiz*(PI/180./2.))/zf;
584 if (vp->horiz >= 1.0-FTINY)
585 vp->horiz = 180.;
586 else
587 vp->horiz = asin(vp->horiz) / (PI/180./2.);
588 vp->vert = sin(vp->vert*(PI/180./2.))/zf;
589 if (vp->vert >= 1.0-FTINY)
590 vp->vert = 180.;
591 else
592 vp->vert = asin(vp->vert) / (PI/180./2.);
593 return;
594 }
595 }