0 BEGIN PGM 7060-IT MM 
1 ;Programma per la lavorazione esterna di una
2 ;superficie cilindrica con una fresa sferica.
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
9 ;lati dal basso verso l'alto. La divisione
10 ;indica il numero di traiettorie in cui viene
11 ;suddiviso ogni lato. Il controllo numerico
12 ;calcola su tale base l'entità che deve avere
13 ;l'incremento laterale. L'utensile viene
14 ;posizionato all'inizio compensato del suo
15 ;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 sferica
37 TOOL CALL 156 Z S8000
38 TOOL CALL  Z DL-Q108
39 ;
40 ;
41 ;Calcoli
42 FN 2: Q13 =+Q3 - +Q108 ;Punto di partenza
43 FN 1: Q14 =+Q4 + +Q108 ;Punto finale
44 FN 2: Q15 =+Q14 - +Q13 ;Elemento lineare
45 FN 4: Q16 =+Q15 DIV +Q5 ;Incremento
46 FN 2: Q17 =+Q5 - +1 ;Numero di ripetizioni
47 FN 1: Q18 =+Q6 + +Q108 ;Preposizionamento
48 FN 1: Q19 =+Q1 + +Q18 ;Preposizionamento 1. lato
49 FN 2: Q20 =+Q1 - +Q18 ;Preposizionamento 2. lato
50 FN 1: Q26 =+Q6 + +Q108 ;Raggio effettivo fino al centro utensile
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+Q1  Z+Q2 ;Centro della traiettoria circolare
59 LBL 1
60 L  X+Q19 R0 FMAX
61 LP  PR+Q26  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+Q1  Z+Q2 ;Centro della traiettoria circolare
70 LBL 2
71 L  X+Q20 R0 FMAX
72 LP  PR+Q26  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 7060-IT MM