0  BEGIN PGM 70951-EN MM 
1  ;Calculations
2  CALL LBL 10
3  CALL LBL 11
4  ;Milling funnel
5  LBL 12
6  CALL LBL 13
7  CYCL DEF 14.0 CONTOUR
8  CYCL DEF 14.1 CONTOUR LABEL2
9  CYCL DEF 20 CONTOUR DATA ~
    Q1=-Q58  ;MILLING DEPTH ~
    Q2=+1    ;TOOL PATH OVERLAP ~
    Q3=+Q24  ;ALLOWANCE FOR SIDE ~
    Q4=+0    ;ALLOWANCE FOR FLOOR ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q6=+Q25  ;SET-UP CLEARANCE ~
    Q7=+50   ;CLEARANCE HEIGHT ~
    Q8=+0    ;ROUNDING RADIUS ~
    Q9=+1    ;ROTATIONAL DIRECTION
10 CYCL DEF 22 ROUGH-OUT ~
    Q10=-Q58  ;PLUNGING DEPTH ~
    Q11=+Q90  ;FEED RATE FOR PLNGNG ~
    Q12=+Q91  ;FEED RATE F. ROUGHNG ~
    Q18=+0    ;COARSE ROUGHING TOOL ~
    Q19=+0    ;FEED RATE FOR RECIP. ~
    Q208=+99999 ;RETRACTION FEED RATE
11 CYCL CALL
12 FN 12: IF +Q40 LT +Q27 GOTO LBL 12
13 ;Funnel completed
14 ;
15 ;Milling pocket at ground
16 CYCL DEF 14.0 CONTOUR
17 CYCL DEF 14.1 CONTOUR LABEL1
18 CYCL DEF 20 CONTOUR DATA ~
    Q1=-Q95  ;MILLING DEPTH ~
    Q2=+1    ;TOOL PATH OVERLAP ~
    Q3=+Q24  ;ALLOWANCE FOR SIDE ~
    Q4=+0    ;ALLOWANCE FOR FLOOR ~
    Q5=-Q28  ;SURFACE COORDINATE ~
    Q6=+Q25  ;SET-UP CLEARANCE ~
    Q7=+100  ;CLEARANCE HEIGHT ~
    Q8=+0    ;ROUNDING RADIUS ~
    Q9=+1    ;ROTATIONAL DIRECTION
19 CYCL DEF 22 ROUGH-OUT ~
    Q10=-Q26  ;PLUNGING DEPTH ~
    Q11=+Q90  ;FEED RATE FOR PLNGNG ~
    Q12=+Q91  ;FEED RATE F. ROUGHNG ~
    Q18=+0    ;COARSE ROUGHING TOOL ~
    Q19=+0    ;FEED RATE FOR RECIP. ~
    Q208=+99999 ;RETRACTION FEED RATE
20 L  Z+Q25 R0 F9999 M99
21 ;Junp to the end of the program
22 FN 9: IF +0 EQU +0 GOTO LBL 99
23 ;Contour at ground
24 LBL 1
25 L  X+Q54  Y+Q55 RR
26 L  X+Q83  Y+Q84
27 RND RQ89
28 L  X+Q85  Y+Q86
29 RND RQ89
30 L  X+Q87  Y+Q88
31 RND RQ89
32 L  X+Q81  Y+Q82
33 RND RQ89
34 L  X+Q54  Y+Q55
35 LBL 0
36 ;Contour funnel
37 LBL 2
38 L  X+Q52  Y+Q53 RR
39 L  X+Q63  Y+Q64
40 RND RQ69
41 L  X+Q65  Y+Q66
42 RND RQ69
43 L  X+Q67  Y+Q68
44 RND RQ69
45 L  X+Q61  Y+Q62
46 RND RQ69
47 L  X+Q52  Y+Q53
48 LBL 0
49 ;Calculations
50 LBL 10
51 FN 0: Q40 =+0
52 FN 0: Q61 =+Q71
53 FN 0: Q62 =+Q72
54 FN 0: Q63 =+Q73
55 FN 0: Q64 =+Q74
56 FN 0: Q65 =+Q75
57 FN 0: Q66 =+Q76
58 FN 0: Q67 =+Q77
59 FN 0: Q68 =+Q78
60 FN 0: Q69 =+Q79
61 FN 2: Q95 =+Q29 - +Q28
62 LBL 0
63 LBL 11
64 Q41 = ( Q81 - Q71 ) / Q27
65 Q42 = ( Q82 - Q72 ) / Q27
66 Q43 = ( Q83 - Q73 ) / Q27
67 Q44 = ( Q84 - Q74 ) / Q27
68 Q45 = ( Q85 - Q75 ) / Q27
69 Q46 = ( Q86 - Q76 ) / Q27
70 Q47 = ( Q87 - Q77 ) / Q27
71 Q48 = ( Q88 - Q78 ) / Q27
72 Q49 = ( Q89 - Q79 ) / Q27
73 Q52 = Q71 - ( ( Q71 - Q73 ) / 2 )
74 Q53 = Q72 + ( ( Q74 - Q72 ) / 2 )
75 Q54 = Q81 - ( ( Q81 - Q83 ) / 2 )
76 Q55 = Q82 + ( ( Q84 - Q82 ) / 2 )
77 Q56 = ( Q54 - Q52 ) / Q27
78 Q57 = ( Q55 - Q53 ) / Q27
79 Q50 = Q29 / Q26
80 Q51 = Q28 / Q27
81 Q58 = 0
82 LBL 0
83 LBL 13
84 Q40 = Q40 + 1
85 FN 1: Q52 =+Q52 + +Q56
86 FN 1: Q53 =+Q53 + +Q57
87 FN 1: Q58 =+Q58 + +Q51
88 FN 1: Q61 =+Q61 + +Q41
89 FN 1: Q62 =+Q62 + +Q42
90 FN 1: Q63 =+Q63 + +Q43
91 FN 1: Q64 =+Q64 + +Q44
92 FN 1: Q65 =+Q65 + +Q45
93 FN 1: Q66 =+Q66 + +Q46
94 FN 1: Q67 =+Q67 + +Q47
95 FN 1: Q68 =+Q68 + +Q48
96 FN 1: Q69 =+Q69 + +Q49
97 LBL 0
98 ;End of program
99 LBL 99
100 END PGM 70951-EN MM