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