#!/usr/bin/perl -w

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


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,new Const(200)],
                     [1,0,new Hz]
                    ]
                   );

my $w1 = new Woef('wav_003.wav',$s1->{'components'}[1]);

my $trail= new Trailer;

# warn foo?
print $trail->ascarray($w1,$s1);

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

$w1->finish();