Hauptprogramm
%MPF100
N0 G17 G54
N7 ; Schruppen
N8 ; Fraeser 12
N9 T1
N10 M6 X50 Y40
N11 G0 G43 H1 Z20 S10610 M3
N12 R1=20 R2=2 R3=-30 R4=1061 R5=2122 R6=2 R7=50
N13 MCALL L701
N14 X-50
N15 Y-40
N16 X50
N17 MCALL
N18 L250
N19 M0
N20 ; Schlichten
N21 ; Fraeser 10
N22 T2
N23 M6 X50 Y40
N24 G0 G43 H2 Z20 S10610 M3
N25 R1=20 R2=2 R3=-30 R5=2122 R6=2 R7=50
N26 MCALL L702
N27 X-50
N28 Y-40
N29 X50
N30 MCALL
N31 L250
N32 M0
N33 M30
%
%SPF250
N34 G0 Z200
N35 M17
%
Kreistasche schruppen
%SPF701
n10 r20=$P_ToolR
n20 r4=abs(r4)
n30 r5=abs(r5)
n40 r6=abs(r6)
n50 r7=abs(r7)
n60 r8=r7/2-r20
n70 r9=r20*1.5
;----------
n80 if r3>=r1
n90 gotof lab99
n100 endif
;----------
n110 if r3>=r2
n120 gotof lab99
n130 endif
;----------
n140 if r8<=0
n150 gotof lab99
n160 endif
;----------
n170 if r6<=0
n180 r6=abs(r3-r2)
n190 endif
;----------
n200 r10=trunc(r8/r9)
n210 if r10<r8/r9
n220 r10=r10+1
n230 endif
n240 r9=r8/r10
;----------
n250 g0 z=r2
n260 r12=r2
n270 while r12>r3
n280 r12=r12-r6
n290 if r12<r3
n300 r12=r3
n310 endif
;----------
n320 g90 g1 z=r12 f=r4
n330 r11=0
n340 lab1:
n350 g91 g1 x=r9 f=r5
n360 r11=r11+r9
n370 g3 i=-r11 j0
n380 repeat lab1 p=r10-1
;----------
n390 if r12<=r3
n400 g90 g0 z=r1
n410 g91 g0 x=-r8
n420 g90
n430 goto lab99
n440 endif
;----------
n450 r12=r12-r6
n460 if r12<r3
n470 r12=r3
n480 endif
;----------
n490 g90 g1 z=r12 f=r4
n500 r11=r8
n510 lab2:
n520 g91 x=-r9 f=r5
n530 r11=r11-r9
n540 if r11>0
n550 g3 i=-r11 j0
n560 endif
n570 repeat lab2 p=r10-1
;----------
n580 if r12<=r3
n590 g90 g0 z=r1
n600 goto lab99
n610 endif
;----------
n620 endwhile
n630 lab99:
n640 m17
%
Kreistasche schlichten
%SPF702
n10 r5=abs(r5)
n20 r6=abs(r6)
n30 r8=abs(r7/2)
;----------
n40 if r3>=r1
n50 gotof lab99
n60 endif
;----------
n70 if r3>=r2
n80 gotof lab99
n90 endif
;----------
n100 if r6<=0
n110 r6=abs(r3-r2)
n120 endif
;----------
n130 g91 g41 g0 x=r8
n140 g90 g0 z=r2
;----------
n150 r9=r2
n160 while r9>r3
n170 r9=r9-r6
n180 if r9<r3
n190 r9=r3
n200 endif
n210 g3 i=-r8 z=r9 f=r5
n220 endwhile
n230 g3 i=-r8
;----------
n240 g90 g0 z=r1
n250 g91 g40 g0 x=-r8
n260 g90
n270 lab99:
n280 m17
%