function circle_map_test ( )

%*****************************************************************************80
%
%% CIRCLE_MAP_TEST tests CIRCLE_MAP.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    21 January 2019
%
%  Author:
%
%    John Burkardt
%
  addpath ( '../circle_map' )

  timestamp ( );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CIRCLE_MAP_TEST:\n' );
  fprintf ( 1, '  MATLAB version\n' );
  fprintf ( 1, '  Test CIRCLE_MAP.\n' );

  A = [ sqrt(3.0), 1.0; - 1.0, sqrt(3.0) ];
  norm_type = 2;
  circle_map_dots ( A, norm_type );
  filename = 'circle_map_dots_rotation.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  A = [ 2.5, 0.0; 0.0, 0.5 ];
  norm_type = 2;
  circle_map_dots ( A, norm_type );
  filename = 'circle_map_dots_diagonal.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  A = [ 1.0, 2.0; 0.5, 1.0 ];
  norm_type = 2;
  circle_map_dots ( A, norm_type );
  filename = 'circle_map_dots_singular.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  A = [ 4.0, 2.0; 2.0, 4.0 ];
  norm_type = 1;
  circle_map_dots ( A, norm_type );
  filename = 'circle_map_dots_l1.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  A = [ 4.0, 2.0; 2.0, 4.0 ];
  norm_type = 'Inf';
  circle_map_dots ( A, norm_type );
  filename = 'circle_map_dots_linf.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  A = [ 4.0, 2.0; 2.0, 4.0 ];
  circle_map_letters ( A );
  filename = 'circle_map_letters_full.png';
  print ( '-dpng', filename );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CIRCLE_MAP_TEST:\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  fprintf ( 1, '\n' );
  timestamp ( );

  rmpath ( '../circle_map' )

  return
end
