function milking_noise_test ( )

%*****************************************************************************80
%
%% milking_noise_test adds noise to the "milking" image.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    03 February 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'MILKING_NOISE_TEST\n' );
  fprintf ( 1, '  Add various kinds of noise to the "milking" image.\n' );

  rgb = imread ( 'milking.png' );

  rgb2 = rgb_salt_and_pepper ( rgb, 0.05 );
  imwrite ( rgb2, 'pioneers_05.ppm', 'ppm', 'encoding', 'ascii' )

  rgb2 = rgb_salt_and_pepper ( rgb, 0.10 );
  imwrite ( rgb2, 'pioneers_10.ppm', 'ppm', 'encoding', 'ascii' )

  rgb2 = rgb_salt_and_pepper ( rgb, 0.20 );
  imwrite ( rgb2, 'pioneers_20.ppm', 'ppm', 'encoding', 'ascii' )

  rgb2 = rgb_salt_and_pepper ( rgb, 0.40 );
  imwrite ( rgb2, 'pioneers_40.ppm', 'ppm', 'encoding', 'ascii' )

  rgb2 = rgb_salt_and_pepper ( rgb, 0.60 );
  imwrite ( rgb2, 'pioneers_60.ppm', 'ppm', 'encoding', 'ascii' )

  rgb2 = rgb_salt_and_pepper ( rgb, 0.80 );
  imwrite ( rgb2, 'pioneers_80.ppm', 'ppm', 'encoding', 'ascii' )

  fprintf ( 1, '\n' );
  fprintf ( 1, 'MILKING_NOISE_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n' );

  return
end
