diff options
Diffstat (limited to 'src/extent-sampling.sc')
| -rw-r--r-- | src/extent-sampling.sc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/extent-sampling.sc b/src/extent-sampling.sc index 48e6544..73f0e3d 100644 --- a/src/extent-sampling.sc +++ b/src/extent-sampling.sc @@ -142,8 +142,8 @@ (declare volume double) (let* ((dimension (unsigned int) (: mean size)) (vn double (ln-volume-of-ball dimension)) - (theta-min double (solid-angle->planar-angle (* omega-min (surface-area-of-ball dimension)) dimension)) - (theta-max double (solid-angle->planar-angle (* omega-max (surface-area-of-ball dimension)) dimension))) + (theta-min double (solid-angle-fraction->planar-angle omega-min dimension)) + (theta-max double (solid-angle-fraction->planar-angle omega-max dimension))) (with-rstats stats (with-vector x dimension (for-i i number-of-samples |