0 BEGIN PGM 31651_NL MM 
1 ;Programma om een kegel te frezen
2 ;
3 ;Parameter-invoer
4 FN 0: Q1 =+50 ;MIDDELPUNT EERSTE AS
5 FN 0: Q2 =+50 ;MIDDELPUNT TWEEDE AS
6 FN 0: Q3 =+0 ;COÖRDINAAT Z BOVEN
7 FN 0: Q5 =+41.5 ;RADIUS BOVEN
8 FN 0: Q4 =-30 ;COÖRDINAAT Z ONDER
9 FN 0: Q6 =+49.5 ;RADIUS ONDER
10 FN 0: Q7 =+2 ;VEILIGHEIDSAFSTAND
11 FN 0: Q8 =+600 ;AANZET FREZEN
12 FN 0: Q9 =+9999 ;AANZET TERUGTREKKEN
13 FN 0: Q10 =+180 ;VERDELING
14 FN 0: Q16 =+10 ;VEILIGHEIDSAFSTAND ZIJKANT
15 ;Einde parameterinvoer
16 ;
17 ;Gereedschapsoproep schachtfrees
18 TOOL CALL 17 Z S5555
19 ;
20 ;Berekeningen
21 FN 1: Q11 =+Q3 + +Q7 ;Veilige hoogte
22 FN 1: Q12 =+Q5 + +Q108 ;Gecompenseerde radius boven
23 FN 1: Q13 =+Q6 + +Q108 ;Gecompenseerde radius onder
24 FN 1: Q17 =+Q13 + +Q16 ;Veilige positie zijdelings
25 FN 4: Q14 =+360 DIV +Q10 ;Hoekstap
26 FN 2: Q15 =+Q10 - +1 ;Aantal herhalingen
27 ;Einde berekeningen
28 ;
29 L  Z+100 R0 FMAX M3 ;Vrijzetten
30 ;
31 ;Nulpunt naar het middelpunt schuiven
32 CYCL DEF 7.0 NULPUNT
33 CYCL DEF 7.1  X+Q1
34 CYCL DEF 7.2  Y+Q2
35 L  X+Q17  Y+0 R0 FMAX ;Voorpositioneren
36 L  Z+Q11 R0 FMAX ;Naar veilige hoogte verplaatsen
37 LBL 1
38 L  X+Q12  Y+0 R0 FQ9 ;Bovenste radius naderen
39 L  Z+Q3 R0 FQ8 ;Z naar oppervlak verplaatsen
40 L  X+Q13  Y+0  Z+Q4 ;Naar onderste radius en diepte verplaatsen
41 L  X+Q17  Y+0 R0 ;Naar zijdelingse afstand verplaatsen
42 L  Z+Q11 R0 FQ9 ;Naar veilige hoogte verplaatsen
43 ;Hoekstap
44 CYCL DEF 10.0 ROTATIE
45 CYCL DEF 10.1 IROT+Q14
46 CALL LBL 1 REPQ15 ;Herhaling
47 ;
48 ;Coördinatenomrekening terugzetten
49 CYCL DEF 10.0 ROTATIE
50 CYCL DEF 10.1  ROT+0
51 CYCL DEF 7.0 NULPUNT
52 CYCL DEF 7.1  X+0
53 CYCL DEF 7.2  Y+0
54 CYCL DEF 7.3  Z+0
55 ;Vrijzetten en programma-einde
56 L  Z+100 R0 FQ9
57 END PGM 31651_NL MM