!   TITLE:  elev_reslvr_hous.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   06/09/2000  J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver housing:
!
!               P/N SK314A105
!
!       UPPER ASSEMBLY:     CU06324019
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CSerh0: Cartesian Elevation Resolver Housing Coordinate System
!   CSerh1: Cylindrical Elevation Resolver Housing Coordinate System
!   CSerh2: Spherical Elevation Resolver Housing 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      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_reslvr_hous.parm           ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,CSerh0
!
k,,0,r1,0               ! points 1 thru 5
k,,0,r2,0
k,,0,r2,l2
k,,0,r3,l2
k,,0,r3,l3
!
k,,0,r2,l3              ! points 6 thru 10
k,,0,r2,l4+l1
k,,0,r4,l4+l1
k,,0,r4,l5+l1
k,,0,r5,l5+l1
!
k,,0,r6,l6+l1           ! points 11 thru 15
k,,0,r6,l7+l1
k,,0,r7,l7+l1
k,,0,r7,l8+l1
k,,0,r13,l8+l1
!
k,,0,r13,l1             ! points 16 thru 20
k,,0,r8,l1
k,,0,r8,l1+l12-l9
k,,0,r9,l1+l12-l9
k,,0,r9,l1+l12
!
k,,0,r10,l1+l12         ! points 21 thru 25
k,,0,r10,l1+l12+l10
k,,0,r11,l1+l12+l10
k,,0,r11,l11
k,,0,r1,l11
!
create_lines
!
chamfer_area,2,lm-1,lm-2,r11-r12,phi1
!
chamfer_area,1,lm,lm-5,chmf1,
!
lfillt,lm-27,lm-26,mtr      ! machine tool cut radius
!
create_area-lines
!
lplot
!
!
!-------------- Create Volume from Revolved Cross Section ------------------
!
*if,subassm_,ne,1,then
    csys,CSerh0

    k
    k,,0,0,1

    init_entity_num

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