Ｐｅｒｌでフレームバッファ

Ｐｅｒｌでちょっとした画像処理をしたくて、動作中の表示がそのまま画面に表示されるとデバッグがしやすい訳です。
画面が表示されて、ピクセル単位にＲＧＢ値で読み書きできる最小限のパッケージを作りました。

既設のパッケージ「Ｔｋ」を利用して、その中のＰｈｏｔｏをベースにしてあります。 言語上の継承はできませんでした。けれどＰｈｏｔｏだと思って使うことができるよう工夫してあります。 単にＴｋを使おうとするとＭａｉｎＷｉｎｄｏｗ、Ｉｍａｇｅ、Ｐｈｏｔｏで協調させなくてはなりません。 その辺りの面倒を見るパッケージになっています。 このパッケージを利用する人はＰｈｏｔｏのオブジェクトを１個生成してピクセル値を書き込むコードを用意すると それが収まるウィンドウに書き込んだピクセル値が反映されます。

#!/usr/bin/perl -w

use strict;
use utf8;
use MyFramebuffer;

binmode STDOUT, ":encoding(cp932)";

# 経過表示用にバッファ処理なし
$| = 1;

test_myframebuffer();

# 終了待ち
print "終了待ち（ウィンドウを閉じると終了）\n";
MainLoop();

sub test_myframebuffer
{
	my $photo = MyFramebuffer->new(
		-title => "フレームバッファのサンプル",
		-width => 500,
		-height => 500
	);

	my $cx = 250;
	my $cy = 250;
	for (my $y = 0; $y < $photo->height(); $y++) {
		for (my $x = 0; $x < $photo->width(); $x++) {
			if (int(sqrt(($y - $cy) ** 2 + ($x - $cx) ** 2)) == 200) {
				$photo->put('#ff0000', -to => ($x, $y));
			}
		}

		# １段毎に画面全体を更新
		$photo->update();

		# 処理経過
		print "行：$y\r";
	}

	# 処理経過の改行
	print "\n";

	my $count = 0;
	for (my $y = 0; $y < $photo->height(); $y++) {
		for (my $x = 0; $x < $photo->width(); $x++) {
			my @pixel = $photo->get($x, $y);
			if ($pixel[0]) {
				$count++;
			}
			printf "get(%3d, %3d) == %3d %3d %3d, count == %3d\r", $x, $y, @pixel, $count;
		}
	}

	# 処理経過の改行
	print "\n";
}

sample_myframebuffer.pl
myframebuffer.pm