%mary had a little lamb:

clear;
notes;   %load note frequencies

%getexcitesignal;

e = wavread('../html/dsp/excite-plucked-soft.wav');
e = .5*e';

fs = 44100;

%loop filter:
B = [0.8995 0.1087];
A = [1 0.0136];

o = 4;   %octave
nd = .3; %note duration
p = .9;  %pluck position

L = [ ks(E(o), nd) ks(D(o), nd) ks(C(o), nd) ks(D(o), nd) ks(E(o), nd) ks(E(o), nd) ks(E(o), 2*nd) ks(D(o), nd) ks(D(o), nd) ks(D(o), 2*nd) ks(E(o), nd) ks(G(o), nd) ks(G(o), 2*nd) ks(E(o), nd) ks(D(o), nd) ks(C(o), nd) ks(D(o), nd) ks(E(o), nd) ks(E(o), nd) ks(E(o), nd) ks(C(o), nd) ks(D(o), nd) ks(D(o), nd) ks(E(o), nd)  ks(D(o), nd) ks(C(o), 4*nd) ];

wavwrite(L,fs,16,'mary.wav');
