PerlTk 画布 + 像素操作答案

【问题标题】：PerlTk canvas + pixel manipulationPerlTk 画布 + 像素操作
【发布时间】：2013-03-03 22:35:14
【问题描述】：

我在理解 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”选项创建照片元素的文档。

感谢任何帮助。

【问题讨论】：

标签： perltk

【解决方案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;

【讨论】：