!   TITLE:  elev_torq_cap.mac (AAAV)
!
!---------------------------------------------------------------------------
!   Rev -   RELEASED    01/26/2002      D. Edwards
!   Rev A               07/12/2001      J. Rinaldi
!           Renamed parameters & updated to current macro organization
!   Rev B               05/01/2002      D. Edwards
!           Updated from SK324A006 to SK324A012
!           Macro name was elev_torq_rotor_cap.mac
!---------------------------------------------------------------------------
!
!   This macro builds the elevation axis torquer motor cap for the AAAV.
!
!                   P/N SK324A012
!
!   This is used in the AAAV assembly, end unit CU01715097.
!
!   CStmc0:     Cartesian Motor Cap Coordinate System
!   CStmc1:     Cylindrical Motor Coordinate System
!   CStmc2:     Spherical Motor Cap 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,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_torq_cap.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
csys,CStmc0
!
k,,0,0,-(D02-D01)
k,,0,0,0
k,,0,r1,0
k,,0,r1,-(D02-D03)
k,,0,r3,-(D02-D03)
!
k,,0,r3,-D02
k,,0,r2,-D02
k,,0,r2,-(D02-D04)
k,,0,r4,-(D02-D04)
k,,0,r4,-(D02-D01)
!
create_lines
!
lfillt,lm-8,lm-7,Rf01
lfillt,lm-1,lm,Rf02
!
create_area-lines
!
csys,CStmc0
!
create_cs,0,,0,0,0,0,0,0,90
!
asel,s,area,,am
!
ara_create_part,csn+1,0,0.80*r4
!
lplot
!
!-------------- Create Volume from Revolved Cross Section ------------------
!
*if,subassm_,ne,1,then
    csys,CStmc0

    k
    k,,0,0,1

    init_entity_num

    /psymb,cs,1
    revolve_aset,km-1,km,360,4
*endif
!
finalize_model