- #!/usr/bin/perl
- use strict;
- #SWF::setScale(1.0);
- 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();
Raw Paste