#!/usr/bin/perl -w

use Trailer;
use Clone;

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

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

my $mix   = new Mixer;
my $amp   = new Amplifier;

my $pat   = new Patch($mix,$amp);




print $trail1->ascarray($mix);
print $trail1->ascarray($amp);
print $trail1->ascarray($pat);

$mix->in(3);
$mix->in(4);

$amp->in(3);
$amp->in(4);

$pat->pulse();

print $trail2->ascarray($mix);
print $trail2->ascarray($amp);
print $trail2->ascarray($pat);

my $ran = new Random;

print '$ran = ',$ran->out(),"\n";
print '$ran = ',$ran->out(),"\n";

$ran->pulse();

print '$ran = ',$ran->out(),"\n";

$sch = new Scheduler([$pat,$amp,$pat]);
$sch->pulse();

print $trail3->ascarray($sch);


my $hz = new Hz;
$hz->in(441);

my $lag = new Lag(100);

my $p = new Patch($hz,$lag);
my $s = new Scheduler([$p,$lag,$hz]);

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

print $trail3->ascarray($s);