0  BEGIN PGM 2135_DE MM 
1  ;Programm zur Erstellung eines Zapfens mit der Kontur eines
2  ;P3G Polygonprofils nach DIN 32711
3  BLK FORM 0.1 Z X+0 Y+0 Z-25
4  BLK FORM 0.2  X+100  Y+100  Z+0
5  ;
6  ;Werkzeugaufruf Fraeser
7  TOOL CALL 51 Z S5000
8  ;
9  ;Schnittdaten
10 Q50 = 20 ;FRAESTIEFE
11 Q51 = 3 ;ZUSTELLTIEFE
12 Q52 = 2 ;SICHERHEITABSTAND
13 Q53 = 150 ;VORSCHUB TIEFENZUSTELLUNG
14 Q54 = 500 ;VORSCHUB FRAESEN
15 ;
16 ;Parameter fuer P3G Polygon
17 Q30 = 75 ;GLEICHDICKDURCHMESSER (d1)
18 Q31 = 3.15 ;EXZENTERGROESSE (e)
19 Q36 = 50 ;ZENTRUM VOM POLYGON IN X-ACHSE
20 Q37 = 50 ;ZENTRUM VOM POLYGON IN Y-ACHSE
21 Q38 = 0 ;ROTATION
22 Q32 = 90 ;STARTWINKEL
23 ;Parametereingabe Ende
24 ;===========================================
25 Q35 = 0 ;START FUER WINKELSCHRITT
26 Q35 = Q32 ;STARTPOSITION
27 Q40 = Q35 + 360.5 ;END POSITION
28 CYCL DEF 7.0 NULLPUNKT
29 CYCL DEF 7.1  X+Q36
30 CYCL DEF 7.2  Y+Q37
31 CYCL DEF 10.0 DREHUNG
32 CYCL DEF 10.1  ROT+Q38
33 CYCL DEF 14.0 KONTUR
34 CYCL DEF 14.1 KONTURLABEL1
35 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-Q50  ;FRAESTIEFE ~
    Q3=+0    ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+Q52  ;SICHERE HOEHE ~
    Q10=-Q51  ;ZUSTELL-TIEFE ~
    Q11=+Q53  ;VORSCHUB TIEFENZ. ~
    Q12=+Q54  ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART
36 L  X+0  Y+0 R0 FMAX M3 M99
37 ;
38 ;Programmende
39 L  Z+100 R0 FMAX M30
40 ;
41 ;Unterprogramm
42 ;Konturberechnung
43 LBL 1
44 Q41 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * COS Q35 - 3 * Q31 * SIN ( 3 * Q35 ) * SIN Q35
45 Q42 = ( ( Q30 / 2 ) - Q31 * COS ( 3 * Q35 ) ) * SIN Q35 + 3 * Q31 * SIN ( 3 * Q35 ) * COS Q35
46 L  X+Q41  Y+Q42 RR
47 Q35 = Q35 + 0.5
48 FN 10: IF +Q35 NE +Q40 GOTO LBL 1
49 LBL 0
50 END PGM 2135_DE MM