0 BEGIN PGM 7090_fr MM 
1 ;Programme permettant de fabriquer
2 ;une trémie carrée et une poche à
3 ;sa base.
4 ;Définition de tous les sommets
5 ;en X et Y
6 ;
7 BLK FORM 0.1 Z  X+0  Y+0  Z-32
8 BLK FORM 0.2  X+100  Y+100  Z+0
9 ;
10 ;Appel de l'outil de fraisage
11 TOOL CALL 6 Z S4000
12 ;
13 L  Z+50 R0 FMAX M3
14 ;Définition des coins supérieurs
15 FN 0: Q1 =+10 ;1er COIN DE COORDONNÉE X
16 FN 0: Q2 =+10 ;1er COIN DE COORDONNÉE Y
17 FN 0: Q3 =+10 ;2e COIN DE COORDONNÉE X
18 FN 0: Q4 =+90 ;2e COIN DE COORDONNÉE Y
19 FN 0: Q5 =+90 ;3e COIN DE COORDONNÉE X
20 FN 0: Q6 =+90 ;3e COIN DE COORDONNÉE Y
21 FN 0: Q7 =+90 ;4e COIN DE COORDONNÉE X
22 FN 0: Q8 =+10 ;4e COIN DE COORDONNÉE Y
23 FN 0: Q9 =+8 ;RAYON D'ANGLE
24 ;
25 ;Définition des coins inférieurs
26 FN 0: Q11 =+30 ;1er COIN DE COORDONNÉE X
27 FN 0: Q12 =+30 ;1er COIN DE COORDONNÉE Y
28 FN 0: Q13 =+30 ;2e COIN DE COORDONNÉE X
29 FN 0: Q14 =+70 ;2e COIN DE COORDONNÉE Y
30 FN 0: Q15 =+70 ;3e COIN DE COORDONNÉE X
31 FN 0: Q16 =+70 ;3e COIN DE COORDONNÉE Y
32 FN 0: Q17 =+70 ;4e COIN DE COORDONNÉE X
33 FN 0: Q18 =+30 ;4e COIN DE COORDONNÉE Y
34 FN 0: Q19 =+14.9 ;RAYON D'ANGLE
35 ;
36 ;Données de coupe
37 FN 0: Q20 =+100 ;AVANCE DE LA PASSE EN PROFONDEUR
38 FN 0: Q21 =+250 ;AVANCE FRAISAGE
39 FN 0: Q24 =+1 ;SURÉPAISSEUR LATÉRALE
40 FN 0: Q25 =+2 ;DISTANCE DE SÉCURITÉ
41 FN 0: Q26 =+3 ;PROFONDEUR DE PASSE DE LA POCHE
42 FN 0: Q27 =+20 ;NOMBRE DE PASSES EN PROFONDEUR DE LA TRÉMIE
43 FN 0: Q28 =+25 ;PROFONDEUR DE TRÉMIE
44 FN 0: Q29 =+30 ;PROFONDEUR DU FOND DE LA POCHE (ABSOLUE)
45 ;Appel du programme 70901_fr
46 CALL PGM 70901_fr.h
47 ;
48 ;Fin du programme
49 L  Z+200 R0 FMAX M2
50 END PGM 7090_fr MM