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