function add_labels(transc)
% function add_labels(transc)
%
% transc  - HTK transcription file (can't work with MLF). Can be ''
%
% very similar to show_fea and show_sfea. 

[beg,endd,phn,score] = textread(transc,'%f%f%s%f');
% convert that to frames
beg = beg * 100e-9 * 100; 
endd = endd * 100e-9 * 100; 
% and compute places to put phoneme labels as centers. 
%  places = (beg + endd ) / 2; 
samebeg = find(beg(1:end-1)-beg(2:end) == 0);
beg(samebeg+1) = beg(samebeg+1) + 1;
places = beg; % wants grid on beginnings ... 
  
h=gca; set (h,'fontsize',8); %set (h,'fontweight','bold');
set(h,'xtick', places); set (h,'xticklabel', phn); 
grid
