0 BEGIN PGM 7050-ES MM 
1 ;Programa para el mecanizado exterior de una
2 ;superficie cilíndrica con una fresa esférica.
3 ;El eje del cilindro transcurre paralelamente
4 ;al eje Y. El mecanizado tiene lugar en líneas
5 ;de contorno, de modo que la trayectoria de
6 ;fresado está en la dirección Y y la
7 ;aproximación tiene lugar en eje X y Z.
8 ;
9 BLK FORM 0.1 Z X-35 Y+0 Z-45
10 BLK FORM 0.2  X+35  Y+100  Z+0
11 ;
12 ;Introducción de parámetros
13 FN 0: Q1 =+0 ;CENTRO DEL CILINDRO EN EL EJE X
14 FN 0: Q2 =-40 ;CENTRO DEL CILINDRO EN EL EJE Z
15 FN 0: Q3 =-0 ;PUNTO INICIAL EN EL EJE Y
16 ;            ;COORDENADA MÍNIMA
17 FN 0: Q4 =+100 ;PUNTO FINAL EN EL EJE Y
18 ;            ;COORDENADA MÁXIMA
19 FN 0: Q5 =+100 ;GRADUACIÓN
20 ;            ;NÚMERO DE LÍNEAS DE ALTURA
21 FN 0: Q6 =+35 ;RADIO DEL CILINDRO
22 FN 0: Q7 =+90 ;ÁNGULO INICIAL EN EL PLANO X/Z
23 FN 0: Q8 =+270 ;ÁNGULO FINAL EN EL PLANO X/Z
24 FN 0: Q9 =+10 ;ALTURA DE SEGURIDAD
25 FN 0: Q10 =+300 ;AVANCE DE FRESADO
26 ;Fin de la introducción de parámetros
27 ;
28 ;Llamada a la herramienta fresa esférica
29 TOOL CALL 157 Z S8000
30 TOOL CALL  DL-Q108 ;Modificación de longitud en el centro de la esfera
31 ;
32 ;
33 ;Cálculos
34 FN 2: Q13 =+Q3 - +Q108 ;Posición inicial Y
35 FN 1: Q14 =+Q4 + +Q108 ;Posición final Y
36 FN 1: Q26 =+Q6 + +Q108 ;Radio efectivo hasta el centro de la herramienta
37 FN 2: Q27 =+Q8 - +Q7 ;Campo angular
38 FN 4: Q28 =+Q27 DIV +Q5 ;Paso angular
39 FN 1: Q29 =+Q9 + +Q108 ;Posicionamiento previo Z
40 FN 0: Q30 =+0 ;Contador
41 ;Cálculos terminados
42 ;
43 ;Movimientos de trayectoria
44 L  Z+100 R0 FMAX ;Desplazarse a altura de seguridad
45 L  Y+Q13  X+Q1 R0 F9999 M3 ;Posicionamiento previo X/Y
46 L  Z+Q29 R0 FMAX ;Posicionamiento previo Z
47 CC  Z+Q2  X+Q1 ;Centro del cilindro
48 LP  PR+Q26  PA+Q7 FQ10 ;Desplazarse a la primera altura
49 LBL 1 ;label
50 CP IPA-Q28 DR- FQ10 ;Profundización
51 L  Y+Q14 FQ10 ;Trayectoria de fresado
52 FN 1: Q30 =+Q30 + +1 ;Contador
53 FN 9: IF +Q30 EQU +Q5 GOTO LBL 99 ;Comparar si se ha alcanzado la graduación
54 CP IPA-Q28 DR- FQ10 ;Profundización
55 L  Y+Q13 FQ10 ;Trayectoria de fresado
56 FN 1: Q30 =+Q30 + +1 ;Contador
57 FN 12: IF +Q30 LT +Q5 GOTO LBL 1 ;Comparar si se ha alcanzado el contador
58 LBL 99
59 ;
60 ;Retirar la hta. y final del programa
61 L  Z+50 R0 FMAX M2
62 END PGM 7050-ES MM