!   TITLE:  az_slv_brg_lower.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   05/09/2001  D. Edwards
!---------------------------------------------------------------------------
!
!   This macro builds the NHBB bearing, P/N 490A045-101, as a solid one
!   piece homogeneous volume.
!
!   CSsbl0: Cartesian Sleeve Brg Lower Upper Azimuth Coordinate System
!   CSsbl1: Cylindrical Sleeve Brg Lower Azimuth Coordinate System
!   CSsbl2: Spherical Sleeve Brg Lower Azimuth 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
az_slv_brg_lower.parm           ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

!
! Keypoint Definitions
!

k,km+1,x1,y1,z1              ! km + 1
k,km+2,x2,y2,z2              ! km + 2
k,km+3,x3,y3,z3              ! km + 3
k,km+4,x4,y4,z4              ! km + 4
k,km+5,x5,y5,z5              ! km + 5
k,km+6,x6,y6,z6              ! km + 6
k,km+7,x7,y7,z7              ! km + 7
k,km+8,x8,y8,z8              ! km + 8
k,km+9,x9,y9,z9              ! km + 9

axp1=km+1
axp2=km+2

!
! Line Definitions
!

L,km+1,km+2                  ! lm + 1
L,km+3,km+4                  ! lm + 2
L,km+5,km+6                  ! lm + 3
L,km+4,km+7                  ! lm + 4
L,km+7,km+8                  ! lm + 5
L,km+5,km+3                  ! lm + 6
L,km+8,km+9                  ! lm + 7
L,km+9,km+6                  ! lm + 8

ldele,lm+1

create_area-lines

!
! Make a volume out the the bearing cross section
!
*if,subassm_,ne,1,then
    /psymb,cs,1
    revolve_aset,axp1,axp2,360,4
*endif

finalize_model