p5 Cassis 用于产生短音的合成器模块

名称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 =