my $img = Tkx::image_create_photo(-data => $CANVAS_SR, -format => 'window');
  $img =  Tkx::widget->new($img);
  $img->write ("d:\\tmp\\3\\test.bmp", -format => 'bmp');