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
!
finalize_model_data




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


mod_assemb_prep
c_s_position
!
/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
!
finalize_model_data






parsav,all,block
!
!vglue,all
vplot

!init_entity_num
!vsel,s,volu,,1


! ENTITY_FILE, entity, aname


name='all'

ENTITY_FILE,'v','%name%'



parsav,all,block,parm



*go,:skip

csys,0
vsel,s,loc,x,%block1(1,1,1)%
vsel,r,loc,y,%block1(1,2,1)%
vsel,r,loc,z,%block1(1,3,1)%


csys,0
vsel,s,loc,x,%cylind2(1,1,1)%
vsel,r,loc,y,%cylind2(1,2,1)%
vsel,r,loc,z,%cylind2(1,3,1)%


csys,0
vsel,s,loc,x,%prism3(1,1,1)%
vsel,r,loc,y,%prism3(1,2,1)%
vsel,r,loc,z,%prism3(1,3,1)%


csys,0
vsel,s,loc,x,6.00
vsel,r,loc,y,4.500
vsel,r,loc,z,3.500



csys,0
vsel,s,loc,x,7.66666667
vsel,r,loc,y,4.18333333
vsel,r,loc,z,3.50000000



K_X_CNT         SCALAR
  K_Y_CNT   4.18333333      SCALAR
  K_Z_CNT   3.50000000      SCALAR






:skip