30分プログラム、その711。Bitmapを読んでみよう - みずぴー日記に書き出し機能をつけてみました。 これで、画像処理で遊べるぜ。 readがBinary -> Bitmapなので、writeはBitmap -> Binaryにしたほうが美しいけれども、オフセットの調節などが難しかったので、直接ファイルに書き出すようにしました。 使い方 test() -> % 読み込み {ok,Bin} = file:read_file("sample.bmp"), Bitmap = read(Bin), % 書き出し write_file("sample2.bmp",Bitmap). ソースコード -module(bitmap). -compile([export_all]). -record(file_header,{ size, offset }). -record(info_header,{