% makeDaboveA220.m   Make a wav file with 1 second of D above A220
% P.Conrad for CISC106 

sampleRate = 44100;
bitsPerSample = 16;
volume = 0.9;  % volume should be a number between [0,1) (< 1)

frequency = 220;
numberOfHalfSteps = 5;
newFrequency = frequency * 2 ^ (5/12);

samples = volume * sineWavVector(sampleRate,newFrequency,1);

makeWavFileOnWeb(samples,44100,16,'cisc106/10.31','DaboveA220.wav')