0  BEGIN PGM 7030_ES MM 
1  ;Programa para mecanizado interior de un cuerpo
2  ;con forma de toro inclinado.
3  ;El mecanizado se realiza con una fresa esférica
4  ;en las líneas del contorno para que la
5  ;trayectoria de fresado en el plano X/ Y y la
6  ;aproximación en el plano X/Z se desplacen.
7  ;
8  ;Introducción de parámetros
9  FN 0: Q1 =+50 ;CENTRO PRIMER EJE
10 FN 0: Q2 =+50 ;CENTRO SEGUNDO EJE
11 FN 0: Q3 =+25 ;RADIO DEL TORUS R
12 FN 0: Q4 =+0 ;COORDENADA Z CENTRO DEL TORUS
13 FN 0: Q5 =+20 ;RADIO DEL TORUS r
14 FN 0: Q10 =+20 ;ALTURA DE SEGURIDAD
15 FN 0: Q11 =+90 ;NÚMERO DE LÍNEAS DEL CONTORNO
16 FN 0: Q14 =+600 ;AVANCE DE FRESADO
17 FN 0: Q15 =+9999 ;AVANCE POSICIONAMIENTO PREVIO
18 FN 0: Q16 =+300 ;AVANCE PROFUNDIZACIÓN
19 ;Fin de la introducción de parámetros
20 ;
21 BLK FORM 0.1 Z X+0 Y+0 Z-30
22 BLK FORM 0.2  X+100  Y+100  Z+0
23 ;
24 ;Llamada a la herramienta fresa esférica
25 TOOL CALL 155 Z S8000
26 TOOL CALL  DL-Q108 ;Corrección de la longitud en torno al radio de la esfera
27 ;
28 ;variables
29 FN 2: Q6 =+Q5 - +Q108 ;Radio compensado
30 FN 1: Q7 =+Q1 + +Q3 ;Coordenada X centro del Torus
31 FN 4: Q12 =+180 DIV +Q11 ;Paso angular
32 FN 2: Q13 =+Q11 - +1 ;Número de repeticiones
33 ;Cálculos terminados
34 ;
35 L  X+Q1  Y+Q2 R0 FQ15 M3 ;Posicionar previamente en el centro
36 L  Z+Q10 FQ15 ;Ir a altura de seguridad
37 CC  Z+Q4  X+Q7 ;Determinar el centro del plano X/Z
38 LP  PR+Q6  PA-90 R0 FQ16 ;Aproximar el primer radio y profundidad
39 CC  X+Q1  Y+Q2 ;Determinar el centro del plano X/Y
40 CP IPA-360 DR- FQ14 ;Recorrer la trayectoria circular
41 LBL 1 ;Repetición
42 CC  Z+Q4  X+Q7 ;Determinar el centro del plano X/Z
43 CP IPA-Q12 DR- FQ14 ;Desplazar ángulo incremental
44 CC  X+Q1  Y+Q2 ;Determinar el centro del plano X/Y
45 CP IPA-360 DR- FQ14 ;Recorrer la trayectoria circular
46 CALL LBL 1 REPQ13 ;Llamar la repetición
47 L  Z+100 R0 FQ15 M2 ;Retirar la herramienta y final del programa
48 END PGM 7030_ES MM