!   TITLE:  assy_gim_ms.mac
!
!---------------------------------------------------------------------------
!       Rev -   RELEASED    08/27/2001      D. Edwards/J. Rinaldi
!---------------------------------------------------------------------------
!
!   This is a macro that builds the AAAV gimbal center hub, elevation
!   resolver and CRES 410 mirror support.  The mirror support can then
!   be rotated using ms_move.mac.
!
!---------------------------------------------------------------------------

!clear_start_new

!ghub,1
!
!elevation_resolver
!

resume,ghub_res,db
ms,1

csys,CSgim0
!
parm_val,'mir_supt','L2','L2',2.336+2.450
vsel,s,loc,x,-l2,l2
norm_cut_pln_ct,'x',0
!
! Resolver Assy Group
!
vsel,s,loc,x,l2,2*l2
cm,resolver,volu

! Gimbal Hub Group
vsel,s,loc,y,-.5,10
cm,ghub,volu

! Mirror Support Group
vsel,a,volu,,resolver
vsel,inve
cm,ms,volu

! Torquer Half of Hub & Mirror Support
csys,CSgim0
vsel,s,loc,x,-l2,0,,1
cm,blank,volu

numbers_toggle,4

CScurr=CSm_res1

save