帰ってきたネコブログ

今回は、cutoffをLFOでモジュレーションしてみようと思います。

use v5.14;
use strict;
use warnings;

use Cassis;
use constant SAMPLING_RATE => 44100;

my $noise = Cassis::Noise->new()->exec( num => SAMPLING_RATE * 10 );

my $lfo = Cassis::Osc::Tri->new( fs => SAMPLING_RATE, freq => 0.18 );
my $filter = Cassis::Iir2::BPF->new( cutoff => 0.32, q => 6.0 );
my $filter_out = $filter->exec(
    src => $noise,
    mod_cutoff => {
        src => $lfo->exec( num => scalar(@{$noise}) ),
        depth => -0.17
    }
);

Cassis::File::write(
    file => 'wind_sound.wav',
    fs => SAMPLING_RATE, channels => [ $filter_out ] );

風がビュービュー鳴る感じをイメージして・・・無理がありますね。
それはそうと、ノイズにフィルターを掛けるとか、
急に実用度が増したと思うのですが、いかがでしょうか？

次回は、EGを使ってミョンミョンさせる予定です！

おしまい。

カテゴリー: Perl, コンピューター by ネコ on 2014年12月14日 | タグ: Cassis > 音楽