function smat=htwtable(fp, vheader, hheader, mat)
%HTWTABLE Print the table mat in the HTML file pointed by fp 
%  SMAT = HTWTABLE(FP, VHEADER, HHEADER, MAT) 
%  
% 
%  Example that prints the matrix matvar in fp: 

%  See also HTOPEN, HTCLOSE, HTWHR, HTWTEXT, HTWPAR 
% 
%  Further Information:  
%       http://www.vision.ime.usp.br/~casado/matlab/htmltoolbox/  
%
%  This program is free software; you can redistribute it and/or
%  modify it under the terms of the GNU General Public License
%  as published by the Free Software Foundation; either version 2
%  of the License, or (at your option) any later version.
%
%  This program is distributed in the hope that it will be useful,
%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%  GNU General Public License for more details.
%
%  You should have received a copy of the GNU General Public License
%  along with this program; if not, write to the Free Software
%  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
%
%   Copyright (c) 2000 by Andre Casado Castano and Roberto M Cesar Jr. 
%   e-mail:casado@vision.ime.usp.br, cesar@ime.usp.br  
%   $Revision: 1.01 $  $Date: 2001/01/03 $ 
 
[lin, col] = size(mat); 

for lins=1:lin
 for cols=1:col
  smat(lins,cols) = {num2str(mat(lins,cols), 3)};
 end
end

[vlin, vcol] = size( vheader );
if (vcol > 1)
 vheader = vheader';
 [vlin, vcol] = size( vheader );
end

xcol = {};
if (vlin == lin)
 smat = [vheader smat];
 xcol = {' '};
end

[hlin, hcol] = size( hheader );
if (hlin > 1)
 hheader = hheader';
 [hlin, hcol] = size( hheader );
end

if (hcol == col)
 hheader = [xcol hheader];
 smat = [hheader ; smat];
end

[lin, col] = size(smat);

fprintf(fp,'<table border="1">\n'); 
for i=1:lin 
   fprintf(fp,'  <tr align="center">\n'); 
   for j=1:col 
      fprintf(fp,'    <td> %s </td>\n', char(smat(i,j))); 
   end 
   fprintf(fp,'  </tr>\n'); 
end 

fprintf(fp,'</table>\n');