0  BEGIN PGM 7105-DE MM 
1  ;Programm zur Innenbearbeitung einer
2  ;Halbkugel mit einem Kugelfraeser. Die
3  ;Bearbeitung erfolgt in Hoehenlinien,
4  ;so dass die Fraesbahn in der
5  ;Ebene X/Y und die Zustellung
6  ;in der Ebene X/Z gefahren wird.
7  ;
8  BLK FORM 0.1 Z X-50 Y-50 Z-55
9  BLK FORM 0.2  X+50  Y+50  Z+0
10 ;
11 ;Eingabe Parameter
12 FN 0: Q1 =+0 ;KUGELZENTRUM IN DER X-ACHSE
13 FN 0: Q2 =+0 ;KUGELZENTRUM IN DER Y-ACHSE
14 FN 0: Q3 =+0 ;KUGELZENTRUM IN DER Z-ACHSE
15 FN 0: Q4 =+45 ;KUGELRADIUS
16 FN 0: Q5 =+45 ;ANZAHL DER HOEHENLINIEN
17 FN 0: Q6 =+10 ;SICHERHEITSABSTAND
18 FN 0: Q7 =+500 ;VORSCHUB TIEFENZUSTELLUNG
19 FN 0: Q8 =+800 ;VORSCHUB FRAESEN
20 FN 0: Q9 =+5 ;KUGELRADIUS WERKZEUG
21 ;Parametereingabe Ende
22 ;
23 ;Werkzeugaufruf Kugelfraeser
24 TOOL CALL 157 Z S8000 DL-Q9
25 ;
26 ;
27 ;Berechnungen
28 FN 2: Q10 =+Q4 - +Q9 ;Effektiver Radius zum Werkzeugzentrum
29 FN 4: Q12 =+90 DIV +Q5 ;Winkelschritt
30 FN 2: Q13 =+Q5 - +2 ;Anzahl der Wiederholungen
31 ;Berechnungen Ende
32 ;
33 ;Vorpositionieren
34 L  Z+200 R0 FMAX
35 L  X+Q1  Y+Q2 R0 F9999 M3
36 L  Z+Q6 R0 FMAX
37 CC  X+Q1  Z+Q3
38 LP  PR+Q10  PA+90 R0 FQ7
39 LBL 1 ;Wiederholungen
40 CC  Z+Q3  X+Q1
41 CP IPA+Q12 DR+ FQ7
42 CC  X+Q1  Y+Q2
43 CP IPA+360 DR+ FQ8
44 CALL LBL 1 REPQ13
45 ;
46 ;Programmende
47 L  Z+100 R0 FMAX M30
48 END PGM 7105-DE MM