0 BEGIN PGM 7070-NL MM 
1 ;Programma voor bewerking aan binnenzijde van een
2 ;cilindervlak met een torusfrees.
3 ;De cilinderas ligt parallel aan de Y-as. De
4 ;bewerking vindt plaats in een cirkelbaan om een
5 ;middelpunt op de X- en Z-as, en de verplaatsing
6 ;zijdelings op de Y-as. De cilinder wordt aan beide
7 ;zijden van onder naar boven bewerkt. De verdeling
8 ;geeft aan in hoeveel banen elke zijde wordt
9 ;verdeeld. De besturing berekent daaruit hoe groot
10 ;de zijdelingse verplaatsing moet zijn. Het
11 ;gereedschap wordt aan het begin met gecorrigeerde
12 ;radius gepositioneerd en wordt aan het einde ook
13 ;zo ver over de aangegeven positie heen verplaatst.
14 ;
15 BLK FORM 0.1 Z X-55 Y+0 Z-55
16 BLK FORM 0.2  X+55  Y+100  Z+0
17 ;
18 ;Invoer parameters
19 FN 0: Q1 =+0 ;CILINDERMIDDELPUNT OP DE X-AS
20 FN 0: Q2 =-50.1 ;CILINDERMIDDELPUNT OP DE Z-AS
21 FN 0: Q3 =+0 ;STARTPUNT OP DE Y-AS
22 ;            ;MINIMALE COÖRDINAAT
23 FN 0: Q4 =+100 ;EINDPUNT OP DE Y-AS
24 ;            ;MAXIMALE COÖRDINAAT
25 FN 0: Q5 =+50 ;VERDELING
26 ;            ;AANTAL FREESBANEN PER ZIJDE
27 FN 0: Q6 =+50 ;CILINDERRADIUS
28 FN 0: Q7 =+10 ;VEILIGE HOOGTE
29 FN 0: Q8 =+600 ;AANZET FREZEN
30 FN 0: Q9 =+300 ;AANZET DIEPTEVERPLAATSING
31 FN 0: Q30 =+5 ;SNIJKANTRADIUS
32 ;Einde parameterinvoer
33 ;
34 ;Gereedschapsoproep torusfrees
35 TOOL CALL 115 Z S8000
36 TOOL CALL  Z DL-Q30
37 ;
38 ;
39 ;Berekeningen
40 FN 2: Q31 =+Q108 - +Q30 ;Verrekening snijkantradius
41 FN 1: Q26 =+Q6 + +Q30 ;Effectieve radius tot midden van snijkant
42 FN 1: Q10 =+Q1 + +Q31 ;CC X 1e zijde
43 FN 2: Q11 =+Q1 - +Q31 ;CC X 2e zijde
44 FN 2: Q13 =+Q3 - +Q108 ;Startpunt
45 FN 1: Q14 =+Q4 + +Q108 ;Eindpunt
46 FN 2: Q15 =+Q14 - +Q13 ;Baan
47 FN 4: Q16 =+Q15 DIV +Q5 ;Stapgrootte
48 FN 2: Q17 =+Q5 - +1 ;Aantal herhalingen
49 FN 1: Q18 =+Q6 + +Q108 ;Voorpositionering
50 FN 1: Q19 =+Q1 + +Q18 ;Voorpositionering 1e zijde
51 FN 2: Q20 =+Q1 - +Q18 ;Voorpositionering 2e zijde
52 ;Einde berekeningen
53 ;
54 L  Z+100 R0 FMAX ;Vrijzetten
55 ;
56 ;1.Seite
57 L  X+Q19  Y+Q13 R0 FMAX M3 ;Voorpositioneren 1e zijde
58 L  Z+Q7 R0 FMAX ;Verplaatsen naar veilige hoogte
59 CC  X+Q10  Z+Q2 ;Midden van de cirkelbaan
60 LBL 1
61 L  X+Q19 R0 FMAX
62 LP  PR+Q26  PA+90 FQ9 ;Insteken
63 L IY+Q16 R0 FQ8 ;Zijdelingse verpl.
64 CP IPA-90 DR- FQ8 ;Cirkelbaan
65 L  Z+Q7 R0 FMAX ;Verplaatsen naar veilige hoogte
66 CALL LBL 1 REPQ17 ;Herhaling
67 ;
68 ;2. Pagina
69 L  X+Q20  Y+Q14 R0 FMAX ;Voorpositioneren 2e zijde
70 CC  X+Q11  Z+Q2 ;Midden van de cirkelbaan
71 LBL 2
72 L  X+Q20 R0 FMAX
73 LP  PR+Q26  PA-90 FQ9 ;Insteken
74 L IY-Q16 R0 FQ8 ;Zijdelingse verpl.
75 CP IPA+90 DR+ FQ8 ;Cirkelbaan
76 L  Z+Q7 R0 FMAX ;Verplaatsen naar veilige hoogte
77 CALL LBL 2 REPQ17 ;Herhaling
78 ;
79 ;Vrijzetten en programma-einde
80 L  Z+100 R0 FMAX M30
81 END PGM 7070-NL MM