mod_assemb_prep,1
!
/title,Block 1
!
/view,1,1,1,1
/auto,1
/replot
!
!/////////////

l=10
h=7
d=5

name='block1'
arry_nam='block'
!
ct_name='ct1cs'     ! cartesian
cyl_name='cyl1cs'   ! cylindrical
sph_name='sph1cs'   ! spherical

!/////////////
!
mod_coord_system,0,1,1,1,0,0,0
!
csys,ct1cs
!
k,,0,0
k,,l,0
k,,l,h
k,,0,h
!
create_volume,,d
!
lplot
!
finalize_model_data



!------------------------------------------------------


mod_assemb_prep
!
/title,Cylinder 2
!
/view,1,1,1,1
/auto,1
/replot
!
!/////////////

h=3.1
dext=7
parm_val,'block1','L','l'

name='cylind2'
arry_nam='cyl'

ct_name='ct2cs'     ! cartesian
cyl_name='cyl2cs'   ! cylindrical
sph_name='sph2cs'   ! spherical

!/////////////
!
mod_coord_system,ct1cs,l,1,0,0,0,0
!
csys,ct2cs
!
k,,0,0
k,,l,0
k,,l,h
k,,0,h
!
create_volume,1,dext
!
lplot
!
!vdele,all,,,1
finalize_model_data




!------------------------------------------------------


mod_assemb_prep
!
/title,Prism 3
!
/view,1,1,1,1
/auto,1
/replot
!
!/////////////

l=4.7
dpext=15
h=4.0
parm_val,'cylind2','L','l2'

name='prism3'
arry_nam='prism'

ct_name='ct3cs'     ! cartesian
cyl_name='cyl3cs'   ! cylindrical
sph_name='sph3cs'   ! spherical

!/////////////
!
mod_coord_system,ct2cs,l2,2,-2.0,0,0,0
!
csys,ct3cs
!
k,,0,0
k,,l,0
k,,l,h
k,,0,h
!
create_volume,,dpext
!
lplot
!
!------------------------------------------------------
!
csys,ct3cs
!
k,,l,0
k,,2*l,0
k,,2*l,h
k,,l,h
!
create_volume,,dpext
!
vglue,all
!
init_entity_num
!
lplot
!
finalize_model_data





parsav,all,block,parm
!
!vglue,all
vplot

!init_entity_num
!vsel,s,volu,,1


! ENTITY_FILE, entity, aname

!ENTITY_FILE,'k',,1



parsav,all,block,parm