function tile_print ( tc, ts, ti, label )

%*****************************************************************************80
%
%% tile_print prints one or more tiles.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 February 2021
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer TC(TN,4), the tile colors.
%
%    integer TS(TN,1), the tile symmetries.
%
%    integer TI(TN,1), the tile indexes.
%
%    string LABEL, a label for the printout.
%
%  Local:
%
%    integer CN, the number of colors in this set of tiles.
%
  tn = size ( tc, 1 );
  cn = length ( unique ( tc ) );

  fprintf ( 1, '\n' );
  fprintf ( 1, '%s\n', label );
  fprintf ( 1, '  Number of tiles = %d\n', tn );
  fprintf ( 1, '  Number of colors = %d\n', cn );
  fprintf ( 1, '\n' );
  fprintf ( 1, '    #:   sym   c1    c2    c3    c4\n' );
  fprintf ( 1, '\n' );
  for i = 1 : tn
    fprintf ( 1, '  %3d:    (%d)  %2d    %2d    %2d    %2d\n', ...
      ti(i), ts(i), tc(i,1:4) );
  end

  return
end

