0  BEGIN PGM 5015-EN MM 
1  ;Program for deburring a hole drilled into
2  ;a horizontal cylinder inner surface with
3  ;a ball nose cutter.
4  ;The cylinder axis must be parallel to
5  ;the Y-axis.
6  ;The datum of X and Y axis is in the
7  ;center of the cylinder.
8  ;
9  BLK FORM 0.1 Z X+0 Y+0 Z-15
10 BLK FORM 0.2  X+18  Y+10  Z+0
11 ;
12 ;Input parameters
13 FN 0: Q1 =+7 ;HOLE CENTER IN X AXIS
14 FN 0: Q2 =+5 ;HOLE CENTER IN Y AXIS
15 FN 0: Q3 =+0.5 ;DEPTH OFFSET OF TOOL
16 FN 0: Q4 =+0.5 ;LATERAL OFFSET OF TOOL
17 FN 0: Q5 =+100 ;PITH OF THE CIRCULAR PATH
18 FN 0: Q6 =+13 ;CYLINDER RADIUS
19 FN 0: Q7 =+180 ;STARTING ANGLE IN THE PLANE
20 FN 0: Q8 =+20 ;LENGTH OF CYLINDER
21 FN 0: Q9 =+3 ;HOLE RADIUS
22 FN 0: Q10 =+2 ;Z HEIGHT FOR PRE POSITIONING
23 FN 0: Q11 =+200 ;FEED RATE FOR PLUNGING
24 FN 0: Q12 =+500 ;FEED RATE FOR MILLING
25 ;
26 ;Pre milling of the cylinder
27 ;Tool call ball-nose cutter
28 TOOL CALL 105 Z S5000
29 TOOL CALL  DL-Q108 ;Length compensation by the ball radius
30 ;Call program 50151-en.h
31 CALL PGM 50151-en
32 L  Z+50 R0 FMAX
33 ;Pre milling of the cylinder is completed
34 ;
35 ;Drilling
36 ;Tool call drilling tool
37 TOOL CALL 3 Z S1000
38 L  Z+100 R0 FMAX M3
39 CYCL DEF 1.0 PECKING
40 CYCL DEF 1.1 SET UP2
41 CYCL DEF 1.2 DEPTH-20
42 CYCL DEF 1.3 PLNGNG5
43 CYCL DEF 1.4 DWELL0
44 CYCL DEF 1.5 F300
45 L  X+Q1  Y+Q2 R0 FMAX
46 L  Z+Q15 R0 FMAX
47 CYCL CALL
48 L  Z+50 R0 FMAX
49 ;Drilling is completed
50 ;
51 ;Tool call ball-nose cutter for deburring
52 TOOL CALL 101 Z S10000
53 TOOL CALL  DL-Q108 ;Length compensation by the ball radius
54 ;Call sub program
55 CALL LBL 1
56 ;
57 ;End of program
58 L  Z+50 R0 F5000 M30
59 ;
60 ;Subprogram
61 LBL 1
62 FN 0: Q25 =+0 ;Counter
63 FN 1: Q26 =+Q6 + +Q3 ;Effectiv tube radius
64 FN 0: Q27 =+Q7 ;Actual angle in plane
65 FN 4: Q37 =+360 DIV +Q5 ;Angle step in plane
66 FN 1: Q29 =+Q9 + +Q4 ;Effectiv hole radius
67 CC  X+Q1  Y+Q2 ;Circle center
68 L  Z+100 R0 FMAX M3 ;Pre positioning
69 LP  PR+Q29  PA+Q27 RL F9999
70 L  Z+Q10 F9999
71 CALL LBL 11 ;Call calculation new Z value
72 L  Z-Q23 FQ11 ;Z depth infeed
73 LBL 10
74 FN 1: Q27 =+Q27 + +Q37 ;Calculation new angle
75 Q25 = Q25 + 1 ;Counter update
76 CALL LBL 11 ;Call calculation new Z value
77 CP  PA+Q27  Z-Q23 DR+ ;Move to new angle and Z value
78 FN 12: IF +Q25 LT +Q5 GOTO LBL 10
79 LBL 11 ;Calculation new Z value
80 Q21 = Q1 + Q29 * COS Q27
81 Q23 = SQRT ( SQ Q26 - SQ Q21 )
82 LBL 0
83 END PGM 5015-EN MM