%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Hayden Tweedley 420072890 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% This script calls two functions in series.  Firstly is applied to the tremolo function resulting in the output tremolo_out.wav        %%
%% This tremolo_out.wav file is then fed as the input to the vibrato function.  The resulting sound file is intended to very roughly     %%
%% approximate the effects of a rotary loudspeaker or Leslie speaker.  I have modified the referenced functions to accept the parameters %%
%% as utilised in this script.  Namely, the frequency of tremolo modulation which should vary between 1e-4 to 1e-3 and the frequency of  %%
%% the vibrato modulation which is specified in kiloHertz.                                                                               %% 
%% Function parameters are parsed in the form: tremolo('input.wav', 'output.wav', step)                                                  %%
%%                                             vibrato('input.wav', 'output.wav', frequency)                                             %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 

tremolo('sample.wav', 'tremolo_out.wav', 0.8e-4);
vibrato('tremolo_out.wav', 'vibrato_tremolo_out.wav', 2);

%%END%%