0 BEGIN PGM 7100_nl MM 
1 ;Programma voor bewerking aan buitenzijde
2 ;van een halve bol met een kogelfrees. De
3 ;bewerking wordt uitgevoerd in hoogtelijnen,
4 ;zodat de freesbaan in het vlak X/Y en de
5 ;aanzet in het vlak X/Z wordt verplaatst.
6 ;
7 BLK FORM 0.1 Z X-50 Y-50 Z-55
8 BLK FORM 0.2  X+50  Y+50  Z+0
9 ;
10 ;Invoer parameters
11 FN 0: Q1 =+0 ;MIDDELPUNT VAN DE KOGEL OP DE X-AS
12 FN 0: Q2 =+0 ;MIDDELPUNT VAN DE KOGEL OP DE Y-AS
13 FN 0: Q3 =-50 ;MIDDELPUNT VAN DE KOGEL OP DE Z-AS
14 FN 0: Q4 =+50 ;KOGELRADIUS
15 FN 0: Q5 =+45 ;AANTAL HOOGTELIJNEN
16 FN 0: Q6 =+3 ;VEILIGHEIDSAFSTAND
17 FN 0: Q7 =+500 ;AANZET DIEPTEVERPLAATSING
18 FN 0: Q8 =+800 ;AANZET FREZEN
19 FN 0: Q9 =+5 ;KOGELRADIUS GEREEDSCHAP
20 ;Einde parameterinvoer
21 ;
22 ;Gereedschapsoproep kogelfrees
23 TOOL CALL 157 Z S8000 DL-Q9
24 ;
25 ;
26 ;Berekeningen
27 FN 1: Q10 =+Q4 + +Q9 ;Effectieve radius in het gereedschapsmiddelpunt
28 FN 1: Q11 =+Q10 + +Q6 ;Radius voor het voorpositioneren
29 FN 4: Q12 =+90 DIV +Q5 ;Hoekstap
30 FN 2: Q13 =+Q5 - +1 ;Aantal herhalingen
31 ;Einde berekeningen
32 ;
33 ;Voorpositioneren
34 L  Z+200 R0 FMAX
35 L  X+Q1  Y+Q2 R0 F9999 M3
36 CC  X+Q1  Z+Q3
37 LP  PR+Q11  PA+0 R0 FMAX
38 LP  PR+Q10 R0 FQ7
39 LBL 1 ;Herhalingen
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 ;Einde programma
47 L  Z+100 R0 FMAX M30
48 END PGM 7100_nl MM