#!/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 $rep_9_147 = new Schema(
                           [ 
                            [0,1,0,0,0,0,0,new Amplifier],
                            [0,0,0,0,0,0,0,new Const(.1)],
                            [0,0,0,0,0,0,0,new Const(.9)], 
                            [0,0,3,0,0,4,0,new Amplifier],
                            [2,0,0,5,0,0,0,new Mixer],  
                            [0,0,0,0,6,0,0,new Lag(220)],
                            [0,0,0,0,0,7,0,new Const(200)]
                           ]
                          );

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

my $s2 = new Schema(
                    [
                     [0,0,0,new Const(200)],
                     [1,0,0,new Hz],
                     [0,2,0,new Const(0)],
                    ]
                   );


my $w1 = new Woef('woef_006.wav',$s2);

my $trail= new Trailer;

print $trail->ascarray($w1,$s1,$rep_9_147 );

for (my $i=0; $i < 220500; $i++)
{
  $s2->pulse();
  $w1->pulse();

}

$w1->finish();