0  BEGIN PGM 31701_EN MM 
1  ;Program for milling a taper
2  ;
3  ;Parameter entry
4  FN 0: Q1 =+50 ;CENTER IN 1ST AXIS
5  FN 0: Q2 =+50 ;CENTER IN 2ND AXIS
6  FN 0: Q3 =+0 ;COORDINATE Z ABOVE
7  FN 0: Q5 =+46.5 ;UPPER RADIUS
8  FN 0: Q4 =-30 ;COORDINATE Z BELOW
9  FN 0: Q6 =+38.5 ;LOWER RADIUS
10 FN 0: Q7 =+2 ;SAFETY CLEARANCE
11 FN 0: Q8 =+600 ;FEED RATE FOR MILLING
12 FN 0: Q9 =+9999 ;FEED RATE FOR RETRACTION
13 FN 0: Q10 =+180 ;PITCH
14 ;End of parameter input
15 ;
16 ;Tool call for end mill
17 TOOL CALL 8 Z S5555
18 ;
19 ;Calculations
20 FN 1: Q11 =+Q3 + +Q7 ;Clearance height
21 FN 2: Q12 =+Q5 - +Q108 ;Compensated radius above
22 FN 2: Q13 =+Q6 - +Q108 ;Compensated radius below
23 FN 4: Q14 =+360 DIV +Q10 ;Stepping angle
24 FN 2: Q15 =+Q10 - +1 ;Number of repetitions
25 ;End of calculations
26 ;
27 L  Z+100 R0 FMAX M3 ;Retracting
28 ;
29 ;Move datum to center
30 CYCL DEF 7.0 DATUM SHIFT
31 CYCL DEF 7.1  X+Q1
32 CYCL DEF 7.2  Y+Q2
33 L  X+0  Y+0 R0 FMAX ;Pre-positioning
34 L  Z+Q11 R0 FMAX ;Move to clearance height
35 LBL 1
36 L  X+Q12  Y+0 R0 FQ9 ;Move to upper radius
37 L  Z+Q3 R0 FQ8 ;Move in Z to top
38 L  X+Q13  Y+0  Z+Q4 ;Move to lower radius and depth
39 L  X+0  Y+0 R0 ;Move to the center
40 L  Z+Q11 R0 FQ9 ;Move to clearance height
41 ;Stepping angle
42 CYCL DEF 10.0 ROTATION
43 CYCL DEF 10.1 IROT+Q14
44 CALL LBL 1 REPQ15 ;Repetition
45 ;
46 ;Reset coordinate transformation
47 CYCL DEF 10.0 ROTATION
48 CYCL DEF 10.1  ROT+0
49 CYCL DEF 7.0 DATUM SHIFT
50 CYCL DEF 7.1  X+0
51 CYCL DEF 7.2  Y+0
52 CYCL DEF 7.3  Z+0
53 ;Retract and end program
54 L  Z+100 R0 FQ9
55 END PGM 31701_EN MM