0  BEGIN PGM 42301_EN MM 
1  ;NC program for calculating and machining 
2  ;the screw conveyor.
3  ;In addition, the contour in the program section 
4  ;"SUBLOOP" is programmed in the X/Y plane.
5  ;Because this is a contour from 
6  ;three equal sections, it was programmed 
7  ;once and the repeated twice, 
8  ;each time rotated by 120 degrees.
9  ;
10 ;The tool has to be inclined 
11 ;in order to make undercuts on the workpiece.
12 ;TCPM is used for this purpose 
13 ;and the coordinate system stays unchanged.
14 ;However, when moving the rotary axes, 
15 ;the control takes the kinematics into account 
16 ;and moves the tool center point 
17 ;(in this case the center of the ball-nose cutter) 
18 ;along the programmed path.
19 ;The compensation movements of the C-axis, 
20 ;which in this program are programmed 
21 ;in the circular paths of the contour, 
22 ;have been chosen to avoid any contour damage.
23 ;
24 ;Program beginning
25 Q10 = Q9 ;Current depth
26 Q12 = Q2 / Q1 ;Rotation per millimeter depth
27 Q20 = 5 + Q108 + Q7 ;First radius including tool radius and oversize
28 Q30 = Q6 - ( ( Q6 - ( 25 + Q20 ) ) / 2 ) ;Circle center for a tangential approach
29 PLANE RESET STAY ;Reset the tilt
30 L  Z+Q5 R0 FMAX M3 ;Move to clearance height
31 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL AXIS ;Activate TCPM function
32 CC  X+0  Y+0 ;Circle center for pre-positioning
33 LP  PR+Q6  PA+0 R0 FMAX ;Pre-positioning
34 L  B+Q4  A+0  C+0 R0 FMAX ;Angle of incidence
35 ;
36 ;Jump label for repetition
37 LBL "MAINLOOP"
38 Q11 = Q10 * Q12 ;Calculating actual rotation
39 ;
40 ;Rotating the coordinate system
41 CYCL DEF 10.0 ROTATION
42 CYCL DEF 10.1  ROT+Q11
43 ;
44 L  C+Q11 R0 FMAX ;Compensation movements of the C axis
45 L  Z+Q10 R0 FMAX ;Approach new Z coordinate
46 CC  X+0  Y+0 ;Center point for pre-positioning
47 LP  PR+Q6  PA+0 R0 FMAX ;Pre-position to safe radius
48 CC  X+Q30  Y+0 ;Circle center for the approach
49 CP  PA+180 DR- F AUTO ;Approach movement
50 CC  X+25  Y+0 ;Circle center of radius 5
51 ;
52 ;Program section repeat
53 ;in which the contour is described
54 LBL "SUBLOOP"
55 CP  PA+123.5 IC+33.5 DR+
56 CC  X+15.82  Y+13.86
57 CP IPA-102.6 IC+29.3 DR-
58 CC  X-23.05  Y-1.02
59 CP IPA+44.1 IC+48.8 DR+
60 CYCL DEF 10.0 ROTATION
61 CYCL DEF 10.1 IROT+120
62 CC  X+25  Y+0
63 CP  PA+0 IC+8.4 DR+
64 CALL LBL "SUBLOOP" REP2
65 ;
66 CC  X+Q30  Y+0 ;Circle center for the departure
67 CP  PA+0 DR- F AUTO ;Move to clearance position
68 L  Z+Q5 R0 FMAX ;Move to clearance height
69 LBL 0
70 ;
71 Q10 = Q10 + Q3 ;Calculate new Z coordinate
72 FN 11: IF +Q10 GT +Q1 GOTO LBL "MAINLOOP" ;Comparison of whether depth has been reached and, if necessary, jump
73 FN 0: Q10 =+Q1 ;Y coordinate equals depth
74 ;Jump to contour milling
75 CALL LBL "MAINLOOP"
76 L  B+0  C+0  A+0 R0 FMAX M5 ;Tilt back all rotary axes
77 FUNCTION RESET TCPM ;Reset TCPM function
78 ;End of program
79 END PGM 42301_EN MM