PERL   22

jpegfill-cgi

Guest on 3rd July 2022 04:56:42 PM

  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. use SWF qw(:ALL);
  5. SWF::setScale(1.0);
  6.  
  7. print "Content-type: application/x-shockwave-flash\n\n";
  8.  
  9. my $s = new SWF::Shape();
  10. my $b = new SWF::Bitmap('common/backyard.jpg');
  11.  
  12. my $f = $s->addFill($b);
  13. $s->setRightFill($f);
  14.  
  15. $s->drawLine(640, 0);
  16. $s->drawLine(0, 480);
  17. $s->drawLine(-640, 0);
  18. $s->drawLine(0, -480);
  19.  
  20. my $m = new SWF::Movie();
  21. $m->setDimension(640, 480);
  22. $m->add($s);
  23. $m->output();

Raw Paste


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