mod_assemb_prep,0
x=1
mshtyp_=1
et,1,shell63
*if,arg1,eq,1,then
csys,0
k,,0,0,0
k,,10,1,0
k,,7,8,0
create_area
view,'f'
ln_size,x,mshtyp_,'a',0,1
mshkey,mshtyp_
amesh,all
lplot
*endif
*if,arg1,eq,2,then
csys,0
k,,0,0,0
k,,10,1,0
k,,7,8,0
create_volume,,15
view,'f'
ln_size,x,mshtyp_,'a',0,1
mshkey,0
amesh,all
lplot
*endif
*if,arg1,eq,3,then
csys,0
k,,0,0,0
k,,10,1,0
k,,7,8,0
create_area
k,,-10,0,0
k,,-10,8,0
k,,-7,8,0
k,,-7,0,0
create_area
k,,0,10,0
k,,0,20,0
k,,5,20,0
k,,5,10,0
create_area
k,,10,10,0
k,,20,12,0
k,,18,15,0
k,,11,19,0
create_area
view,'f'
ln_size,x,mshtyp_,'a',0,1
mshkey,0
amesh,all
lplot
*endif
*if,arg1,eq,4,then
csys,0
k,,0,0,0
k,,10,1,0
k,,7,8,0
create_area
k,,-10,0,0
k,,-10,8,0
k,,-7,8,0
k,,-7,0,0
create_area
k,,0,10,0
k,,0,20,0
k,,5,20,0
k,,5,10,0
create_area
k,,10,10,0
k,,20,12,0
k,,18,15,0
k,,11,19,0
create_area
entity_array,'a','fred','array'
view,'f'
ln_size,x,mshtyp_,'fred',0,1
mshkey,mshtyp_
amesh,all
lplot
*endif