0  BEGIN PGM 4035_FR MM 
1  ;Programme permettant de réaliser un
2  ;cône en inclinant l'axe B et en faisant
3  ;pivoter l'axe C. Ce programme est écrit
4  ;pour une machine dotée d'une tête
5  ;pivotante B et d'un plateau circulaire C.
6  ;La fonction M128 permet de déplacer
7  ;l'outil sur la trajectoire programmée,
8  ;même si la pièce n'est pas serrée au centre
9  ;du plateau circulaire C.
10 ;
11 BLK FORM 0.1 Z X-5 Y-5 Z-8
12 BLK FORM 0.2  X+5  Y+5  Z+0
13 ;
14 ;Appel d'outil
15 TOOL CALL 6 Z S5000 F500
16 ;
17 ;Valeurs à renseigner
18 QL100 = - 7 ;PROFONDEUR
19 QL101 = 10 ;DIAMETRE INFERIEUR
20 QL102 = 28.1786 ;ANGLE
21 ;
22 ;Calculs
23 QL200 = ABS QL100 - SIN ABS QL102 * Q108 ;Profondeur du centre de l'outil
24 QL201 = COS ABS QL102 * Q108 + QL101 / 2 ;Rayon du centre de l'outil
25 QL300 = Q108 * 2 + QL101 / 2 ;Prépositionnement
26 ;
27 L  X+QL300  Y+0 R0 FMAX M3
28 L  Z+2 R0 FMAX
29 L  Z+0 R0
30 L  B-QL102 R0 M128 ;Inclinaison de l'axe B avec la fonction M128
31 L  Z-QL200 R0
32 L  X+QL201 R0
33 CC  X+0  Y+0
34 CP IPA+360 IC+360 DR+ ;Rotation de l'axe C sur 360° avec la fonction M128 activée
35 L  X+QL300 R0 FMAX
36 L  B+0 R0 FMAX M129 ;Axe B à 0° et désactivation de M128
37 L  Z+250 R0 FMAX M30
38 END PGM 4035_FR MM