0  BEGIN PGM 4035_IT MM 
1  ;Programma per la creazione del cono con
2  ;inclinazione dell'asse B e rotazione
3  ;dell'asse C. Il programma è scritto
4  ;per una macchina con testa
5  ;orientabile B e tavola rotante C.
6  ;Con la funzione M128 l'utensile viene
7  ;spostato sulla traiettoria programmata,
8  ;anche se il pezzo non è serrato al
9  ;centro della tavola rotante 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 ;Chiamata utensile
15 TOOL CALL 6 Z S5000 F500
16 ;
17 ;Immissioni
18 QL100 = - 7 ;PROFONDITA'
19 QL101 = 10 ;DIAMETRO INFERIORE
20 QL102 = 28.1786 ;ANGOLO
21 ;
22 ;Calcoli
23 QL200 = ABS QL100 - SIN ABS QL102 * Q108 ;Profondità per il centro dell'utensile
24 QL201 = COS ABS QL102 * Q108 + QL101 / 2 ;Raggio per il centro dell'utensile
25 QL300 = Q108 * 2 + QL101 / 2 ;Preposizionamento
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 ;Inclinazione dell'asse B con M128
31 L  Z-QL200 R0
32 L  X+QL201 R0
33 CC  X+0  Y+0
34 CP IPA+360 IC+360 DR+ ;Rotazione dell'asse C di 360° con M128 attiva
35 L  X+QL300 R0 FMAX
36 L  B+0 R0 FMAX M129 ;Spostamento dell'asse B a 0° e disattivazione di M128
37 L  Z+250 R0 FMAX M30
38 END PGM 4035_IT MM