0 BEGIN PGM 7030_IT MM 
1 ;Programma per la lavorazione interna di un corpo
2 ;della forma di un toro orizzontale.
3 ;La lavorazione viene eseguita con una fresa sferica
4 ;in linee isometriche al fine di percorrere la
5 ;traiettoria di fresatura nel piano X/Y e
6 ;l'avanzamento nel piano X/Z.
7 ;
8 ;
9 ;Immissione parametri
10 FN 0: Q1 =+50 ;CENTRO PRIMO ASSE
11 FN 0: Q2 =+50 ;CENTRO SECONDO ASSE
12 FN 0: Q3 =+25 ;RAGGIO TORICO R
13 FN 0: Q4 =+0 ;COORDINATA Z CENTRO TORO
14 FN 0: Q5 =+20 ;RAGGIO TORICO r
15 FN 0: Q10 =+20 ;ALTEZZA DI SICUREZZA
16 FN 0: Q11 =+90 ;NUMERO DI LINEE ISOMETRICHE
17 FN 0: Q14 =+600 ;AVANZAMENTO FRESATURA
18 FN 0: Q15 =+9999 ;AVANZAMENTO PREPOSIZIONAMENTO
19 FN 0: Q16 =+300 ;AVANZAMENTO ENTRATA
20 ;Fine immissione parametri
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-30
23 BLK FORM 0.2  X+100  Y+100  Z+0
24 ;
25 ;Chiamata utensile fresa a sfera
26 TOOL CALL 155 Z S8000
27 TOOL CALL  DL-Q108 ;Compensazione lineare del raggio della sfera
28 ;
29 ;Calcoli
30 FN 2: Q6 =+Q5 - +Q108 ;Raggio compensato
31 FN 1: Q7 =+Q1 + +Q3 ;Coordinata X centro toro
32 FN 4: Q12 =+180 DIV +Q11 ;Passo angolare
33 FN 2: Q13 =+Q11 - +1 ;Numero di ripetizioni
34 ;Calcoli terminati
35 ;
36 L  X+Q1  Y+Q2 R0 FQ15 M3 ;Preposizionamento al centro
37 L  Z+Q10 FQ15 ;Posizionamento ad altezza di sicurezza
38 CC  Z+Q4  X+Q7 ;Definizione centro piano X/Z
39 LP  PR+Q6  PA-90 R0 FQ16 ;Raggiungimento primo raggio e profondità
40 CC  X+Q1  Y+Q2 ;Definizione centro piano X/Y
41 CP IPA-360 DR- FQ14 ;Esecuzione traiettoria circolare
42 LBL 1 ;Ripetizione
43 CC  Z+Q4  X+Q7 ;Definizione centro piano X/Z
44 CP IPA-Q12 DR- FQ14 ;Spostamento passo angolare
45 CC  X+Q1  Y+Q2 ;Definizione centro piano X/Y
46 CP IPA-360 DR- FQ14 ;Esecuzione traiettoria circolare
47 CALL LBL 1 REPQ13 ;Richiamo ripetizione
48 L  Z+100 R0 FQ15 M2 ;Disimpegno e fine programma
49 END PGM 7030_IT MM