0 BEGIN PGM 2140_NL MM 
1 ;Programma voor het maken van een tap met
2 ;de contour van een P4C-polygoonprofiel
3 ;volgens DIN 32712.
4 BLK FORM 0.1 Z X+0 Y+0 Z-25
5 BLK FORM 0.2  X+100  Y+100  Z+0
6 ;
7 ;Gereedschapsoproep schachtfrees D20
8 TOOL CALL 13 Z S5000
9 ;
10 ;Snijgegevens
Q50 = 20 ;FREESDIEPTE
Q51 = 3 ;DIEPTE-INSTELLING
Q52 = 2 ;VEILIGHEIDSAFSTAND
Q53 = 150 ;AANZET DIEPTEVERPLAATSING
Q54 = 500 ;AANZET FREZEN
11 ;
12 ;Parameters voor P4C-polygoon
Q28 = 141 ;DIAMETER ONBEWERKT WERKSTUK
Q29 = 75 ;DIAMETER BUITENCIRKEL (d1)
Q30 = 65 ;DIAMETER BINNENCIRKEL (d2)
Q31 = 6 ;EXCENTERGROOTTE (e)
Q36 = 50 ;MIDDELPUNT VANAF POLYGOON OP DE X-AS
Q37 = 50 ;MIDDELPUNT VANAF POLYGOON OP DE Y-AS
Q38 = 0 ;ROTATIE
13 ;
14 ;===========================================
15 CYCL DEF 7.0 NULPUNT
16 CYCL DEF 7.1  X+Q36
17 CYCL DEF 7.2  Y+Q37
18 CYCL DEF 10.0 ROTATIE
19 CYCL DEF 10.1  ROT+Q38
20 ;
21 ;voor-afwerking van de as
22 CYCL DEF 257 RONDE TAP ~
   Q223=+Q29  ;DIAMETER EINDPRODUCT ~
    Q222=+Q28  ;DIAMETER RUWDEEL ~
    Q368=+0    ;OVERMAAT ZIJKANT ~
    Q207=+Q54  ;AANZET FREZEN ~
    Q351=+1    ;FREESWIJZE ~
    Q201=-Q50  ;DIEPTE ~
    Q202=+Q51  ;DIEPTEVERPLAATSING ~
    Q206=+Q53  ;AANZET DIEPTEVERPL. ~
    Q200=+Q52  ;VEILIGHEIDSAFSTAND ~
    Q203=+0    ;COORD. OPPERVLAK ~
    Q204=+50   ;2E VEILIGHEIDSAFST. ~
    Q370=+1    ;BAANOVERLAPPING ~
    Q376=-1    ;STARTHOEK
23 L  X+0  Y+0 R0 FMAX M3 M99
24 ;
25 ;frezen van het P4C-profiel
26 CYCL DEF 14.0 CONTOUR
27 CYCL DEF 14.1 CONTOURLABEL1
28 CYCL DEF 25 CONTOURREEKS ~
   Q1=-Q50  ;FREESDIEPTE ~
    Q3=+0    ;OVERMAAT ZIJKANT ~
    Q5=+0    ;COORD. OPPERVLAK ~
    Q7=+Q52  ;VEILIGE HOOGTE ~
    Q10=-Q51  ;DIEPTEVERPLAATSING ~
    Q11=+Q53  ;AANZET DIEPTEVERPL. ~
    Q12=+Q54  ;AANZET UITRUIMEN ~
    Q15=+1    ;FREESWIJZE
29 L M99
30 CYCL DEF 10.0 ROTATIE
31 CYCL DEF 10.1 IROT-90
32 L M99
33 CYCL DEF 10.0 ROTATIE
34 CYCL DEF 10.1 IROT-90
35 L M99
36 CYCL DEF 10.0 ROTATIE
37 CYCL DEF 10.1 IROT-90
38 L M99
39 ;
40 CYCL DEF 10.0 ROTATIE
41 CYCL DEF 10.1  ROT+0
42 CYCL DEF 7.0 NULPUNT
43 CYCL DEF 7.1  X+0
44 CYCL DEF 7.2  Y+0
45 ;
46 ;Einde programma
47 L  Z+100 R0 FMAX M30
48 ;
49 ;Subprogramma
50 ;Contourberekening
51 LBL 1
Q35 = - 26.5
52 LBL 2
Q41 = ( ( Q30 / 2 + Q31 ) - Q31 * COS ( 4 * Q35 ) ) * COS Q35 - 4 * Q31 * SIN ( 4 * Q35 ) * SIN Q35
Q42 = ( ( Q30 / 2 + Q31 ) - Q31 * COS ( 4 * Q35 ) ) * SIN Q35 + 4 * Q31 * SIN ( 4 * Q35 ) * COS Q35
53 L  X+Q41  Y+Q42 RR
Q35 = Q35 + 0.5
54 FN 10: IF +Q35 NE +27 GOTO LBL 2
55 LBL 0
56 END PGM 2140_NL MM