0 BEGIN PGM 7040_NL MM 
1 ;Programma voor de bewerking aan de binnenzijde
2 ;van een object in de vorm van een staande
3 ;torus.
4 ;De bewerking wordt met een kogelfrees
5 ;uitgevoerd, door de freesbaan in het
6 ;vlak Y/Z en de aanzet zijdelings in het
7 ;vlak X/Y te verplaatsen.
8 ;
9 ;Parameterinvoer
10 FN 0: Q1 =+0 ;MIDDELPUNT EERSTE AS
11 FN 0: Q2 =+0 ;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 =+80 ;AANTAL FREESBANEN
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-21 Y-50 Z-51
23 BLK FORM 0.2  X+21  Y+50  Z+1
24 ;
25 ;Gereedschapsoproep kogelfrees
26 TOOL CALL 157 Z S8000
27 TOOL CALL  DL-Q108 ;Lengtecorrectie met kogelradius
28 ;
29 ;Berekeningen
30 FN 2: Q6 =+Q5 - +Q108 ;Gecompenseerde radius
31 FN 1: Q18 =+Q6 + +Q1 ;Startpositie X
32 FN 1: Q19 =+Q2 + +Q3 ;Coördinaat Y+ torusmiddelpunt
33 FN 2: Q20 =+Q2 - +Q3 ;Coördinaat Y- torusmiddelpunt
34 FN 4: Q12 =+180 DIV +Q11 ;Hoekstap
35 FN 4: Q13 =+Q11 DIV +2 ;Aantal herhalingen
36 FN 2: Q13 =+Q13 - +1 ;Aantal herhalingen
37 ;Berekeningen voltooid
38 ;
39 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3 ;Voorpositioneren
40 L  Z+Q4 FQ16 ;Insteken
41 ;
42 LBL 1
43 CC  Y+Q2  Z+Q4 ;CC voor de freesbaan
44 CP IPA+180 DR+ FQ14 ;Freesbaan
45 CC  X+Q1  Y+Q19 ;CC voor de zijdelingse verplaatsing
46 CP IPA+Q12 DR+ FQ14 ;Verplaatsing
47 CC  Y+Q2  Z+Q4 ;CC voor de freesbaan
48 CP IPA-180 DR- FQ14 ;Freesbaan
49 CC  X+Q1  Y+Q20 ;CC voor de zijdelingse verplaatsing
50 CP IPA-Q12 DR- FQ14 ;Verplaatsing
51 CALL LBL 1 REPQ13 ;Oproep van de herhaling
52 L  Z+100 R0 FQ15 M30 ;Vrijzetten en programma-einde
53 END PGM 7040_NL MM