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;