% dimou_delay_mod :  Also calls function 'make_sine_modulator'

[signal_in, fs] = audioread('Siren_DSP.wav'); % FS is audio samples per second

Width = .02; % basic delay on the input is 1 msec
% Width is Modulation width in sec

Modfreq = 4.; % for sub-audio sine-wave modulation sigal

% [y MOD] = my_modulator(Input,FS,Modfreq,Width);
LEN=length(signal_in);

Mod_sig = make_sine_modulator(fs,Modfreq,LEN); % sub-audio modulation signal, sampled at the audio sampling rate
z_allterp=delay_mod(signal_in,fs,Mod_sig,Width);  % uses the modulation signal made by routine 'make_modulator'


sound (z_allterp, fs);
