function [ gname, fname ] = tetrabolo_name ( index )

%*****************************************************************************80
%
%% tetrabolo_name() returns the name of tetrabolo 1 through 14.
%
%  Discussion:
%
%    Unfortunately, there are two distinct naming schemes for the tetraboloes,
%    associated with Martin Gardner and Erich Friedman.  This function
%    returns both, distinguishing them by case.
%
%     #  Gardner  Friedman
%     --------------------
%     1  A        i
%     2  B        o
%     3  C        a
%     4  D        c
%     5  E        y
%     6  F        s
%     7  G        v
%     8  H        l
%     9  I        z
%    10  J        j
%    11  K        k
%    12  L        d
%    13  M        r
%    14  N        g
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 December 2021
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Erich Friedman,
%    Math Magic, Problem of the month, September 2004,
%    https://erich-friedman.github.io/mathmagic/0904.html.
%
%    Martin Gardner, 
%    Mathematical Games: 
%    The polyhex and the polyabolo, polygonal jigsaw puzzle pieces,
%    Scientific American,
%    Volume 216, June 1967, pages 124-132.
%
%  Input:
%
%    integer INDEX, a value between 1 and 14.
%
%  Output:
%
%    character GNAME, FNAME, the corresponding Gardner and Friedman names.
%
  if ( index == 1 )
    gname = 'A';
    fname = 'i';
  elseif ( index == 2 )
    gname = 'B';
    fname = 'o';
  elseif ( index == 3 )
    gname = 'C';
    fname = 'a';
  elseif ( index == 4 )
    gname = 'D';
    fname = 'c';
  elseif ( index == 5 )
    gname = 'E';
    fname = 'y';
  elseif ( index == 6 )
    gname = 'F';
    fname = 's';
  elseif ( index == 7 )
    gname = 'G';
    fname = 'v';
  elseif ( index == 8 )
    gname = 'H';
    fname = 'l';
  elseif ( index == 9 )
    gname = 'I';
    fname = 'z';
  elseif ( index == 10 )
    gname = 'J';
    fname = 'j';
  elseif ( index == 11 )
    gname = 'K';
    fname = 'k';
  elseif ( index == 12 )
    gname = 'L';
    fname = 'd';
  elseif ( index == 13 )
    gname = 'M';
    fname = 'r';
  elseif ( index == 14 )
    gname = 'N';
    fname = 'g';
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'tetrabolo_name(): Fatal error!\n' );
    fprintf ( 1, '  1 <= index <= 14 is required!\n' );
    error ( 'tetrabolo_name(): 1 <= index <= 14 required!' );
  end

  return
end

