X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FVolumetric.hs;h=64669fee1a7205f6a41d8cfa4718e4961a10ebf6;hp=5b24760a256b0cbc2477ff71f12009497a79deec;hb=7d9913abf931dcbfe553c2cd872b604e5bbeafc0;hpb=b879273d6fed58e16beb7e4bf77e6b1a258219a8 diff --git a/src/Volumetric.hs b/src/Volumetric.hs index 5b24760..64669fe 100644 --- a/src/Volumetric.hs +++ b/src/Volumetric.hs @@ -70,7 +70,7 @@ bracket :: Double -> Double -> Double -> Word16 bracket lower_threshold upper_threshold x | x < lower_threshold = 0 | x > upper_threshold = 255 - | otherwise = truncate (r * 255) + | otherwise = truncate (r * 255) where numerator = x - lower_threshold denominator = upper_threshold - lower_threshold