PERL   17

less3-cgi

Guest on 3rd July 2022 04:57:32 PM

  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. use SWF qw(:ALL);
  5.  
  6. #SWF::setScale(1.0);
  7. print "Content-type: application/x-shockwave-flash\n\n";
  8.  
  9. my $shape1 = new SWF::Shape();
  10. $shape1->setLine(5,0,0,255);
  11. $shape1->drawLine(440,0);
  12.  
  13. my $shape2 = new SWF::Shape();
  14. $shape2->setLine(1,0,0,0);
  15. $shape2->setRightFill(0,255,0);
  16. $shape2->drawLine(50,0);
  17. $shape2->drawLine(0,50);
  18. $shape2->drawLine(-50,0);
  19. $shape2->drawLine(0,-50);
  20.  
  21. my $movie = new SWF::Movie();
  22. $movie->setDimension(460,80);
  23. $movie->setBackground(255,0,0);
  24.  
  25. my $firstLine = $movie->add($shape1);
  26. $firstLine->moveTo(10,10);
  27.  
  28. my $secondLine = $movie->add($shape1);
  29. $secondLine->moveTo(10,70);
  30.  
  31. my $firstSquare = $movie->add($shape2);
  32. $firstSquare->moveTo(15,15);
  33.  
  34. my $secondSquare = $movie->add($shape2);
  35. $secondSquare->moveTo(395,15);
  36.  
  37. $movie->output();

Raw Paste


Login or Register to edit or fork this paste. It's free.