!   TITLE:  gyro_insert.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   05/03/2002      D. Edwards
!-----------------------------------------------------------------------
!
!   CMS DAHA part INSERT, GYRO  -  P/N A318A347
!
!
!   CSgi0:      Cartesian Gyro Insert CS at flange Coordinate System
!   CSgi1:      Cylindrical Gyro Insert CS at flange Coordinate System
!   CSgi2:      Spherical Gyro Insert CS at flange 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gyro_insert.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

csys,CSgi0
k,,Dr01,,0              ! km+1
k,,Dr08,,0              ! km+2
k,,Dr08,,Dz04           ! km+3
k,,Dr05,,Dz04           ! km+4
k,,Dr05,,Dz05+Dz03      ! km+5
k,,Dr06,,Dz05+Dz03      ! km+6
k,,Dr06,,Dz05           ! km+7
k,,Dr03,,Dz05           ! km+8
k,,Dr03,,Dz05-Dz02      ! km+9
k,,Dr02,,Dz05-Dz02      ! km+10
k,,Dr02,,Dz05-Dz01      ! km+11
k,,Dr01,,Dz05-Dz01      ! km+12

create_lines

ln_fillet,km-7,Dr04

lplot

create_area-lines

revolve_aset,CSgi0,360,4

finalize_model