0 BEGIN PGM 7025_NL MM 
1 ;Programma voor de buitenbewerking van
2 ;een object in de vorm van een liggende
3 ;torus.
4 ;De bewerking wordt uitgevoerd met een
5 ;kogelfrees in hoogtelijnen, zodat de
6 ;freesbaan in het vlak X/Y en de aanzet
7 ;in vlak X/Z wordt verplaatst.
8 ;
9 ;Parameterinvoer
10 FN 0: Q1 =+50 ;MIDDELPUNT EERSTE AS
11 FN 0: Q2 =+50 ;MIDDELPUNT TWEEDE AS
12 FN 0: Q3 =+25 ;TORUSRADIUS R
13 FN 0: Q4 =+0 ;Z-COÖRDINAAT TORUSMIDDELPUNT
14 FN 0: Q5 =+20 ;TORUSRADIUS r
15 FN 0: Q10 =+20 ;VEILIGE HOOGTE
16 FN 0: Q11 =+90 ;AANTAL HOOGTELIJNEN
17 FN 0: Q14 =+600 ;AANZET FREZEN
18 FN 0: Q15 =+9999 ;AANZET VOORPOSITIONEREN
19 FN 0: Q16 =+300 ;AANZET INSTEKEN
20 ;Einde parameterinvoer
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-5
23 BLK FORM 0.2  X+100  Y+100  Z+21
24 ;
25 ;Gereedschapsoproep kogelfrees
26 TOOL CALL 155 Z S8000
27 TOOL CALL  DL-Q108 ;Lengtecorrectie met kogelradius
28 ;
29 ;Berekeningen
30 FN 1: Q6 =+Q5 + +Q108 ;GECOMPENSEERDE RADIUS
31 FN 1: Q7 =+Q1 + +Q3 ;Coördinaat X torusmiddelpunt
32 FN 4: Q12 =+180 DIV +Q11 ;Hoekstap
33 FN 2: Q13 =+Q11 - +1 ;Aantal herhalingen
34 ;Berekeningen voltooid
35 ;
36 L  X+Q1  Y+Q2 R0 FQ15 M3 ;In het middelpunt voorpositioneren
37 L  Z+Q10 FQ15 ;Verplaatsen naar veilige hoogte
38 CC  Z+Q4  X+Q7 ;Middelpunt vlak X/Z vastleggen
39 LP  PR+Q6  PA-90 R0 FQ16 ;Eerste radius en diepte benaderen
40 CC  X+Q1  Y+Q2 ;Middelpunt vlak X/Y vastleggen
41 CP IPA-360 DR- FQ14 ;Cirkelbaan verplaatsen
42 LBL 1 ;Herhaling
43 CC  Z+Q4  X+Q7 ;Middelpunt vlak X/Z vastleggen
44 CP IPA+Q12 DR+ FQ14 ;Hoekstap naderen
45 CC  X+Q1  Y+Q2 ;Middelpunt vlak X/Y vastleggen
46 CP IPA-360 DR- FQ14 ;Cirkelbaan verplaatsen
47 CALL LBL 1 REPQ13 ;Herhaling oproepen
48 L  Z+100 R0 FQ15 M2 ;Vrijzetten en programma-einde
49 END PGM 7025_NL MM