!-- gegevens -------!

tussen=0
afval=1
kruis=0
l=396
b=289
h=125

he=5
hf=7
kc=9
kd=kc+10
k=30
k1=(b-(140+(k*2)))/2
r1=6
kk=60

y2=2
x2=2
x16=16
x20=30
rg1=24/2
rg2=28/2

!--- berekeningen ----!

ll=l+0
bb=b+0
hh=h+1
hh1=hh+1
ha=hh+x2-1

l1=hh1+bb
lt=l1+hh1
lt2=lt/2
l2=hh1+k1
l3=l2+k
l4=lt2-kk/2
l5=l4+kk

b1=he+h
b2=b1+hf
b3=b2+hh
b4=b3+ll
bt=b4+b3
bt2=bt/2
b7=b1+15
b8=b3
b10=b3+x2-ha

!--- tekenen -----!



grbeg 5

grbeg 4
grbeg 3
s 0,b10+x20
m1=ya
grbeg 2
xy x20,b10
lm=la
x hh1
s 0,m1
y b3+x2
s 0,b3+x2
status("z.........")
x hh1
y b2+1
status("e.........")
y b2
xy hh1+y2,b1
xy hh1+x16,he
wu hh1+y2,b1,hh1+x16,he;w0
x l2
xy l2+1,0
x l3-1
xy l3,he
mx1=xa
s l4,b1
status("z.........")
x hh1+x2
s hh1,b2
x l4
s hh1,b3
x l2
status("e.........")
s l2,b3+kd
y b3
x l3
y b3+kd
s l3,b3+kc
x l2
s l3,b3
status("z.........")
x l4
s 0,b10+x20
s lw lm/2,135
m 1
s xw hh1,45
lm1=la
m 2
wu m 1,m 2;w1
wu m 2,m 1;w2
s lw lm1/2,w2
m 3
s lw 27,w1
m 4
lx1=xa
ly1=ya
s lw 54,w2
m 5
lx2=xa
ly2=ya
s lw 4,270
lx3=xa
s m 4
s lw 4,0
ly3=ya
s xw lx3,270
m 6
s m 4
s xw lx2,270
m 7
s m 4
s yw ly3,w1
lx4=xa
ly4=ya
s m 5
s xw lx3,w2
lx5=xa
ly5=ya
s m 1
status("z.........")
xy lx5,ly5
status("e.........")
i 5,m 6,lx4,ly4
xy m 4
i -4,m 7,m 5
xy lx5,ly5
s lx4,ly4
status("z.........")
xy m 2
status("e.........")
smww hh1-64,bt/2-95,rg1,180,179.9999
smww hh1+97,bt/2-95,rg2,180,179.9999
grend 2
s mx1,he
x lt-mx1
gruppe 2; ursprung:lt,m1; spiegeln:y
status("e.........")
s l5,b3
x l4
y b3+kc
x l5
y b3
smww lt/2,b2+60,rg2,0,359.9999
s l5,b1
y b7-r1
kww -r1,90,0
x l4+r1
kww -r1,0,270
y b1
smww lt/2,b1-60,rg2,0,359.9999
status("e.........")
grend 3
s 0,b3+x2
my1=ya
y bt-my1
gruppe 3; ursprung:0,bt; spiegeln:x
s hh1,b4-x2
status("z.........")
y b3+x2
status("e.........")
smww hh1-64,bt/2,rg1,180,179.9999
smww hh1+97,bt/2,rg2,180,179.9999
smww l1-97,bt/2,rg2,180,179.9999
smww l1+64,bt/2,rg1,180,179.9999
s l1,b3+x2
y b4-x2
s lt,bt-my1
status("e.........")
y my1
grend 4; nutzen:2,1; versatz:lt,0; ausl:gx

s hh1+y2,b1
s yw 25,w0
mxaf=xa
s hh1+y2,b1
s yw 125,w0
mxaf1=xa
myaf1=ya

if afval=1
status("e.........")
s lt*2-mxaf1,myaf1
x lt*2+30
y ya+10
s lt*2,ya+140
x xa+30
y ya+10
s lt*2,ya+140
x xa+30
y ya+10
s lt*2,ya+140
x xa+30
y ya+10
s lt*2,ya+140
x xa+30
y ya+10
s lt+l1-x16-15,bt-he
y bt+30
x xa-10
s lt+hh1+x16+15,bt-he
y bt+30
x xa-10
s lt+lt2,bt-he
y bt+30
x xa-10
s 553,802-28
xw lt,315
y bt+30
x xa+10
s l1-x16-15,bt-he
y bt+30
x xa-10
s lt2,bt-he
y bt+30
x xa-10
s hh1+x16+15,bt-he
y bt+30
x xa-10
s 0,753-28
x -30
y ya+10
s 0,ya-160
x -30
y ya+10
s 0,ya-160
x -30
y ya+10
s 0,ya-160
x -30
y ya+10
s mxaf1,myaf1
x -30
y ya+10
s lt-290,he
y -15
endif
s lt-mxaf,25
status("e.........")
x lt*2-xa
if afval=1
s 533,176-28
status("e.........")
xw lt,135
y 25
s lt-20,25
y -15
s lt+290,he
y -15
if bt<900
s 0,985
x lt*2
s xa,ya-15
x 0
endif
endif
grend 5



