Difference between revisions of "Swf.pl"
(Change swfd() to swfHandleRequest()) |
(Make frame2 reduction and go back to just peer.as) |
||
| Line 19: | Line 19: | ||
); | ); | ||
| − | # | + | # 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 3 | + | # 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); | my $as = $swf->frame_action(3); | ||
$as->gotoAndPlay(2); | $as->gotoAndPlay(2); | ||
Revision as of 10:10, 16 February 2006
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 my $swf= SWF::Builder->new( FrameRate => 50, FrameSize => [0, 0, 1024, 768], BackgroundColor => 'cccccc' );
# 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 $swf->save( my $file = "$::peer.swf" ); my @stat = stat( $file ); $output .= logAdd "\nSWF Instance compiled: $file ($stat[7] bytes)\n"; return $output; }
