!   TITLE:  rotor-magnets.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   04/29/2003      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the common missile housing concept.
!
!   CSrot0:     Cartesian Rotor/Magnets Coordinate System
!   CSrot1:     Cylindrical Rotor/Magnets Coordinate System
!   CSrot2:     Spherical Rotor/Magnets 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
rotor-magnets.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------- 3.1  Rotor Gear Cross-Section -------------------
!
csys,CSrot0
!
k,,0,0,0
k,,0,D01/2,0
k,,0,D01/2,Dz01
k,,0,R02,Dz01
k,,0,R02,Dz02
!
k,,0,R03,Dz02
k,,0,R03,Dz03
k,,0,R04,Dz03
k,,0,R04,Dz04
k,,0,R05,Dz04
!
k,,0,R05,Dz05
k,,0,0,Dz05
!
create_lines
!
ksel,s,kp,,km-8,km-7,1
ksel,a,kp,,km-2
ln_fillet,,R01
!
ln_fillet,km-11,R09
!
create_area-lines
!
lplot
!
!-------------------- 3.2  Rotor Rear Cross-Section -------------------
!
csys,CSrot0
!
k,,0,0,Dz06
k,,0,R06,Dz06
k,,0,R06,Dz07
k,,0,R07,Dz07
k,,0,R07,Dz08
!
k,,0,R08,Dz08
k,,0,R08,Dz09
k,,0,0,Dz09
!
create_lines
!
ksel,s,kp,,km-5
ln_fillet,,R01
!
ln_fillet,km-4,R09
!
create_area-lines
!
lplot
!
!------------------------ 3.3  Revolve Sections -----------------------
!
csys,CSrot0
!
isolate_areas
revolve_aset,CSrot0,360,4
!
!------------------------- 3.4  Magnet Section ------------------------
!
csys,CSrot0
!
k,,Dx01/2,Dy01/2,Dz05
k,,-Dx01/2,Dy01/2,Dz05
k,,-Dx01/2,-Dy01/2,Dz05
k,,Dx01/2,-Dy01/2,Dz05
!
create_area
!
isolate_areas
extrude_aset,Dz06-Dz05
!
vadd,all
init_entity_num
!
lplot
!
!------------------------- 3.5  Magnets ------------------------
!
csys,CSrot0
!
asel,s,area,,am-3,am,1
extrude_aset,0.4
cm,vset1,volu
!
create_circle,1.00,Dz05
create_area-lines
!
create_circle,0.306,Dz05
create_area-lines
!
asba,am-1,am,,delete,delete
init_entity_num
!
create_vol-area,Dz06-Dz05
!
vsbv,vset1,vm,,delete,delete
init_entity_num
!
lplot
!
finalize_model