0  BEGIN PGM 7070-DE MM 
1  ;Programm zur Aussenbearbeitung einer
2  ;Zylinderflaeche mit einem Torusfraeser.
3  ;Die Zylinderachse liegt parallel zur Y-Achse.
4  ;Die Bearbeitung erfolgt in einer Kreisbahn
5  ;um einen Mittelpunkt in der X- und Z-Achse,
6  ;und die Zustellung seitlich in der Y-Achse.
7  ;Der Zylinder wird auf beiden Seiten von unten
8  ;nach oben bearbeitet. Die Teilung gibt an,
9  ;in wie viele Bahnen jede Seite aufgeteilt
10 ;wird. Die Steuerung errechnet daraus, wie
11 ;gross die seitliche Zustellung sein muss.
12 ;Das Werkzeug wird am Anfang um
13 ;seinen Radius korregiert positioniert,und
14 ;fährt zum Schluss auch so weit über die
15 ;angegebene Position hinaus.
16 ;
17 BLK FORM 0.1 Z X-55 Y+0 Z-55
18 BLK FORM 0.2  X+55  Y+100  Z+0
19 ;
20 ;Eingabe Parameter
21 FN 0: Q1 =+0 ;ZYLINDERZENTRUM IN DER X-ACHSE
22 FN 0: Q2 =-50.1 ;ZYLINDERZENTRUM IN DER Z-Achse
23 FN 0: Q3 =+0 ;STARTPUNKT IN DER Y-ACHSE
24 ;            ;MINIMALE KOORDINATE
25 FN 0: Q4 =+100 ;ENDPUNKT IN DER Y-ACHSE
26 ;            ;MAXIMALE KOORDINATE
27 FN 0: Q5 =+50 ;TEILUNG
28 ;            ;ANZAHL DER FRAESBAHNEN JE SEITE
29 FN 0: Q6 =+50 ;ZYLINDERRADIUS
30 FN 0: Q7 =+10 ;SICHER HOEHE
31 FN 0: Q8 =+600 ;VORSCHUB FRAESEN
32 FN 0: Q9 =+300 ;VORSCHUB TIEFENZUSTELLUNG
33 FN 0: Q30 =+5 ;SCHNEIDENRADIUS
34 ;Parametereingabe Ende
35 ;
36 ;Werkzeugaufruf Torusfräser
37 TOOL CALL 115 Z S8000
38 TOOL CALL  Z DL-Q30
39 ;
40 ;
41 ;Berechnungen
42 FN 2: Q31 =+Q108 - +Q30 ;Verrechnung Schneidenradius
43 FN 1: Q26 =+Q6 + +Q30 ;Effektiver Radius bis Schneidenzentrum
44 FN 1: Q10 =+Q1 + +Q31 ;CC X 1.Seite
45 FN 2: Q11 =+Q1 - +Q31 ;CC X 2.Seite
46 FN 2: Q13 =+Q3 - +Q108 ;Startpunkt
47 FN 1: Q14 =+Q4 + +Q108 ;Endpunkt
48 FN 2: Q15 =+Q14 - +Q13 ;Strecke
49 FN 4: Q16 =+Q15 DIV +Q5 ;Schrittweite
50 FN 2: Q17 =+Q5 - +1 ;Anzahl der Wiederholungen
51 FN 1: Q18 =+Q6 + +Q108 ;Vorpositionierung
52 FN 1: Q19 =+Q1 + +Q18 ;Vorpositionierung 1.Seite
53 FN 2: Q20 =+Q1 - +Q18 ;Vorpositionierung 2.Seite
54 ;Berechnungen Ende
55 ;
56 L  Z+100 R0 FMAX ;Freifahren
57 ;
58 ;1.Seite
59 L  X+Q19  Y+Q13 R0 FMAX M3 ;Vorpositionieren 1.Seite
60 L  Z+Q7 R0 FMAX ;Fahren auf sichere Hoehe
61 CC  X+Q10  Z+Q2 ;Mitte der Kreisbahn
62 LBL 1
63 L  X+Q19 R0 FMAX
64 LP  PR+Q26  PA+90 FQ9 ;Eintauchen
65 L IY+Q16 R0 FQ8 ;Seitliche Zustellung
66 CP IPA-90 DR- FQ8 ;Kreisbahn
67 L  Z+Q7 R0 FMAX ;Fahren auf sichere Hoehe
68 CALL LBL 1 REPQ17 ;Wiederholung
69 ;
70 ;2. Seite
71 L  X+Q20  Y+Q14 R0 FMAX ;Vorpositionieren 2.Seite
72 CC  X+Q11  Z+Q2 ;Mitte der Kreisbahn
73 LBL 2
74 L  X+Q20 R0 FMAX
75 LP  PR+Q26  PA-90 FQ9 ;Eintauchen
76 L IY-Q16 R0 FQ8 ;Seitliche Zustellung
77 CP IPA+90 DR+ FQ8 ;Kreisbahn
78 L  Z+Q7 R0 FMAX ;Fahren auf sichere Hoehe
79 CALL LBL 2 REPQ17 ;Wiederholung
80 ;
81 ;Freifahren und Programmende
82 L  Z+100 R0 FMAX M30
83 END PGM 7070-DE MM