0  BEGIN PGM 4035_EN MM 
1  ;Program for creating a taper by inclining
2  ;the B axis and rotating the C axis. The
3  ;program is written for a machine with
4  ;B swivel head and C rotary table. With the
5  ;M128 function, the tool is moved along the
6  ;programmed path, even if the workpiece is
7  ;not clamped in the center of the C rotary table.
8  BLK FORM 0.1 Z X-5 Y-5 Z-8
9  BLK FORM 0.2  X+5  Y+5  Z+0
10 ;Tool call
11 TOOL CALL 5 Z S5000 F500
12 ;
13 * - Inputs
14 QL100 = - 7 ;DEPTH
15 QL101 = 10 ;DIAMETER BELOW
16 QL102 = 28.1786 ;ANGLE
17 ;Calculations
18 QL200 = ABS QL100 - SIN ABS QL102 * Q108 ;Depth for the tool center
19 QL201 = COS ABS QL102 * Q108 + QL101 / 2 ;Radius for the tool center
20 QL300 = Q108 * 2 + QL101 / 2 ;Pre-position
21 ;*********************************
22 L  X+QL300  Y+0 R0 FMAX M3
23 L  Z+2 R0 FMAX
24 L  Z+0 R0
25 L  B-QL102 R0 M128 ;Incline the B axis with M128
26 L  Z-QL200 R0
27 L  X+QL201 R0
28 CC  X+0  Y+0
29 CP IPA+360 IC+360 DR+ ;Rotate the C axis by 360° with active M128
30 L  X+QL300 R0 FMAX
31 L  B+0 R0 FMAX M129 ;Move B axis to 0° and deactivate M128
32 L  Z+250 R0 FMAX M30
33 END PGM 4035_EN MM