0 BEGIN PGM 2125_IT MM 
1 ;Programma per la creazione di una tasca con il 
2 ;profilo di un'ellisse.
3 BLK FORM 0.1 Z X+0 Y+0 Z-20
4 BLK FORM 0.2  X+100  Y+100  Z+0
5 ;
6 ;Chiamata utensile fresa a candela D10
7 TOOL CALL 5 Z S5000
8 ;
9 ;Dati di taglio
Q50 = 20 ;PROFONDITA' DI FRESATURA
Q51 = 3 ;PROFONDITA' DI PENETRAZIONE
Q52 = 2 ;DISTANZA DI SICUREZZA
Q53 = 150 ;AVANZAMENTO IN PROFONDITA'
Q54 = 500 ;AVANZAMENTO FRESATURA
10 ;
11 ;Parametri per ellisse
Q31 = 50 ;RAGGIO GRANDE
Q32 = 25 ;RAGGIO PICCOLO
Q33 = 1 ;PASSO ANGOLARE
Q38 = 50 ;CENTRO ELLISSE X
Q39 = 50 ;CENTRO ELLISSE Y
Q40 = 45 ;ROTAZIONE
12 ;***Reset parametro
Q41 = 0 ;RESET VALORE ANGOLARE
13 ;
14 ;===========================================
15 CYCL DEF 7.0 PUNTO ZERO
16 CYCL DEF 7.1  X+Q38
17 CYCL DEF 7.2  Y+Q39
18 CYCL DEF 10.0 ROTAZIONE
19 CYCL DEF 10.1  ROT+Q40
20 CYCL DEF 14.0 PROFILO
21 CYCL DEF 14.1 LABEL PROFILO1
22 CYCL DEF 20 DATI DEL PROFILO ~
   Q1=-Q50  ;PROFONDITA'FRESATURA ~
    Q2=+1    ;SOVRAPP.TRAIET.UT. ~
    Q3=+0    ;QUOTA LATERALE CONS. ~
    Q4=+0    ;PROFONDITA' CONSEN. ~
    Q5=+0    ;COORD. SUPERFICIE ~
    Q6=+Q52  ;DISTANZA SICUREZZA ~
    Q7=+50   ;ALTEZZA DI SICUREZZA ~
    Q8=+0    ;RAGGIO DELLO SMUSSO ~
    Q9=+1    ;SENSO DI ROTAZIONE
23 CYCL DEF 22 SVUOTAMENTO ~
   Q10=-Q51  ;PROF. INCREMENTO ~
    Q11=+Q53  ;AVANZ. INCREMENTO ~
    Q12=+Q54  ;AVANZ. PER SVUOT. ~
    Q18=+0    ;UTENSILE SGROSSATURA ~
    Q19=+Q53  ;AVANZAMENTO PENDOL. ~
    Q208=+99999 ;AVANZAM. RITORNO
24 M3 M99
25 CYCL DEF 7.0 PUNTO ZERO
26 CYCL DEF 7.1  X+0
27 CYCL DEF 7.2  Y+0
28 CYCL DEF 10.0 ROTAZIONE
29 CYCL DEF 10.1  ROT+0
30 ;
31 ;Fine programma
32 L  Z+50 R0 FMAX M30
33 ;
34 ;Sottoprogramma
35 ;***Descrizione profilo
36 LBL 1
Q42 = COS Q41 * Q31 ;CALCOLO NUOVO VALORE X
Q43 = SIN Q41 * Q32 ;CALCOLO NUOVO VALORE Y
37 L  X+Q42  Y+Q43 RL
Q41 = Q41 + Q33 ;CALCOLO NUOVO VALORE ANGOLARE
38 FN 12: IF +Q41 LT +360 GOTO LBL 1
39 LBL 0
40 END PGM 2125_IT MM