Swf.pl
<perl> use SWF qw(:ALL); use Image::Magick;
- Process a message from SWF interface-instance
- - requests can require rendering of layers from SVG source using PerlMagick
sub swfHandleRequest { my $article = shift; return $article; }
- Compile a SWF interface for this peer
sub swfCompile {
my $output = ;
# Create new SWF movie instance SWF::setScale(1.0); SWF::setVersion(6); my $swf = new SWF::Movie(); $swf->setBackground( 0xcc, 0xcc, 0xcc ); $swf->setDimension( 1024, 768 ); $swf->setRate(50);
# Import peer.as my $file = 'peer.as'; my @stat = stat( $file ); $output = logAdd "Compiling \"$file\" ($stat[7] bytes)\n"; my $as = $swf->frame_action( 1 ); $as->load( $file );
# Frame 2: Nodal reduction (main) my $as = $swf->frame_action( 2 ); $as->compile( 'space.reduce();' );
# Frame 3: Loop back to frame 2 my $as = $swf->frame_action(3); $as->gotoAndPlay(2);
# Output resultant SWF file (compress) $swf->save( my $file = "$::peer.swf", 9 ); my @stat = stat( $file ); $output .= logAdd "\nSWF Instance compiled: $file ($stat[7] bytes)\n"; return $output; } </perl>