0 BEGIN PGM 2135_NL MM 
1 ;Programma voor het maken van een tap met
2 ;de contour van meen P3G-polygoonprofiel
3 ;volgens DIN 3271.
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 frees
8 TOOL CALL 51 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 P3G-polygoon
Q30 = 75 ;CONSTANTE DIAMETER (d1)
Q31 = 3.15 ;EXCENTERGROOTTE (e)
Q36 = 50 ;MIDDELPUNT VANAF POLYGOON OP DE X-AS
Q37 = 50 ;MIDDELPUNT VANAF POLYGOON OP DE Y-AS
Q38 = 0 ;ROTATIE
Q32 = 90 ;STARTHOEK
13 ;Einde parameterinvoer
14 ;===========================================
Q35 = 0 ;START VOOR HOEKSTAP
Q35 = Q32 ;STARTPOSITIE
Q40 = Q35 + 360.5 ;EINDPOSITIE
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 CYCL DEF 14.0 CONTOUR
21 CYCL DEF 14.1 CONTOURLABEL1
22 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
23 L  X+0  Y+0 R0 FMAX M3 M99
24 ;
25 ;Einde van programma
26 L  Z+100 R0 FMAX M30
27 ;
28 ;Subprogramma
29 ;Contourberekening
30 LBL 1
Q41 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * COS Q35 - 3 * Q31 * SIN ( 3 * Q35 ) * SIN Q35
Q42 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * SIN Q35 + 3 * Q31 * SIN ( 3 * Q35 ) * COS Q35
31 L  X+Q41  Y+Q42 RR
Q35 = Q35 + 0.5
32 FN 10: IF +Q35 NE +Q40 GOTO LBL 1
33 LBL 0
34 END PGM 2135_NL MM