!   TITLE:  reslvr_assy_az.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   05/16/2001  D. Edwards
!-----------------------------------------------------------------------
!
!   This macro creates the Azimuth Resolver and Shaft Assy as a single
!   volume.
!
!      P/N SK200A025
!
!
!   CSraa0: Cartesian Az Resolver Assy Coordinate System
!   CSraa1: Cylindrical Az Resolver Assy Coordinate System
!   CSraa2: Spherical Az Resolver Assy Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep
!
/title,Azimuth Resolver and Shaft Assy (SK200A025)
!
/units,bin
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
reslvr_assy_az.parm                 ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,CSraa0,0,0,CSz,0,0,0
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

!
! Keypoint Definitions from reslvr_assy_az.parm
!

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
k,km+10,x10,y10,z10          ! km + 10
k,km+11,x11,y11,z11          ! km + 11
k,km+12,x12,y12,z12          ! km + 12
k,km+13,x13,y13,z13          ! km + 13
k,km+14,x14,y14,z14          ! km + 14
k,km+15,x15,y15,z15          ! km + 15
k,km+16,x16,y16,z16          ! km + 16
k,km+17,x17,y17,z17          ! km + 17
k,km+18,x18,y18,z18          ! km + 18
k,km+19,x19,y19,z19          ! km + 19
k,km+20,x20,y20,z20          ! km + 20 (center)

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+7,km+8                  ! lm + 4
L,km+9,km+7                  ! lm + 5
L,km+10,km+11                ! lm + 6
L,km+12,km+10                ! lm + 7
L,km+1,km+13                 ! lm + 8
L,km+14,km+6                 ! lm + 9
L,km+5,km+11                 ! lm + 10
L,km+15,km+12                ! lm + 11
L,km+16,km+15                ! lm + 12
L,km+13,km+17                ! lm + 13
L,km+18,km+17                ! lm + 14
L,km+18,km+19                ! lm + 15
L,km+14,km+4                 ! lm + 16
L,km+9,km+3                  ! lm + 17
L,km+2,km+8                  ! lm + 18
larc,km+16,km+19,km+20,r1    ! lm + 19

al,all

!
! Make a volume out the the cross section
!
init_entity_num

/psymb,cs,1

init_entity_num

revolve_aset,axp1,axp2,360,4

finalize_model

:skip