画像処理

【Perl】アルファブレンディング【画像処理】

ボクセル化が面白そうだと思ったんだけど、上手く実装できなかったので変更しました。。。orzさて、アルファブレンディングは「αブレンド(アルファブレンド)とは、2つの画像を係数(α値)により合成すること。特にゲームの開発に必須の技術で、別々に描か…

【第4回】Perlで画像処理 -GIFで2D画像から3D作成-

せっかく、PDLと行列の使い方を覚えたのだからそれを使って何かすれば良かったんだけど忘れてたでござる。今回はGIFで2D画像を3Dに見せるファイルを作ってみる。具体的な内容は下記サイトを見てほしい。2Dなのに飛び出す! 3D環境ゼロでつくる3D写真のつくり…

【Perl】 行列の計算練習2 【画像処理】

引き続き行列の計算をお楽しみください。 少しずつ行列の仕組みがわかってきたので 少し応用を利かせてみる。とりあえず、PerlとOpenGLで練習。use strict;use PDL;use PDL::Matrix;use OpenGL ':all';my $vec1 = vpdl [0.2, 0.3, 1.0];my $vec2 = vpdl [0.5…

【第3回】Perlで画像処理 -スキュー-

スキューuse strict;use warnings;use Imager;use Image::Size;use Math::Trig;my $gain = 1.05;my $angle = pi / $gain;my $img = Imager->new;$img->read(file => 'test.PNG') or die $img->errstr;my ($max_width, $max_heigth) = imgsize('test.PNG');my…

【画像処理】Interface4月号

Interface4月号がクリティカルだった件。Interface (インターフェース) 2013年 04月号 [雑誌] [雑誌]CQ出版社そう、画像処理の情報が掲載されていた。中身をきちんと見たわけではないがとりあえず購入しました。土日はなかなか見れなかったので仕事が忙しく…

【第2回】Perlで画像処理 -エッジ検出-

現在のピクセルと周りのピクセルの色を調べてフィルタリングしてやるとエッジを検出することができる。use strict;use warnings;use Imager;use Image::Size;my @filter = ( 0, # upper_right 0, # top 0, # upper_right 0, # left -1, # center 1, # right …

【第1回】Perlで画像処理 -ポスタリゼーション-

ある一定量の階層ごとに画素値を決めて処理することをポスタリゼーションと呼ぶ。というわけで、use strict;use warnings;use Imager;use Image::Size;my $img = Imager->new;$img->read(file => 'test.png') or die $img->errstr;my ($max_width, $max_heig…

【第0回】Perlで画像処理 -Imagerの練習-

格闘ゲーム作成はなかなか根気が必要ですね。いや、慣れている人はさっと作るんだろうけどさ。。。気分転換に画像処理の勉強でもしてみようかなぁと思いとりあえず記事を書いてみている。まず、Perlで画像を扱う場合Imagerが定番?らしい。というわけで、ま…