%% Lectura de archivos de audio

clearvars; close all; clc

%% Lectura

% Lo importante en la lectura de archivos de audio es 
% poder determinar las características de los archivos
% que se están importando a matlab. Entre ellas, la 
% frecuencia de sampleo y la duración del archivo

% Función audioread lee archivos de audio
% Argumento es el nombre del archivo (en la carpeta actual)
% [audio Fs] = audioread('violin.wav');
% Audioread entrega dos variables de salida:
% El vector de audio y la frecuencia de sampleo

% En versiones anteriores, usar función wavread
[audio Fs] = wavread('violin.wav');

% Tamaño de arreglo en muestras
N = size(audio,1);

% Duración en segundos
dur = N/Fs;

%% Graficamos

t = (0:(N-1))/Fs;

figure(1)
plot(t,audio);
xlabel('tiempo(s)')
ylabel('Presión sonora (Pa)')
xlim([0 dur])
ylim([-1 1])
title('Mi archivo de audio')

%% Reproducimos

% % Utilizamos función sound
% sound(audio,Fs,24)
% % El 3er argumento es la profundidad de bits
% 
% % Probamos con distintos valores de Fs
% sound(audio,32000,16)
% % pause(dur) % función pause hace una pausa en segundos
% sound(audio,48000,16)

%% Modificamos la amplitud del archivo de audio

% Definimos factor de amplitud

A = 0.5;

audio2 = A*audio;   % Aplicamos factor a todo el arreglo

figure(2)
plot(t,audio2);
xlabel('tiempo(s)')
ylabel('Presión sonora (Pa)')
xlim([0 dur])
ylim([-1 1])
title('Mi archivo de audio * A')