truncate_rgb (r, g, b) =
(r', g', b')
where
- r' = truncate (r * 255)
- g' = truncate (g * 255)
- b' = truncate (b * 255)
+ r' = truncate (r * 255) :: Word8
+ g' = truncate (g * 255) :: Word8
+ b' = truncate (b * 255) :: Word8
write_values_to_bmp :: FilePath -> Values2D -> IO ()