0 BEGIN PGM 7130_fr MM 
1 ;Programme pour l'usinage intérieur d'un
2 ;hémisphère avec une fraise boule.
3 ;L'usinage se déroule par un mouvement en
4 ;spirale. Ce mouvement est divisé en
5 ;mouvements linéaires individuels. Les
6 ;divisions définissent en combien de
7 ;mouvements linéaires la trajectoire est
8 ;divisée, et déterminent ainsi la précision
9 ;et la qualité de la surface.
10 ;
11 BLK FORM 0.1 Z X-40 Y-40 Z-40
12 BLK FORM 0.2  X+40  Y+40  Z+0
13 ;
14 ;Définition des paramètres
15 FN 0: Q1 =+0 ;CENTRE DE LA BOULE SUR L'AXE X
16 FN 0: Q2 =+0 ;CENTRE DE LA BOULE SUR L'AXE Y
17 FN 0: Q3 =+0 ;CENTRE DE LA BOULE SUR L'AXE Z
18 FN 0: Q4 =+30 ;DIVISION VERTICALE
19 ;             ; DÉFINIT COMBIEN DE TRAJECTOIRES 
20 ;             ;EN SPIRALE DE 360 DEGRÉS SONT 
21 ;             ;PARCOURUES DE HAUT EN BAS
22 FN 0: Q5 =+120 ;DIVISION HORIZONTALE
23 ;              ;; DÉFINIT EN COMBIEN DE TRAJECTOIRES 
24 ;              ;LINÉAIRES UNE TRAJECTOIRE CIRCULAIRE 
25 ;              ;DE 360 DEGRÉS EST DIVISÉE
26 FN 0: Q6 =+35 ;RAYON DE LA BOULE
27 FN 0: Q7 =+0 ;ANGLE DE DÉPART À LA VERTICALE
28 FN 0: Q8 =+0 ;ANGLE DE DÉPART DANS LE PLAN X/Y
29 FN 0: Q10 =+150 ;AVANCE DE LA PASSE EN PROFONDEUR
30 FN 0: Q11 =+1000 ;AVANCE DE LA TRAJECTOIRE HÉLICOÏDALE
31 FN 0: Q12 =+3 ;DISTANCE DE SÉCURITÉ
32 FN 0: Q13 =+8 ;OUTIL RAYON DE LA BOULE
33 FN 0: Q17 =-89.999 ;ANGLE FINAL À LA VERTICALE
34 ;Fin de la définition des paramètres
35 ;
36 ;Appel de la fraise boule
37 TOOL CALL 159 Z S9000 DL-Q13
38 ;
39 ;Pré-positionnement
40 L  X+Q1  Y+Q2 R0 FMAX M3
41 FN 1: Q18 =+Q12 + +Q13
42 L  Z+Q18 FMAX
43 CALL LBL 1 ;Appel du mouvement hélicoïdal
44 ;
45 ;Fin du programme
46 L  Z+100 R0 F9999 M30
47 ;
48 ;Mouvement en spirale
49 LBL 1
Q26 = Q6 - Q13 ;Rayon effectif jusqu'au centre de l'outil
50 FN 0: Q27 =+Q7 ;Angle actuel vertical = angle de départ vertical
51 FN 0: Q28 =+Q8 ;Angle actuel sur le plan X/Y =angle de départ du plan X/Y
Q37 = ( Q17 - Q7 ) / Q4 / Q5 ;Pas angulaire vertical
Q38 = - 360 / Q5 ;Pas angulaire sur plan X/Y
52 CALL LBL 10 ;Appel des calculs
53 L  X+Q21  Y+Q22  Z+Q23 R0 FQ10 ;Déplacement en position 1
54 LBL 2
55 CALL LBL 10 ;Appel des calculs
56 L  X+Q21  Y+Q22  Z+Q23 FQ11 ;Approche de la nouvelle position
57 FN 11: IF +Q27 GT +Q17 GOTO LBL 2
58 L  Z+Q18 FMAX ;Dégagement
59 LBL 0
60 ;Calcul de la position X,Y,Z et du nouvel angle
61 LBL 10
Q20 = COS Q27 * Q26
Q21 = COS Q28 * Q20 + Q1
Q22 = SIN Q28 * Q20 + Q2
Q23 = SIN Q27 * Q26 + Q3
Q27 = Q27 + Q37
Q28 = Q28 + Q38
62 LBL 0
63 END PGM 7130_fr MM