!   TITLE:  elev_torq_mslv.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   RELEASED    01/21/2001      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation axis torquer motor sleeve.
!
!               P/N SK375A066
!
!       UPPER ASSEMBLY:     SK200A026
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CStms0:     Cartesian Torquer Motor Sleeve Coordinate System
!   CStms1:     Cylindrical Torquer Motor Sleeve Coordinate System
!   CStms2:     Spherical Torquer Motor Sleeve Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2       ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_torq_mslv.parm             ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,CStms0
!
k,,0,r1,0
k,,0,r5,0
k,,0,r5,l5
k,,0,r6,l5
k,,0,r6,l2
!
k,,0,r4,l2
k,,0,r4,l2-l4
k,,0,r3,l2-l4
k,,0,r3,l2-l3
k,,0,r2,l2-l3
!
k,,0,r2,l1
k,,0,r1,l1
!
create_area
!
lplot
!
*if,assemble,eq,1,then
    finalize_model
*else
    revolve_aset,CStms0,360,4
*endif