function lissajous_plot ( )

%*****************************************************************************80
%
%% LISSAJOUS_PLOT draws a closed planar curve.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    19 July 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'LISSAJOUS_PLOT:\n' );
  fprintf ( 1, '  Octave version\n' );
  fprintf ( 1, '  Make a plane curve by connecting a series of points.\n' );
  fprintf ( 1, '  Also mark every 10th point.\n' );

  xy = load ( 'lissajous_data.txt' );

  hold on
    plot ( xy(:,1), xy(:,2), 'LineWidth', 2, 'Color', 'm' );
    plot ( xy(1:10:end,1), xy(1:10:end,2), 'k.', 'Markersize', 20 );
  hold off

  grid on
  axis ( [ -1.2, +1.2, -1.2, +1.2 ] )
  axis equal
  xlabel ( '<--- X --->' );
  ylabel ( '<--- Y --->' );
  title ( 'Lissajous, x=sin(3t+pi/2), y=sin(4t)' );

  pause ( 5 )
%
%  Save graphics to a file.
%
  filename = 'lissajous_plot.png';
  print ( '-dpng', filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Graphics saved in "%s"\n', filename );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'LISSAJOUS_PLOT:\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end
