0 BEGIN PGM 7070-IT MM 
1 ;Programma per la lavorazione esterna di una
2 ;superficie cilindrica con una fresa torica.
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. Il cilindro viene lavorato su
8 ;entrambi i lati dal basso verso l'alto. La
9 ;divisione indica il numero di traiettorie
10 ;in cui viene suddiviso ogni lato. Il
11 ;controllo numerico calcola su tale base
12 ;l'entità che deve avere l'incremento
13 ;laterale. L'utensile viene posizionato
14 ;all'inizio compensato del suo raggio, e
15 ;alla fine si sposta anche oltre la posizione
16 ;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 FN 0: Q30 =+5 ;RAGGIO DEL TAGLIENTE
35 ;Fine immissione parametri
36 ;
37 ;Chiamata utensile fresa torica
38 TOOL CALL 115 Z S8000
39 TOOL CALL  Z DL-Q30
40 ;
41 ;
42 ;Calcoli
43 FN 2: Q31 =+Q108 - +Q30 ;Compensazione raggio del tagliente
44 FN 1: Q26 =+Q6 + +Q30 ;Raggio effettivo fino a centro tagliente
45 FN 1: Q10 =+Q1 + +Q31 ;CC X 1. lato
46 FN 2: Q11 =+Q1 - +Q31 ;CC X 2. lato
47 FN 2: Q13 =+Q3 - +Q108 ;Punto di partenza
48 FN 1: Q14 =+Q4 + +Q108 ;Punto finale
49 FN 2: Q15 =+Q14 - +Q13 ;Elemento lineare
50 FN 4: Q16 =+Q15 DIV +Q5 ;Incremento
51 FN 2: Q17 =+Q5 - +1 ;Numero di ripetizioni
52 FN 1: Q18 =+Q6 + +Q108 ;Preposizionamento
53 FN 1: Q19 =+Q1 + +Q18 ;Preposizionamento 1. lato
54 FN 2: Q20 =+Q1 - +Q18 ;Preposizionamento 2. lato
55 ;Fine calcoli
56 ;
57 L  Z+100 R0 FMAX ;Disimpegno
58 ;
59 ;1. lato
60 L  X+Q19  Y+Q13 R0 FMAX M3 ;Preposizionamento 1. lato
61 L  Z+Q7 R0 FMAX ;Posizionamento ad altezza di sicurezza
62 CC  X+Q10  Z+Q2 ;Centro della traiettoria circolare
63 LBL 1
64 L  X+Q19 R0 FMAX
65 LP  PR+Q26  PA+90 FQ9 ;Penetrazione
66 L IY+Q16 R0 FQ8 ;Incremento laterale
67 CP IPA-90 DR- FQ8 ;Traiettoria circolare
68 L  Z+Q7 R0 FMAX ;Posizionamento ad altezza di sicurezza
69 CALL LBL 1 REPQ17 ;Ripetizione
70 ;
71 ;2. lato
72 L  X+Q20  Y+Q14 R0 FMAX ;Preposizionamento 2. lato
73 CC  X+Q11  Z+Q2 ;Centro della traiettoria circolare
74 LBL 2
75 L  X+Q20 R0 FMAX
76 LP  PR+Q26  PA-90 FQ9 ;Penetrazione
77 L IY-Q16 R0 FQ8 ;Incremento laterale
78 CP IPA+90 DR+ FQ8 ;Traiettoria circolare
79 L  Z+Q7 R0 FMAX ;Posizionamento ad altezza di sicurezza
80 CALL LBL 2 REPQ17 ;Ripetizione
81 ;
82 ;Disimpegno e fine programma
83 L  Z+100 R0 FMAX M30
84 END PGM 7070-IT MM