function shown_test ( )

%% shown_test() tests shown().

  fprintf ( 1, '\n' );
  fprintf ( 1, 'shown_test()\n' );

  shown ( 15, 2, pi/10, 20, 3, -pi/8 )

  return
end

