#! /usr/bin/perl -w

use strict;
use Tk;

my( $background, $score_pip );

# Main
{
    my $top = MainWindow->new();
    $background = $top->Photo( -file => "QBackground.gif",
#				 -palette => 256/256/256,
				 );
    $score_pip = $top->Photo( -file => "Score.gif",
#				-palette => 256/256/256,
				);
    $background->copy( $score_pip, -to => ( 180 - 16, 180 - 16 ));
#    $background->redither;
    $background->write(
		      'testout.gif', 
		      -format => 'gif',
#		       -grayscale,
		      );
}