Kod: Zaznacz cały

( ------------------------------ )
(      K O L A   Z E B A T E     )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2012-09-17 10:49> )
( ------------------------------ )
(info: Nacinaie koła zębatego)

o<frezowanie_tokarka> sub

#<il_zebow> = #1 (=10 Liczba zębów)
#<wjazd> = #2 (=0 Wjazd)
#<dlugosc> = #3 (=-20 Długość)
#<predkosc> = #4 (=50 Prędkość)
#<dlugosc_wstecz> = #5 (=0 Długość wstecz)
#<predkosc_wstecz> = #6 (=100 Prędkość wstecz)
#<woda> = #7 (=0  <> chłodzenie)
#<w_z> = #8 (=0 wyjazd Z)
#<w_x> = #9(=0 wyjazd X)
#<w_y> = #10 (=0 wyjazd Y)
( ------------------------------ )

#<zab> = 0
#<obrot> = [360 / #<il_zebow>]

g0 y0
g0 z0
g0 x0

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

o100 while [#<zab> lt #<il_zebow>]

     g0 a[#<zab> * #<obrot>]
     g0 y#<wjazd> 
     g1 x#<dlugosc>   f[#<predkosc>]
     g1 x#<dlugosc_wstecz>   f[#<predkosc_wstecz>]
     g0 y0
    #<zab> = [#<zab> + 1]

o100 endwhile

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

o<frezowanie_tokarka> endsub