Kod: Zaznacz cały

( ------------------------------ )
(  Ścieszka  z palca    )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <31-07-2014> )
( ------------------------------ )
o<sciezka> sub

#<nr> = #1 (=1 numer narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<posuw> = #4 (= 0.2 posuw)
#<w_z> = #5 (   Z  do zmiany)
#<w_x> = #6 (   X  do zmiany)
#<woda> = #7 (=1 <> chłodzenie)
#<stala_predkosc> = #8 (=0 <> stała prędkość skrawania)
#<obroty_max> = #9 (=250 obroty max)
#<predkosc_skrawania> = #10 (=200 prędkość skrawania)

o9 if [#<posuw> gt 1 ]
  (msg, Za duży posuw!)
  m2
o9 endif

o13 if [#<stala_predkosc> eq 1]
  g96 d#<obroty_max> s#<predkosc_skrawania>
  
o13 endif

M6 T#<nr> G43
g0 f#<posuw>
o2 if [#<odboczka> eq 1]
  #<obr> = [#<obr> * 8]
o2 endif
m3 s#<obr>
(                        poczatek ścieszki narzedzia         )










(                        Koniec ścieszki narzedzia           )


g0 z#<w_z>
g0 x#<w_x>
     

o<sciezka> endsub