makeImage :: PF.PixelFlame -> IO Image
makeImage pixelFlame = do
  fmap (PixelData RGB Float) . Foreign.newArray . map pixelRep $ PF.pixelFlame2Colors pixelFlame
makeImage :: PF.PixelFlame -> IO Image
makeImage pixelFlame = do
  fmap (PixelData RGB Float) . Foreign.newArray . map pixelRep $ PF.pixelFlame2Colors pixelFlame
makeImage pixelFlame = do
  fmap (PixelData RGB Float) . Foreign.newArray . map pixelRep $ PF.pixelFlame2Colors pixelFlame