画像処理
ボクセル化が面白そうだと思ったんだけど、上手く実装できなかったので変更しました。。。orzさて、アルファブレンディングは「αブレンド(アルファブレンド)とは、2つの画像を係数(α値)により合成すること。特にゲームの開発に必須の技術で、別々に描か…
せっかく、PDLと行列の使い方を覚えたのだからそれを使って何かすれば良かったんだけど忘れてたでござる。今回はGIFで2D画像を3Dに見せるファイルを作ってみる。具体的な内容は下記サイトを見てほしい。2Dなのに飛び出す! 3D環境ゼロでつくる3D写真のつくり…
引き続き行列の計算をお楽しみください。 少しずつ行列の仕組みがわかってきたので 少し応用を利かせてみる。とりあえず、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…
スキュー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月号がクリティカルだった件。Interface (インターフェース) 2013年 04月号 [雑誌] [雑誌]CQ出版社そう、画像処理の情報が掲載されていた。中身をきちんと見たわけではないがとりあえず購入しました。土日はなかなか見れなかったので仕事が忙しく…
現在のピクセルと周りのピクセルの色を調べてフィルタリングしてやるとエッジを検出することができる。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 …
ある一定量の階層ごとに画素値を決めて処理することをポスタリゼーションと呼ぶ。というわけで、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…
格闘ゲーム作成はなかなか根気が必要ですね。いや、慣れている人はさっと作るんだろうけどさ。。。気分転換に画像処理の勉強でもしてみようかなぁと思いとりあえず記事を書いてみている。まず、Perlで画像を扱う場合Imagerが定番?らしい。というわけで、ま…