#!/usr/bin/perl -w

use Trailer;
use Clone;

use Mixer;
use Amplifier;
use Patch;
use Random;
use Scheduler;
use Lag;
use Hz;
use Waf;
use Const;
use Compound;

my $c200 =  new Const(200);
my $c50  =  new Const(50);

my $hz  = new Hz;
my $mix = new Mixer;
my $amp = new Amplifier;
my $waf = new Waf('wav_001.wav');

my $patch1 = new Patch($c200,$mix);
my $patch2 = new Patch($c50,$amp);
my $patch3 = new Patch($hz,$amp);
my $patch4 = new Patch($amp,$mix);
my $patch5 = new Patch($mix,$hz);
my $patch6 = new Patch($hz,$waf);

my $com = new Compound({'list'=>[$patch1,$patch2,$patch3,$patch4,$patch5,$patch6],'$'=>{'amp'=>$amp,'mix' =>$mix, 'hz' => $hz}}); 

for (my $i=0; $i < 44100; $i++)
{
  $com->pulse();
}

$waf->finish();