!   TITLE:  assy_az_el_axis_al.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   06/04/2001      D. Edwards
!---------------------------------------------------------------------------
!
!   This macro creates the Azimuth Axis sub-assembly:
!
!               P/N SK200A026
!
!   Parts for assembly:
!
!       gimbal_al           (gimbal)    /  SK400A008
!       weight_balance      (wgt)       /  SK334A002
!       sta_torquer_az      (sta)       /  SK550A094
!       clamp_stator_az     (csa)       /  SK336A025
!       slv_lower_az        (slvlo)     /  SK375A083
!       assy_stub_shaft                 /  Various
!       elevation_resolver              /  SKCU06324019
!       mirror_support_al   (mir_supt)  /  SK400A007
!       adapter_ring        (adpter)    /  SK305A010
!       mirror              (mirror)    /  SK370A003
!       elevation_torquer               /  Various
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
clear_start_new
tstart
!
!******************************* Model Assembly ***************************
!
!---------------------------- AZ GIMBAL ASSY ------------------------------
!
!gimbal_al,1,,1
!gimbal_al,1

!save,gimbal,db
resume,gimbal,db

weight_balance,1

gyro_assy,1

sta_torquer_az,2
    clamp_stator_az
    subassy_revolve,CSgim0

    *if,f_mesh_,eq,1,then
        ! clamp_stator_az
        create_rotaset,am-132,c416

        ! sta_torquer_az
        create_rotaset,am-137,stator,am-136,stator,am-133,stator

        rotate_volm_msh,CSsta1,0,0,5,1,2,0.2,0.2,'array'
    *endif

slv_lower_az,1

!clamp_reslvr_shaft_az
!reslvr_assy_az

assy_stub_shaft

!
!---------------------------- ELEV AXIS ASSY ------------------------------
!
elevation_resolver

mir_support_al,1

adapter_ring,1

mirror,1

elevation_torquer

tstop