mod_assemb_prep
!

*go,:skip1

csys,0
!
k,,0,0
k,,10,0
k,,5,50
k,,0,50
!
n=4

:skip1


!*go,:skip2

csys,1
!
k,,7,0
k,,10,0
k,,10,90
k,,7,90
!
n=4

!:skip2


*go,:skip3

csys,0
!
k,,0,0
k,,10,0
k,,10,7
k,,5,10
k,,0,6
!
n=5

:skip3


*go,:skip4

csys,0
!
k,,0,0
k,,5,0
k,,5,5
k,,0,5
!
n=4

:skip4


init_entity_num
!
*do,i,1,n,1
    !
    *if,i,ne,n,then
        l,km-(n-i),km-(n-i-1)
    *else
        l,km,km-(n-1)
    *endif
*enddo
!
init_entity_num
!
al,all
!
init_entity_num
!
voffst,am,4
voffst,am+1,5
voffst,am,-4
!

*go,:skip

csys,0
vsymm,x,all
vsymm,y,all

:skip

/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
/VIEW, 1 ,1,1,1
/ANG, 1
!
lplot
!
et,1,shell63
et,2,solid45
! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!         elmxl, mtrl, rl, ecs, volsel, sprat, radrot, varcang
!
asel,s,area,,1,7,7-1
!asel,u,area,,4,6,2
MSH_ALGORITHM,1,3,1,1,,,,,1.3,0.5,,,,,
!
!asel,s,loc,z,0
!asel,s,area,,1
!vsel,u,volu,,2
!MSH_ALGORITHM,1,3,1,1,2,0.35,0.5,,,

!MSH_ALGORITHM,,4,,,3,0.2,0.4,,,,,