function circles_test07 ( )

%*****************************************************************************80
%
%% CIRCLES_TEST07 tests the CIRCLES library.
%
%  Licensing:
%
%    See http://people.sc.fsu.edu/~jburkardt/m_src/circles/license.txt
%
%  Modified:
%
%    31 March 2016
%
%  Author:
%
%    Chad Greene
%    Modifications by John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CIRCLES_TEST07:\n' );
  fprintf ( 1, '  Overlay a parabolic line of semitransparent circles\n' );
  fprintf ( 1, '  on a grid of circles.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  cla\n' );
  fprintf ( 1, '  lat = repmat ( (10:-1:1)'', 1, 10 );\n' );
  fprintf ( 1, '  lon = repmat ( 1:10, 10, 1 );\n' );
  fprintf ( 1, '  r = rand ( size ( lat ) ); \n' );
  fprintf ( 1, '  circles ( lon, lat, r, ''edgecolor'', ''b'', ...\n' );
  fprintf ( 1, '    ''facecolor'', [0.7255 0.6353 0.5059] );\n' );
  fprintf ( 1, '  x = 1:.5:10; \n' );
  fprintf ( 1, '  y = ( x / 4 ) .^ 2;  \n' );
  fprintf ( 1, '  circles ( x, y, .3, ''edgecolor'', ''k'', ...\n' );
  fprintf ( 1, '    ''facecolor'', [0.0078 0.5765 0.5255], ''facealpha'', .4 );\n' );
  fprintf ( 1, '  axis equal\n' );

  cla
  lat = repmat ( (10:-1:1)', 1, 10 ); 
  lon = repmat ( 1:10, 10, 1 ); 
  r = rand ( size ( lat ) ); 

  circles ( lon, lat, r, 'edgecolor', 'b', ...
    'facecolor', [0.7255 0.6353 0.5059] );

  x = 1:.5:10; 
  y = ( x / 4 ) .^ 2; 

  circles ( x, y, .3, 'edgecolor', 'k', ...
    'facecolor', [0.0078 0.5765 0.5255], 'facealpha', .4 );
  axis equal
%
%  Save a copy of the image as a file.
%
  filename = 'circles_test07.png';
  print ( '-dpng', filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Image saved as "%s"\n', filename );

  return
end
