0 BEGIN PGM 7065-IT MM 
1 ;Programma per la lavorazione interna di una
2 ;superficie cilindrica con una fresa sferica.
3 ;L'asse del cilindro è parallelo all'asse Y.
4 ;La lavorazione viene eseguita in linee
5 ;isometriche affinché la traiettoria di
6 ;fresatura si trovi in direzione Y e
7 ;l'incremento avvenga nell'asse X e Z.
8 ;
9 BLK FORM 0.1 Z X-35 Y+0 Z-50
10 BLK FORM 0.2  X+35  Y+100  Z+0
11 ;
12 ;Immissione parametri
13 FN 0: Q1 =+0 ;CENTRO CILINDRO NELL'ASSE X
14 FN 0: Q2 =+0 ;CENTRO CILINDRO NELL'ASSE Z
15 FN 0: Q3 =+0 ;PUNTO DI PARTENZA NELL'ASSE Y
16 ;            ;COORDINATA MINIMA
17 FN 0: Q4 =+100 ;PUNTO FINALE NELL'ASSE Y
18 ;            ;COORDINATA MASSIMA
19 FN 0: Q5 =+100 ;DIVISIONE
20 ;            ;NUMERO DI LINEE ISOMETRICHE
21 FN 0: Q6 =+30 ;RAGGIO DEL CILINDRO
22 FN 0: Q7 =+90 ;ANGOLO DI PARTENZA NEL PIANO X/Z
23 FN 0: Q8 =+270 ;ANGOLO FINALE NEL PIANO X/Z
24 FN 0: Q9 =+10 ;ALTEZZA DI SICUREZZA
25 FN 0: Q10 =+300 ;AVANZAMENTO FRESATURA
26 ;Fine immissione parametri
27 ;
28 ;Chiamata utensile fresa sferica
29 TOOL CALL 157 Z S8000
30 TOOL CALL  DL-Q108 ;Modifica lineare al centro della sfera
31 ;
32 ;
33 ;Calcoli
34 FN 2: Q13 =+Q3 - +Q108 ;Posizione di partenza Y
35 FN 1: Q14 =+Q4 + +Q108 ;Posizione finale Y
36 FN 1: Q26 =+Q6 + -Q108 ;Raggio effettivo fino a centro utensile
37 FN 2: Q27 =+Q8 - +Q7 ;Range angolare
38 FN 4: Q28 =+Q27 DIV +Q5 ;Passo angolare
39 FN 1: Q29 =+Q9 + +Q108 ;Preposizionamento Z
40 FN 0: Q30 =+0 ;Contatore
41 ;Calcoli terminati
42 ;
43 ;Traiettorie
44 L  Z+100 R0 FMAX ;Posizionamento ad altezza di sicurezza
45 L  Y+Q13  X+Q1 R0 F9999 M3 ;Preposizionamento X/Y
46 L  Z+Q29 R0 FMAX ;Preposizionamento Z
47 CC  Z+Q2  X+Q1 ;Centro del cilindro
48 LP  PR+Q26  PA+Q7 FQ10 ;Raggiungimento della prima altezza
49 LBL 1 ;Label di salto
50 CP IPA+Q28 DR+ FQ10 ;Accostamento in profondità
51 L  Y+Q14 FQ10 ;Traiettoria di fresatura
52 FN 1: Q30 =+Q30 + +1 ;Contatore
53 FN 9: IF +Q30 EQU +Q5 GOTO LBL 99 ;Confronto se raggiunta divisione
54 CP IPA+Q28 DR+ FQ10 ;Accostamento in profondità
55 L  Y+Q13 FQ10 ;Traiettoria di fresatura
56 FN 1: Q30 =+Q30 + +1 ;Contatore
57 FN 12: IF +Q30 LT +Q5 GOTO LBL 1 ;Confronto se raggiunto contatore
58 LBL 99
59 ;
60 ;Disimpegno e fine programma
61 L  Z+50 R0 FMAX M2
62 END PGM 7065-IT MM