0 BEGIN PGM 2130_IT MM 
1 ;Programma per la creazione di una tasca con il profilo
2 ;di un profilo poligonale P3G a norma DIN 32711.
3 BLK FORM 0.1 Z X+0 Y+0 Z-25
4 BLK FORM 0.2  X+100  Y+100  Z+0
5 ;
6 ;Chiamata utensile fresa a candela D20
7 TOOL CALL 13 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 poligono P3G
Q30 = 75 ;DIAMETRO MASSIMO DEL LOBO (D1)
Q31 = 3.15 ;ECCENTRICITA' (E)
Q36 = 50 ;CENTRO DEL POLIGONO NELL'ASSE X
Q37 = 50 ;CENTRO DEL POLIGONO NELL'ASSE Y
Q38 = 0 ;ROTAZIONE
12 ;Fine immissione parametri
13 ;===========================================
Q35 = 0 ;PASSO ANGOLARE INIZIALE
14 CYCL DEF 7.0 PUNTO ZERO
15 CYCL DEF 7.1  X+Q36
16 CYCL DEF 7.2  Y+Q37
17 CYCL DEF 10.0 ROTAZIONE
18 CYCL DEF 10.1  ROT+Q38
19 CYCL DEF 14.0 PROFILO
20 CYCL DEF 14.1 LABEL PROFILO1
21 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
22 CYCL DEF 22 SVUOTAMENTO ~
   Q10=-Q51  ;PROF. INCREMENTO ~
    Q11=+Q53  ;AVANZ. INCREMENTO ~
    Q12=+Q54  ;AVANZ. PER SVUOT. ~
    Q18=+0    ;UTENSILE SGROSSATURA ~
    Q19=+0    ;AVANZAMENTO PENDOL. ~
    Q208=+99999 ;AVANZAM. RITORNO
23 L  X+0  Y+0 R0 FMAX M3 M99
24 CYCL DEF 10.0 ROTAZIONE
25 CYCL DEF 10.1  ROT+0
26 CYCL DEF 7.0 PUNTO ZERO
27 CYCL DEF 7.1  X+0
28 CYCL DEF 7.2  Y+0
29 ;
30 ;Fine programma
31 L  Z+50 R0 FMAX M30
32 ;
33 ;Sottoprogramma
34 ;Calcolo dei punti del profilo
35 LBL 1
Q40 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * COS Q35 - 3 * Q31 * SIN ( 3 * Q35 ) * SIN Q35
Q41 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * SIN Q35 + 3 * Q31 * SIN ( 3 * Q35 ) * COS Q35
36 L  X+Q40  Y+Q41 RL
Q35 = Q35 + 0.5
37 FN 10: IF +Q35 NE +360.5 GOTO LBL 1
38 LBL 0
39 END PGM 2130_IT MM