0 BEGIN PGM 7055-IT MM 
1 ;Programma per la lavorazione esterna di una
2 ;superficie cilindrica con una fresa a candela.
3 ;L'asse del cilindro è parallelo all'asse Y.
4 ;La lavorazione viene eseguita in una
5 ;traiettoria circolare intorno al centro
6 ;nell'asse X e Z e l'incremento laterale
7 ;nell'asse Y.
8 ;Il cilindro viene lavorato su entrambi i lati
9 ;dal basso verso l'alto. La divisione indica il
10 ;numero di traiettorie in cui viene suddiviso
11 ;ogni lato. Il controllo numerico calcola su
12 ;tale base l'entità che deve avere l'incremento
13 ;laterale.
14 ;L'utensile viene posizionato all'inizio compensato
15 ;del suo raggio, e alla fine si sposta anche oltre
16 ;la posizione indicata. 
17 ;
18 BLK FORM 0.1 Z X-55 Y+0 Z-55
19 BLK FORM 0.2  X+55  Y+100  Z+0
20 ;
21 ;Immissione parametri
22 FN 0: Q1 =+0 ;CENTRO CILINDRO NELL'ASSE X
23 FN 0: Q2 =-50.1 ;CENTRO CILINDRO NELL'ASSE Z
24 FN 0: Q3 =+0 ;PUNTO DI PARTENZA NELL'ASSE Y
25 ;            ;COORDINATA MINIMA
26 FN 0: Q4 =+100 ;PUNTO FINALE NELL'ASSE Y
27 ;            ;COORDINATA MASSIMA
28 FN 0: Q5 =+50 ;DIVISIONE
29 ;            ;NUMERO DI TRAIETTORIE DI FRESATURA PER LATO
30 FN 0: Q6 =+50 ;RAGGIO DEL CILINDRO
31 FN 0: Q7 =+10 ;ALTEZZA DI SICUREZZA
32 FN 0: Q8 =+600 ;AVANZAMENTO FRESATURA
33 FN 0: Q9 =+300 ;AVANZAMENTO IN PROFONDITA'
34 ;Fine immissione parametri
35 ;
36 ;Chiamata utensile fresa a candela
37 TOOL CALL 8 Z S8000
38 ;
39 ;
40 ;Calcoli
41 FN 1: Q10 =+Q1 + +Q108 ;CC X 1. lato
42 FN 2: Q11 =+Q1 - +Q108 ;CC X 2. lato
43 FN 2: Q13 =+Q3 - +Q108 ;Punto di partenza
44 FN 1: Q14 =+Q4 + +Q108 ;Punto finale
45 FN 2: Q15 =+Q14 - +Q13 ;Elemento lineare
46 FN 4: Q16 =+Q15 DIV +Q5 ;Incremento
47 FN 2: Q17 =+Q5 - +1 ;Numero di ripetizioni
48 FN 1: Q18 =+Q6 + +Q108 ;Preposizionamento
49 FN 1: Q19 =+Q1 + +Q18 ;Preposizionamento 1. lato
50 FN 2: Q20 =+Q1 - +Q18 ;Preposizionamento 2. lato
51 ;Fine calcoli
52 ;
53 L  Z+100 R0 FMAX ;Disimpegno
54 ;
55 ;1. lato
56 L  X+Q19  Y+Q13 R0 FMAX M3 ;Preposizionamento 1. lato
57 L  Z+Q7 R0 FMAX ;Posizionamento ad altezza di sicurezza
58 CC  X+Q10  Z+Q2 ;Centro della traiettoria circolare
59 LBL 1
60 L  X+Q19 R0 FMAX
61 LP  PR+Q6  PA+90 FQ9 ;Penetrazione
62 L IY+Q16 R0 FQ8 ;Incremento laterale
63 CP IPA-90 DR- FQ8 ;Traiettoria circolare
64 L  Z+Q7 R0 FMAX ;Posizionamento ad altezza di sicurezza
65 CALL LBL 1 REPQ17 ;Ripetizione
66 ;
67 ;2. lato
68 L  X+Q20  Y+Q14 R0 FMAX ;Preposizionamento 2. lato
69 CC  X+Q11  Z+Q2 ;Centro della traiettoria circolare
70 LBL 2
71 L  X+Q20 R0 FMAX
72 LP  PR+Q6  PA-90 FQ9 ;Penetrazione
73 L IY-Q16 R0 FQ8 ;Incremento laterale
74 CP IPA+90 DR+ FQ8 ;Traiettoria circolare
75 L  Z+Q7 R0 FMAX ;Posizionamento ad altezza di sicurezza
76 CALL LBL 2 REPQ17 ;Ripetizione
77 ;
78 ;Disimpegno e fine programma
79 L  Z+100 R0 FMAX M30
80 END PGM 7055-IT MM