0  BEGIN PGM 3120_EN MM 
1  ;Program to mill a contour and then
2  ;round the upper edge with a certain radius.
3  ;In the example, a contour is programmed as an island.
4  ;After you have defined the necessary parameters,
5  ;the control clears out the contour.
6  ;Then is calculates the contour changes
7  ;for the respective depth.
8  ;The control then uses this as the lateral oversize
9  ;in the cycle for multipass milling in contour lines.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-20
12 BLK FORM 0.2  X+100  Y+100  Z+0
13 ;
14 ;Parameter entry
15 FN 0: Q31 =+15 ;DEPTH OF CONTOUR
16 FN 0: Q32 =+5 ;PLUNGING DEPTH FOR CONTOUR MILLING
17 FN 0: Q33 =+1200 ;FEED RATE OF CONTOUR MILLING
18 FN 0: Q34 =+300 ;FEED RATE FOR PECKING
19 FN 0: Q41 =+8 ;ROUNDING RADIUS
20 FN 0: Q42 =+0.1 ;PLUNGING DEPTH FOR MILLING A RADIUS
21 FN 0: Q48 =+3000 ;FEED RATE FOR MILLING A RADIUS
22 ;End of parameter input
23 ;
24 ;Tool call for end mill
25 TOOL CALL 13 Z S1000
26 ;
27 ;Moving to clearance height
28 L  Z+100 R0 FMAX M3
29 ;
30 ;Contour milling
31 CYCL DEF 14.0 CONTOUR
32 CYCL DEF 14.1 CONTOUR LABEL1 /2
33 CYCL DEF 20 CONTOUR DATA ~
    Q1=-Q31  ;MILLING DEPTH ~
    Q2=+1    ;TOOL PATH OVERLAP ~
    Q3=+0    ;ALLOWANCE FOR SIDE ~
    Q4=+0    ;ALLOWANCE FOR FLOOR ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q6=+0    ;SET-UP CLEARANCE ~
    Q7=+0    ;CLEARANCE HEIGHT ~
    Q8=+0    ;ROUNDING RADIUS ~
    Q9=+1    ;ROTATIONAL DIRECTION
34 CYCL DEF 22 ROUGH-OUT ~
    Q10=-Q32  ;PLUNGING DEPTH ~
    Q11=+100  ;FEED RATE FOR PLNGNG ~
    Q12=+Q33  ;FEED RATE F. ROUGHNG ~
    Q18=+0    ;COARSE ROUGHING TOOL ~
    Q19=+Q33  ;FEED RATE FOR RECIP.
35 CYCL CALL M13
36 ;
37 ;Multipass milling of radius
38 FN 0: Q44 =+Q42
39 LBL 3
40 ;Calculations of contour change at new depth
41 Q43 = Q41 * Q41
42 Q45 = Q41 - Q42
43 FN 3: Q45 =+Q45 * +Q45
44 Q43 = Q43 - Q45
45 Q43 = SQRT Q43
46 FN 2: Q50 =+Q41 - +Q43
47 ;End of calculations
48 ;Cycle definition
49 CYCL DEF 14.0 CONTOUR
50 CYCL DEF 14.1 CONTOUR LABEL1
51 CYCL DEF 25 CONTOUR TRAIN ~
    Q1=-Q42  ;MILLING DEPTH ~
    Q3=-Q50  ;ALLOWANCE FOR SIDE ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q7=+2    ;CLEARANCE HEIGHT ~
    Q10=-Q42  ;PLUNGING DEPTH ~
    Q11=+Q34  ;FEED RATE FOR PLNGNG ~
    Q12=+Q48  ;FEED RATE F. ROUGHNG ~
    Q15=+1    ;CLIMB OR UP-CUT
52 CYCL CALL M13
53 ;
54 FN 1: Q42 =+Q42 + +Q44 ;Update the depth
55 ;Comparison whether more paths are need
56 FN 12: IF +Q42 LT +Q41 GOTO LBL 3
57 FN 9: IF +Q42 EQU +Q41 GOTO LBL 3
58 ;
59 ;Retract and end program
60 L  Z+100 R0 FMAX M30
61 ;
62 ;Subprogram for contours
63 LBL 1 ; PGM contour
64 L  X+5  Y+30 RL
65 CC  X+15  Y+30
66 C  X+6.645  Y+35.495 DR-
67 CT  X+55.505  Y+69.488
68 CT  X+58.995  Y+30.025
69 CT  X+19.732  Y+21.191
70 CT  X+5  Y+30
71 LBL 0
72 ;
73 LBL 2 ;PGM frame
74 L  X-30  Y-20 RR
75 L  Y+120
76 L  X+120
77 L  Y-20
78 L  X-30
79 LBL 0
80 END PGM 3120_EN MM