ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/pinterp.c
Revision: 1.9
Committed: Wed Jan 3 12:52:30 1990 UTC (34 years, 4 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.8: +18 -19 lines
Log Message:
changed use of variables in addpicture()

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2     static char SCCSid[] = "$SunId$ LBL";
3     #endif
4    
5     /*
6     * Interpolate and extrapolate pictures with different view parameters.
7     *
8     * Greg Ward 09Dec89
9     */
10    
11     #include "standard.h"
12    
13     #include "view.h"
14    
15     #include "color.h"
16    
17     #define pscan(y) (ourpict+(y)*ourview.hresolu)
18     #define zscan(y) (ourzbuf+(y)*ourview.hresolu)
19    
20 greg 1.3 #define ABS(x) ((x)>0?(x):-(x))
21    
22 greg 1.1 VIEW ourview = STDVIEW(512); /* desired view */
23    
24 greg 1.8 double zeps = .02; /* allowed z epsilon */
25 greg 1.1
26     COLR *ourpict; /* output picture */
27     float *ourzbuf; /* corresponding z-buffer */
28    
29     char *progname;
30    
31     VIEW theirview = STDVIEW(512); /* input view */
32     int gotview; /* got input view? */
33    
34 greg 1.5 double theirs2ours[4][4]; /* transformation matrix */
35 greg 1.1
36 greg 1.5
37 greg 1.1 main(argc, argv) /* interpolate pictures */
38     int argc;
39     char *argv[];
40     {
41     #define check(olen,narg) if (argv[i][olen] || narg >= argc-i) goto badopt
42     int gotvfile = 0;
43     char *err;
44     int i;
45    
46     progname = argv[0];
47    
48     for (i = 1; i < argc && argv[i][0] == '-'; i++)
49     switch (argv[i][1]) {
50     case 't': /* threshold */
51     check(2,1);
52     zeps = atof(argv[++i]);
53     break;
54 greg 1.6 case 'x': /* x resolution */
55     check(2,1);
56     ourview.hresolu = atoi(argv[++i]);
57     break;
58     case 'y': /* y resolution */
59     check(2,1);
60     ourview.vresolu = atoi(argv[++i]);
61     break;
62 greg 1.1 case 'v': /* view */
63     switch (argv[i][2]) {
64     case 't': /* type */
65     check(4,0);
66     ourview.type = argv[i][3];
67     break;
68     case 'p': /* point */
69     check(3,3);
70     ourview.vp[0] = atof(argv[++i]);
71     ourview.vp[1] = atof(argv[++i]);
72     ourview.vp[2] = atof(argv[++i]);
73     break;
74     case 'd': /* direction */
75     check(3,3);
76     ourview.vdir[0] = atof(argv[++i]);
77     ourview.vdir[1] = atof(argv[++i]);
78     ourview.vdir[2] = atof(argv[++i]);
79     break;
80     case 'u': /* up */
81     check(3,3);
82     ourview.vup[0] = atof(argv[++i]);
83     ourview.vup[1] = atof(argv[++i]);
84     ourview.vup[2] = atof(argv[++i]);
85     break;
86     case 'h': /* horizontal */
87     check(3,1);
88     ourview.horiz = atof(argv[++i]);
89     break;
90     case 'v': /* vertical */
91     check(3,1);
92     ourview.vert = atof(argv[++i]);
93     break;
94     case 'f': /* file */
95     check(3,1);
96     gotvfile = viewfile(argv[++i], &ourview);
97     if (gotvfile < 0) {
98     perror(argv[i]);
99     exit(1);
100     } else if (gotvfile == 0) {
101     fprintf(stderr, "%s: bad view file\n",
102     argv[i]);
103     exit(1);
104     }
105     break;
106     default:
107     goto badopt;
108     }
109     break;
110     default:
111     badopt:
112     fprintf(stderr, "%s: unknown option '%s'\n",
113     progname, argv[i]);
114     exit(1);
115     }
116     /* check arguments */
117     if (argc-i < 2 || (argc-i)%2) {
118     fprintf(stderr, "Usage: %s [view args] pfile zfile ..\n",
119     progname);
120     exit(1);
121     }
122     /* set view */
123     if (err = setview(&ourview)) {
124     fprintf(stderr, "%s: %s\n", progname, err);
125     exit(1);
126     }
127     /* allocate frame */
128     ourpict = (COLR *)calloc(ourview.hresolu*ourview.vresolu,sizeof(COLR));
129     ourzbuf = (float *)calloc(ourview.hresolu*ourview.vresolu,sizeof(float));
130     if (ourpict == NULL || ourzbuf == NULL) {
131     perror(progname);
132     exit(1);
133     }
134     /* get input */
135     for ( ; i < argc; i += 2)
136     addpicture(argv[i], argv[i+1]);
137     /* fill in spaces */
138     fillpicture();
139     /* add to header */
140     printargs(argc, argv, stdout);
141     if (gotvfile) {
142     printf(VIEWSTR);
143     fprintview(&ourview, stdout);
144     printf("\n");
145     }
146     printf("\n");
147     /* write output */
148     writepicture();
149    
150     exit(0);
151     #undef check
152     }
153    
154    
155     headline(s) /* process header string */
156     char *s;
157     {
158     static char *altname[] = {"rview","rpict","pinterp",VIEWSTR,NULL};
159     register char **an;
160    
161     printf("\t%s", s);
162    
163     for (an = altname; *an != NULL; an++)
164     if (!strncmp(*an, s, strlen(*an))) {
165     if (sscanview(&theirview, s+strlen(*an)) == 0)
166     gotview++;
167     break;
168     }
169     }
170    
171    
172     addpicture(pfile, zfile) /* add picture to output */
173     char *pfile, *zfile;
174     {
175     FILE *pfp, *zfp;
176 greg 1.8 char *err;
177 greg 1.1 COLR *scanin;
178 greg 1.9 float *zin, *zlast;
179     int *plast;
180 greg 1.1 int y;
181     /* open input files */
182     if ((pfp = fopen(pfile, "r")) == NULL) {
183     perror(pfile);
184     exit(1);
185     }
186     if ((zfp = fopen(zfile, "r")) == NULL) {
187     perror(zfile);
188     exit(1);
189     }
190     /* get header and view */
191     printf("%s:\n", pfile);
192     gotview = 0;
193     getheader(pfp, headline);
194 greg 1.9 if (!gotview || fgetresolu(&theirview.hresolu, &theirview.vresolu, pfp)
195     != (YMAJOR|YDECR)) {
196 greg 1.1 fprintf(stderr, "%s: picture view error\n", pfile);
197     exit(1);
198     }
199     if (err = setview(&theirview)) {
200     fprintf(stderr, "%s: %s\n", pfile, err);
201     exit(1);
202     }
203 greg 1.5 /* compute transformation */
204     pixform(theirs2ours, &theirview, &ourview);
205 greg 1.1 /* allocate scanlines */
206 greg 1.9 scanin = (COLR *)malloc(theirview.hresolu*sizeof(COLR));
207     zin = (float *)malloc(theirview.hresolu*sizeof(float));
208     zlast = (float *)calloc(theirview.hresolu, sizeof(float));
209     plast = (int *)calloc(theirview.hresolu, sizeof(int));
210     if (scanin == NULL || zin == NULL || zlast == NULL || plast == NULL) {
211 greg 1.1 perror(progname);
212     exit(1);
213     }
214     /* load image */
215 greg 1.9 for (y = theirview.vresolu-1; y >= 0; y--) {
216     if (freadcolrs(scanin, theirview.hresolu, pfp) < 0) {
217 greg 1.1 fprintf(stderr, "%s: read error\n", pfile);
218     exit(1);
219     }
220 greg 1.9 if (fread(zin, sizeof(float), theirview.hresolu, zfp)
221     < theirview.hresolu) {
222 greg 1.1 fprintf(stderr, "%s: read error\n", zfile);
223     exit(1);
224     }
225 greg 1.9 addscanline(y, scanin, zin, plast, zlast);
226 greg 1.1 }
227     /* clean up */
228     free((char *)scanin);
229     free((char *)zin);
230 greg 1.9 free((char *)plast);
231     free((char *)zlast);
232 greg 1.1 fclose(pfp);
233     fclose(zfp);
234     }
235    
236    
237 greg 1.5 pixform(xfmat, vw1, vw2) /* compute view1 to view2 matrix */
238     register double xfmat[4][4];
239     register VIEW *vw1, *vw2;
240     {
241     double m4t[4][4];
242    
243     setident4(xfmat);
244     xfmat[0][0] = vw1->vhinc[0];
245     xfmat[0][1] = vw1->vhinc[1];
246     xfmat[0][2] = vw1->vhinc[2];
247     xfmat[1][0] = vw1->vvinc[0];
248     xfmat[1][1] = vw1->vvinc[1];
249     xfmat[1][2] = vw1->vvinc[2];
250     xfmat[2][0] = vw1->vdir[0];
251     xfmat[2][1] = vw1->vdir[1];
252     xfmat[2][2] = vw1->vdir[2];
253     xfmat[3][0] = vw1->vp[0];
254     xfmat[3][1] = vw1->vp[1];
255     xfmat[3][2] = vw1->vp[2];
256     setident4(m4t);
257     m4t[0][0] = vw2->vhinc[0]/vw2->vhn2;
258     m4t[1][0] = vw2->vhinc[1]/vw2->vhn2;
259     m4t[2][0] = vw2->vhinc[2]/vw2->vhn2;
260     m4t[3][0] = -DOT(vw2->vp,vw2->vhinc)/vw2->vhn2;
261     m4t[0][1] = vw2->vvinc[0]/vw2->vvn2;
262     m4t[1][1] = vw2->vvinc[1]/vw2->vvn2;
263     m4t[2][1] = vw2->vvinc[2]/vw2->vvn2;
264     m4t[3][1] = -DOT(vw2->vp,vw2->vvinc)/vw2->vvn2;
265     m4t[0][2] = vw2->vdir[0];
266     m4t[1][2] = vw2->vdir[1];
267     m4t[2][2] = vw2->vdir[2];
268     m4t[3][2] = -DOT(vw2->vp,vw2->vdir);
269     multmat4(xfmat, xfmat, m4t);
270     }
271    
272    
273 greg 1.8 addscanline(y, pline, zline, lasty, lastyz) /* add scanline to output */
274 greg 1.1 int y;
275     COLR *pline;
276     float *zline;
277 greg 1.9 int *lasty; /* input/output */
278     float *lastyz; /* input/output */
279 greg 1.1 {
280 greg 1.8 extern double sqrt(), fabs();
281 greg 1.5 double pos[3];
282 greg 1.8 int lastx = 0;
283     double lastxz = 0;
284     double zt;
285     int xpos, ypos;
286 greg 1.1 register int x;
287    
288 greg 1.8 for (x = theirview.hresolu-1; x >= 0; x--) {
289 greg 1.5 pos[0] = x - .5*(theirview.hresolu-1);
290     pos[1] = y - .5*(theirview.vresolu-1);
291     pos[2] = zline[x];
292     if (theirview.type == VT_PER) {
293 greg 1.8 /*
294     * The following (single) statement can go
295     * if z is along the view direction rather
296     * than an eye ray.
297     */
298 greg 1.5 pos[2] /= sqrt( 1.
299     + pos[0]*pos[0]*theirview.vhn2
300     + pos[1]*pos[1]*theirview.vvn2 );
301     pos[0] *= pos[2];
302     pos[1] *= pos[2];
303     }
304     multp3(pos, pos, theirs2ours);
305 greg 1.8 if (pos[2] <= 0)
306 greg 1.1 continue;
307 greg 1.5 if (ourview.type == VT_PER) {
308     pos[0] /= pos[2];
309     pos[1] /= pos[2];
310     }
311     pos[0] += .5*ourview.hresolu;
312     pos[1] += .5*ourview.vresolu;
313 greg 1.8 if (pos[0] < 0 || (xpos = pos[0]) >= ourview.hresolu
314     || pos[1] < 0 || (ypos = pos[1]) >= ourview.vresolu)
315 greg 1.5 continue;
316 greg 1.8 /* add pixel to our image */
317     zt = 2.*zeps*zline[x];
318     addpixel(xpos, ypos,
319     (fabs(zline[x]-lastxz) <= zt) ? lastx - xpos : 1,
320     (fabs(zline[x]-lastyz[x]) <= zt) ? lasty[x] - ypos : 1,
321     pline[x], pos[2]);
322     lastx = xpos;
323     lasty[x] = ypos;
324     lastxz = lastyz[x] = zline[x];
325 greg 1.1 }
326     }
327    
328    
329 greg 1.8 addpixel(xstart, ystart, width, height, pix, z) /* fill in area for pixel */
330     int xstart, ystart;
331     int width, height;
332     COLR pix;
333     double z;
334     {
335     register int x, y;
336     /* make width and height positive */
337     if (width < 0) {
338     width = -width;
339     xstart = xstart-width+1;
340     } else if (width == 0)
341     width = 1;
342     if (height < 0) {
343     height = -height;
344     ystart = ystart-height+1;
345     } else if (height == 0)
346     height = 1;
347     /* fill pixel(s) within rectangle */
348     for (y = ystart; y < ystart+height; y++)
349     for (x = xstart; x < xstart+width; x++)
350     if (zscan(y)[x] <= 0
351     || zscan(y)[x]-z > zeps*zscan(y)[x]) {
352     zscan(y)[x] = z;
353     copycolr(pscan(y)[x], pix);
354     }
355     }
356    
357    
358 greg 1.1 fillpicture() /* fill in empty spaces */
359     {
360 greg 1.2 int *yback, xback;
361 greg 1.1 int y;
362 greg 1.2 COLR pfill;
363     register int x, i;
364     /* get back buffer */
365     yback = (int *)malloc(ourview.hresolu*sizeof(int));
366     if (yback == NULL) {
367     perror(progname);
368     return;
369     }
370     for (x = 0; x < ourview.hresolu; x++)
371 greg 1.4 yback[x] = -2;
372 greg 1.7 /*
373     * Xback and yback are the pixel locations of suitable
374     * background values in each direction.
375     * A value of -2 means unassigned, and -1 means
376     * that there is no suitable background in this direction.
377     */
378 greg 1.2 /* fill image */
379 greg 1.4 for (y = 0; y < ourview.vresolu; y++) {
380     xback = -2;
381 greg 1.1 for (x = 0; x < ourview.hresolu; x++)
382 greg 1.8 if (zscan(y)[x] <= 0) { /* empty pixel */
383 greg 1.7 /*
384     * First, find background from above or below.
385     * (farthest assigned pixel)
386     */
387 greg 1.4 if (yback[x] == -2) {
388     for (i = y+1; i < ourview.vresolu; i++)
389 greg 1.8 if (zscan(i)[x] > 0)
390 greg 1.4 break;
391     if (i < ourview.vresolu
392 greg 1.2 && (y <= 0 || zscan(y-1)[x] < zscan(i)[x]))
393 greg 1.4 yback[x] = i;
394     else
395     yback[x] = y-1;
396 greg 1.2 }
397 greg 1.7 /*
398     * Next, find background from left or right.
399     */
400 greg 1.4 if (xback == -2) {
401     for (i = x+1; x < ourview.hresolu; i++)
402 greg 1.8 if (zscan(y)[i] > 0)
403 greg 1.4 break;
404     if (i < ourview.hresolu
405     && (x <= 0 || zscan(y)[x-1] < zscan(y)[i]))
406     xback = i;
407     else
408     xback = x-1;
409     }
410     if (xback < 0 && yback[x] < 0)
411 greg 1.7 continue; /* no background */
412     /*
413     * Compare, and use the background that is
414     * farther, unless one of them is next to us.
415     */
416 greg 1.4 if (yback[x] < 0 || ABS(x-xback) <= 1
417     || ( ABS(y-yback[x]) > 1
418     && zscan(yback[x])[x] < zscan(y)[xback] ))
419     copycolr(pscan(y)[x],pscan(y)[xback]);
420     else
421     copycolr(pscan(y)[x],pscan(yback[x])[x]);
422     } else { /* full pixel */
423     yback[x] = -2;
424     xback = -2;
425     }
426     }
427 greg 1.2 free((char *)yback);
428 greg 1.1 }
429    
430    
431     writepicture() /* write out picture */
432     {
433     int y;
434    
435     fputresolu(YMAJOR|YDECR, ourview.hresolu, ourview.vresolu, stdout);
436     for (y = ourview.vresolu-1; y >= 0; y--)
437     if (fwritecolrs(pscan(y), ourview.hresolu, stdout) < 0) {
438     perror(progname);
439     exit(1);
440     }
441     }