Hauptprogramm
%
O100
N0 G17 G21 G54
N7 (Schruppen)
N8 (Fr 12)
N9 T1
N10 M6
N11 G0 G40 G49 G80 G90 D1 X50 Y40
N12 G0 G43 H1 Z20 S10610 M3
N13 #101=20
N14 #102=2
N15 #103=-30
N16 #104=1061
N17 #105=2122
N18 #106=2
N19 #107=50
N20 M98 P701
N21 X-50
N22 M98 P701
N23 Y-40
N24 M98 P701
N25 X50
N26 M98 P701
N27 M98 P250
N29 (Schlichten)
N30 (Fr 10)
N31 T2
N32 M6
N33 G0 G40 G49 G80 G90 D2 X50 Y40
N34 G0 G43 H2 Z20 S10610 M3
N35 #101=20
N36 #102=2
N37 #103=-30
N38 #105=2122
N39 #106=2
N40 #107=50
N41 M98 P702
N42 X-50
N43 M98 P702
N44 Y-40
N45 M98 P702
N46 X50
N47 M98 P702
N48 M98 P250
N49 M0
N50 M30
%
%
O250
N51 G0 Z200
N52 M99
%
Kreistasche
%
O701
n10 #20=#2400+#3026
n20 #1=#101
n30 #2=#102
n40 #3=#103
n50 #4=abs[#104]
n60 #5=abs[#105]
n70 #6=abs[#106]
n80 #7=abs[#107]
n90 #8=#7/2-#20
n100 #9=#20*1.5
;----------
n110 if [#3 ge #1] goto 510
n120 if [#3 ge #2] goto 510
n130 if [#8 le 0 ] goto 510
n140 if [#6 le 0 ] then #6=abs[#3-#2]
;----------
n150 #10=fup[#8/#9]
n160 #9=#8/#10
;----------
n170 g0 z#2
n180 #12=#2
n190 while [#12 gt #3] do1
n200 #12=#12-#6
n210 if [#12 lt #3] then #12=#3
;----------
n220 g90 g1 z#12 f#4
n230 #11=0
n240 while [#11 lt #8] do2
n250 g91 g1 x#9 f#5
n260 #11=#11+#9
n270 g3 i=-#11 j0
n280 end2
;----------
n290 if [#12 ge #3] then goto 340
n300 g90 g0 z#1
n310 g91 g0 x-#8
n320 g90
n330 goto 999
n340
;----------
n350 #12=#12-#6
n360 if [#12 lt #3] then #12=#3
;----------
n370 g90 g1 z#12 f#4
n380 #11=#8
n390 while [#11 gt 0] do 4
n400 g91 x-#9 f#5
n410 #11=#11-#9
n420 if [#11 le 0] then goto 440
n430 g3 i-#11 j0
n440
n450 end4
;----------
n460 if [r12 ge r3] do 490
n470 g90 g0 z#1
n480 goto 510
n490
;----------
n500 end1
n510 m99
%
Kreis
%
O702
n10 #20=[#2400+#3026]
n20 #1=#101
n30 #2=#102
n40 #3=#103
n50 #5=abs[#105]
n60 #6=abs[#106]
n70 #7=abs[#107]
n80 #8=#7/2-#20
;----------
n90 if [#3 ge r1] goto 260
n100 if [#3 ge r2] goto 260
n110 if [#8 le 0 ] goto 260
;----------
n120 if [#6 eq 0 ] then #6=abs[#3-#2]
;----------
n130 g91 g0 x#8
n140 g90 g0 z#2
;----------
n150 #9=#2
n160 while [#9>#3] do 1
n170 #9=#9-#6
n180 if [#9 lt #3] then #9=#3
n190 g3 i-#8 z#9 f#5
n200 end1
n210 g3 i-#8
;----------
n220 g90 g0 z#1
n230 g91 g0 x-#8
n240 g90
n260 m99
%