!Quader mit komischer Vernetzung
!aus dem Forum von oedipussy
!Schätzing, 15.2.2012

finish
/clear 

*abbr,oedipussy3,/input,oedipussy3,txt

/prep7 

ET,1,MESH200,10

a=10

block,0,a,0,a,0,a

lplo
/pnum,kp,1

lsel,s,loc,z,a
lesize,all,,,3

lsel,s,loc,z,0
lsel,r,loc,y,0
lesize,all,,,3,1/3

lsel,s,loc,z,0
lsel,r,loc,y,a
lesize,all,,,3,3

lsel,s,loc,z,0
lsel,r,loc,x,0
lesize,all,,,3,1/3

lsel,s,loc,z,0
lsel,r,loc,x,a
lesize,all,,,3,3


allsel
vmesh,all