0  BEGIN PGM 7090-EN MM 
1  ;Program for milling a rectangular
2  ;funnel and a pocket at the ground.
3  ;Definition of the corners with
4  ;X and Y Coordinates
5  ;
6  BLK FORM 0.1 Z X+0 Y+0 Z-32
7  BLK FORM 0.2  X+100  Y+100  Z+0
8  ;
9  ;Tool call milling tool
10 TOOL CALL 4 Z S4000
11 ;
12 L  Z+50 R0 FMAX M3
13 ;Definition of the corners on surface 
14 FN 0: Q1 =+10 ;FIRST CORNER X-COORDINATE
15 FN 0: Q2 =+10 ;FIRST CORNER Y-COORDINATE
16 FN 0: Q3 =+10 ;SECOND CORNER X-COORDINATE
17 FN 0: Q4 =+90 ;SECOND CORNER Y-COORINATE
18 FN 0: Q5 =+90 ;THIRD CORNER X-COORDINATE
19 FN 0: Q6 =+90 ;THIRD CORNER Y-COORDINATE
20 FN 0: Q7 =+90 ;FOURTH CORNER X-COORDINATE
21 FN 0: Q8 =+10 ;FOURTH CORNER Y-COORDINATE
22 FN 0: Q9 =+8 ;CORNER RADIUS
23 ;
24 ;Definition of the corners at the ground
25 FN 0: Q11 =+30 ;FIRST CORNER X-COORDINATE
26 FN 0: Q12 =+30 ;FIRST CORNER Y-COORDINATE
27 FN 0: Q13 =+30 ;SECOND CORNER X-COORDINATE
28 FN 0: Q14 =+70 ;SECOND CORNER Y-COORDINATE
29 FN 0: Q15 =+70 ;THIRD CORNER X-COORDINATE
30 FN 0: Q16 =+70 ;THIRD CORNER Y-COORINATE
31 FN 0: Q17 =+70 ;FOURTH CORNER X-COORDINATE
32 FN 0: Q18 =+30 ;FOURTH CORNER Y-COORDINATE
33 FN 0: Q19 =+14.9 ;CORNER RADIUS
34 ;
35 ;Cutting data
36 FN 0: Q20 =+100 ;FEED RATE FOR PLUNGING
37 FN 0: Q21 =+250 ;FEED RATE FOR MILLING
38 FN 0: Q24 =+1 ;ALLOWANCE FOR SIDE
39 FN 0: Q25 =+2 ;SET-UP CLEARANCE
40 FN 0: Q26 =+3 ;PLUNGING DEPTH FOR THE POCKET AT GROUND
41 FN 0: Q27 =+20 ;NUMBER OF DEPTH INFEEDS FOR THE FUNNEL
42 FN 0: Q28 =+25 ;DEPTH OF THE FUNNEL
43 FN 0: Q29 =+30 ;DEPTH OF THE POCKET AT GROUND (ABSOLUTE)
44 ;Call program 70901-en
45 CALL PGM 70901-en
46 ;
47 ;End of program
48 L  Z+200 R0 FMAX M2
49 END PGM 7090-EN MM