プログラミング、アカデミック、何か面白いこと。 記載されているものは基本的に私が所属する団体とは関係がありません。

  1. アカデミック
  2. 16 view

[Haskell]PGMファイルを生成する part1

やりたいこと

今後Haskellで画像処理をするためにPGMファイルを生成させてみる。

プログラム

まずはヘッダを出力するところまで。

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

コンパイルして実行してみる。

$ghc pgm.hs
$./pgm
$cat test.pgm
P5
# PGM type grayscale image
255 255
255

アカデミックの最近記事

  1. [触ってみた]Microsoft Quantum Development Kit

  2. Tensorboardを使ってニューラルネットワークと学習の状況を可視化する

  3. [機械学習]各種Pythonライブラリ入りの実験用Dockerイメージを作った

  4. [OpenCV][Ruby]Webページのデザイン崩れ確認の自動化

  5. [機械学習]本番導入までの道のり

関連記事

PAGE TOP