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