/prep7
ET,1,181
R,1,1

csys,1

pi=4*atan(1)
rad1=20
rad2=25
amplitude=2
anz=10
teiler=360
elsize=360/teiler

*do,i,1,teiler,1
ys=i
zs=amplitude*sin(anz*pi*i/180)
k,i,rad1,ys,zs
k,i+teiler,rad2,ys,zs
*enddo

csys,0

*do,i,1,teiler,1
*if,i,eq,teiler,then
A,teiler,teiler*2,teiler+1,1
*else
A,i,i+teiler,i+1+teiler,i+1
*endif
*enddo

esize=elsize
MSHKEY,1
Amesh,all