function [ w, p_ij ] = tetrahex_word ( k )

%*****************************************************************************80
%
%% tetrahex_word() returns the boundary word for a tetrahex.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 June 2021
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer K, a tile index.
%
%  Output:
%
%    character W(WN), the boundary word.
%
%    integer P_IJ(2): the (i,j) coordinates of the base point.
%
  p_ij = [ 0, 0 ];

  if ( k == 1 )
    w = '121232343456165456';
  elseif ( k == 2 )
    w = '123232323456565656';
  elseif ( k == 3 )
    w = '12123434545616';
  elseif ( k == 4 )
    w = '1232123434565656';
  elseif ( k == 5 )
    w = '121612343234565456';
  elseif ( k == 6 )
    w = '121232123454565456';
  elseif ( k == 7 )
    w = '123232123454565656';
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'tetrahex_word - Fatal error!\n' );
    fprintf ( 1, '  Illegal tile index %d\n', i );
    error ( 'tetrahex_word - Fatal error!\n' );
  end

  return
end

