1

PerlTk の画像タイプがどのように機能するかを理解するのに問題があります。

基本的に、「空の」画像（完全に白など）を作成してから、ピクセルデータを操作する方法が必要です。ピクセルを黒または白に変更できる必要があります。

いくつかのアプローチを試しましたが、どれもうまくいかないようです。ドキュメントはかなり少なく、非常に古いようです。これは私が持っている最も近いです。

#args name, width, height, data
my $bitmap = $mw->DefineBitmap('cells', 1, 1, pack("b1", "1")); 

#args x-pos, y-pos, bitmap-name 
$canvas->createBitmap(0, 0, -bitmap => 'cells');

私が持っていた別のアイデアは、Photo 要素を使用することでしたが、「-data」オプションを使用して作成する方法に関するドキュメントが見つかりませんでした。

どんな助けでも大歓迎です。

4

1 に答える 1

1

put()単一のピクセルを設定する必要がある場合は、この方法を使用してください。完全な例を次に示します。

use Tk;
my $mw = tkinit;
my $p = $mw->Photo(-width => 100, height => 100);
my $l = $mw->Label(-image => $p, -border => 0)->pack;
for (0..99) {
    $p->put("#000000", -to => $_,$_);
    $p->put("#000000", -to => 100-$_,$_);
}
MainLoop;
于 2013-07-04T08:11:19.190 に答える