function [chroma] = TFR_to_chroma(TFR,F,parameter)

parameter.peakPickInBands = 1;
parameter.bandradius = 0.5;




pitch = STFT_to_pitchSTMSP(TFR,F,parameter.featureRate,parameter);

% visualize_pitchSTMSP((pitch),parameter);
% title('Pitch representation');


[chroma,chroma1,sideinfo] = pitchSTMSP_to_chroma(pitch,parameter);
% [chroma,sideinfo] = pitchSTMSP_to_CENS(pitch,parameter);
