0  BEGIN PGM 7005-EN MM 
1  ;Program for outside 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-50
13 BLK FORM 0.2  X+50  Y+100  Z+1
14 ;
15 ;Input parameter
16 FN 0: Q1 =+0 ;CONE CENTER POINT IN THA X-AXIS
17 FN 0: Q2 =-50 ;CONE CENTER POINT IN THE Y-AXIS
18 FN 0: Q3 =+0 ;STARTING POINT IN THE Y-AXIS
19 FN 0: Q4 =+50 ;STARTING RADIUS
20 FN 0: Q5 =+100 ;END POINT IN THE Y-AXIS
21 FN 0: Q6 =+35 ;END RADIUS
22 FN 0: Q7 =+25 ;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 160 Z S8000
30 TOOL CALL  DL-Q108
31 ;
32 ;Calculations
33 FN 1: Q24 =+Q108 + +Q4 ;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 4: Q26 =+Q26 DIV +2 ;Path increment per circular motion
37 FN 2: Q27 =+Q6 - +Q4 ;Radius difference
38 FN 4: Q28 =+Q27 DIV +Q7 ;Radius increment
39 FN 4: Q28 =+Q28 DIV +2 ;Radius increment per circular motion
40 FN 2: Q29 =+Q7 - +1 ;Number of repetitions
41 FN 1: Q30 =+Q24 + +Q1 ;Pre-positioning in the X-axis
42 FN 1: Q31 =+Q10 + +Q108 ;Safety hight including the ball radius
43 ;Calculations completed
44 ;
45 L  Z+100 R0 FMAX M3 ;Move to a safe position
46 L  X+Q30  Y+Q3 FMAX ;Pre-positioning
47 CC  X+Q1  Z+Q2 ;Cone center point
48 L  Z+Q31 R0 FMAX ;Move to the safety hight
49 LP  PR+Q24  PA+90 R0 FQ9 ;Plunging
50 CP IPA-180 DR- FQ8 ;Milling the circular path
51 LBL 1
52 L IY+Q26 R0 FQ8 ;Y-step
53 LP IPR+Q28 FQ8 ;Radius step
54 CP IPA+180 DR+ FQ8 ;Milling the circular path
55 L IY+Q26 R0 FQ8 ;Y-step
56 LP IPR+Q28 FQ8 ;Radius step
57 CP IPA-180 DR- FQ8 ;Milling the circular path
58 CALL LBL 1 REPQ29 ;Repetitions
59 ;
60 ;Move back and program end
61 L  Z+100 R0 FMAX M2
62 END PGM 7005-EN MM