0  BEGIN PGM 7095-EN MM 
1  ;Program for milling a rectangular funnel and
2  ;a pocket at the ground. Definition of the
3  ;corners with X and Y coordinates
4  ;
5  BLK FORM 0.1 Z X+0 Y+0 Z-32
6  BLK FORM 0.2  X+100  Y+100  Z+0
7  ;
8  ;Tool call milling tool
9  TOOL CALL 4 Z S4000
10 ;
11 L  Z+50 R0 FMAX M3
12 ;Definition of the corners on surface
13 FN 0: Q71 =+10 ;FIRST CORNER X-COORDINATE
14 FN 0: Q72 =+10 ;FIRST CORNER Y-COORDINATE
15 FN 0: Q73 =+10 ;SECOND CORNER X-COORDINATE
16 FN 0: Q74 =+90 ;SECOND CORNER Y-COORDINATE
17 FN 0: Q75 =+90 ;THIRD CORNER X-COORDINATE
18 FN 0: Q76 =+90 ;THIRD CORNER Y-COORDINATE
19 FN 0: Q77 =+90 ;FOURTH CORNER X-COORDINATE
20 FN 0: Q78 =+10 ;FOURTH CORNER Y-COORDINATE
21 FN 0: Q79 =+8 ;CORNER RADIUS
22 ;
23 ;Definition of the corners at the ground
24 FN 0: Q81 =+30 ;FIRST CORNER X-COORDINATE
25 FN 0: Q82 =+30 ;FIRST CORNER Y-COORDINATE
26 FN 0: Q83 =+30 ;SECOND CORNER X-COORDINATE
27 FN 0: Q84 =+70 ;SECOND CORNER Y-COORDINATE
28 FN 0: Q85 =+70 ;THIRD CORNER X-COORDINATE
29 FN 0: Q86 =+70 ;THIRD CORNER Y-COORDINTE
30 FN 0: Q87 =+70 ;FOURTH CORNER X-COORDINATE
31 FN 0: Q88 =+30 ;FOURTH CORNER Y-COORDINATE
32 FN 0: Q89 =+14.9 ;CORNER RADIUS
33 ;
34 ;Cutting data
35 FN 0: Q90 =+100 ;FEED RATE FOR PLUNGING
36 FN 0: Q91 =+250 ;FEED RATE FOR MILLING
37 FN 0: Q24 =+1 ;ALLOWANCE FOR SIDE
38 FN 0: Q25 =+2 ;SET-UP CLEARANCE
39 FN 0: Q26 =+3 ;PLUNGING DEPTH FOR THE POCKET AT GROUND
40 FN 0: Q27 =+25 ;NUMBER OF DEPTH INFEEDS FOR THE FUNNEL
41 FN 0: Q28 =+25 ;DEPTH OF THE FUNNEL
42 FN 0: Q29 =+30 ;DEPTH OF THE POCKET AT GROUND (ABSOLUTE)
43 ;Call program 70951-en
44 CALL PGM 70951-en
45 ;
46 ;End of program
47 L  Z+200 R0 FMAX M30
48 END PGM 7095-EN MM