#!/usr/bin/perl -w

use strict;

use Trailer;
use Clone;

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

my $s1 = new Schema(
                    [
                     [0,0,0,0,0,0,new Mixer],
                     [0,0,0,0,0,0,new Const(40)],
                     [1,2,0,0,0,0,new Amplifier],
                     [0,0,0,0,0,0,new Const(200)],
                     [0,0,3,4,0,0,new Mixer],
                     [0,0,0,0,5,0,new Hz],
                    ]
                   );

my $s2 = Clone::clone($s1);
my $s3 = Clone::clone($s1);

$s2->{'components'}[5]->{'phase'}=3.14159*2/3;
$s3->{'components'}[5]->{'phase'}=3.14159*4/3;

my $s4 = new Schema(
                    [
                     [0,0,1,0,0,0,0,new Amplifier],
                     [0,0,0,4,0,3,0,new Amplifier],
                     [0,0,0,0,0,0,0,new Const(.1)],
                     [0,0,0,0,0,0,0,new Const(.9)],
                     [2,5,0,0,0,0,0,new Mixer],
                     [0,0,0,0,6,0,0,new Lag(2200)],
                     [0,0,0,0,0,7,0,new Const(0)]
                    ]
                   );

my $s5 = new Schema(
                    [
                     [0,1,2,0,$s1],
                     [3,0,4,0,$s2],
                     [5,6,0,0,$s3],
                     [0,0,7,0,$s4]
                    ]
                   );



my $w1 = new Woef('woef_003.wav',$s1);
my $w2 = new Woef('woef_004.wav',$s4);

my $trail= new Trailer;

print $trail->ascarray($w2,$s5);

for (my $i=0; $i < 441000; $i++)
{
  $s5->pulse();
  $w1->pulse();
  $w2->pulse();
}

$w1->finish();
$w2->finish();