Difference between revisions of "Swf.pl"
(Make frame2 reduction and go back to just peer.as) |
(Beginning Ming changeover) |
||
| Line 1: | Line 1: | ||
| − | use SWF::Builder; | + | use SWF qw(:ALL); |
| + | #use SWF::Builder; | ||
# Process a message from SWF interface instance | # Process a message from SWF interface instance | ||
| Line 13: | Line 14: | ||
# Create new SWF movie instance | # Create new SWF movie instance | ||
| − | my $swf= SWF:: | + | 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 | # Import peer.as | ||
| Line 34: | Line 36: | ||
$as->gotoAndPlay(2); | $as->gotoAndPlay(2); | ||
| − | # Output resultant SWF file | + | # Output resultant SWF file (compress) |
| − | $swf->save( my $file = "$::peer.swf" ); | + | $swf->save( my $file = "$::peer.swf", 9 ); |
my @stat = stat( $file ); | my @stat = stat( $file ); | ||
$output .= logAdd "\nSWF Instance compiled: $file ($stat[7] bytes)\n"; | $output .= logAdd "\nSWF Instance compiled: $file ($stat[7] bytes)\n"; | ||
return $output; | return $output; | ||
} | } | ||
Revision as of 20:14, 16 February 2006
use SWF qw(:ALL);
- use SWF::Builder;
- Process a message from SWF interface instance
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; }
