0 BEGIN PGM 7085_NL MM 
1 ;Programma om een conus van binnenuit met
2 ;een stiftfrees te bewerken.
3 ;De bewerking vindt plaats met een beweging
4 ;in X en Z. In een parameter definieert u
5 ;hoe vaak deze freesbaan moet worden
6 ;herhaald, om de conus rondom te frezen (Q10)
7 ;
8 BLK FORM 0.1 Z X+0 Y+0 Z-30
9 BLK FORM 0.2  X+50  Y+50  Z+0
10 ;
11 ;Parameterinvoer
12 FN 0: Q1 =+25 ;MIDDELPUNT EERSTE AS
13 FN 0: Q2 =+25 ;MIDDELPUNT TWEEDE AS
14 FN 0: Q3 =+0 ;COÖRDINAAT Z BOVEN
15 FN 0: Q5 =+25 ;RADIUS BOVEN
16 FN 0: Q4 =-20 ;COÖRDINAAT Z ONDER
17 FN 0: Q6 =+15 ;RADIUS ONDER
18 FN 0: Q7 =+2 ;VEILIGHEIDSAFSTAND
19 FN 0: Q8 =+600 ;AANZET FREZEN
20 FN 0: Q9 =+9999 ;AANZET TERUGTREKKEN
21 FN 0: Q10 =+180 ;VERDELING
22 ;Einde parameterinvoer
23 ;
24 ;Gereedschapsoproep schachtfrees
25 TOOL CALL 8 Z S5555
26 ;
27 ;Berekeningen
28 FN 1: Q11 =+Q3 + +Q7 ;Veilige hoogte
29 FN 2: Q12 =+Q5 - +Q108 ;Gecompenseerde radius boven
30 FN 2: Q13 =+Q6 - +Q108 ;Gecompenseerde radius onder
31 FN 4: Q14 =+360 DIV +Q10 ;Hoekstap
32 FN 2: Q15 =+Q10 - +1 ;Aantal herhalingen
33 ;Einde berekeningen
34 ;
35 L  Z+100 R0 FMAX M3 ;Vrijzetten
36 ;
37 ;Nulpunt naar het middelpunt schuiven
38 CYCL DEF 7.0 NULLPUNKT
39 CYCL DEF 7.1  X+Q1
40 CYCL DEF 7.2  Y+Q2
41 L  X+0  Y+0 R0 FMAX ;Voorpositioneren
42 L  Z+Q11 R0 FMAX ;Naar veilige hoogte verplaatsen
43 LBL 1
44 L  X+Q12  Y+0 R0 FQ9 ;Bovenste radius naderen
45 L  Z+Q3 R0 FQ8 ;Z naar oppervlak verplaatsen
46 L  X+Q13  Y+0  Z+Q4 ;Naar onderste radius en diepte verplaatsen
47 L  X+0  Y+0 R0 ;Naar het middelpunt verplaatsen
48 L  Z+Q11 R0 FQ9 ;Naar veilige hoogte verplaatsen
49 ;Hoekstap
50 CYCL DEF 10.0 DREHUNG
51 CYCL DEF 10.1 IROT+Q14
52 CALL LBL 1 REPQ15 ;Herhaling
53 ;
54 ;Coördinatenomrekening terugzetten
55 CYCL DEF 10.0 DREHUNG
56 CYCL DEF 10.1  ROT+0
57 CYCL DEF 7.0 NULLPUNKT
58 CYCL DEF 7.1  X+0
59 CYCL DEF 7.2  Y+0
60 CYCL DEF 7.3  Z+0
61 ;Vrijzetten en programma-einde
62 L  Z+100 R0 FQ9 M30
63 END PGM 7085_NL MM