Mercurial > hg > pyin

view misc/pitchgenerator.m @ 95:ca0ea8c9c712

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made onset sensitivity a parameter
author matthiasm
date Thu, 08 Jan 2015 18:52:54 +0000
parents 37e59aa69322
children
line wrap: on
line source
f = 50:800;
fs = 44100;
t = (0:(2*fs))/fs;
nFreq = length(f);

for iFreq = 1:nFreq
    f(iFreq)
    x = zeros(size(t));
    for iAdd = 1:100
        x = x + cos(2*pi*f(iFreq)*t*iAdd)*0.6^(iAdd-1);
        if f(iFreq)*iAdd > fs/2
            break
        end
    end
    x = x / max(abs(x));
    wavwrite(x, fs, sprintf('/Users/matthiasm/data/pyin/simplewavs/%iHz.wav', f(iFreq)));
end