function [ name1, name2 ] = t_grid_name ( k )

%*****************************************************************************80
%
%% t_grid_name() returns the name for a T-puzzle grid.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 February 2022
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer K: a grid index.
%    1: t
%    2: arrow
%    3: rhombus
%    4: fatarrow
%
%  Output:
%
%    character NAME1(*): the name of the grid.
%
%    character NAME2(*): a one-word name.
%
  if ( k == 1 )
    name1 = "The T";
    name2 = "t";
  elseif ( k == 2 )
    name1 = "The Arrow";
    name2 = "arrow";
  elseif ( k == 3 )
    name1 = "The Rhombus";
    name2 = "rhombus";
  elseif ( k == 4 )
    name1 = "The Fat Arrow";
    name2 = "fatarrow";
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 't_grid_name(): Fatal error!\n' );
    fprintf ( 1, '  Illegal grid index %d\n', k );
    error ( 't_grid_name(): Fatal error!\n' );
  end

  return
end

