ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/rpict.c
(Generate patch)

Comparing ray/src/rt/rpict.c (file contents):
Revision 1.21 by greg, Tue Jun 26 09:00:12 1990 UTC vs.
Revision 2.76 by greg, Mon Jun 13 20:07:56 2005 UTC

# Line 1 | Line 1
1 /* Copyright (c) 1986 Regents of the University of California */
2
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char RCSid[] = "$Id$";
3   #endif
6
4   /*
5   *  rpict.c - routines and variables for picture generation.
9 *
10 *     8/14/85
6   */
7  
8 < #include  "ray.h"
8 > #include "copyright.h"
9  
10 + #include  <sys/types.h>
11 +
12 + #ifndef NON_POSIX
13   #ifdef BSD
14   #include  <sys/time.h>
15   #include  <sys/resource.h>
16   #else
17 < #include  <signal.h>
17 > #include  <sys/times.h>
18 > #include  <unistd.h>
19   #endif
20 < #include  <fcntl.h>
20 > #endif
21  
22 < #include  "view.h"
22 > #include  <time.h>
23 > #include  <signal.h>
24  
25 + #include  "platform.h"
26 + #include  "ray.h"
27 + #include  "paths.h"
28 + #include  "ambient.h"
29 + #include  "view.h"
30   #include  "random.h"
31 + #include  "paths.h"
32 + #include  "rtmisc.h" /* myhostname() */
33  
34 +
35 + #define  RFTEMPLATE     "rfXXXXXX"
36 +
37 + #ifndef SIGCONT
38 + #ifdef SIGIO     /* XXX can we live without this? */
39 + #define SIGCONT         SIGIO
40 + #endif
41 + #endif
42 +
43 + CUBE  thescene;                         /* our scene */
44 + OBJECT  nsceneobjs;                     /* number of objects in our scene */
45 +
46 + int  dimlist[MAXDIM];                   /* sampling dimensions */
47 + int  ndims = 0;                         /* number of sampling dimensions */
48 + int  samplendx;                         /* sample index number */
49 +
50 + //extern void  ambnotify();
51 + void  (*addobjnotify[])() = {ambnotify, NULL};
52 +
53   VIEW  ourview = STDVIEW;                /* view parameters */
54   int  hresolu = 512;                     /* horizontal resolution */
55   int  vresolu = 512;                     /* vertical resolution */
56 < double  pixaspect = 1.0;                /* pixel aspect ratio */
56 > double  pixaspect = 1.0;                /* pixel aspect ratio */
57  
58   int  psample = 4;                       /* pixel sample size */
59 < double  maxdiff = .05;                  /* max. difference for interpolation */
60 < double  dstrpix = 0.67;                 /* square pixel distribution */
59 > double  maxdiff = .05;                  /* max. difference for interpolation */
60 > double  dstrpix = 0.67;                 /* square pixel distribution */
61  
62 < double  dstrsrc = 0.0;                  /* square source distribution */
37 < double  shadthresh = .05;               /* shadow threshold */
38 < double  shadcert = .5;                  /* shadow certainty */
62 > double  mblur = 0.;                     /* motion blur parameter */
63  
64 < int  maxdepth = 6;                      /* maximum recursion depth */
41 < double  minweight = 5e-3;               /* minimum ray weight */
64 > double  dblur = 0.;                     /* depth-of-field blur parameter */
65  
66 + void  (*trace)() = NULL;                /* trace call */
67 +
68 + int  do_irrad = 0;                      /* compute irradiance? */
69 +
70 + int  rand_samp = 0;                     /* pure Monte Carlo sampling? */
71 +
72 + double  dstrsrc = 0.0;                  /* square source distribution */
73 + double  shadthresh = .05;               /* shadow threshold */
74 + double  shadcert = .5;                  /* shadow certainty */
75 + int  directrelay = 1;                   /* number of source relays */
76 + int  vspretest = 512;                   /* virtual source pretest density */
77 + int  directvis = 1;                     /* sources visible? */
78 + double  srcsizerat = .25;               /* maximum ratio source size/dist. */
79 +
80 + COLOR  cextinction = BLKCOLOR;          /* global extinction coefficient */
81 + COLOR  salbedo = BLKCOLOR;              /* global scattering albedo */
82 + double  seccg = 0.;                     /* global scattering eccentricity */
83 + double  ssampdist = 0.;                 /* scatter sampling distance */
84 +
85 + double  specthresh = .15;               /* specular sampling threshold */
86 + double  specjitter = 1.;                /* specular sampling jitter */
87 +
88 + int  backvis = 1;                       /* back face visibility */
89 +
90 + int  maxdepth = 7;                      /* maximum recursion depth */
91 + double  minweight = 4e-3;               /* minimum ray weight */
92 +
93 + char  *ambfile = NULL;                  /* ambient file name */
94   COLOR  ambval = BLKCOLOR;               /* ambient value */
95 < double  ambacc = 0.2;                   /* ambient accuracy */
96 < int  ambres = 32;                       /* ambient resolution */
97 < int  ambdiv = 128;                      /* ambient divisions */
98 < int  ambssamp = 0;                      /* ambient super-samples */
95 > int  ambvwt = 0;                        /* initial weight for ambient value */
96 > double  ambacc = 0.2;                   /* ambient accuracy */
97 > int  ambres = 64;                       /* ambient resolution */
98 > int  ambdiv = 512;                      /* ambient divisions */
99 > int  ambssamp = 128;                    /* ambient super-samples */
100   int  ambounce = 0;                      /* ambient bounces */
101 < char  *amblist[128];                    /* ambient include/exclude list */
101 > char  *amblist[AMBLLEN];                /* ambient include/exclude list */
102   int  ambincl = -1;                      /* include == 1, exclude == 0 */
103  
104   int  ralrm = 0;                         /* seconds between reports */
105  
106 < double  pctdone = 0.0;                  /* percentage done */
106 > double  pctdone = 0.0;                  /* percentage done */
107 > time_t  tlastrept = 0L;                 /* time at last report */
108 > time_t  tstart;                         /* starting time */
109  
110 < extern long  nrays;                     /* number of rays traced */
110 > #define  MAXDIV         16              /* maximum sample size */
111  
112 < #define  MAXDIV         32              /* maximum sample size */
112 > #define  pixjitter()    (.5+dstrpix*(.5-frandom()))
113  
114 < #define  pixjitter()    (.5+dstrpix*(.5-frandom()))
114 > int  hres, vres;                        /* resolution for this frame */
115  
116 < double  pixvalue();
116 > static VIEW     lastview;               /* the previous view input */
117  
118 + //extern char  *mktemp();  /* XXX should be in stdlib.h or unistd.h */
119  
120 + //double        pixvalue();
121 +
122 + static void report(int);
123 + static int nextview(FILE *fp);
124 + static void render(char *zfile, char *oldfile);
125 + static void fillscanline(COLOR *scanline, float *zline, char *sd, int xres,
126 +                int y, int xstep);
127 + static void fillscanbar(COLOR *scanbar[], float *zbar[], int xres,
128 +                int y, int ysize);
129 + static int fillsample(COLOR *colline, float *zline, int x, int y,
130 +                int xlen, int ylen, int b);
131 + static double pixvalue(COLOR  col, int  x, int  y);
132 + static int salvage(char  *oldfile);
133 + static int pixnumber(int  x, int  y, int  xres, int  yres);
134 +
135 +
136 +
137 + #ifdef RHAS_STAT
138 + #include  <sys/types.h>
139 + #include  <sys/stat.h>
140 + int
141 + file_exists(fname)                              /* ordinary file exists? */
142 + char  *fname;
143 + {
144 +        struct stat  sbuf;
145 +        if (stat(fname, &sbuf) < 0) return(0);
146 +        return((sbuf.st_mode & S_IFREG) != 0);
147 + }
148 + #else
149 + #define  file_exists(f) (access(f,F_OK)==0)
150 + #endif
151 +
152 +
153 + void
154   quit(code)                      /* quit program */
155   int  code;
156   {
157 <        if (code || ralrm > 0)          /* report status */
158 <                report();
159 <
157 >        if (code)                       /* report status */
158 >                report(0);
159 > #ifndef NON_POSIX
160 >        headclean();                    /* delete header file */
161 >        pfclean();                      /* clean up persist files */
162 > #endif
163          exit(code);
164   }
165  
166  
167 < report()                /* report progress */
167 > #ifndef NON_POSIX
168 > static void
169 > report(int dummy)               /* report progress */
170   {
171 +        double  u, s;
172   #ifdef BSD
173          struct rusage  rubuf;
174 <        double  t;
174 > #else
175 >        struct tms  tbuf;
176 >        double  period;
177 > #endif
178  
179 +        tlastrept = time((time_t *)NULL);
180 + #ifdef BSD
181          getrusage(RUSAGE_SELF, &rubuf);
182 <        t = (rubuf.ru_utime.tv_usec + rubuf.ru_stime.tv_usec) / 1e6;
183 <        t += rubuf.ru_utime.tv_sec + rubuf.ru_stime.tv_sec;
182 >        u = rubuf.ru_utime.tv_sec + rubuf.ru_utime.tv_usec/1e6;
183 >        s = rubuf.ru_stime.tv_sec + rubuf.ru_stime.tv_usec/1e6;
184          getrusage(RUSAGE_CHILDREN, &rubuf);
185 <        t += (rubuf.ru_utime.tv_usec + rubuf.ru_stime.tv_usec) / 1e6;
186 <        t += rubuf.ru_utime.tv_sec + rubuf.ru_stime.tv_sec;
87 <
88 <        sprintf(errmsg, "%ld rays, %4.2f%% done after %5.4f CPU hours\n",
89 <                        nrays, pctdone, t/3600.0);
185 >        u += rubuf.ru_utime.tv_sec + rubuf.ru_utime.tv_usec/1e6;
186 >        s += rubuf.ru_stime.tv_sec + rubuf.ru_stime.tv_usec/1e6;
187   #else
188 <        signal(SIGALRM, report);
189 <        sprintf(errmsg, "%ld rays, %4.2f%% done\n", nrays, pctdone);
188 >        times(&tbuf);
189 > #ifdef _SC_CLK_TCK
190 >        period = 1.0 / sysconf(_SC_CLK_TCK);
191 > #else
192 >        period = 1.0 / 60.0;
193   #endif
194 +        u = ( tbuf.tms_utime + tbuf.tms_cutime ) * period;
195 +        s = ( tbuf.tms_stime + tbuf.tms_cstime ) * period;
196 + #endif
197 +
198 +        sprintf(errmsg,
199 +                "%lu rays, %4.2f%% after %.3fu %.3fs %.3fr hours on %s\n",
200 +                        nrays, pctdone, u/3600., s/3600.,
201 +                        (tlastrept-tstart)/3600., myhostname());
202          eputs(errmsg);
203 + #ifdef SIGCONT
204 +        signal(SIGCONT, report);
205 + #endif
206 + }
207 + #else
208 + static void
209 + report(int dummy)               /* report progress */
210 + {
211 +        tlastrept = time((time_t *)NULL);
212 +        sprintf(errmsg, "%lu rays, %4.2f%% after %5.4f hours\n",
213 +                        nrays, pctdone, (tlastrept-tstart)/3600.0);
214 +        eputs(errmsg);
215 + }
216 + #endif
217  
218 <        if (ralrm > 0)
219 <                alarm(ralrm);
218 >
219 > extern void
220 > rpict(                  /* generate image(s) */
221 >        int  seq,
222 >        char  *pout,
223 >        char  *zout,
224 >        char  *prvr
225 > )
226 > /*
227 > * If seq is greater than zero, then we will render a sequence of
228 > * images based on view parameter strings read from the standard input.
229 > * If pout is NULL, then all images will be sent to the standard ouput.
230 > * If seq is greater than zero and prvr is an integer, then it is the
231 > * frame number at which rendering should begin.  Preceeding view parameter
232 > * strings will be skipped in the input.
233 > * If pout and prvr are the same, prvr is renamed to avoid overwriting.
234 > * Note that pout and zout should contain %d format specifications for
235 > * sequenced file naming.
236 > */
237 > {
238 >        char  fbuf[128], fbuf2[128];
239 >        int  npicts;
240 >        register char  *cp;
241 >        RESOLU  rs;
242 >        double  pa;
243 >                                        /* check sampling */
244 >        if (psample < 1)
245 >                psample = 1;
246 >        else if (psample > MAXDIV) {
247 >                sprintf(errmsg, "pixel sampling reduced from %d to %d",
248 >                                psample, MAXDIV);
249 >                error(WARNING, errmsg);
250 >                psample = MAXDIV;
251 >        }
252 >                                        /* get starting frame */
253 >        if (seq <= 0)
254 >                seq = 0;
255 >        else if (prvr != NULL && isint(prvr)) {
256 >                register int  rn;               /* skip to specified view */
257 >                if ((rn = atoi(prvr)) < seq)
258 >                        error(USER, "recover frame less than start frame");
259 >                if (pout == NULL)
260 >                        error(USER, "missing output file specification");
261 >                for ( ; seq < rn; seq++)
262 >                        if (nextview(stdin) == EOF)
263 >                                error(USER, "unexpected EOF on view input");
264 >                setview(&ourview);
265 >                prvr = fbuf;                    /* mark for renaming */
266 >        }
267 >        if ((pout != NULL) & (prvr != NULL)) {
268 >                sprintf(fbuf, pout, seq);
269 >                if (!strcmp(prvr, fbuf)) {      /* rename */
270 >                        strcpy(fbuf2, fbuf);
271 >                        for (cp = fbuf2; *cp; cp++)
272 >                                ;
273 >                        while (cp > fbuf2 && !ISDIRSEP(cp[-1]))
274 >                                cp--;
275 >                        strcpy(cp, RFTEMPLATE);
276 >                        prvr = mktemp(fbuf2);
277 >                        if (rename(fbuf, prvr) < 0) {
278 >                                if (errno == ENOENT) {  /* ghost file */
279 >                                        sprintf(errmsg,
280 >                                                "new output file \"%s\"",
281 >                                                fbuf);
282 >                                        error(WARNING, errmsg);
283 >                                        prvr = NULL;
284 >                                } else {                /* serious error */
285 >                                        sprintf(errmsg,
286 >                                        "cannot rename \"%s\" to \"%s\"",
287 >                                                fbuf, prvr);
288 >                                        error(SYSTEM, errmsg);
289 >                                }
290 >                        }
291 >                }
292 >        }
293 >        npicts = 0;                     /* render sequence */
294 >        do {
295 >                if (seq && nextview(stdin) == EOF)
296 >                        break;
297 >                pctdone = 0.0;
298 >                if (pout != NULL) {
299 >                        sprintf(fbuf, pout, seq);
300 >                        if (file_exists(fbuf)) {
301 >                                if (prvr != NULL || !strcmp(fbuf, pout)) {
302 >                                        sprintf(errmsg,
303 >                                                "output file \"%s\" exists",
304 >                                                fbuf);
305 >                                        error(USER, errmsg);
306 >                                }
307 >                                setview(&ourview);
308 >                                continue;               /* don't clobber */
309 >                        }
310 >                        if (freopen(fbuf, "w", stdout) == NULL) {
311 >                                sprintf(errmsg,
312 >                                        "cannot open output file \"%s\"", fbuf);
313 >                                error(SYSTEM, errmsg);
314 >                        }
315 >                        SET_FILE_BINARY(stdout);
316 >                        dupheader();
317 >                }
318 >                hres = hresolu; vres = vresolu; pa = pixaspect;
319 >                if (prvr != NULL) {
320 >                        if (viewfile(prvr, &ourview, &rs) <= 0) {
321 >                                sprintf(errmsg,
322 >                        "cannot recover view parameters from \"%s\"", prvr);
323 >                                error(WARNING, errmsg);
324 >                        } else {
325 >                                pa = 0.0;
326 >                                hres = scanlen(&rs);
327 >                                vres = numscans(&rs);
328 >                        }
329 >                }
330 >                if ((cp = setview(&ourview)) != NULL)
331 >                        error(USER, cp);
332 >                normaspect(viewaspect(&ourview), &pa, &hres, &vres);
333 >                if (seq) {
334 >                        if (ralrm > 0) {
335 >                                fprintf(stderr, "FRAME %d:", seq);
336 >                                fprintview(&ourview, stderr);
337 >                                putc('\n', stderr);
338 >                                fflush(stderr);
339 >                        }
340 >                        printf("FRAME=%d\n", seq);
341 >                }
342 >                fputs(VIEWSTR, stdout);
343 >                fprintview(&ourview, stdout);
344 >                putchar('\n');
345 >                if (pa < .99 || pa > 1.01)
346 >                        fputaspect(pa, stdout);
347 >                fputnow(stdout);
348 >                fputformat(COLRFMT, stdout);
349 >                putchar('\n');
350 >                if (zout != NULL)
351 >                        sprintf(cp=fbuf, zout, seq);
352 >                else
353 >                        cp = NULL;
354 >                render(cp, prvr);
355 >                prvr = NULL;
356 >                npicts++;
357 >        } while (seq++);
358 >                                        /* check that we did something */
359 >        if (npicts == 0)
360 >                error(WARNING, "no output produced");
361   }
362  
363  
364 < render(zfile, oldfile)                          /* render the scene */
365 < char  *zfile, *oldfile;
364 > static int
365 > nextview(                               /* get next view from fp */
366 >        FILE  *fp
367 > )
368   {
369 <        extern long  lseek();
369 >        char  linebuf[256];
370 >
371 >        lastview = ourview;
372 >        while (fgets(linebuf, sizeof(linebuf), fp) != NULL)
373 >                if (isview(linebuf) && sscanview(&ourview, linebuf) > 0)
374 >                        return(0);
375 >        return(EOF);
376 > }      
377 >
378 >
379 > static void
380 > render(                         /* render the scene */
381 >        char  *zfile,
382 >        char  *oldfile
383 > )
384 > {
385          COLOR  *scanbar[MAXDIV+1];      /* scanline arrays of pixel values */
386          float  *zbar[MAXDIV+1];         /* z values */
387 +        char  *sampdens;                /* previous sample density */
388          int  ypos;                      /* current scanline */
389          int  ystep;                     /* current y step size */
390 +        int  hstep;                     /* h step size */
391          int  zfd;
392          COLOR  *colptr;
393          float  *zptr;
394          register int  i;
395 <                                        /* check sampling */
396 <        if (psample < 1)
397 <                psample = 1;
398 <        else if (psample > MAXDIV)
399 <                psample = MAXDIV;
395 >                                        /* check for empty image */
396 >        if (hres <= 0 || vres <= 0) {
397 >                error(WARNING, "empty output picture");
398 >                fprtresolu(0, 0, stdout);
399 >                return;
400 >        }
401                                          /* allocate scanlines */
402          for (i = 0; i <= psample; i++) {
403 <                scanbar[i] = (COLOR *)malloc(hresolu*sizeof(COLOR));
403 >                scanbar[i] = (COLOR *)malloc(hres*sizeof(COLOR));
404                  if (scanbar[i] == NULL)
405                          goto memerr;
406          }
407 <                                        /* open z file */
407 >        hstep = (psample*140+49)/99;            /* quincunx sampling */
408 >        ystep = (psample*99+70)/140;
409 >        if (hstep > 2) {
410 >                i = hres/hstep + 2;
411 >                if ((sampdens = (char *)malloc(i)) == NULL)
412 >                        goto memerr;
413 >                while (i--)
414 >                        sampdens[i] = hstep;
415 >        } else
416 >                sampdens = NULL;
417 >                                        /* open z-file */
418          if (zfile != NULL) {
419                  if ((zfd = open(zfile, O_WRONLY|O_CREAT, 0666)) == -1) {
420 <                        sprintf(errmsg, "cannot open z file \"%s\"", zfile);
420 >                        sprintf(errmsg, "cannot open z-file \"%s\"", zfile);
421                          error(SYSTEM, errmsg);
422                  }
423 +                SET_FD_BINARY(zfd);
424                  for (i = 0; i <= psample; i++) {
425 <                        zbar[i] = (float *)malloc(hresolu*sizeof(float));
425 >                        zbar[i] = (float *)malloc(hres*sizeof(float));
426                          if (zbar[i] == NULL)
427                                  goto memerr;
428                  }
# Line 138 | Line 432 | char  *zfile, *oldfile;
432                          zbar[i] = NULL;
433          }
434                                          /* write out boundaries */
435 <        fputresolu(YMAJOR|YDECR, hresolu, vresolu, stdout);
435 >        fprtresolu(hres, vres, stdout);
436                                          /* recover file and compute first */
437          i = salvage(oldfile);
438 <        if (zfd != -1 && lseek(zfd, (long)i*hresolu*sizeof(float), 0) == -1)
439 <                error(SYSTEM, "z file seek error in render");
440 <        ypos = vresolu-1 - i;
441 <        fillscanline(scanbar[0], zbar[0], hresolu, ypos, psample);
442 <        ystep = psample;
438 >        if (i >= vres)
439 >                goto alldone;
440 >        if (zfd != -1 && i > 0 &&
441 >                        lseek(zfd, (off_t)i*hres*sizeof(float), SEEK_SET) < 0)
442 >                error(SYSTEM, "z-file seek error in render");
443 >        pctdone = 100.0*i/vres;
444 >        if (ralrm > 0)                  /* report init stats */
445 >                report(0);
446 > #ifdef SIGCONT
447 >        else
448 >        signal(SIGCONT, report);
449 > #endif
450 >        ypos = vres-1 - i;                      /* initialize sampling */
451 >        if (directvis)
452 >                init_drawsources(psample);
453 >        fillscanline(scanbar[0], zbar[0], sampdens, hres, ypos, hstep);
454                                                  /* compute scanlines */
455          for (ypos -= ystep; ypos > -ystep; ypos -= ystep) {
151                                                        /* record progress */
152                pctdone = 100.0*(vresolu-1-ypos-ystep)/vresolu;
456                                                          /* bottom adjust? */
457                  if (ypos < 0) {
458                          ystep += ypos;
# Line 162 | Line 465 | char  *zfile, *oldfile;
465                  zbar[ystep] = zbar[0];
466                  zbar[0] = zptr;
467                                                          /* fill base line */
468 <                fillscanline(scanbar[0], zbar[0], hresolu, ypos, psample);
468 >                fillscanline(scanbar[0], zbar[0], sampdens,
469 >                                hres, ypos, hstep);
470                                                          /* fill bar */
471 <                fillscanbar(scanbar, zbar, hresolu, ypos, ystep);
471 >                fillscanbar(scanbar, zbar, hres, ypos, ystep);
472 >                if (directvis)                          /* add bitty sources */
473 >                        drawsources(scanbar, zbar, 0, hres, ypos, ystep);
474                                                          /* write it out */
475 + #ifdef SIGCONT
476 +                signal(SIGCONT, SIG_IGN);       /* don't interrupt writes */
477 + #endif
478                  for (i = ystep; i > 0; i--) {
479                          if (zfd != -1 && write(zfd, (char *)zbar[i],
480 <                                        hresolu*sizeof(float))
481 <                                        < hresolu*sizeof(float))
480 >                                        hres*sizeof(float))
481 >                                        < hres*sizeof(float))
482                                  goto writerr;
483 <                        if (fwritescan(scanbar[i], hresolu, stdout) < 0)
483 >                        if (fwritescan(scanbar[i], hres, stdout) < 0)
484                                  goto writerr;
485                  }
486                  if (fflush(stdout) == EOF)
487                          goto writerr;
488 +                                                        /* record progress */
489 +                pctdone = 100.0*(vres-1-ypos)/vres;
490 +                if (ralrm > 0 && time((time_t *)NULL) >= tlastrept+ralrm)
491 +                        report(0);
492 + #ifdef SIGCONT
493 +                else
494 +                        signal(SIGCONT, report);
495 + #endif
496          }
497                                                  /* clean up */
498 + #ifdef SIGCONT
499 +        signal(SIGCONT, SIG_IGN);
500 + #endif
501 +        if (zfd != -1 && write(zfd, (char *)zbar[0], hres*sizeof(float))
502 +                                < hres*sizeof(float))
503 +                goto writerr;
504 +        fwritescan(scanbar[0], hres, stdout);
505 +        if (fflush(stdout) == EOF)
506 +                goto writerr;
507 + alldone:
508          if (zfd != -1) {
182                if (write(zfd, (char *)zbar[0], hresolu*sizeof(float))
183                                < hresolu*sizeof(float))
184                        goto writerr;
509                  if (close(zfd) == -1)
510                          goto writerr;
511                  for (i = 0; i <= psample; i++)
512 <                        free((char *)zbar[i]);
512 >                        free((void *)zbar[i]);
513          }
190        fwritescan(scanbar[0], hresolu, stdout);
191        if (fflush(stdout) == EOF)
192                goto writerr;
514          for (i = 0; i <= psample; i++)
515 <                free((char *)scanbar[i]);
515 >                free((void *)scanbar[i]);
516 >        if (sampdens != NULL)
517 >                free(sampdens);
518          pctdone = 100.0;
519 +        if (ralrm > 0)
520 +                report(0);
521 + #ifdef SIGCONT
522 +        signal(SIGCONT, SIG_DFL);
523 + #endif
524          return;
525   writerr:
526          error(SYSTEM, "write error in render");
# Line 201 | Line 529 | memerr:
529   }
530  
531  
532 < fillscanline(scanline, zline, xres, y, xstep)   /* fill scan line at y */
533 < register COLOR  *scanline;
534 < register float  *zline;
535 < int  xres, y, xstep;
532 > static void
533 > fillscanline(   /* fill scan at y */
534 >        register COLOR  *scanline,
535 >        register float  *zline,
536 >        register char  *sd,
537 >        int  xres,
538 >        int  y,
539 >        int  xstep
540 > )
541   {
542 <        int  b = xstep;
543 <        double  z;
542 >        static int  nc = 0;             /* number of calls */
543 >        int  bl = xstep, b = xstep;
544 >        double  z;
545          register int  i;
546 <        
546 >
547          z = pixvalue(scanline[0], 0, y);
548          if (zline) zline[0] = z;
549 <
550 <        for (i = xstep; i < xres-1+xstep; i += xstep) {
549 >                                /* zig-zag start for quincunx pattern */
550 >        for (i = ++nc & 1 ? xstep : xstep/2; i < xres-1+xstep; i += xstep) {
551                  if (i >= xres) {
552                          xstep += xres-1-i;
553                          i = xres-1;
554                  }
555                  z = pixvalue(scanline[i], i, y);
556                  if (zline) zline[i] = z;
557 <                
558 <                b = fillsample(scanline+i-xstep, zline ? zline+i-xstep : NULL,
559 <                                i-xstep, y, xstep, 0, b/2);
557 >                if (sd) b = sd[0] > sd[1] ? sd[0] : sd[1];
558 >                if (i <= xstep)
559 >                        b = fillsample(scanline, zline, 0, y, i, 0, b/2);
560 >                else
561 >                        b = fillsample(scanline+i-xstep,
562 >                                        zline ? zline+i-xstep : (float *)NULL,
563 >                                        i-xstep, y, xstep, 0, b/2);
564 >                if (sd) *sd++ = nc & 1 ? bl : b;
565 >                bl = b;
566          }
567 +        if (sd && nc & 1) *sd = bl;
568   }
569  
570  
571 < fillscanbar(scanbar, zbar, xres, y, ysize)      /* fill interior */
572 < register COLOR  *scanbar[];
573 < register float  *zbar[];
574 < int  xres, y, ysize;
571 > static void
572 > fillscanbar(    /* fill interior */
573 >        register COLOR  *scanbar[],
574 >        register float  *zbar[],
575 >        int  xres,
576 >        int  y,
577 >        int  ysize
578 > )
579   {
580          COLOR  vline[MAXDIV+1];
581          float  zline[MAXDIV+1];
582          int  b = ysize;
583          register int  i, j;
584 <        
584 >
585          for (i = 0; i < xres; i++) {
241                
586                  copycolor(vline[0], scanbar[0][i]);
587                  copycolor(vline[ysize], scanbar[ysize][i]);
588                  if (zbar[0]) {
589                          zline[0] = zbar[0][i];
590                          zline[ysize] = zbar[ysize][i];
591                  }
592 <                
249 <                b = fillsample(vline, zbar[0] ? zline : NULL,
592 >                b = fillsample(vline, zbar[0] ? zline : (float *)NULL,
593                                  i, y, 0, ysize, b/2);
594 <                
594 >
595                  for (j = 1; j < ysize; j++)
596                          copycolor(scanbar[j][i], vline[j]);
597                  if (zbar[0])
# Line 258 | Line 601 | int  xres, y, ysize;
601   }
602  
603  
604 < int
605 < fillsample(colline, zline, x, y, xlen, ylen, b) /* fill interior points */
606 < register COLOR  *colline;
607 < register float  *zline;
608 < int  x, y;
609 < int  xlen, ylen;
610 < int  b;
604 > static int
605 > fillsample( /* fill interior points */
606 >        register COLOR  *colline,
607 >        register float  *zline,
608 >        int  x,
609 >        int  y,
610 >        int  xlen,
611 >        int  ylen,
612 >        int  b
613 > )
614   {
615 <        extern double  fabs();
616 <        double  ratio;
271 <        double  z;
615 >        double  ratio;
616 >        double  z;
617          COLOR  ctmp;
618          int  ncut;
619          register int  len;
620 <        
620 >
621          if (xlen > 0)                   /* x or y length is zero */
622                  len = xlen;
623          else
624                  len = ylen;
625 <                
625 >
626          if (len <= 1)                   /* limit recursion */
627                  return(0);
628 <        
629 <        if (b > 0
630 <        || (zline && 2.*fabs(zline[0]-zline[len]) > maxdiff*(zline[0]+zline[len]))
628 >
629 >        if (b > 0 ||
630 >        (zline && 2.*fabs(zline[0]-zline[len]) > maxdiff*(zline[0]+zline[len]))
631                          || bigdiff(colline[0], colline[len], maxdiff)) {
632 <        
632 >
633                  z = pixvalue(colline[len>>1], x + (xlen>>1), y + (ylen>>1));
634                  if (zline) zline[len>>1] = z;
635                  ncut = 1;
291                
636          } else {                                        /* interpolate */
293        
637                  copycolor(colline[len>>1], colline[len]);
638                  ratio = (double)(len>>1) / len;
639                  scalecolor(colline[len>>1], ratio);
# Line 304 | Line 647 | int  b;
647          }
648                                                          /* recurse */
649          ncut += fillsample(colline, zline, x, y, xlen>>1, ylen>>1, (b-1)/2);
650 <        
651 <        ncut += fillsample(colline+(len>>1), zline ? zline+(len>>1) : NULL,
650 >
651 >        ncut += fillsample(colline+(len>>1),
652 >                        zline ? zline+(len>>1) : (float *)NULL,
653                          x+(xlen>>1), y+(ylen>>1),
654                          xlen-(xlen>>1), ylen-(ylen>>1), b/2);
655  
# Line 313 | Line 657 | int  b;
657   }
658  
659  
660 < double
661 < pixvalue(col, x, y)             /* compute pixel value */
662 < COLOR  col;                     /* returned color */
663 < int  x, y;                      /* pixel position */
660 > static double
661 > pixvalue(               /* compute pixel value */
662 >        COLOR  col,                     /* returned color */
663 >        int  x,                 /* pixel position */
664 >        int  y
665 > )
666   {
667 <        static RAY  thisray;    /* our ray for this pixel */
667 >        RAY  thisray;
668 >        FVECT   lorg, ldir;
669 >        double  hpos, vpos, vdist, lmax;
670 >        register int    i;
671 >                                                /* compute view ray */
672 >        hpos = (x+pixjitter())/hres;
673 >        vpos = (y+pixjitter())/vres;
674 >        if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
675 >                                        &ourview, hpos, vpos)) < -FTINY) {
676 >                setcolor(col, 0.0, 0.0, 0.0);
677 >                return(0.0);
678 >        }
679 >        vdist = ourview.vdist;
680  
681 <        viewray(thisray.rorg, thisray.rdir, &ourview,
682 <                        (x+pixjitter())/hresolu, (y+pixjitter())/vresolu);
681 >        if (rand_samp)                          /* set pixel index */
682 >                samplendx = random();
683 >        else
684 >                samplendx = pixnumber(x,y,hres,vres);
685  
686 <        rayorigin(&thisray, NULL, PRIMARY, 1.0);
687 <        
686 >                                                /* optional motion blur */
687 >        if (lastview.type && mblur > FTINY && (lmax = viewray(lorg, ldir,
688 >                                        &lastview, hpos, vpos)) >= -FTINY) {
689 >                register double  d = mblur*(.5-urand(281+samplendx));
690 >
691 >                thisray.rmax = (1.-d)*thisray.rmax + d*lmax;
692 >                for (i = 3; i--; ) {
693 >                        thisray.rorg[i] = (1.-d)*thisray.rorg[i] + d*lorg[i];
694 >                        thisray.rdir[i] = (1.-d)*thisray.rdir[i] + d*ldir[i];
695 >                }
696 >                if (normalize(thisray.rdir) == 0.0)
697 >                        return(0.0);
698 >                vdist = (1.-d)*vdist + d*lastview.vdist;
699 >        }
700 >                                                /* optional depth-of-field */
701 >        if (dblur > FTINY && vdist > FTINY) {
702 >                double  vc, dfh, dfv;
703 >                                                /* PI/4. square/circle conv. */
704 >                dfh = PI/4.*dblur*(.5 - frandom());
705 >                dfv = PI/4.*dblur*(.5 - frandom());
706 >                if (ourview.type == VT_PER || ourview.type == VT_PAR) {
707 >                        dfh /= sqrt(ourview.hn2);
708 >                        dfv /= sqrt(ourview.vn2);
709 >                        for (i = 3; i--; ) {
710 >                                vc = thisray.rorg[i] + vdist*thisray.rdir[i];
711 >                                thisray.rorg[i] += dfh*ourview.hvec[i] +
712 >                                                        dfv*ourview.vvec[i] ;
713 >                                thisray.rdir[i] = vc - thisray.rorg[i];
714 >                        }
715 >                } else {                        /* non-standard view case */
716 >                        double  dfd = PI/4.*dblur*(.5 - frandom());
717 >                        if (ourview.type != VT_ANG) {
718 >                                if (ourview.type != VT_CYL)
719 >                                        dfh /= sqrt(ourview.hn2);
720 >                                dfv /= sqrt(ourview.vn2);
721 >                        }
722 >                        for (i = 3; i--; ) {
723 >                                vc = thisray.rorg[i] + vdist*thisray.rdir[i];
724 >                                thisray.rorg[i] += dfh*ourview.hvec[i] +
725 >                                                        dfv*ourview.vvec[i] +
726 >                                                        dfd*ourview.vdir[i] ;
727 >                                thisray.rdir[i] = vc - thisray.rorg[i];
728 >                        }
729 >                }
730 >                if (normalize(thisray.rdir) == 0.0)
731 >                        return(0.0);
732 >        }
733 >
734 >        rayorigin(&thisray, PRIMARY, NULL, NULL);
735 >
736          rayvalue(&thisray);                     /* trace ray */
737  
738          copycolor(col, thisray.rcol);           /* return color */
739 <        
739 >
740          return(thisray.rt);                     /* return distance */
741   }
742  
743  
744 < int
745 < salvage(oldfile)                /* salvage scanlines from killed program */
746 < char  *oldfile;
744 > static int
745 > salvage(                /* salvage scanlines from killed program */
746 >        char  *oldfile
747 > )
748   {
749          COLR  *scanline;
750          FILE  *fp;
751          int  x, y;
752  
753          if (oldfile == NULL)
754 <                return(0);
755 <        
754 >                goto gotzip;
755 >
756          if ((fp = fopen(oldfile, "r")) == NULL) {
757                  sprintf(errmsg, "cannot open recover file \"%s\"", oldfile);
758                  error(WARNING, errmsg);
759 <                return(0);
759 >                goto gotzip;
760          }
761 +        SET_FILE_BINARY(fp);
762                                  /* discard header */
763 <        getheader(fp, NULL);
763 >        getheader(fp, NULL, NULL);
764                                  /* get picture size */
765 <        if (fgetresolu(&x, &y, fp) != (YMAJOR|YDECR)) {
766 <                sprintf(errmsg, "bad recover file \"%s\"", oldfile);
765 >        if (!fscnresolu(&x, &y, fp)) {
766 >                sprintf(errmsg, "bad recover file \"%s\" - not removed",
767 >                                oldfile);
768                  error(WARNING, errmsg);
769                  fclose(fp);
770 <                return(0);
770 >                goto gotzip;
771          }
772  
773 <        if (x != hresolu || y != vresolu) {
773 >        if (x != hres || y != vres) {
774                  sprintf(errmsg, "resolution mismatch in recover file \"%s\"",
775                                  oldfile);
776                  error(USER, errmsg);
777          }
778  
779 <        scanline = (COLR *)malloc(hresolu*sizeof(COLR));
779 >        scanline = (COLR *)malloc(hres*sizeof(COLR));
780          if (scanline == NULL)
781                  error(SYSTEM, "out of memory in salvage");
782 <        for (y = 0; y < vresolu; y++) {
783 <                if (freadcolrs(scanline, hresolu, fp) < 0)
782 >        for (y = 0; y < vres; y++) {
783 >                if (freadcolrs(scanline, hres, fp) < 0)
784                          break;
785 <                if (fwritecolrs(scanline, hresolu, stdout) < 0)
785 >                if (fwritecolrs(scanline, hres, stdout) < 0)
786                          goto writerr;
787          }
788          if (fflush(stdout) == EOF)
789                  goto writerr;
790 <        free((char *)scanline);
790 >        free((void *)scanline);
791          fclose(fp);
792          unlink(oldfile);
793          return(y);
794 + gotzip:
795 +        if (fflush(stdout) == EOF)
796 +                error(SYSTEM, "error writing picture header");
797 +        return(0);
798   writerr:
799 <        error(SYSTEM, "write error in salvage");
799 >        sprintf(errmsg, "write error during recovery of \"%s\"", oldfile);
800 >        error(SYSTEM, errmsg);
801 >        return -1; /* pro forma return */
802 > }
803 >
804 > static int
805 > pixnumber(              /* compute pixel index (brushed) */
806 >        register int  x,
807 >        register int  y,
808 >        int  xres,
809 >        int  yres
810 > )
811 > {
812 >        x -= y;
813 >        while (x < 0)
814 >                x += xres;
815 >        return((((x>>2)*yres + y) << 2) + (x & 3));
816   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines