HEIDENHAIN ITNC 530 - 6-2010 DIN-ISO PROGRAMMING User Manual page 299

N180 L10.0 *
N190 Q10 = +0 *
N200 Q18 = +5 *
N210 L10.0 *
N220 G00 G40 Z+250 M2 *
N230 G98 L10 *
N240 Q23 = Q11 + Q6 *
N250 Q24 = +Q4 *
N260 Q26 = Q6 + Q108 *
N270 Q28 = +Q8 *
N280 Q16 = Q6 + -Q10 *
N290 G54 X+Q1 Y+Q2 Z-Q16 *
N300 G73 G90 H+Q8 *
N310 G98 L1 *
N320 I+0 J+0 *
N330 G11 G40 R+Q26 H+Q8 FQ12 *
N340 I+Q108 K+0 *
N350 G01 Y+0 Z+0 FQ12 *
N360 G98 L2 *
N370 G11 G40 R+Q6 H+Q24 FQ12 *
N380 Q24 = Q24 - Q14 *
N390 D11 P01 +Q24 P02 +Q5 P03 2 *
HEIDENHAIN iTNC 530
Call machining operation
Reset allowance
Angle increment in the X/Y plane for finishing
Call machining operation
Retract in the tool axis, end program
Subprogram 10: Machining operation
Calculate Z coordinate for pre-positioning
Copy starting angle in space (Z/X plane)
Compensate sphere radius for pre-positioning
Copy rotational position in the plane
Account for allowance in the sphere radius
Shift datum to center of sphere
Account for starting angle of rotational position in the plane
Pre-position in the tool axis
Set pole in the X/Y plane for pre-positioning
Pre-position in the plane
Set pole in the Z/X plane, offset by the tool radius
Move to working depth
Move upward in an approximated "arc"
Update solid angle
Inquire whether an arc is finished. If not finished, return to LBL 2.
299