| 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++; |