package Waf;
use Audio::Wav;

sub new
{
  my $pck = shift;
  my $self = {};
           
  my $wav = new Audio::Wav;

  $self->{'write'} = $wav->write(
                                 shift, 
                                 {
                                  'bits_sample'   => 16,
                                  'sample_rate'   => 44100,
                                  'channels'      => 1,
                                 } 
                                );
  $self->{'max_no'} =  2 ** 15;

  bless $self,$pck;
  return($self);
}

sub in
{  
  my $self=shift;
  $self->{'write'}->write($self->{'max_no'}*shift);            
}    

sub finish
{
  my $self = shift;
  $self->{'write'}->finish();
}

sub pulse {}

'end Waf';