!   TITLE:  support_333a013.mac (BRIMSTONE)
!
!-----------------------------------------------------------------------
!   Rev -   05/03/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the Brimstone missile support.
!
!               P/N:    333A013     REV N
!
!   CSsup0:     Cartesian Support Coordinate System
!   CSsup1:     Cylindrical Support Coordinate System
!   CSsup2:     Spherical Support Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Motor/Ballscrew Housing Profile
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
support_333a013.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------- 3.1  Motor/Ballscrew Housing --------------------
!
csys,CSsup0
!
create_cs,0,'CSmtr01',1,-Dx02,-Dy01,0,0,0,0
!
create_circle,D02/2
create_area-lines
!
csys,CSsup0
!
create_cs,0,'CSbs01',1,-Dx01,-Dy02,0,0,0,0
!
create_circle,D01/2
create_area-lines
!
tangent_area,am-1,am
!
lplot
!















*go,:skip







!
lplot
!












!finalize_model_data

:skip