#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Data::Dumper;
use Graph;

my($width) = 1024;
my($height) = 768;

Graph::StartGraphics($width, $height, 0);
Graph::SetTitle("Voting Demo");

my($i1) = Graph::LoadImage("bg.xpm");
my($i2) = Graph::LoadImage("bdm.xpm");

Graph::PlaceImage($i1, 0, 0);

for (my($n)=0;$n<200;$n++) {
    Graph::PlaceImage($i2, $n % $width, $n % $height);
		
    Graph::Sleep(0.001);
		
    Graph::RestoreImage($i2);
}
	
Graph::FreeImage($i1);
Graph::FreeImage($i2);
	
Graph::DrawLine(10,10,100,100);
	
Graph::WaitForEvent($Graph::eButtonPress);