% Simple script to generate an HTML table of specwin types
% 
% M Hewitson
% 
% $Id:$
% 

clear all;


fname = 'specwin_table.html';

fd = fopen(fname, 'w+');

wins = specwin('Types');
% {'Rectangular', 'Welch', 'Bartlett', 'Hanning', 'Hamming',... 
%      'Nuttall3', 'Nuttall4', 'Nuttall3a', 'Nuttall3b', 'Nuttall4a',...
%      'Nuttall4b', 'Nuttall4c', 'BH92', 'SFT3F', 'SFT3M', 'FTNI', 'SFT4F', 'SFT5F',...
%      'SFT4M', 'FTHP', 'HFT70', 'FTSRS', 'SFT5M', 'HFT90D', 'HFT95', 'HFT116D',...
%      'HFT144D', 'HFT169D', 'HFT196D', 'HFT223D', 'HFT248D'};
   
for wn = wins
  
  wn
  w = specwin(char(wn), 100);
  
	fprintf(fd, '<!-- %s -->\n', char(wn));
  fprintf(fd, '  <tr valign="top">\n');
  fprintf(fd, '    <td bgcolor="#F2F2F2">\n');
  fprintf(fd, '      <p>%s</p>\n', char(wn));
  fprintf(fd, '    </td>\n');
  fprintf(fd, '    <td bgcolor="#F2F2F2">\n');
  fprintf(fd, '      <p>%2.3f</p>\n', w.nenbw);
  fprintf(fd, '    </td>\n');
  fprintf(fd, '    <td bgcolor="#F2F2F2">\n');
  fprintf(fd, '      <p>-%2.1f</p>\n', w.psll);
  fprintf(fd, '    </td>\n');
  fprintf(fd, '    <td bgcolor="#F2F2F2">\n');
  fprintf(fd, '      <p>%2.1f</p>\n', w.rov);
  fprintf(fd, '    </td>\n');
  fprintf(fd, '  </tr>\n');
  
  
end


fclose(fd);