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