encode :: Double -> Char
encode dbl = chr (truncate ((dbl + 1.0) / 2.0 * 255.0))
encode :: Double -> Char
encode dbl = chr (truncate ((dbl + 1.0) / 2.0 * 255.0))
encode dbl = chr (truncate ((dbl + 1.0) / 2.0 * 255.0))