0 BEGIN PGM 7035_IT MM 
1 ;Programma per la lavorazione esterna di un corpo
2 ;della forma di un toro orizzontale.
3 ;La lavorazione viene eseguita con una fresa
4 ;sferica al fine di percorrere la traiettoria di
5 ;fresatura nel piano X/Z e l'avanzamento
6 ;lateralmente nel piano X/Y.
7 ;
8 ;
9 ;Immissione parametri
10 FN 0: Q1 =+0 ;CENTRO PRIMO ASSE
11 FN 0: Q2 =+0 ;CENTRO SECONDO ASSE
12 FN 0: Q3 =+30 ;RAGGIO TORICO R
13 FN 0: Q4 =-51 ;COORDINATA Z CENTRO TORO
14 FN 0: Q5 =+20 ;RAGGIO TORICO r
15 FN 0: Q10 =+20 ;ALTEZZA DI SICUREZZA
16 FN 0: Q11 =+80 ;NUMERO DI TRAIETTORIE DI FRESATURA
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-20 Y-50 Z-51
23 BLK FORM 0.2  X+20  Y+50  Z+1
24 ;
25 ;Chiamata utensile fresa a sfera
26 TOOL CALL 157 Z S8000
27 TOOL CALL  DL-Q108 ;Compensazione lineare del raggio della sfera
28 ;
29 ;Calcoli
30 FN 1: Q6 =+Q5 + +Q108 ;Raggio compensato
31 FN 1: Q18 =+Q6 + +Q1 ;Posizione iniziale X
32 FN 1: Q19 =+Q2 + +Q3 ;Coordinata Y+ centro toro
33 FN 2: Q20 =+Q2 - +Q3 ;Coordinata Y- centro toro
34 FN 4: Q12 =+180 DIV +Q11 ;Passo angolare
35 FN 4: Q13 =+Q11 DIV +2 ;Numero di ripetizioni
36 FN 2: Q13 =+Q13 - +1 ;Numero di ripetizioni
37 ;Calcoli terminati
38 ;
39 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3 ;Preposizionamento
40 L  Z+Q4 FQ16 ;Penetrazione
41 ;
42 LBL 1
43 CC  Y+Q2  Z+Q4 ;CC per traiettoria di fresatura
44 CP IPA-180 DR- FQ14 ;Traiettoria di fresatura
45 CC  X+Q1  Y+Q19 ;CC per l'incremento laterale
46 CP IPA+Q12 DR+ FQ14 ;Incremento
47 CC  Y+Q2  Z+Q4 ;CC per traiettoria di fresatura
48 CP IPA+180 DR+ FQ14 ;Traiettoria di fresatura
49 CC  X+Q1  Y+Q20 ;CC per l'incremento laterale
50 CP IPA-Q12 DR- FQ14 ;Incremento
51 CALL LBL 1 REPQ13 ;Chiamata della ripetizione
52 L  Z+100 R0 FQ15 M30 ;Disimpegno e fine programma
53 END PGM 7035_IT MM