!   TITLE:  elev_torq_mslvD.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   RELEASED    11/05/2001      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation axis torquer motor sleeve.
!
!               P/N SK375A092
!
!   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,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_torq_mslvD.parm
!
!<<<<<<<<<<<<<<<<<<<< 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,l7
k,,0,r5-l6,l7
k,,0,r5-l6,l7+l8
!
k,,0,r5,l7+l8
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_lines
!
ksel,s,kp,,km-12,km-11,1
ln_fillet,,mtr
!
create_area-lines
!
lplot
!
*if,assemble,ne,1,then
    revolve_aset,CStms0,360,4
    cm,vset1,volu
    !
    csys,CStms0
    create_cs,0,,0,0,0,0,0,0,180
    !
    D01=2*hdf*(((r5-l6)-r2)/2)
    !
    drill_pattern,csn+1,(r5-l6+r2)/2,0,nh,,360/(2*nh),,D01,'c',0.8*(l2-l3),120
    !
    lplot
*endif
!
finalize_model