! ******************* inp_err  ******************************
! +++ 
!
! Creates symbol for selection when module exits with error
! 
! --- 
!
!
! Revision history
! _______________ 
!
! Copyright  1997-05-06 Gunnar Liden, All Rights Reserved
! 
! Released under the MIT License: 
! 
! Permission is hereby granted, free of charge, to any person 
! obtaining a copy of this software and associated documentation 
! files (the "Software"), to deal in the Software without 
! restriction, including without limitation the rights to use, 
! copy, modify, merge, publish, distribute, sublicense, and/or sell 
! copies of the Software, and to permit persons to whom the 
! Software is furnished to do so, subject to the following 
! conditions:
! 
! The above copyright notice and this permission notice shall be 
! included in all copies or substantial portions of the Software.
! 
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
! EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 
! OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
! NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 
! HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
! WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 
! FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR 
! OTHER DEALINGS IN THE SOFTWARE.

!
! ************************************************************

!sdesce Creates symbol for selection when module exits with error
!sdescs Skapar pekbar symbol vid fel

GLOBAL GEOMETRY MODULE inp_err  (
VECTOR p_in);                   ! Origin

! Internal variables

 INT  i_r;               ! Loop index radius

BEGINMODULE

! +++ 
! Algorithm
! _________ 
! --- 

! +++
! 1. Create symbol
! ---

  FOR i_r := 1 TO 10 DO
    ARC_1POS(#1, p_in, i_r*50.0, 0,360:PEN= i_r); 
  ENDFOR;


ENDMODULE