rschenkel=rinnen+jochdicke2-deltaer
*afun,deg

csys,1

k,1,raussen,0
k,2,raussen,360/(4*p)
k,3,raussen-jochdicke,0
k,4,raussen-jochdicke,360/(4*p)
k,5,raussen-jochdicke-delta/2,0
k,6,raussen-jochdicke-delta/2,360/(4*p)
csys,0
k,7,raussen,polbreite/2
k,8,raussen-jochdicke+polschhoehe,polbreite/2
k,9,raussen-jochdicke+polschhoehe+wickhoehe1,polbreite/2
k,10,raussen-jochdicke+polschraeg1,polschbreite/2
k,11,raussen-jochdicke+polschhoehe+wickhoehe1,0
k,12,0,0
k,13,raussen-jochdicke+polschhoehe,0
k,14,raussen-jochdicke+polschhoehe,polbreite/2+wickbreite1
k,15,raussen-jochdicke+polschhoehe+wickhoehe1,polbreite/2+wickbreite1
csys,1
k,16,raussen-joch1,0
k,17,raussen-joch1,360/(4*p)
csys,0
k,18,raussen-jochdicke+polschhoehe,           polbreite/2+wickbreite1+wickisoko
k,19,raussen-jochdicke+polschhoehe+wickhoehe1,polbreite/2+wickbreite1+wickisoko
k,20,raussen-jochdicke+polschhoehe,           polbreite/2+wickbreite1+wickisoko+wickbreiteko
k,21,raussen-jochdicke+polschhoehe+wickhoehe1,polbreite/2+wickbreite1+wickisoko+wickbreiteko
k,22,raussen,-wendebreite/2
k,23,0,-wendebreite/2
csys,1
k,24,raussen-jochdicke+wendedel-delta/2,0
k,25,raussen-jochdicke+wendedel-delta/2,360/(4*p)*1.2
csys,0
k,26,raussen-jochdicke+wickhoehek,wickbreitek/2
k,27,raussen-jochdicke+wickhoehek,-wickbreitek/2
k,28,raussen-2*jochdicke,wickbreitek/2
k,29,raussen-2*jochdicke,-wickbreitek/2

k,30,raussen-2*joch1-wickhoehewen/2,-wendebreite/2-wickbreitewen
k,31,raussen-2*joch1+wickhoehewen/2,-wendebreite/2-wickbreitewen
k,32,raussen-2*joch1-wickhoehewen/2,-wendebreite/2+delta
k,33,raussen-2*joch1+wickhoehewen/2,-wendebreite/2+delta

csys,1
l,1,2
l,3,4
l,5,6
csys,0
l,8,9
l,9,15
l,14,15
l,8,10
l,7,9
l,10,12
l,8,14
l,8,13
l,9,11
l,11,13
l,3,13
l,3,5
l,11,16
l,4,17
l,4,6
csys,1
l,16,17
l,2,17
l,1,16
l,14,18
l,15,19
l,18,20
l,19,21
l,18,19
l,20,21
csys,1
l,24,25
csys,0
l,22,23
*GET,lmax,line,0,num,max
csys,1
LGEN, ,lmax, , , ,360/(4*p), , , ,1 
allsel
csys,0
l,26,28
l,27,29
l,26,27

lsel,s,,,2,3
lsel,a,,,9
lovlap,all
lsel,s,,,1,8,7
lsel,a,,,19
lovlap,all

*afun,rad
pi=4*atan(1)
*afun,deg
lsel,s,,,33
*get,laeng,line,33,leng
win=laeng/(2*pi*(raussen-jochdicke)/(4*p))*360/(4*p)

lsel,s,,,30,32
csys,1
LGEN, ,all, , , ,win/8, , , ,1 
LGEN,4,all, , , ,win/4, , , ,0 

lsel,s,,,1,8,7
lsel,a,,,19
lsel,a,,,30,33
lsel,a,,,35
lsel,a,,,44,49
lovlap,all

lsel,s,,,3
lsel,a,,,28,29
lsel,a,,,42
lovlap,all

lsel,s,,,17
lsel,a,,,35
lovlap,all

lsel,s,,,9
lsel,a,,,29,31
lsel,a,,,33
lsel,a,,,38
lsel,a,,,55
lsel,a,,,67
lsel,a,,,71,73,2
lsel,a,,,76
lsel,a,,,95,97,2
lsel,a,,,101
ldel,all

lsel,s,,,54
lsel,a,,,59,65,2
lsel,a,,,69,72,3
lsel,a,,,77,78
lsel,a,,,98
lsel,a,,,102,103
ldel,all

csys,0

l,30,31
l,30,32
l,31,33

csys,1
lsel,s,,,9,17,8
lsel,a,,,29
LGEN, ,all, , , ,360/(4*p), , , ,1 

csys,0
lsel,s,,,9,17,8
lsel,a,,,29
lsel,a,,,48
lovlap,all

lsel,s,,,33,35,2
ldel,all

allsel
