1 |
< |
/* Copyright (c) 1996 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1997 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
357 |
|
if (lwmin < LMIN) lwmin = LMIN; |
358 |
|
if (lwmax > LMAX) lwmax = LMAX; |
359 |
|
/* compute histogram */ |
360 |
< |
bwmin = Bl(lwmin)*(1. - .01/HISTRES); |
361 |
< |
bwmax = Bl(lwmax)*(1. + .01/HISTRES); |
360 |
> |
bwmin = Bl(lwmin); |
361 |
> |
bwmax = Bl(lwmax); |
362 |
|
bwavg = 0.; |
363 |
|
for (y = 0; y < fvyr; y++) |
364 |
|
for (x = 0; x < fvxr; x++) { |
366 |
|
frandom() > centprob(x,y)) |
367 |
|
continue; |
368 |
|
l = plum(fovscan(y)[x]); |
369 |
+ |
if (l < lwmin) continue; |
370 |
+ |
if (l > lwmax) continue; |
371 |
|
b = Bl(l); |
370 |
– |
if (b < bwmin) continue; |
371 |
– |
if (b > bwmax) continue; |
372 |
|
bwavg += b; |
373 |
|
bwhc(b)++; |
374 |
|
histot++; |