use Audio::Aoede;
use PDL;
use PDL::Graphics::Prima::Simple;

my $A = Audio::Aoede->new();
my $t = sequence($A->rate) / $A->rate * 2 * atan2(0,-1);

my $p = sin(440 * $t);

my $samples_per_period = $A->rate / 440;
line_plot($p->slice([0,$samples_per_period-1]));