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'); 

我的另一个想法是使用照片元素，但我找不到任何关于如何使用"-data“选项创建照片元素的文档。

任何帮助都是非常感谢的。

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;