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