0  BEGIN PGM 7010-EN MM 
1  ;Program for inside milling of a truncated
2  ;cone with a ball-nose cutter.
3  ;The cone axis is parallel to the Y-axis.
4  ;Milling takes place in a circular motion
5  ;about the center in the X- and Z-axis. The
6  ;stepover is done in the Y-axis. The pitch
7  ;defines in how many movements, each with two
8  ;circular motions, the process is devided. The
9  ;control calculates how big stepover and the
10 ;matching radius change needs to be.
11 ;
12 BLK FORM 0.1 Z X-50 Y+0 Z-60
13 BLK FORM 0.2  X+50  Y+100  Z+0
14 ;
15 ;Input parameter
16 FN 0: Q1 =+0 ;CONE CENTER POINT IN THE X-AXIS
17 FN 0: Q2 =+0 ;CONE CENTER POINT IN THE Z-AXIS
18 FN 0: Q3 =+0 ;STARTING POINT IN THE Y-AXIS
19 FN 0: Q4 =+45 ;START RADIUS
20 FN 0: Q5 =+100 ;END POINT IN THE Y-AXIS
21 FN 0: Q6 =+20 ;END RADIUS
22 FN 0: Q7 =+50 ;PITCH
23 FN 0: Q8 =+300 ;FEED RATE FOR MILLING
24 FN 0: Q9 =+200 ;FEED RATE FOR PLUNGING
25 FN 0: Q10 =+10 ;SAFETY HIGHT
26 ;Input parameter completed
27 ;
28 ;Tool call ball-nose cutter
29 TOOL CALL 157 Z S8000
30 TOOL CALL  DL-Q108
31 ;
32 ;Calculations
33 FN 2: Q24 =+Q4 - +Q108 ;Effectiv radius to the tool center point
34 FN 2: Q25 =+Q5 - +Q3 ;Track
35 FN 4: Q26 =+Q25 DIV +Q7 ;Path increment
36 FN 2: Q27 =+Q6 - +Q4 ;Radius difference
37 FN 4: Q28 =+Q27 DIV +Q7 ;Radius increment
38 FN 2: Q29 =+Q7 - +1 ;Number of repetitions
39 FN 1: Q30 =+Q24 + +Q1 ;Pre-positioning in the X-axis
40 FN 1: Q31 =+Q10 + +Q108 ;Safety hight incuding the ball radius
41 ;Calculations completed
42 ;
43 L  Z+100 R0 FMAX M3 ;Move to a safe position
44 L  X+Q30  Y+Q3 FMAX ;Pre-positioning
45 CC  X+Q1  Z+Q2 ;Cone center point
46 L  Z+Q31 R0 FMAX ;Move to the safety hight
47 LP  PR+Q24  PA+90 R0 FQ9 ;Plunging
48 CP IPA+180 DR+ FQ8 ;Milling the circular path
49 LBL 1
50 LP  PA+90 FMAX ;Move to the starting position
51 LP IPR+Q28 FQ8 ;Radius step
52 L IY+Q26 R0 FQ8 ;Step over
53 CP IPA+180 DR+ FQ8 ;Milling the circular path
54 CALL LBL 1 REPQ29 ;Repetitions
55 ;
56 ;Move back and program end
57 L  Z+100 R0 FMAX M2
58 END PGM 7010-EN MM