Kod: Zaznacz cały

( ------------------------------ )
(  O T W O R    D O K L A D N Y  )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2019-11-14 07:46> )

( ------------------------------ )
(          USTAWIENIA            )
( ------------------------------ )

(info: Wycinanie spiralą dokładnego otworu lub kółka)

o<otwor_poziomy_spirala> sub

#<obr> = #1 (=1500 obroty)
#<frez> = #2 (=8 frez)
#<sr_otworu> = #3 (=20 średnica)
#<poczatkowy_Y> = #4 (=0 Y początkowy)
#<glebokosc> = #5 (=-10 głębokość)
#<predkosc> = #6 (=60 prędkość)
#<skok> = #7 (=2 skok)
#<woda> = #8 (=1 <> chlodzenie)
#<w_y> = #9 (wyjazd Y)

( ------------------------------ )
( ------------------------------ )

#<skok> = ABS[#<skok>]
#<promien_freza> = [#<frez> / 2] ( promien freza )
#<promien_otworu> = [#<sr_otworu> / 2] ( promien otworu )
#<promien> = [#<promien_otworu>  - #<promien_freza>] ( dojazd )

g18

g0 z0
g0 x0 
m3 s#<obr>

o1 if [#<woda> eq 1]
m8
o1 endif

g1 y[#<poczatkowy_Y> + 1] f#<predkosc>

#1 = 0
G0 X[-1 * #<promien>] F#<predkosc>
g1 Y#<poczatkowy_Y>

#<akt_y> = #<poczatkowy_Y>
o100 while [#<akt_y> gt #<glebokosc>]
#<akt_y> = [#<akt_y> - #<skok>]

( jezeli za gleboko to jade na max )
o110 if [#<akt_y> lt #<glebokosc>]
#<akt_y> = #<glebokosc>
o110 endif


G3 X0 Z#<promien> R#<promien> Y[#<akt_y> + [0.75 * #<skok>]]
G3 X#<promien> Z0 R#<promien> Y[#<akt_y> + [0.5 * #<skok>]]
G3 X0 Z[-1 * #<promien>] R#<promien> Y[#<akt_y> + [0.25 * #<skok>]]
G3 X[-1 * #<promien>] Z0 R#<promien> Y#<akt_y>

o100 endwhile

( rownanie dolu )
G3 X0 Z#<promien> R#<promien> Y#<akt_y>
G3 X#<promien> Z0 R#<promien> 
G3 X0 Z[-1 * #<promien>] R#<promien>
G3 X[-1 * #<promien>] Z0 R#<promien>

m5
g0 X0
g0 y#<w_y>

o<otwor_poziomy_spirala> endsub