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