Swf.pl

Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, now this page is for historic record only.

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;
	}