Example: main = writeFile test.ppm $ ppm [ [ (255, 0, 0) , (0, 255, 0) , (0, 0, 255) ] , [ (255, 255, 0) , (255, 255, 255) , (0, 0, 0) ] ]
- ppm :: [ColorArray] -> String
- ppm_p6 :: [ColorArray] -> String
- type ColorArray = [Color]
- type Color = (Int, Int, Int)