TNC 530 - test sphere

The idea behind is to make half sphere only with small piece of code. In theory should be possible just changing Q1 or the sphere radius , and to make any size.. Well, there should be additional milling of the sphere radius is 300mm , because of the material need to be clean. And that is only.. program for fun test.

0 BEGIN PGM testsphere MM
1 BLK FORM 0.1 Z X-100 Y-100 Z-120
2 BLK FORM 0.2 X+100 Y+100 Z+2
3 FN 0: Q1 =+100
4 FN 0: Q2 =+2
5 TOOL CALL 20 Z S3500
6 ;D40-ENDMILL
7 Q3 = Q1 / Q2
8 LBL 1
9 L Z+2 R0 FMAX M3
10 Q4 = Q1 + Q108 + 3
11 L X+Q4 Z-Q2 R0 F5000
12 Q5 = SQRT ( ( Q1 ^ 2 ) - ( ( Q1 - Q2 ) ^ 2 ) ) + Q108 + 0.5
13 L X+Q5 Y+0 R0
14 CC X+0 Y+0
15 CP IPA+360 DR-
16 L IX+0.5 IZ+0.5 R0 F10000
17 Q2 = Q2 + 2
18 CALL LBL 1 REPQ3
19 L Z+222 R0 FMAX
20 ;------
21 TOOL CALL 30 Z S6000
22 ;BALL-6MM
23 Q10 = Q1 + Q108 + 3
24 Q11 = Q108 + Q1
25 L X+Q10 Y+0 Z+2 R0 FMAX M3
26 L Z-Q11 R0 F3000
27 L Z-Q108 R0 F1500
28 CC X+0 Y+0
29 CP IPA+360 DR-
30 L Z+5 R0 F5000
31 L Z+2 R0 FMAX
32 LBL 2
33 L X+Q11 Y+0 Z+2 R0 FMAX
34 Q12 = Q1 - 1
35 L Z-Q12 R0 F5000
36 CC X+0 Z+0
37 L Z-Q11 R0 F2000
38 Q13 = Q108 + Q1
39 L Z-Q13 R0 F1000
40 CR X+0 Z+0 R+Q1 DR-
41 CR X-Q11 Z-Q13 R+Q1 DR-
42 L Z+2 R0 FMAX
43 CYCL DEF 10.0 ROTATION
44 CYCL DEF 10.1 IROT+1
45 CALL LBL 2 REP179
46 L Z+200 R0 FMAX M2
47 END PGM testsphere MM

Видео TNC 530 - test sphere канала longgo