0  BEGIN PGM 7035_NL MM 
1  ;Programma voor de buitenbewerking van een object
2  ;in de vorm van een staande torus.
3  ;De bewerking wordt met een kogelfrees uitgevoerd,
4  ;door de freesbaan in het vlak Y/Z en de aanzet
5  ;zijdelings in het vlak X/Y te verplaatsen.
6  ;
7  ;Parameterinvoer
8  FN 0: Q1 =+0 ;MIDDELPUNT EERSTE AS
9  FN 0: Q2 =+0 ;MIDDELPUNT TWEEDE AS
10 FN 0: Q3 =+30 ;TORUSRADIUS R
11 FN 0: Q4 =-51 ;Z-COÖRDINAAT TORUSMIDDELPUNT
12 FN 0: Q5 =+20 ;TORUSRADIUS r
13 FN 0: Q10 =+20 ;VEILIGE HOOGTE
14 FN 0: Q11 =+80 ;AANTAL FREESBANEN
15 FN 0: Q14 =+600 ;AANZET FREZEN
16 FN 0: Q15 =+9999 ;AANZET VOORPOSITIONEREN
17 FN 0: Q16 =+300 ;AANZET INSTEKEN
18 ;Einde parameterinvoer
19 ;
20 BLK FORM 0.1 Z X-20 Y-50 Z-51
21 BLK FORM 0.2  X+20  Y+50  Z+1
22 ;
23 ;Gereedschapsoproep kogelfrees
24 TOOL CALL 157 Z S8000
25 TOOL CALL  DL-Q108 ;Lengtecorrectie met kogelradius
26 ;
27 ;Berekeningen
28 FN 1: Q6 =+Q5 + +Q108 ;Gecompenseerde radius
29 FN 1: Q18 =+Q6 + +Q1 ;Startpositie X
30 FN 1: Q19 =+Q2 + +Q3 ;Coördinaat Y+ torusmiddelpunt
31 FN 2: Q20 =+Q2 - +Q3 ;Coördinaat Y- torusmiddelpunt
32 FN 4: Q12 =+180 DIV +Q11 ;Hoekstap
33 FN 4: Q13 =+Q11 DIV +2 ;Aantal herhalingen
34 FN 2: Q13 =+Q13 - +1 ;Aantal herhalingen
35 ;Berekeningen voltooid
36 ;
37 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3 ;Voorpositioneren
38 L  Z+Q4 FQ16 ;Insteken
39 ;
40 LBL 1
41 CC  Y+Q2  Z+Q4 ;CC voor de freesbaan
42 CP IPA-180 DR- FQ14 ;Freesbaan
43 CC  X+Q1  Y+Q19 ;CC voor de zijdelingse verplaatsing
44 CP IPA+Q12 DR+ FQ14 ;Verplaatsing
45 CC  Y+Q2  Z+Q4 ;CC voor de freesbaan
46 CP IPA+180 DR+ FQ14 ;Freesbaan
47 CC  X+Q1  Y+Q20 ;CC voor de zijdelingse verplaatsing
48 CP IPA-Q12 DR- FQ14 ;Verplaatsing
49 CALL LBL 1 REPQ13 ;Oproep van de herhaling
50 L  Z+100 R0 FQ15 M30 ;Vrijzetten en programma-einde
51 END PGM 7035_NL MM