!   TITLE:  gimbal_second.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   08/07/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the secondary stage gimbal on the variable exhaust
!   nozzle mechanism for the common missile project.
!
!   CSgimS0:        Cartesian Secondary Gimbal Coordinate System
!   CSgimS1:        Cylindrical Secondary Gimbal Coordinate System
!   CSgimS2:        Spherical Secondary 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_second.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------- 3.1  Gimbal Journal Profile ---------------------
!
csys,CSgimS0
!
create_CS,0,,0,0,0,0,0,0,90
!
create_circle,D02/2,(L01/2)+(L01/2)-(D01/2)-(L02/2)
create_area-lines
!
gap=(L01/2)-(D01/2)-(L02/2)
!
k,,0,D02/2,(L01/2)+gap
k,,0,-D02/2,(L01/2)+gap
k,,(L02/1.5)+(R01+D01/2),-D02/2,(L01/2)+gap
k,,(L02/1.5)+(R01+D01/2),D02/2,(L01/2)+gap
!
create_area
!
aadd,am-1,am
init_entity_num
!
create_circle,D01/2,(L01/2)+(L01/2)-(D01/2)-(L02/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,CSgimS0
!
k,,-((L01/2)-D01/2-R01)-(R01+D01/2),D02/2,-(L02/1.5)-R01-gap-D01/2
k,,-((L01/2)-D01/2-R01)-(R01+D01/2),-D02/2,-(L02/1.5)-R01-gap-D01/2
k,,(L01/2)-D01/2-R01+(R01+D01/2),-D02/2,-(L02/1.5)-R01-gap-D01/2
k,,(L01/2)-D01/2-R01+(R01+D01/2),D02/2,-(L02/1.5)-R01-gap-D01/2
!
create_area
!
isolate_areas
extrude_aset,-D01/2
!
create_cs,0,,1,(L01/2)-D01/2-R01+(R01+D01/2),D02/2,-(L02/1.5)-R01-D01/2,0,-90,0
!
k,,gap,0,0
k,,gap+D01/2,0,0
k,,gap+D01/2,90,0
k,,gap,90,0
!
create_area,1
!
isolate_areas
extrude_aset,-D02
!
csys,CSgimS0
!
vsymm,x,vm
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot
!
!---------------------- 3.3  Gimbal Pins ---------------------
!
csys,CSgimS0
!
create_cs,0,,0,L01/2-D01/2,0,0,0,0,-90
!
create_circle,D01/2
create_area-lines
!
isolate_areas
extrude_aset,-(D01+gap)
!
csys,CSgimS0
!
vsymm,x,vm
!
init_entity_num
!
lplot
!
finalize_model














*go,:skip



!---------------------- 3.4  Nozzle Inner Profile ---------------------
!

init_entity_num
!
lplot
!
finalize_model


:skip