!   TITLE:  bearing_bs_rear.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   04/29/2003      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the common missile rear ball screw bearing.
!
!   CSbbsr0:        Cartesian Rear Ball Screw Bearing Coordinate System
!   CSbbsr1:        Cylindrical Rear Ball Screw Bearing Coordinate System
!   CSbbsr2:        Spherical Rear Ball Screw Bearing 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
bearing_bs_rear.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Stator Cross-Section --------------------
!
csys,CSbbsr0
!
k,,0,r_in,0
k,,0,r_out,0
k,,0,r_out,Dz01
k,,0,r_in,Dz01
!
create_lines
!
chamfer_area,1,lm-3,lm-2,Dc01
chamfer_area,1,lm,lm-6,Dc01
chamfer_area,1,lm-2,lm-10,Dc01
chamfer_area,1,lm-3,lm-13,Dc01
!
create_area-lines
!
lplot
!
!----------------------- 3.2  Revolve Cross-Section -------------------
!
csys,CSbbsr0
!
revolve_aset,CSbbsr0,360,4
!
vadd,all
init_entity_num
!
lplot
!
!
finalize_model