0 BEGIN PGM 7010-FR MM 
1 ;Programme d'usinage intérieur d'un cône
2 ;tronqué avec une fraise boule.
3 ;L'axe du cône est parallèle à l'axe Y.
4 ;L'usinage se déroule dans une trajectoire
5 ;circulaire autour du centre sur les axes
6 ;X et Z et la passe latérale dans l'axe Y.
7 ;La division indique en combien de
8 ;trajectoires circulaires l'usinage doit
9 ;être séparé. La CN calcule ensuite la
10 ;taille de la passe sur le côté et la
11 ;variation de rayon correspondante.
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 ;Définition des paramètres
17 FN 0: Q1 =+0 ;CENTRE CÔNE EN X
18 FN 0: Q2 =+0 ;CENTRE CÔNE EN Z
19 FN 0: Q3 =+0 ;COORDONNÉE DE DÉPART EN Y
20 FN 0: Q4 =+45 ;RAYON DE DÉPART
21 FN 0: Q5 =+100 ;COORDONNÉE FINALE EN Y
22 FN 0: Q6 =+20 ;RAYON FINAL
23 FN 0: Q7 =+50 ;DIVISION
24 FN 0: Q8 =+300 ;AVANCE DE FRAISAGE
25 FN 0: Q9 =+200 ;AVANCE DE PLONGÉE
26 FN 0: Q10 =+10 ;HAUTEUR DE SÉCURITÉ
27 ;Fin de la définition des paramètres
28 ;
29 ;Appel de la fraise boule
30 TOOL CALL 157 Z S8000
31 TOOL CALL  DL-Q108
32 ;
33 ;Calculs
34 FN 2: Q24 =+Q4 - +Q108 ;Rayon de départ effectif jusqu'au centre de l'outil
35 FN 2: Q25 =+Q5 - +Q3 ;Déplacement linéaire
36 FN 4: Q26 =+Q25 DIV +Q7 ;Incrément de déplacement
37 FN 2: Q27 =+Q6 - +Q4 ;Différence de rayon
38 FN 4: Q28 =+Q27 DIV +Q7 ;Incrément de rayon
39 FN 2: Q29 =+Q7 - +1 ;Nombre de répétitions
40 FN 1: Q30 =+Q24 + +Q1 ;Pré-positionnement en X
41 FN 1: Q31 =+Q10 + +Q108 ;Hauteur de sécurité avec rayon d'outil
42 ;Fin des calculs
43 ;
44 L  Z+100 R0 FMAX M3 ;Dégagement
45 L  X+Q30  Y+Q3 FMAX ;Pré-positionnement
46 CC  X+Q1  Z+Q2 ;Centre du cône
47 L  Z+Q31 R0 FMAX ;Déplacement à la hauteur de sécurité
48 LP  PR+Q24  PA+90 R0 FQ9 ;Plongée
49 CP IPA+180 DR+ FQ8 ;Fraisage sur trajectoire circulaire
50 LBL 1
51 LP  PA+90 FMAX ;Déplacement en position de départ
52 LP IPR+Q28 FQ8 ;Pas du rayon
53 L IY+Q26 R0 FQ8 ;Pas en Y
54 CP IPA+180 DR+ FQ8 ;Fraisage sur trajectoire circulaire
55 CALL LBL 1 REPQ29 ;Répétitions
56 ;
57 ;Dégagement et fin de programme
58 L  Z+100 R0 FMAX M2
59 END PGM 7010-FR MM