!   TITLE:  pawl_2202-0015.mac (ERJ)
!
!-----------------------------------------------------------------------
!   Rev -   06/08/2005      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the PAWL, P/N 2202-0015.
!
!   CSpawl0:        Cartesian PAWL Coordinate System
!   CSpawl1:        Cylindrical PAWL Coordinate System
!   CSpawl2:        Spherical PAWL 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      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
pawl_2202-0015.parm                 ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!-------------------- 3.1  Cross-Sectional Profile --------------------
!
!
!------------------------- 3.1.1  Main Profile ------------------------
!
csys,CSpawl0
!
create_circle,r01,,120,,10
!
k,,0,r01,0
k,,1.2*l02,r01,0
create_lines
!
create_cs,0,'CSprof01',0,0,0,0,a02,0,0
!
k,,l02,l02,0
k,,l02,-l02,0
create_lines
!
csys,CSpawl0
!
create_cs,0,'CSprof02',0,0,0,0,a02-(90-a01),0,0
!
k,,0,-l08,0
k,,1.2*l02,-l08,0
create_lines
!
create_cs,0,'CSprof03',0,0,0,0,-(90-a02),0,0
!
k,,l09,0,0
k,,l09,-l01,0
k,,-(l04-l09),-l01,0
k,,-(l04-l09),0,0
!
create_lines,,1
!
profile_close
!
csys,CSpawl1
!
lsel,s,loc,x,r01
lsel,r,loc,y,0,90
ldele,all,,,1
init_entity_num
!
lsel,s,loc,x,r01
lsel,r,loc,y,200,270
ldele,all,,,1
init_entity_num
!
view,'f'
lplot
!
!------------------------- 3.1.2  Fillet Profile ------------------------
!
ln_fillet,km-4,r04
ln_fillet,km-5,r04
ln_fillet,km-6,r04
ln_fillet,km-12,r03
ln_fillet,km-8,r02
!
isolate_lines
!
create_area-lines
!
lplot
!
!--------------------------- 3.1.3  Center Hole -------------------------
!
csys,CSpawl0
!
create_circle,d01/2,,120,,10
!
isolate_lines
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
lplot
!
!--------------------------- 3.1.4  Create Solid -------------------------
!
csys,CSpawl0
!
create_vol-area,l06
!
view,'iso'
lplot
!


*go,:skip


!------------------------------ 4.  Mesh Solid --------------------------
!
csys,CSpawl0
!
asel,s,loc,z,0
!
!
!                     (1)      (2)     (3)     (4)      (5)       (6)     (7)
!    MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa,
!
!                   etpv, elmnl, elmxl, mtrl,  rl,  ecs, volsel, radrot,
!                   (8)    (9)    (10)  (11)  (12)  (13)  (14)    (15)
!
!                   varcang, ell
!                    (16)    (17)
!
msh_algorithm,1,3,0,4,,,1,2,0.020,0.020,a286
!
eplot
!




!finalize_model


:skip