0 BEGIN PGM 3045_IT MM 
1 ;Programma per la lavorazione di un tronco di
2 ;cono orizzontale dall'interno. L'asse di
3 ;rotazione è parallelo all'asse X. La
4 ;lavorazione viene eseguita con una fresa a
5 ;sfera in linee isometriche, il cui numero si
6 ;definisce con il parametro Divisione (Q8).
7 ;
8 ;Immissione parametri
9 FN 0: Q13 =+35 ;CENTRO CONO IN Y
10 FN 0: Q14 =+0 ;CENTRO CONO IN Z
11 FN 0: Q1 =+0 ;COORDINATA X MINIMA
12 FN 0: Q5 =+100 ;COORDINATA X MASSIMA
13 FN 0: Q6 =+30 ;RAGGIO IN X MIN
14 FN 0: Q7 =+20 ;RAGGIO IN X MAX
15 FN 0: Q8 =+90 ;DIVISIONE
16 FN 0: Q10 =+30 ;DISTANZA DI SICUREZZA
17 FN 0: Q11 =+300 ;AVANZAMENTO IN PROFONDITA'
18 FN 0: Q12 =+1000 ;AVANZAMENTO FRESATURA
19 ;Fine immissione parametri
20 ;
21 BLK FORM 0.1 Z X+0 Y+0 Z-35
22 BLK FORM 0.2  X+100  Y+70  Z+0
23 ;
24 ;Chiamata utensile fresa a sfera
25 TOOL CALL 157 Z S4000
26 TOOL CALL  Z DL-Q108 ;Compensazione lineare al centro della sfera
27 ;
28 L  X-20  Y+0  Z+28 R0 F5555 ;Preposizionamento
29 ;
30 CALL LBL 1 ;Chiamata lavorazione
31 ;
32 ;Reset conversione delle coordinate
33 CYCL DEF 7.0 PUNTO ZERO
34 CYCL DEF 7.1  X+0
35 CYCL DEF 7.2  Y+0
36 CYCL DEF 7.3  Z+0
37 ;
38 ;Disimpegno e fine programma
39 L  Z+100 R0 FMAX M2
40 ;
41 LBL 1 ;Lavorazione
42 ;Calcoli
43 FN 2: Q16 =+Q6 - +Q108 ;Raggio fino al centro utensile con X-min
44 FN 2: Q17 =+Q7 - +Q108 ;Raggio fino al centro utensile con X-max
45 FN 0: Q27 =+180 ;Angolo di partenza
Q37 = 180 / Q8 ;Passo angolare
46 FN 0: Q28 =+0 ;Contatore
47 ;
48 ;Spostamento origine al centro del cono
49 CYCL DEF 7.0 PUNTO ZERO
50 CYCL DEF 7.1  Y+Q13
51 CYCL DEF 7.2  Z+Q14
52 ;
53 CALL LBL 10
54 L  X+Q1  Y+Q22 R0 F5555 ;Raggiungimento del punto iniziale
55 L  Z+Q23 FQ11 ;Posizionamento a profondità
56 L  X+Q5  Y+Q42  Z+Q43 ;Raggiungimento del punto finale
57 L IZ+Q10 ;Posizionamento alla distanza di sicurezza
58 ;
59 LBL 2
Q27 = Q27 + Q37 ;Ulteriore calcolo dell'angolo
Q28 = Q28 + 1 ;Ulteriore calcolo del contatore
60 FN 11: IF +Q28 GT +Q8 GOTO LBL 99
61 CALL LBL 10
62 L  X+Q1  Y+Q22 R0 F5555 ;Raggiungimento del punto iniziale
63 L  Z+Q23 FQ11 ;Posizionamento a profondità
64 L  X+Q5  Y+Q42  Z+Q43 ;Raggiungimento del punto finale
65 L IZ+Q10 ;Posizionamento alla distanza di sicurezza
66 FN 9: IF +0 EQU +0 GOTO LBL 2 ;Ripetizione
67 ;
68 LBL 10 ;Calcolo delle coordinate
Q22 = Q16 * COS Q27 ;Coordinata Y X-min
Q42 = Q17 * COS Q27 ;Coordinata Y X-max
Q23 = Q16 * SIN Q27 ;Coordinata Z X-min
Q43 = Q17 * SIN Q27 ;Coordinata Z X-max
69 LBL 0
70 LBL 99 ;Fine lavorazione
71 LBL 0
72 END PGM 3045_IT MM