PERL
17
less3-cgi
Guest on 3rd July 2022 04:57:32 PM
#!/usr/bin/perl
use strict;
#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();