live sine

#!perl6

use NativeCall;

my $samplerate = 44100;
my $frequency = 440;

sub gen-sin(Int $sample-rate, Int $frequency) {
    my num $spf = $sample-rate.Num / $frequency.Num;
    my num $twopi = (2 * pi).Num;
    my $range = (0..$spf);
    do loop {
        slip $range.map({ sin(($_.Num/($spf)) * $twopi) });
    }
}

my $now = now;

my $sin-generator = gen-sin($samplerate, $frequency);

for $sin-generator.rotor(256) -> @a {
    my $c = CArray[num32].new(flat @a Z @a);
    say now - $now;
    $now = now;

    last if $++ > 100;
}

# vim: expandtab shiftwidth=4 ft=perl6

:) I'll try and plug this in to https://github.com/jonathanstowe/Audio-PortAudio/blob/master/examples/play-sine later to see if it works cheers.