#!/usr/bin/perl
use strict;

use SWF qw(:ALL);

#SWF::setScale(1.0);
print "Content-type: application/x-shockwave-flash\n\n";

my $shape1 = new SWF::Shape(); 
$shape1->setLine(5,0,0,255); 
$shape1->drawLine(440,0); 

my $shape2 = new SWF::Shape(); 
$shape2->setLine(1,0,0,0); 
$shape2->setRightFill(0,255,0); 
$shape2->drawLine(50,0); 
$shape2->drawLine(0,50); 
$shape2->drawLine(-50,0); 
$shape2->drawLine(0,-50); 

my $movie = new SWF::Movie(); 
$movie->setDimension(460,80); 
$movie->setBackground(255,0,0); 

my $firstLine = $movie->add($shape1); 
$firstLine->moveTo(10,10); 

my $secondLine = $movie->add($shape1); 
$secondLine->moveTo(10,70); 

my $firstSquare = $movie->add($shape2); 
$firstSquare->moveTo(15,15); 

my $secondSquare = $movie->add($shape2); 
$secondSquare->moveTo(395,15); 

$movie->output();