!   TITLE:  gimbal_slv_rough.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   10/31/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the rough sleeve for the AAAV aluminum gimbal.
!
!   CSslv0:     Cartesian Sleeve Coordinate System
!   CSslv1:     Cylindrical Sleeve Coordinate System
!   CSslv2:     Spherical 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_slv_rough.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!---------------------- 3.1  Sleeve Cross-Section ---------------------
!
csys,CSslv0
!
k,,0,D01/2,0
k,,0,D02/2,0
k,,0,D02/2,-Dz01
k,,0,D03/2,-Dz01
k,,0,D04/2,-Dz03
!
k,,0,D05/2,-Dz03
k,,0,D05/2,-Dz05
k,,0,D06/2,-Dz05
k,,0,D06/2,-Dz06
k,,0,D07/2,-Dz06
!
k,,0,D07/2,-Dz07
k,,0,D08/2,-Dz07
k,,0,D08/2,-Dz04
k,,0,D09/2,-Dz04
k,,0,D10/2,-Dz02
!
k,,0,D01/2,-Dz02
!
create_lines
!
chamfer_area,1,lm,lm-1,Dc01
!
ln_fillet,km-5,R01
!
create_area-lines
!
lplot
!
!-------------------------- 3.2  Sleeve Volume ------------------------
!
csys,CSslv0
!
revolve_aset,CSslv0,180,2
!
lplot
!
!-------------------------- 3.3  Mesh ------------------------
!
csys,CSslv1
!
init_entity_num
asel,selv,loc,y,90
!
!                         (1)     (2)     (3)      (4)     (5)   (6)    (7)
!       ROTATE_VOLM_MSH, actcs,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                        elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                         (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
rotate_volm_msh,CSslv1,0,,-1,1,2,0.080,0.080,c416,,,
!
asel,s,area,,am-26
asel,a,area,,am-20
asel,a,area,,am-7
asel,a,area,,am-1
!
cm,srcaset,area
init_entity_num
!
finalize_model