function htwmatrix(fp, mat, lar)
%HTWMATRIX Print the matrix mat in the HTML file pointed by fp
%  HTWMATRIX(FP, MAT, LAR) creates a table with the matrix MAT 
%  in HTML format and put the values of the matrix MAT in the table cells.
%  The width of each cell of the table will be LAR pixels.
%
%  Example that prints the matrix matvar in fp:
%  htwmatrix(fp, matvar, 90)

%  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.
%   e-mail:casado@vision.ime.usp.br

%   $Revision: 1.1 $  $Date: 2001/05/12 $

[lin, col] = size(mat);
fprintf(fp,'<table border="1">\n');
for i=1:lin
   fprintf(fp,'  <tr align="center">\n');
   for j=1:col
      fprintf(fp,'    <td width="%d">%.3g</td>\n',lar,mat(i,j));
   end
   fprintf(fp,'  </tr>\n');
end
fprintf(fp,'</table>\n');