0  BEGIN PGM 3120_DE MM 
1  ;Programm, um eine Kontur zu fraesen und
2  ;anschliessend an der oberen Kante mit einem
3  ;Radius zu verrunden.
4  ;Im Beispiel ist eine Kontur als Insel
5  ;programmiert. Nachdem Sie die notwendigen
6  ;Parameter definiert haben, raeumt die
7  ;Steuerung die Kontur aus. Danach
8  ;berechnet sie die Konturaenderungen
9  ;entsprechend der jeweiligen Tiefe. Diese
10 ;verwendet die Steuerung dann als seitliches
11 ;Aufmass im Zyklus, um den Radius in
12 ;Hoehenlinien abzuzeilen.
13 ;
14 BLK FORM 0.1 Z X+0 Y+0 Z-20
15 BLK FORM 0.2  X+100  Y+100  Z+0
16 ;
17 ;Parametereingabe
18 FN 0: Q31 =+15 ;TIEFE KONTUR
19 FN 0: Q32 =+5 ;ZUSTELLTIEFE KONTURFRAESEN
20 FN 0: Q33 =+1200 ;VORSCHUB KONTURFRAESEN
21 FN 0: Q34 =+300 ;VORSCHUB TIEFENZUSTELLUNG
22 FN 0: Q41 =+8 ;RUNDUNGSRADIUS
23 FN 0: Q42 =+0.1 ;ZUSTELLTIEFE ABZEILEN RADIUS
24 FN 0: Q48 =+3000 ;VORSCHUB FRAESEN RADIUS
25 ;Parametereingabe Ende
26 ;
27 ;Werkzeugaufruf Schaftfraeser
28 TOOL CALL 13 Z S1000
29 ;
30 ;Fahren auf Sichere Hoehe
31 L  Z+100 R0 FMAX M3
32 ;
33 ;Kontur Fraeser
34 CYCL DEF 14.0 KONTUR
35 CYCL DEF 14.1 KONTURLABEL1 /2
36 CYCL DEF 20 KONTUR-DATEN ~
    Q1=-Q31  ;FRAESTIEFE ~
    Q2=+1    ;BAHN-UEBERLAPPUNG ~
    Q3=+0    ;AUFMASS SEITE ~
    Q4=+0    ;AUFMASS TIEFE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q6=+0    ;SICHERHEITS-ABST. ~
    Q7=+0    ;SICHERE HOEHE ~
    Q8=+0    ;RUNDUNGSRADIUS ~
    Q9=+1    ;DREHSINN
37 CYCL DEF 22 AUSRAEUMEN ~
    Q10=-Q32  ;ZUSTELL-TIEFE ~
    Q11=+Q34  ;VORSCHUB TIEFENZ. ~
    Q12=+Q33  ;VORSCHUB RAEUMEN ~
    Q18=+0    ;VORRAEUM-WERKZEUG ~
    Q19=+Q33  ;VORSCHUB PENDELN
38 CYCL CALL M13
39 ;
40 ;Abzeilen Radius
41 FN 0: Q44 =+Q42
42 LBL 3
43 ;Berechnungen der Konturaenderung bei neuer Tiefe
44 Q43 = Q41 * Q41
45 Q45 = Q41 - Q42
46 FN 3: Q45 =+Q45 * +Q45
47 Q43 = Q43 - Q45
48 Q43 = SQRT Q43
49 FN 2: Q50 =+Q41 - +Q43
50 ;Berechnungen Ende
51 ;Definition Zyklus
52 CYCL DEF 14.0 KONTUR
53 CYCL DEF 14.1 KONTURLABEL1
54 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-Q42  ;FRAESTIEFE ~
    Q3=-Q50  ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+2    ;SICHERE HOEHE ~
    Q10=-Q42  ;ZUSTELL-TIEFE ~
    Q11=+Q34  ;VORSCHUB TIEFENZ. ~
    Q12=+Q48  ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART
55 CYCL CALL M13
56 ;
57 FN 1: Q42 =+Q42 + +Q44 ;Tiefe aktualisieren
58 ;Vergleich ob weitere Bahnen noetig sind
59 FN 12: IF +Q42 LT +Q41 GOTO LBL 3
60 FN 9: IF +Q42 EQU +Q41 GOTO LBL 3
61 ;
62 ;Freifahren und Programmende
63 L  Z+100 R0 FMAX M30
64 ;
65 ;Unterprogramme Konturen
66 LBL 1 ; PGM KONTUR
67 L  X+5  Y+30 RL
68 CC  X+15  Y+30
69 C  X+6.645  Y+35.495 DR-
70 CT  X+55.505  Y+69.488
71 CT  X+58.995  Y+30.025
72 CT  X+19.732  Y+21.191
73 CT  X+5  Y+30
74 LBL 0
75 ;
76 LBL 2 ;PGM Rahmen
77 L  X-30  Y-20 RR
78 L  Y+120
79 L  X+120
80 L  Y-20
81 L  X-30
82 LBL 0
83 END PGM 3120_DE MM