!   TITLE:  t_arc_info.mac (VERIFICATION)
!
!-----------------------------------------------------------------------
!       Rev -   05/30/2002      D. Edwards
!-----------------------------------------------------------------------
!
!   Test/verification macro for the tool "arc_info.mac"
!
!   t_arc_info,tc#
!
!       tc# = Test case #       (Defaults to case #1)
!
!
!   CS_0:       Cartesian test Coordinate System
!   CS_1:       Cylindrical test Coordinate System
!   CS_2:       Spherical test Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep     ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
t_arc_info.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
blc5,0,0,1,2,3

vdele,all
adele,all

numbers_toggle,1
numbers_toggle,2

kwplan,-1,6,2,8
cyl4,1,2,r4

lfill,7,8,r2
lfill,10,3,r1
lfill,11,2,r3

lplot

bsplin,6,1,3

ldele,1
ldele,4,6
ldele,9
ldele,12

*if,arg1,le,1,then
    arc_info,,,17
    arc_info,,,13,17        ! Verify 'arc_info' gets silently overwritten 
    *stat,arc_info

*elseif,arg1,eq,2,then
    csys,1
    arc_info,,1,13,14,15,16
    *stat,arc_info

*elseif,arg1,eq,3,then
    arc_info,,1
    *stat,arc_info

*elseif,arg1,eq,4,then
    lsel,s,line,,8
    lsel,a,line,,17
    arc_info,,1
    *stat,arc_info

*elseif,arg1,eq,5,then
    arc_info,'fred'
    *stat,fred

*elseif,arg1,eq,6,then
    arc_info,'fred',1
    *stat,fred
*endif