0 BEGIN PGM 7115_nl MM 
1 ;Programma voor bewerking aan buitenzijde
2 ;van een halve bol met een torusfrees.
3 ;Gefreesd wordt in een X/Z-baan van onder
4 ;naar boven. Deze beweging wordt in
5 ;afzonderlijke lineaire banen opgedeeld.
6 ;Vervolgens wordt het coördinatensysteem
7 ;geroteerd en wordt de volgende baan
8 ;verplaatst. Door de gedefinieerde
9 ;verdelingen worden de nauwkeurigheid en
10 ;de kwaliteit van het oppervlak bepaald.
11 ;
12 ;Invoer parameters
13 FN 0: Q1 =+50 ;MIDDELPUNT VAN DE KOGEL OP DE X-AS
14 FN 0: Q2 =+50 ;MIDDELPUNT VAN DE KOGEL OP DE Y-AS
15 FN 0: Q3 =-45 ;MIDDELPUNT VAN DE KOGEL OP DE Z-AS
16 FN 0: Q4 =+45 ;KOGELRADIUS
17 FN 0: Q5 =+60 ;VERDELING IN HET VLAK X/Y
18 ;             ;DEFINIEERT IN HOEVEEL FREESBANEN 
19 ;             ;DE 360 GRADEN IN HET VLAK X/Y 
20 ;             ;WORDEN OPGEDEELD
21 FN 0: Q6 =+15 ;VERDELING IN HET VLAK X/Z
22 ;             ;DEFINIEERT IN HOEVEEL LINEAIRE 
23 ;             ;ELEMENTEN DE 3D-BEWEGING OP 
24 ;             ;DE X-, Y- EN Z-AS WORDT 
25 ;             ;VERDEELD
26 FN 0: Q7 =+20 ;ZIJDELINGSE VEILIGHEIDSAFSTAND
27 ;             ;AFSTAND TUSSEN OBJECT EN 
28 ;             ;GEREEDSCHAP BIJ HET VOORPOSITIONEREN
29 FN 0: Q8 =+3 ;VEILIGHEIDSAFSTAND IN Z
30 FN 0: Q9 =+2000 ;AANZET VOORPOSITIONEREN
31 FN 0: Q10 =+500 ;AANZET DIEPTEVERPLAATSING
32 FN 0: Q11 =+800 ;AANZET FREZEN
33 FN 0: Q12 =+5 ;Snijradius van gereedschap
34 ;Einde parameterinvoer
35 ;
36 BLK FORM 0.1 Z X+0 Y+0 Z-55
37 BLK FORM 0.2  X+100  Y+100  Z+0
38 ;
39 ;Gereedschapsoproep torusfrees
40 TOOL CALL 119 Z S8000 DL-Q12
41 ;
42 ;Berekeningen
Q21 = Q108 - Q12 ;Berekening snijkantradius
43 FN 1: Q19 =+Q4 + +Q12 ;Verrekening snijkantradius
44 FN 4: Q15 =+360 DIV +Q5 ;Hoekstap vlak X/Y
45 FN 2: Q25 =+Q5 - +1 ;Aantal herhalingen in het vlak X/Y
46 FN 4: Q16 =+90 DIV +Q6 ;Hoekstap vlak X/Z
47 FN 2: Q26 =+Q6 - +1 ;Aantal herhalingen vlak X/Z
48 FN 1: Q17 =+Q7 + +Q4 ;Positie voor het voorpositioneren
49 FN 1: Q18 =+Q4 + +Q8 ;Veilige positie in Z
50 FN 1: Q18 =+Q18 + +Q12 ;Veilige positie in Z
51 ;Einde berekeningen
52 ;
53 ;Nulpunt naar het midden van de kogel verschuiven
54 CYCL DEF 7.0 NULLPUNKT
55 CYCL DEF 7.1  X+Q1
56 CYCL DEF 7.2  Y+Q2
57 CYCL DEF 7.3  Z+Q3
58 ;
59 ;Voorpositioneren
60 L  X+Q17  Y+0 R0 FMAX M3
61 L  Z+Q18 R0 FMAX
62 ;
63 L  Y+0  Z+0 R0 FQ10 ;1. Insteken
64 LBL 2
65 CC  Z+0  X+Q21
66 L  Y+0 R0 FQ11
67 LP  PR+Q19  PA+90 R0 FQ11 ;Contour benaderen
68 LBL 3
69 LP IPA-Q16 R0 FQ11 ;Lineaire stap in X/Z-vlak
70 CALL LBL 3 REPQ26 ;Herhaling van lineaire stap
71 L  Z+Q18 R0 FQ9 ;Op veiligheidsafstand
72 L  X+Q17 R0 FQ9 ;Opnieuw voorpositioneren
73 L  Y+0  Z+0 R0 FQ10
74 ;Coördinatensyst. roteren
75 CYCL DEF 10.0 DREHUNG
76 CYCL DEF 10.1 IROT+Q15
77 CALL LBL 2 REPQ25 ;Herhaling van cirkelbaan
78 ;Coördinatenomrekening terugzetten
79 CYCL DEF 10.0 DREHUNG
80 CYCL DEF 10.1  ROT+0
81 CYCL DEF 7.0 NULLPUNKT
82 CYCL DEF 7.1  X+0
83 CYCL DEF 7.2  Y+0
84 CYCL DEF 7.3  Z+0
85 ;Vrijzetten en programma-einde
86 L  Z+100 R0 FMAX M30
87 END PGM 7115_nl MM