boblsturm@0: function feature_struct = computeSTFTFeat(x, fs, win)
boblsturm@0:     wintype = win.Type;
boblsturm@0:     winlen = win.Length;
boblsturm@0:     hop = win.Hop;
boblsturm@0:     
boblsturm@0:     analysis_window = createWindow(winlen, hop, wintype);
boblsturm@0:     
boblsturm@0:     [feature_struct.S, feature_struct.F, feature_struct.T]=spectrogram(x, analysis_window, hop, winlen, fs);
boblsturm@0: end
boblsturm@0: 
boblsturm@0: function win = createWindow(winlen, hop, wintype)
boblsturm@0:     switch wintype
boblsturm@0:         case 'Hann'
boblsturm@0:             win = window(@hann, winlen);
boblsturm@0:         case 'Sine'
boblsturm@0:             win = window(@sin, winlen);
boblsturm@0:         case 'Tukey'
boblsturm@0:             win = tukeywin(winlen, 0.75);
boblsturm@0:         case 'Hamming'
boblsturm@0:             win = window(@hamming, winlen);
boblsturm@0:     end
boblsturm@0: end