名称Cassis - 合成器模块概要


package MySynth;

use strict;

use warnings;

use Cassis;



sub new {

    my $class = shift;

    my %args = @_;

    my $fs = ( exists $args{fs} ) ? $args{fs} : 44100;

    bless {

        samples => [],

        fs => $fs,

        dco => Cassis::DCO->new( fs => $fs )

    }, $class;

}



sub exec {

    my $self = shift;

    my %args = @_;

    my $dst = $self->{dco}->exec( num => ...