blob: 9c75d6f861156a1fcd3ec0b1cb03dea10241cb9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Main where
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Text as T
import PFM
main :: IO ()
main = do
s <- B.readFile "/home/yannherklotz/Imperial/AdvancedGraphics/coursework1/CO417-Assignment1/UrbanProbe/urbanEM_latlong.pfm"
let i = parse s
BL.writeFile "random.pfm" $ encode i
|