#!/usr/bin/perl

use lib("lib/site_perl");

#imports all ming-modules
use SWF qw(:ALL);
use SWF::Constants qw(:Text :Button :DisplayItem :Fill);

SWF::setScale(20); 
SWF::setVersion(4);

	#lets draw a triangle
	my $triangle = new SWF::Shape();
	
	# lwidth, red, green, blue -> we set a red linecolor
	$triangle->setLine(20, 0xff, 0, 0);

	#relative painting 
	$triangle->drawLine(0, 30);
	$triangle->drawLine(40, 0);

	#but also absolute painting possible
	$triangle->drawLineTo(0, 0);

#now the main movie
my $movie = new SWF::Movie();
$movie->setRate(10); # 10 frames per sec

# red,green,blue -> we set a yellow background
$movie->setBackground(0xcc, 0xcc, 0x99);
$movie->setDimension(200,100);

$triangle_i = $movie->add($triangle);
$triangle_i->move(20,50);
$movie->nextFrame();

$movie->save("triangle.swf");