#!/usr/bin/perl -w

# test_wav.pl - build a .wav, dump Audio::Wav object data on stdout, write .wav to ./waf1.wav

use Trailer;
use Clone;

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


my $trail1 = new Trailer;
my $trail2 = new Trailer;
my $trail3 = new Trailer;


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

$mix->in(200);

my $pat1 = new Patch($mix,$hz);
my $pat2 = new Patch($hz,$waf);

my $sch  = new Scheduler([$pat1,$pat2,$hz]);

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

print $trail3->ascarray($sch);

$waf->finish();