!   TITLE:  gimbal_primary.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   08/07/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the primary gimbal on the variable exhaust nozzle
!   mechanism for the common missile project.
!
!   CSgimP0:        Cartesian Primary Gimbal Coordinate System
!   CSgimP1:        Cylindrical Primary Gimbal Coordinate System
!   CSgimP2:        Spherical Primary Gimbal 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_primary.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------- 3.1  Gimbal Journal Profile ---------------------
!
csys,CSgimP0
!
create_CS,0,,0,0,0,0,0,0,90
!
create_circle,D02/2,L01/2
create_area-lines
!
k,,0,D02/2,L01/2
k,,0,-D02/2,L01/2
k,,L02/1.5,-D02/2,L01/2
k,,L02/1.5,D02/2,L01/2
!
create_area
!
aadd,am-1,am
init_entity_num
!
create_circle,D01/2,L01/2
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
isolate_areas
extrude_aset,-D01/2
!
vsymm,z,vm
!
init_entity_num
!
lplot
!
!---------------------- 3.2  Gimbal Structure ---------------------
!
csys,CSgimP0
!
k,,-((L01/2)-D01/2-R01),D02/2,-(L02/1.5)-R01
k,,-((L01/2)-D01/2-R01),-D02/2,-(L02/1.5)-R01
k,,(L01/2)-D01/2-R01,-D02/2,-(L02/1.5)-R01
k,,(L01/2)-D01/2-R01,D02/2,-(L02/1.5)-R01
!
create_area
!
isolate_areas
extrude_aset,-D01/2
!
create_cs,0,,1,(L01/2)-D01/2-R01,D02/2,-L02/1.5,0,-90,0
!
k,,R01,0,0
k,,R01+D01/2,0,0
k,,R01+D01/2,90,0
k,,R01,90,0
!
create_area,1
!
isolate_areas
extrude_aset,-D02
!
csys,CSgimP0
!
vsymm,x,vm
!
init_entity_num
!
lplot
!
!---------------------- 3.3  Nozzle Inner Profile ---------------------
!
csys,CSgimP0
!
create_CS,0,,0,0,0,0,0,-90,0
!
create_circle,D02/2,L01/2
create_area-lines
!
k,,D02/2,0,L01/2
k,,-D02/2,0,L01/2
k,,-D02/2,L02/1.5,L01/2
k,,D02/2,L02/1.5,L01/2
!
create_area
!
aadd,am-1,am
init_entity_num
!
create_circle,D01/2,L01/2
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
isolate_areas
extrude_aset,-D01/2
!
vsymm,z,vm
!
init_entity_num
!
lplot
!
!---------------------- 3.4  Nozzle Inner Profile ---------------------
!
csys,CSgimP0
!
create_CS,0,,0,0,0,0,90,0,0
!
k,,-((L01/2)-D01/2-R01),D02/2,-(L02/1.5)-R01
k,,-((L01/2)-D01/2-R01),-D02/2,-(L02/1.5)-R01
k,,(L01/2)-D01/2-R01,-D02/2,-(L02/1.5)-R01
k,,(L01/2)-D01/2-R01,D02/2,-(L02/1.5)-R01
!
create_area
!
isolate_areas
extrude_aset,-D01/2
!
create_cs,0,,1,(L01/2)-D01/2-R01,D02/2,-L02/1.5,0,-90,0
!
k,,R01,0,0
k,,R01+D01/2,0,0
k,,R01+D01/2,90,0
k,,R01,90,0
!
create_area,1
!
isolate_areas
extrude_aset,-D02
!
csys,CSgimP0
!
create_CS,0,,0,0,0,0,90,0,0
!
vsymm,x,vm
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot
!
finalize_model