0  BEGIN PGM 2125_EN MM 
1  ;Program for milling a pocket with the contour
2  ;of an ellipse
3  BLK FORM 0.1 Z X+0 Y+0 Z-20
4  BLK FORM 0.2  X+100  Y+100  Z+0
5  ;
6  ;Tool call milling tool diameter 10mm
7  TOOL CALL 5 Z S5000
8  ;
9  ;Cutting data
10 Q50 = 20 ;MILLING DEPTH
11 Q51 = 3 ;PLUNGING DEPTH
12 Q52 = 2 ;SET UP CLEARANCE
13 Q53 = 150 ;FEED RATE PLUNGING
14 Q54 = 500 ;FEED RATE MILLING
15 ;
16 ;Parameter for the ellipse
17 Q31 = 50 ;LARGE RADIUS
18 Q32 = 25 ;SMALL RADIUS
19 Q33 = 1 ;ANGLE STEP
20 Q38 = 50 ;ELLIPSES CENTER X-AXIS
21 Q39 = 50 ;ELLIPSES CENTER Y-AXIS
22 Q40 = 45 ;ROTATION
23 ;***Reset parameter
24 Q41 = 0 ;RESET ANGLE VALUE
25 ;********************************
26 TOOL CALL 5 Z S4000 F400
27 CYCL DEF 7.0 DATUM SHIFT
28 CYCL DEF 7.1  X+Q38
29 CYCL DEF 7.2  Y+Q39
30 CYCL DEF 10.0 ROTATION
31 CYCL DEF 10.1  ROT+Q40
32 CYCL DEF 14.0 CONTOUR
33 CYCL DEF 14.1 CONTOUR LABEL1
34 CYCL DEF 20 CONTOUR DATA ~
    Q1=-Q50  ;MILLING DEPTH ~
    Q2=+1    ;TOOL PATH OVERLAP ~
    Q3=+0    ;ALLOWANCE FOR SIDE ~
    Q4=+0    ;ALLOWANCE FOR FLOOR ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q6=+Q52  ;SET-UP CLEARANCE ~
    Q7=+50   ;CLEARANCE HEIGHT ~
    Q8=+0    ;ROUNDING RADIUS ~
    Q9=+1    ;ROTATIONAL DIRECTION
35 CYCL DEF 22 ROUGH-OUT ~
    Q10=-Q51  ;PLUNGING DEPTH ~
    Q11=+Q53  ;FEED RATE FOR PLNGNG ~
    Q12=+Q54  ;FEED RATE F. ROUGHNG ~
    Q18=+0    ;COARSE ROUGHING TOOL ~
    Q19=+Q53  ;FEED RATE FOR RECIP. ~
    Q208=+99999 ;RETRACTION FEED RATE
36 M3 M99
37 CYCL DEF 7.0 DATUM SHIFT
38 CYCL DEF 7.1  X+0
39 CYCL DEF 7.2  Y+0
40 CYCL DEF 10.0 ROTATION
41 CYCL DEF 10.1  ROT+0
42 ;
43 ;End of program
44 L  Z+50 R0 FMAX M30
45 ;
46 ;Sub program
47 ;Contur description
48 LBL 1
49 Q42 = COS Q41 * Q31 ;CALCULATION NEW X VALUE
50 Q43 = SIN Q41 * Q32 ;CALCULATION NEW Y VALUE
51 L  X+Q42  Y+Q43 RL
52 Q41 = Q41 + Q33 ;CALCULATION NEW ANGLE VALUE
53 FN 12: IF +Q41 LT +360 GOTO LBL 1
54 LBL 0
55 END PGM 2125_EN MM