Question

我使用Perl和TK编写了元胞自动机（Conway的生命游戏），只是为了娱乐和练习。它适用于控制台输出。当我使用TK时，在第一个版本中我只删除并添加新单元格（矩形），大约100步后我的程序减慢了（大约10次）。然后我重写了图形部分：最初制作所有2500个单元格（50x50），然后改变颜色而不是添加/删除它们。但经过600-700步后，我的返工自动机也开始减速。

这是传统知识的功能/错误，或者我做错了什么？

按标签更改颜色：

$canvas->itemconfigure("cell"."$x $y", -fill=>'blue');

创建网格：

for($y = 0; $y < 50; $y++)
{
    for($x = 0; $x < 50; $x++)
    {
        $canvas->createRectangle($x * 10, $y * 10, ($x + 1) * 10, ($y  + 1) * 10, -fill=>'white', -tags=>["cell"."$x $y"]);
    }
}

启动和停止循环：

sub start
{
    $repeat = $MainWindow->repeat($speed, sub{&maketurn;});
    # Function "maketurn" is not important, it is a simple counting of "alive" cells
    # and changing color by tag
}

sub stop
{
    if(defined($repeat))
    {
        $repeat->cancel();
    }
}

Answer 1

我发现有关tk canvas小部件的文章很慢，有很多项目。问题听起来与您的问题非常相似：

http://code.activestate.com/lists/perl-tk/17282/

解决方案可能是使用tk照片小部件，其行为与位图非常相似。修改代码会有点痛苦，但似乎画布窗口小部件在很多对象中都很慢。

为什么Tk帆布这么慢？

1 个答案: