#!/usr/bin/perl -w
use strict;

use SWF qw(:ALL);

SWF::setScale(1.0);

my $m = new SWF::Movie();
$m->setRate(12.0);
$m->streamMp3("../common/distortobass.mp3");

# 11.85 seconds at 12.0 fps = 142 frames
$m->setFrames(142);

$m->save("test.swf");
