!   test_msh_algorithm_1.mac
!
!   Type 1 test:  This macro tests msh_algorithm's ability to assign
!                 material property attributes to areas and/or volumes.
!                 For testing area meshing only, comment out 'test_v';
!                 for volume sweep mesh testing, uncomment 'test_v'.
!
mod_assemb_prep
!
!
test_v=1
!
!
mat_select,'c410','al6061'
mat_select,'sand'
!
et,1,shell63
et,2,solid45
!
csys,0
!
k,,0,0
k,,5,0
k,,5,5
k,,0,5
!
create_area
!
k,,5,0
k,,10,0
k,,10,5
k,,5,5
!
create_area
!
k,,3,5
k,,8,5
k,,8,12
k,,3,12
!
create_area
!
asel,s,area,,am-2
a1=am-2
aatt,al6061
!
asel,s,area,,am-1
a2=am-1
aatt,sand
!
asel,s,area,,am
a3=am
aatt,c410
!
init_entity_num
!
*if,test_v,eq,1,then
    extrude_aset,6
    !
    asel,s,area,,a1
    asel,a,area,,a2
    asel,a,area,,a3
    !
    msh_algorithmA,1,3,1,,,,1,2,1.5,1.5,
*else
    msh_algorithmA,1,1,1,,,,1,,.5,.5,
*endif
!
/PNUM,MAT,1
eplot