function SoundNom = SoundNomenclature(folder)

%% This script generates a lot of useful variables allowing to manipulate the DEEPEN sounds
%% The code provides a number of labels for the different sounds, after
%% they have been reordered
clear SoundNom

%% Get the tims names
temp = load([folder filesep 'Code',filesep,'Utilities',filesep,'SoundInfo.mat']);

%% Different groupings of the sounds with associated labels
% The big groups of sounds
SoundNom.BroadGroups = {2:34,35:55,56:76,77:88,89:100,101:120,121:140};
SoundNom.BroadGroupsLabels = {'Pure','UpRmp','DnRmp','AM','ChpDur',...
    'Chp-60dB','Chp-80dB'};

% The detailed groups of sounds
SoundNom.DetailGroups = {2:12,13:23,24:34,35:55,56:76,77:88,89:100,101:110,111:120,121:130,131:140};
SoundNom.DetailGroupsLabels = {'Pure-60dB','Pure-70dB','Pure-80dB','UpRmp','DnRmp','AM','ChpDur',...
    'UpChp-60dB','DnChp-60dB','UpChp-80dB','DnChp-80dB'};

%% The intensity Of all the sounds
SoundNom.dB = [0,ones(1,11)*60,ones(1,11)*70,ones(1,11)*80,ones(1,21)*70,ones(1,21)*70,ones(1,12)*70,ones(1,12)*60,ones(1,20)*60,ones(1,20)*80];
SoundNom.dBLabels = {'60dB','70dB','80dB'};

%% Duration and frequency of all the sounds
tempfield =fieldnames(temp);
for f = 1:length(tempfield)
    SoundNom.(tempfield{f}) = temp.(tempfield{f});
end



%% The pure frequencies and their labels
SoundNom.PureFreq  = [4,5,6,7,9,12,15,19,24,29,37];
SoundNom.PureFreqLabels = {'4','5','6','7','9','12','15','19','24','29','37'};

%% The frequencies of the ramps
SoundNom.RampFreq = {4,6,9,15,24,[4,6],[4,9],[4,15],...
    [4,24],[6,9],[6,15],[6,24],[9,15],[9,24],[15,24],...
    [4,6,9,15],[4,6,9,15,24],[4,6,15,24],[4,9,15,24],[6,9,15,24],[4,6,9,15,24]};
SoundNom.RampFreqLabels = {'4','6','9','15','24','4-6','4-9','4-15',...
    '4-24','6-9','6-15','6-24','9-15','9-24','15-24',...
    '4-6-9-15','4-6-9-15-24','4-6-15-24','4-9-15-24','6-9-15-24','all'};

%% The frequency of AMs
SoundNom.AMFreq = [1,3,7,20,1,3,7,20,1,3,7,20];
SoundNom.AMFreqLabels = {'1Hz','3Hz','7HZ','20Hz'};

%% The speed of the different chirps
SoundNom.SpeedChirpsLabels = {'100ms','250ms','500ms'};
SoundNom.DurChirps = [100,250,500];
OctRange = log(SoundNom.StopFreq(SoundNom.BroadGroups{5})./SoundNom.StartFreq(SoundNom.BroadGroups{5}))./log(2);
SoundNom.SpeedChirps = OctRange./SoundNom.SoundDur(SoundNom.BroadGroups{5});

load([folder filesep 'Code',filesep,'Utilities',filesep,'Spectrograms.mat']);
SoundNom.Spectrograms = Spectrograms;

clear temp tempfield f