0  BEGIN PGM 7025_DE MM 
1  ;Programm zur Aussenbearbeitung eines Koerpers
2  ;in Form von einem liegendem Torus.
3  ;Die Bearbeitung wird mit einem Kugelfraeser
4  ;in Hoehenlinien ausgefuehrt, so dass die
5  ;Fraesbahn in der Ebene X/Y und die
6  ;Zustellung in der Ebene X/Z gefahren wird.
7  ;
8  ;Parametereingabe
9  FN 0: Q1 =+50 ;MITTE ERSTE ACHSE
10 FN 0: Q2 =+50 ;MITTE ZWEITE ACHSE
11 FN 0: Q3 =+25 ;TORUSRADIUS R
12 FN 0: Q4 =+0 ;Z-KOORDINATE TORUSMITTE
13 FN 0: Q5 =+20 ;TORUSRADIUS r
14 FN 0: Q10 =+20 ;SICHERE HOEHE
15 FN 0: Q11 =+90 ;ANZAHL DER HOEHENLINIEN
16 FN 0: Q14 =+600 ;VORSCHUB FRAESEN
17 FN 0: Q15 =+9999 ;VORSCHUB VORPOSITIONIEREN
18 FN 0: Q16 =+300 ;VORSCHUB EINTAUCHEN
19 ;Parametereingabe Ende
20 ;
21 BLK FORM 0.1 Z X+0 Y+0 Z-5
22 BLK FORM 0.2  X+100  Y+100  Z+21
23 ;
24 ;Werkzeugaufruf Kugelfraeser
25 TOOL CALL 155 Z S8000
26 TOOL CALL  DL-Q108 ;Laengenkorrektur um Kugelradius
27 ;
28 ;Berechnungen
29 FN 1: Q6 =+Q5 + +Q108 ;KOMPENSIERTER RADIUS
30 FN 1: Q7 =+Q1 + +Q3 ;Koordinate X Toruszentrum
31 FN 4: Q12 =+180 DIV +Q11 ;Winkelschritt
32 FN 2: Q13 =+Q11 - +1 ;Anzahl der Wiederholungen
33 ;Berechnungen abgeschlossen
34 ;
35 L  X+Q1  Y+Q2 R0 FQ15 M3 ;Auf Mitte vorpositionieren
36 L  Z+Q10 FQ15 ;Fahren auf sichere Hoehe
37 CC  Z+Q4  X+Q7 ;Mittelpunkt Ebene X/Z festlegen
38 LP  PR+Q6  PA-90 R0 FQ16 ;Ersten Radius und Tiefe anfahren
39 CC  X+Q1  Y+Q2 ;Mittelpunkt Ebene X/Y festlegen
40 CP IPA-360 DR- FQ14 ;Kreisbahn fahren
41 LBL 1 ;Wiederholung
42 CC  Z+Q4  X+Q7 ;Mittelunkt Ebene X/Z festlegen
43 CP IPA+Q12 DR+ FQ14 ;Winkelschritt fahren
44 CC  X+Q1  Y+Q2 ;Mittelpunkt Ebene X/Y festlegen
45 CP IPA-360 DR- FQ14 ;Kreisbahn fahren
46 CALL LBL 1 REPQ13 ;Wiederholung aufrufen
47 L  Z+100 R0 FQ15 M2 ;Freifahren und Programmende
48 END PGM 7025_DE MM