function triangle_plot ( t, color, number )

%*****************************************************************************80
%
%% triangle_plot() plots a polyiamond from its triangle list.
%
%  Discussion:
%
%    The triangle list of a polyiamond gives the IJK coordinates of the
%    triangles.
%
%    The user should call "clf()" before this function.
%    More plotting commands may be issued if preceded by the "hold on"
%    command.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 November 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer T(TN,3): the triangle list.
%
%    color COLOR: the color to use.
%
%    logical NUMBER: true if the triangle indices should be printed.
%
  hold ( 'on' );
%
%  Consider each triangle in the parallelogram grid.
%  If it is in the region, color it in.
%
  r = 1.0;
  tn = size ( t, 1 );
  for ti = 1 : tn
    if ( number )
      label = sprintf ( '%d', ti );
    else
      label = '';
    end
    ijk_fill ( t(ti,1:3), r, color, label );
  end
%
%  Mark the origin.
%
  plot ( 0.0, 0.0, 'k.', 'markersize', 35 );

  hold ( 'off' );

  axis ( 'equal' );
  axis ( 'off' );

  return
end

