13 lines
245 B
Haskell
13 lines
245 B
Haskell
|
import Bitmap
|
||
|
|
import Bitmap.RGB
|
||
|
|
import Bitmap.Gray
|
||
|
|
import Bitmap.Netpbm
|
||
|
|
|
||
|
|
import Control.Monad
|
||
|
|
import Control.Monad.ST
|
||
|
|
|
||
|
|
main =
|
||
|
|
(readNetpbm "original.ppm" :: IO (Image RealWorld RGB)) >>=
|
||
|
|
stToIO . toGrayImage >>=
|
||
|
|
writeNetpbm "new.pgm"
|