COBOLで画像を作る

2015年に、「COBOL+ImageMagik」でカバーアート用の画像を作ってみた時の日記です。

COBOLで画像を作るなんてできるのかと思ってしまいますが、ppm形式（テキストベース）の画像データをプログラムで生成すれば可能です。

PNM (画像フォーマット) - Wikipedia

PNM (Portable Any Map 形式[1][2]、Netpbm形式) は簡素な2次元ラスター画像形式のひとつである。PNMは特定の1種類の画像フォーマットではなく、異なるカラーモードをサポートするための3種類の画像形式をまとめて呼ぶときに使われる総称である[3]。これらの形式は、それぞれ portable pixmap format (PPM 形式)、portable graymap format (PGM 形式)、portable bitmap format (PBM 形式) と呼ばれ、いずれも異なるプラットフォーム間でも高い互換性を保てる画像形式として開発されたものである。

https://ja.wikipedia.org/wiki/PNM_(%E7%94%BB%E5%83%8F%E3%83%95%E3%82%A9%E3%83%BC%E3%83%9E%E3%83%83%E3%83%88)

480x480 px の真っ赤なタイル画像をCOBOLで作ってみましょう。

program-id. img001.

data division.

working-storage section.

01 i  pic 9(4).

01 j  pic 9(4).

procedure division.

display "P3"

display "480 480"

display "255"

perform varying i from 1 by 1 until i > 480

 perform varying j from 1 by 1 until j > 480

   display "255 0 0"

 end-perform

end-perform

stop run.

コンパイルして実行してみます。

できた画像を表示してみましょう。

こんな感じで画像を作成できるので、あとはプログラムでもっと複雑な画像も作ることができます。

青のグラデーション画像を作ってみます。

表示してみると、こんな画像ができています。

この画像をconvertコマンドの-swirで加工してみます。

convert -swirl 100000 tile.jpg img1.jpg

convert -swirl 100000 tile.jpg img1.jpg

どうでしょうか。COBOでも画像を生成することができます。

アルバム「Image Magic」のカバーアートは、こんな感じでCOBOLで作ってみました。音楽のほうもCOBOLで作ったのですが、また別の日記に書いてみます。

Image Magic | YAMAZAWA

Image Magic by YAMAZAWA, released 29 July 2015 1. 中国の庭 2. 奄美の浜 3. バリの風 4. インドの朝 5. ギリシャの午後 6. スペインの夜 7. 弦楽の憂鬱

https://yamazawa.bandcamp.com/album/image-magic

#プログラミング #COBOL