0 BEGIN PGM 7105_fr MM 
1 ;Programme pour l'usinage intérieur d'un
2 ;hémisphère avec une fraise boule. Cet
3 ;usinage est effectué selon des lignes
4 ;de niveau, de manière à ce que soient
5 ;parcourues à la fois la trajectoire de
6 ;fraisage dans le plan X/Y et la passe
7 ;dans le plan X/Z.
8 ;
9 BLK FORM 0.1 Z X-50 Y-50 Z-55
10 BLK FORM 0.2  X+50  Y+50  Z+0
11 ;
12 ;Définition des paramètres
13 FN 0: Q1 =+0 ;CENTRE DE LA BOULE SUR L'AXE X
14 FN 0: Q2 =+0 ;CENTRE DE LA BOULE SUR L'AXE Y
15 FN 0: Q3 =+0 ;CENTRE DE LA BOULE SUR L'AXE Z
16 FN 0: Q4 =+45 ;RAYON DE LA BOULE
17 FN 0: Q5 =+45 ;NOMBRE DE LIGNES DE NIVEAU
18 FN 0: Q6 =+10 ;DISTANCE DE SÉCURITÉ
19 FN 0: Q7 =+500 ;AVANCE DE LA PASSE EN PROFONDEUR
20 FN 0: Q8 =+800 ;AVANCE FRAISAGE
21 FN 0: Q9 =+5 ;OUTIL RAYON DE LA BOULE
22 ;Fin de la définition des paramètres
23 ;
24 ;Appel de la fraise boule
25 TOOL CALL 157 Z S8000 DL-Q9
26 ;
27 ;
28 ;Calculs
29 FN 2: Q10 =+Q4 - +Q9 ;Rayon effectif jusqu'au centre de l'outil
30 FN 4: Q12 =+90 DIV +Q5 ;Pas angulaire
31 FN 2: Q13 =+Q5 - +2 ;Nombre de répétitions
32 ;Fin des calculs
33 ;
34 ;Pré-positionnement
35 L  Z+200 R0 FMAX
36 L  X+Q1  Y+Q2 R0 F9999 M3
37 L  Z+Q6 R0 FMAX
38 CC  X+Q1  Z+Q3
39 LP  PR+Q10  PA+90 R0 FQ7
40 LBL 1 ;Répétitions
41 CC  Z+Q3  X+Q1
42 CP IPA+Q12 DR+ FQ7
43 CC  X+Q1  Y+Q2
44 CP IPA+360 DR+ FQ8
45 CALL LBL 1 REPQ13
46 ;
47 ;Fin du programme
48 L  Z+100 R0 FMAX M30
49 END PGM 7105_fr MM