ZOBACZ TERAZ CZY DOBRZE JEST

1 BLK FORM 0.1 Z X-100 Y-100 Z-100
2 BLK FORM 0.2 X+100 Y+100 Z+0
3 TOOL CALL 53 Z S3000 ;glowica D80
4 L Z+200 R0 FMAX M3
5 L X+50 Y-0 R0 FMAX
6 L Z+0 R0 FMAX
6 RND R2
7 FN 0: Q1 =+100 ;glebokosc
8 FN 0: Q3 =+45 ;kat
9 FN 0: Q10 =+100 ;ilosc powtorzen
10 FN 0: Q11 =+5 ;najazd na X
11 FN 0: Q12 =+5 ;najazd na Y
12 FN 0: Q13 =+2 ;zaokraglenie RND
13 FN 4: Q1 =+Q1 DIV +Q10 ;dzielenie (glebokosc/ilosc powtorzen)
14 LBL 1
14 CALL LBL 10
15 FN 6: Q6 = SIN +Q3
16 FN 7: Q7 = COS +Q3
17 FN 4: Q5 =+Q6 DIV +Q7
18 FN 3: Q2 =+Q5 * +Q1
19 L IZ-Q1 R0 F1000
20 L X+Q11 Y-5 RR F1000
RND R2,5
23 L Y+Q12
24 RND RQ13
25 L X-Q11
26 RND RQ13
27 L Y-Q12
28 RND RQ13
29 L X+Q11
30 RND RQ13
31 L Y+5
RND R2,5
33 L IX+60 Y0 R0
34 FN 1: Q10 =+Q10 + -1
35 FN 10: IF +Q10 NE +0 GOTO LBL 1
36 LBL 10
37 FN 1: Q11 =+Q11 + +Q2
38 FN 1: Q12 =+Q12 + +Q2
39 LBL 0
40 L Z+150 R0 FMAX M30
41 END PGM PIRAMIDA M