Sound File
Sheet music for the sound file taken from here. Part 1. Part 2. Part 2.
Matlab Code
%Paul Scheffler %phscheff@purdue.edu %ECE 301 HW1-1.m
clear clc
%Defining Note Frequencies x=264; C=x; B=15*x/8; A=5*x/3; G=3*x/2; F=4*x/3; E=5*x/4; D=9*x/8; hC=2*C; hG=2*G; hE=2*E; hF=2*F; hB=2*B; hD=2*D; hA=2*A;
%Define Note Lengths, 216 bpm(from sheet music). 60/216=quarternote Ql=60/175; Hl=2*Ql; Wl=4*Ql; El=Ql/2; Sl=Ql/4;
%Sampling Rate from class delta=.00005;
%Notes Note=[hE,hE,0,hE,0,hC,hE,hG,0,G,0,hC,G,0,F,F,A,B,B,A, ...
G,hE,hG,hA,F,hG,0,hE,hC,D,B,hC,G,0,E,E,A,B,B,A,G,hE,hG,hA,F,hG, ... hE,hC];
%Lenth NoteLength = [Ql,Ql,El,Ql,El,El,Ql,Ql,Ql,Ql,Ql,Ql,El,Ql,Ql,El,Ql,Ql,El,Ql, ...
Ql,Ql,Ql,Ql,Ql,Ql,El,Ql,Ql,Ql,Ql,Ql,El,Ql,Ql,El,Ql,Ql,El,Ql,Ql,Ql,Ql,Ql,Ql,Ql, ... Ql,Ql];
%Normal Music n=numel(NoteLength); song = ones(1); for Count = 1:n;
t=0:delta:NoteLength(Count); y=sin(2*pi*Note(Count)*t); sound(y,1/delta); song=[song,y];
end
wavwrite(song, 44100, 32, 'Mario1.wav') pause(5) song = ones(1); for Count = 1:n;
t=0:delta:(1/2)*NoteLength(Count); y=sin(2*pi*Note(Count)*t); sound(y,1/delta); song=[song,y];
end wavwrite(song, 44100, 32, 'Mario2.wav')
%Up an Octave
pause(5) song = ones(1); for Count = 1:n;
t=0:delta:NoteLength(Count); y=sin(2*2*pi*Note(Count)*t); sound(y,1/delta); song=[song,y];
end wavwrite(song, 44100, 32, 'Mario3.wav')