function tcolor(tri,x,y,z,clim);
% TCOLOR Like pcolor, but for triangular grids
%  Usage:
%       tcolor(tri,x,y,z,[clim]);
% if clim is included, uses these limits
if(nargin<5),
 trisurf(tri,x,y,0*z,z);view(2);shading('flat');colorbar
else
 trisurf(tri,x,y,0*z,z);view(2);caxis(clim);shading('flat');colorbar
end
