0 BEGIN PGM 7005-IT MM 
1 ;Programma per la lavorazione esterna di un tronco
2 ;di cono con una fresa sferica.
3 ;L'asse del cono è parallelo all'asse Y.
4 ;La lavorazione viene eseguita in una traiettoria
5 ;circolare intorno al centro nell'asse X e Z e
6 ;l'incremento laterale nell'asse Y. La divisione
7 ;indica il numero di movimenti con due traiettorie
8 ;circolari ciascuno in cui la lavorazione viene
9 ;suddivisa. Il controllo numerico calcola su tale
10 ;base l'entità che devono avere l'incremento
11 ;laterale e l'idonea modifica del raggio.
12 ;
13 BLK FORM 0.1 Z X-50 Y+0 Z-50
14 BLK FORM 0.2  X+50  Y+100  Z+1
15 ;
16 ;Immissione parametri
17 FN 0: Q1 =+0 ;CENTRO CONO IN X
18 FN 0: Q2 =-50 ;CENTRO CONO IN Z
19 FN 0: Q3 =+0 ;COORDINATA DI PARTENZA IN Y
20 FN 0: Q4 =+50 ;RAGGIO DI PARTENZA
21 FN 0: Q5 =+100 ;COORDINATA FINALE IN Y
22 FN 0: Q6 =+35 ;RAGGIO FINALE
23 FN 0: Q7 =+25 ;DIVISIONE
24 FN 0: Q8 =+300 ;AVANZAMENTO FRESATURA
25 FN 0: Q9 =+200 ;AVANZAMENTO ENTRATA
26 FN 0: Q10 =+10 ;ALTEZZA DI SICUREZZA
27 ;Fine immissione parametri
28 ;
29 ;Chiamata utensile fresa sferica
30 TOOL CALL 160 Z S8000
31 TOOL CALL  DL-Q108
32 ;
33 ;Calcoli
34 FN 1: Q24 =+Q108 + +Q4 ;Raggio effettivo fino a centro utensile
35 FN 2: Q25 =+Q5 - +Q3 ;Elemento lineare
36 FN 4: Q26 =+Q25 DIV +Q7 ;Incremento percorso
37 FN 4: Q26 =+Q26 DIV +2 ;Incremento percorso per ciascuna traiettoria circolare
38 FN 2: Q27 =+Q6 - +Q4 ;Differenza di raggio
39 FN 4: Q28 =+Q27 DIV +Q7 ;Incremento di raggio
40 FN 4: Q28 =+Q28 DIV +2 ;Incremento di raggio per ciascuna traiettoria circolare
41 FN 2: Q29 =+Q7 - +1 ;Numero di ripetizioni
42 FN 1: Q30 =+Q24 + +Q1 ;Preposizionamento in X
43 FN 1: Q31 =+Q10 + +Q108 ;Altezza di sicurezza con raggio utensile
44 ;Fine calcoli
45 ;
46 L  Z+100 R0 FMAX M3 ;Disimpegno
47 L  X+Q30  Y+Q3 FMAX ;Preposizionamento
48 CC  X+Q1  Z+Q2 ;Centro cono
49 L  Z+Q31 R0 FMAX ;Posizionamento ad altezza di sicurezza
50 LP  PR+Q24  PA+90 R0 FQ9 ;Penetrazione
51 CP IPA-180 DR- FQ8 ;Fresatura traiettoria circolare
52 LBL 1
53 L IY+Q26 R0 FQ8 ;Incremento Y
54 LP IPR+Q28 FQ8 ;Incremento raggio
55 CP IPA+180 DR+ FQ8 ;Fresatura traiettoria circolare
56 L IY+Q26 R0 FQ8 ;Incremento Y
57 LP IPR+Q28 FQ8 ;Incremento raggio
58 CP IPA-180 DR- FQ8 ;Fresatura traiettoria circolare
59 CALL LBL 1 REPQ29 ;Ripetizioni
60 ;
61 ;Disimpegno e fine programma
62 L  Z+100 R0 FMAX M2
63 END PGM 7005-IT MM