function test04 ( output_file_name )

%*****************************************************************************80
%
%% TEST04 tests STLA_WRITE.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    24 September 2005
%
%  Author:
%
%    John Burkardt
%
  face_num = 12;
  node_num = 8;

  face_node = [ ...
    1, 3, 2; ...
    2, 3, 4; ...
    1, 6, 5; ...
    1, 2, 6; ...
    3, 7, 4; ...
    4, 7, 8; ...
    5, 6, 8; ...
    5, 8, 7; ...
    1, 5, 7; ...
    1, 7, 3; ...
    2, 4, 6; ...
    6, 4, 8 ]';
  face_normal = [ ...
    0.0,  0.0, -1.0; ...
    0.0,  0.0, -1.0; ...
    0.0, -1.0,  0.0; ...
    0.0, -1.0,  0.0; ...
    0.0, +1.0,  0.0; ...
    0.0, +1.0,  0.0; ...
    0.0,  0.0, +1.0; ...
    0.0,  0.0, +1.0; ...
   -1.0,  0.0,  0.0; ...
   -1.0,  0.0,  0.0; ...
   +1.0,  0.0,  0.0; ...
   +1.0,  0.0,  0.0 ]';
  node_xyz = [ ...
    0.0, 0.0, 0.0; ...
    1.0, 0.0, 0.0; ...
    0.0, 1.0, 0.0; ...
    1.0, 1.0, 0.0; ...
    0.0, 0.0, 1.0; ...
    1.0, 0.0, 1.0; ...
    0.0, 1.0, 1.0; ...
    1.0, 1.0, 1.0 ]';

  fprintf ( 1, '\n' );
  fprintf ( 1, 'TEST04\n' );
  fprintf ( 1, '  STLA_WRITE writes an ASCII STL file.\n' );

  stla_write ( output_file_name, node_num, face_num, node_xyz, ...
    face_node, face_normal );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Graphics data was written to the STLA file "%s".\n', ...
    output_file_name );

  return
end
