220 G98 L10 *
230 Q16 = Q6 - Q10 - Q108
240 D00 Q20 P01 +1 *
250 D00 Q24 P01 +Q4 *
260 Q25 = (Q5 - Q4) / Q13
270 G54 X+Q1 Y+Q2 Z+0 *
280 G73 G90 H+Q8 *
290 G00 G40 X+0 Y+0 *
300 G01 Z+5 F1000 M3 *
310 I+0 K+0 *
320 G11 R+Q16 H+Q24 FQ11 *
330 G98 L1 *
340 G01 G40 Y+Q7 FQ11 *
350 D01 Q20 P01 +Q20 P02 +1 *
360 D01 Q24 P01 +Q24 P02 +Q25 *
370 D11 P01 +Q20 P02 +Q13 P03 99 *
380 G11 R+Q16 H+Q24 FQ12 *
390 G01 G40 Y+0 FQ11 *
400 D01 Q20 P01 +Q20 P02 +1 *
410 D01 Q24 P01 +Q24 P02 +Q25 *
420 D12 P01 +Q20 P02 +Q13 P03 1 *
430 G98 L99 *
440 G73 G90 H+0 *
450 G54 X+0 Y+0 Z+0 *
460 G98 L0 *
999999 %CILI
G71 *
270
Onderprogramma 10: bewerking
Overmaat en gereedschap gerelateerd aan cilinderradius verrekenen
Teller voor het aantal sneden vastleggen
Starthoek werkbereik (vlak Z/X) kopiëren
Hoekstap berekenen
Nulpunt naar het midden van de cilinder (X-as) verschuiven
Rotatiepositie in het vlak verrekenen
Voorpositioneren in het vlak naar het midden van de cilinder
Voorpositioneren in de spilas
Pool vastleggen in het Z/X-vlak
Startpositie op cilinder benaderen, schuin in het materiaal instekend
Snede in lengterichting Y+
Teller voor het aantal sneden actualiseren
Uitruimhoek actualiseren
Klaar ? Ja, dan naar het einde springen
Langs benaderde „boog" verplaatsen voor volgende snede in
lengterichting
Snede in lengterichting Y–
Teller voor het aantal sneden actualiseren
Uitruimhoek actualiseren
Niet klaar ? Nee, dan terugspringen naar Label 1
Rotatie terugzetten
Nulpuntverschuiving terugzetten
Einde onderprogramma
10 Programmeren: Q-parameters