my $canvasTLx = $canvas->canvasx( 0 );
my $canvasTLy = $canvas->canvasy( 0 );