Kolego zobacz na ten kod:

0 BEGIN PGM kula MM
1 BLK FORM 0.1 Z X-80 Y-80 Z+0
2 BLK FORM 0.2 X+80 Y+80 Z+70
3 CYCL DEF 7.0 PUNKT BAZOWY
4 CYCL DEF 7.1 Z+Q108
5 TOOL CALL 21 Z S10000 F1500 DL-Q108
6 * - ************************
7 FN 0: Q1 =+70 ; PROMIEN PODSTAWY KULI
8 FN 0: Q2 =+0.5 ; PRZYROST KATOWY
9 FN 0: Q3 =+Q2 ; DLA PRZELICZENIA
10 FN 0: Q4 =+90 ; KAT KONCOWY
11 FN 2: Q1 =+Q1 - +Q108
12 * - **************************
13 L X+Q1 Y+0 Z+Q1 F AUTO M13
14 L Z+0
15 CC X+0 Y+0
16 C X+Q1 Y+0 DR-
17 LBL 1
18 Q11 = SIN Q2 * Q1
19 Q10 = COS Q2 * Q1
20 L X+Q10
21 L Z-Q11
22 CC X+0 Y+0
23 C X+Q10 Y+0 DR-
24 FN 1: Q2 =+Q2 + +Q3
25 FN 11: IF +Q4 GT +Q2 GOTO LBL 1
26 L Z+100 R0 FMAX
27 M30
28 END PGM kula MM


Nie mogę go w tym momencie sprawdzić bo nie mam dostępu do symulatora ani maszyny.