!
!  TITLE:  elev_axis_assy.mac (AAAV)
!
! Build the complete rotating mass of the elevation axis assy for modal
! analyses with ea_mesh.mac and ea_sol or ea_sol_modal.mac
!
! First build the desired mirror support configuration and save it.  This macro
! will then resume it and build the adaptor ring and mirror onto it.
!
! Usage: elev_axis_assy,'demval' (Assy with DEMVAL mirror support)
!       elev_axis_assy,'nocut'   (Assy with Igor's mirror support)
!       elev_axis_assy,'cut'     (Assy with Igor's support with a center cut)
!       elev_axis_assy           (Latest assy from file.db)
!

!  D.Edwards 10/23/00


clear_start_new
/pnum,volu,1

pnam=arg1

*get,ityp,parm,pnam,type
!
*if,ityp,ne,3,then
    resume,file,db

*elseif,pnam,eq,'demval',then
    resume,ms_demval,db

*elseif,pnam,eq,'nocut',then
    resume,mirror_support,db

*elseif,pnam,eq,'cut',then
    resume,ms_cut,db

*elseif,pnam,eq,'build',then
    ms,1

*else
    resume,file,db
*endif

adapter_ring
mirror

alls
vglue,all

parm_val,'mir_supt','L2','L2',2.336+2.450
!
csys,CSms0
asel,s,loc,x,L2
vsla
cm,mirsp,volu
alls

save,ea_assy,db