!!rschenkel=rinnen+jochdicke2-deltaer
*afun,deg

csys,1

k,1,raussen,0
k,2,raussen,360/(4*p)
k,3,raussen,360/(4*p)*polbedeckung
k,4,raussen-jochdicke,0
k,5,raussen-jochdicke,360/(4*p)
k,6,raussen-jochdicke,360/(4*p)*polbedeckung
k,7,raussen-jochdicke-magnetdicke,0
k,8,raussen-jochdicke-magnetdicke,360/(4*p)
k,9,raussen-jochdicke-magnetdicke,360/(4*p)*polbedeckung
k,10,raussen-jochdicke-magnetdicke-delta/2,0
k,11,raussen-jochdicke-magnetdicke-delta/2,360/(4*p)
k,12,raussen-jochdicke-magnetdicke-delta/2,360/(4*p)*polbedeckung
csys,1
k,13,raussen-jochdicke-magnetdicke+wendedel-delta/2,0
k,14,raussen-jochdicke-magnetdicke+wendedel-delta/2,360/(4*p)*1.2
csys,0
k,15,raussen+10*delta,-wendebreite/2
k,16,0,-wendebreite/2
csys,0
k,17,raussen-2*jochdicke-wickhoehewen/2,-wendebreite/2-wickbreitewen
k,18,raussen-2*jochdicke+wickhoehewen/2,-wendebreite/2-wickbreitewen
k,19,raussen-2*jochdicke-wickhoehewen/2,wendebreite/2
k,20,raussen-2*jochdicke+wickhoehewen/2,wendebreite/2

csys,1
l,1,3
l,2,3
l,4,6
l,5,6
l,7,9
l,8,9
l,10,12
l,11,12
csys,0
l,1,4
l,3,6
l,2,5
l,4,7
l,7,10
l,6,9
l,9,12
l,5,8
l,8,11

l,19,20
l,17,19
l,18,20
l,17,18

csys,1
l,13,14
csys,0
l,15,16


lsel,s,,,18,21
lsel,a,,,23
csys,1
LGEN, ,all, , , ,360/(4*p), , , ,1 

lsel,s,,,16
lsel,a,,,22,23
lovlap,all

lsel,s,,,19,20
lsel,a,,,24,28,4
lovlap,all

lsel,s,,,2,4,2
lsel,a,,,22
lovlap,all

lsel,s,,,18,26,8
lsel,a,,,27,29,2
lsel,a,,,32,33
lsel,a,,,40
ldel,all

allsel
