0 BEGIN PGM 2130_NL MM 
1 ;Programma voor het maken van een kamer
2 ;met de contour van een P3G-polygoonprofiel
3 ;volgens DIN 32711.
4 ;
5 BLK FORM 0.1 Z X+0 Y+0 Z-25
6 BLK FORM 0.2  X+100  Y+100  Z+0
7 ;
8 ;Gereedschapsoproep schachtfrees D20
9 TOOL CALL 13 Z S5000
10 ;
11 ;Snijgegevens
Q50 = 20 ;FREESDIEPTE
Q51 = 3 ;DIEPTE-INSTELLING
Q52 = 2 ;VEILIGHEIDSAFSTAND
Q53 = 150 ;AANZET DIEPTEVERPLAATSING
Q54 = 500 ;AANZET FREZEN
12 ;
13 ;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
14 ;Einde parameterinvoer
15 ;===========================================
Q35 = 0 ;START VOOR HOEKSTAP
16 CYCL DEF 7.0 NULPUNT
17 CYCL DEF 7.1  X+Q36
18 CYCL DEF 7.2  Y+Q37
19 CYCL DEF 10.0 ROTATIE
20 CYCL DEF 10.1  ROT+Q38
21 CYCL DEF 14.0 CONTOUR
22 CYCL DEF 14.1 CONTOURLABEL1
23 CYCL DEF 20 CONTOURDATA ~
   Q1=-Q50  ;FREESDIEPTE ~
    Q2=+1    ;BAANOVERLAPPING ~
    Q3=+0    ;OVERMAAT ZIJKANT ~
    Q4=+0    ;OVERMAAT DIEPTE ~
    Q5=+0    ;COORD. OPPERVLAK ~
    Q6=+Q52  ;VEILIGHEIDSAFSTAND ~
    Q7=+50   ;VEILIGE HOOGTE ~
    Q8=+0    ;AFRONDINGSRADIUS ~
    Q9=+1    ;ROTATIERICHTING
24 CYCL DEF 22 UITRUIMEN ~
   Q10=-Q51  ;DIEPTEVERPLAATSING ~
    Q11=+Q53  ;AANZET DIEPTEVERPL. ~
    Q12=+Q54  ;AANZET UITRUIMEN ~
    Q18=+0    ;VOORRUIMGEREEDSCHAP ~
    Q19=+0    ;AANZET PENDELEN ~
    Q208=+99999 ;AANZET TERUGTREKKEN
25 L  X+0  Y+0 R0 FMAX M3 M99
26 CYCL DEF 10.0 ROTATIE
27 CYCL DEF 10.1  ROT+0
28 CYCL DEF 7.0 NULPUNT
29 CYCL DEF 7.1  X+0
30 CYCL DEF 7.2  Y+0
31 ;
32 ;Einde van programma
33 L  Z+50 R0 FMAX M30
34 ;
35 ;Subprogramma
36 ;Berekening van de contourpunten
37 LBL 1
Q40 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * COS Q35 - 3 * Q31 * SIN ( 3 * Q35 ) * SIN Q35
Q41 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * SIN Q35 + 3 * Q31 * SIN ( 3 * Q35 ) * COS Q35
38 L  X+Q40  Y+Q41 RL
Q35 = Q35 + 0.5
39 FN 10: IF +Q35 NE +360.5 GOTO LBL 1
40 LBL 0
41 END PGM 2130_NL MM