!   TITLE:  cm_fin_shaft.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   04/29/2003      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the common missile fin shaft.
!
!   CSfs0:      Cartesian Fin Shaft Coordinate System
!   CSfs1:      Cylindrical Fin Shaft Coordinate System
!   CSfs2:      Spherical Fin Shaft 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
cm_fin_shaft.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Sleeve Cross-Section --------------------
!
csys,CSfs0
!
k,,0,0,Dz01
k,,0,R02,Dz01
k,,0,R02,Dz02
k,,0,R02,Dz03
k,,0,R03,Dz03
!
k,,0,R03,Dz04
k,,0,R04,Dz04
k,,0,R04,Dz05
k,,0,R05,Dz05
k,,0,R05,Dz06
!
k,,0,R04,Dz06
k,,0,R04,Dz07
k,,0,0,Dz07
!
create_lines
!
create_area-lines
!
lplot
!
!----------------------- 3.2  Revolve Cross-Section -------------------
!
csys,CSfs0
!
revolve_aset,CSfs0,360,4
!
vadd,all
init_entity_num
!
lplot
!
!----------------------- 3.3  Triangular Shaft --------------------
!
csys,CSfs1
!
k,,Dx01/sin((Da01/2)*rconv),0,0
k,,Dx01/sin((Da01/2)*rconv),180-Da01,0
k,,Dx01/sin((Da01/2)*rconv),2*(180-Da01),0
!
create_lines
!
ksel,s,kp,,km-2,km,1
ln_fillet,,Dr01
!
create_area-lines
shafta=am
!
lplot
!








!finalize_model