PerlTk畫布+像素操作

Question

我在理解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'); 

另一個想法我是使用一個照片元素，但我無法找到如何建立一個與「數據」選項的任何文件。

任何幫助表示讚賞。

Answer 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;