masz kolego tak na szybko na Hh 155 działa nawet na 150
0 BEGIN PGM 19 MM
1 BLK FORM 0.1 Z X-100 Y-50 Z-10
2 BLK FORM 0.2 X+100 Y+50 Z+0
3 TOOL CALL 1 Z S1250
4
5
6 L Z+50 R0 F9999 M3
7 L
8 LBL 1
9 FN 0: Q20 =+10 dokładność
10 FN 0: Q21 =+0 punkt startu
11 FN 0: Q22 =+50 długośc elipsy w y
12 FN 0: Q23 =+100 długość elipsy w x
13 FN 4: Q22 =+Q22 DIV +2
14 FN 4: Q23 =+Q23 DIV +2
15 LBL 2
16 FN 6: Q14 = SIN -Q21
17 FN 7: Q15 = COS -Q21
18 FN 3: Q24 =+Q14 * +Q22
19 FN 3: Q25 =+Q15 * +Q23
20 L X+Q25 Y+Q24 R0 F500
21 L Z-5 R0
22 FN 1: Q21 =+Q21 + +Q20
23 FN 12: IF +Q21 LT +360.1 GOTO LBL 2
24 L Z+100 R0 F9999 M30
25 END PGM 19 MM
