やりたいこと
今後Haskellで
画像処理をするためにPGMファイルを生成させてみる。
プログラム
まずはヘッダを出力するところまで。
PGM Header1 2 3 4 5 6 7 8 9 10 11 12 | main = do
-- PGM Header
let pgm _ type = "P5\n"
let pgm _ comment = "# PGM type grayscale image\n"
let pgm _ size = ( 255 , 255 )
let pgm _ max _ brightness = 255
let pgm _ size _ string = (show (fst pgm _ size)) ++ " " ++ (show (snd pgm _ size)) ++ "\n"
let pgm _ max _ brightness _ string = (show pgm _ max _ brightness) ++ "\n"
let pgm _ header = pgm _ type ++ pgm _ comment ++ pgm _ size _ string ++ pgm _ max _ brightness _ string
-- Main
writeFile "test.pgm" pgm _ header
|
コンパイルして実行してみる。
Run1 2 3 4 5 6 7 | $ghc pgm.hs
$. /pgm
$ cat test .pgm
P5
255 255
255
|