205 |
|
} |
206 |
|
nglarangs = i; |
207 |
|
/* nglardirs = 2*nglarangs + 1; */ |
208 |
< |
/* vsize = sampdens; */ |
208 |
> |
/* vsize = sampdens - 1; */ |
209 |
|
if (nglarangs > 0) |
210 |
|
maxtheta = (PI/180.)*glarang[nglarangs-1]; |
211 |
|
else |
212 |
|
maxtheta = 0.0; |
213 |
|
hlim = sampdens*maxtheta; |
214 |
< |
hsize = sampdens + hlim; |
214 |
> |
hsize = hlim + sampdens - 1; |
215 |
|
if (hsize > (int)(PI*sampdens)) |
216 |
|
hsize = PI*sampdens; |
217 |
|
indirect = (struct illum *)calloc(nglardirs, sizeof(struct illum)); |
317 |
|
memerr(s) /* malloc failure */ |
318 |
|
char *s; |
319 |
|
{ |
320 |
< |
fprintf(stderr, "%s: out of memory for %s\n", s); |
320 |
> |
fprintf(stderr, "%s: out of memory for %s\n", progname, s); |
321 |
|
exit(1); |
322 |
|
} |
323 |
|
|