0 BEGIN PGM 7010-NL MM 
1 ;Programma voor bewerking aan binnenzijde
2 ;van een afgeknotte kegel met een kogelfrees.
3 ;De kegelas ligt parallel aan de Y-as.
4 ;De bewerking vindt plaats in een cirkelbaan
5 ;om het middelpunt op de X- en Z-as, en de
6 ;verplaatsing zijdelings op de Y-as. De
7 ;verdeling geeft aan in hoeveel cirkelbanen
8 ;de bewerking wordt opgedeeld. De besturing
9 ;berekent daaruit hoe groot de zijdelingse
10 ;verplaatsing en de bijbehorende
11 ;radiuswijziging moeten zijn.
12 ;
13 BLK FORM 0.1 Z X-50 Y+0 Z-60
14 BLK FORM 0.2  X+50  Y+100  Z+0
15 ;
16 ;Parameterinvoer
17 FN 0: Q1 =+0 ;KEGELMIDDELPUNT IN X
18 FN 0: Q2 =+0 ;KEGELMIDDELPUNT IN Z
19 FN 0: Q3 =+0 ;STARTCOÖRDINAAT IN Y
20 FN 0: Q4 =+45 ;STARTRADIUS
21 FN 0: Q5 =+100 ;EINDCOÖRDINAAT IN Y
22 FN 0: Q6 =+20 ;EINDRADIUS
23 FN 0: Q7 =+50 ;VERDELING
24 FN 0: Q8 =+300 ;AANZET FREZEN
25 FN 0: Q9 =+200 ;AANZET INSTEKEN
26 FN 0: Q10 =+10 ;VEILIGE HOOGTE
27 ;Einde parameterinvoer
28 ;
29 ;Gereedschapsoproep kogelfrees
30 TOOL CALL 157 Z S8000
31 TOOL CALL  DL-Q108
32 ;
33 ;Berekeningen
34 FN 2: Q24 =+Q4 - +Q108 ;Effectieve startradius tot gereedschapsmiddelpunt
35 FN 2: Q25 =+Q5 - +Q3 ;Baan
36 FN 4: Q26 =+Q25 DIV +Q7 ;Baanincrement
37 FN 2: Q27 =+Q6 - +Q4 ;Radiusverschil
38 FN 4: Q28 =+Q27 DIV +Q7 ;Radiusincrement
39 FN 2: Q29 =+Q7 - +1 ;Aantal herhalingen
40 FN 1: Q30 =+Q24 + +Q1 ;Voorpositionering in X
41 FN 1: Q31 =+Q10 + +Q108 ;Veilige hoogte met gereedschapsradius
42 ;Einde berekeningen
43 ;
44 L  Z+100 R0 FMAX M3 ;Vrijzetten
45 L  X+Q30  Y+Q3 FMAX ;Voorpositioneren
46 CC  X+Q1  Z+Q2 ;Kegelmiddelpunt
47 L  Z+Q31 R0 FMAX ;Naar veilige hoogte verplaatsen
48 LP  PR+Q24  PA+90 R0 FQ9 ;Insteken
49 CP IPA+180 DR+ FQ8 ;Cirkelbaan frezen
50 LBL 1
51 LP  PA+90 FMAX ;Naar startpositie verplaatsen
52 LP IPR+Q28 FQ8 ;Radiusstap
53 L IY+Q26 R0 FQ8 ;Y-stap
54 CP IPA+180 DR+ FQ8 ;Cirkelbaan frezen
55 CALL LBL 1 REPQ29 ;Herhalingen
56 ;
57 ;Vrijzetten en programma-einde
58 L  Z+100 R0 FMAX M2
59 END PGM 7010-NL MM