N1 T8 ;PROGRAM ROBI FRAGMENT (FAZĘ W OTWORZE) STOŻEKA WEWNĘTRZNEGO OD DOŁU DO GÓRY
O KĽCIE WIERZCHOŁKOWYM 90 STOPNI (DLATEGO R5 JEST 45)
N2 M6
N3 G0 Z80 S5000 M3
N4 X0 Y0 F1000
N5 G1 Z0 ;Z0
N6 R4=0
N7 AA:R4=R4+0.1
N8 IF R4>=5 GOTOF FF
N9 G1 Z=(R4)
N10 R5=45
N11 R6=1.42+(R4*TAN(R5)) R7=1.42+(R4*TAN(R5))
N12 R8=0
N13 EE:R8=R8-1
N14 IF R8<=-370 GOTOF BB
N15 R9=R6*SIN(R8) R10=R7*COS(R8)
N16 G1 X=(R9) Y=(R10)
N17 GOTOB EE
N18 BB:X0 Y0
N19 GOTOB AA
N20 FF:G0 Z100
N21 M30