Pomysłowo skonfigurowany Emc.

Kod: Zaznacz cały

( ------------------------------ )
(    K O L O   S T O Z K O W E   )
( ------------------------------ )
( Kamar                          )
( Time-stamp: <2013-01-14 09:56> )

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

o<kolo_stozkowe> sub

#<obr> = #1 (=1500 obroty)
#<liczba_zebow> = #2 (=30 liczba zębów)
#<dlugosc> = #3 (=20 dlugość zęba)
#<wyjazd> = #4 (=40 wyjazd)
#<glebokosc> = #5 (=2.25 wysokość zęba)
#<kat_korekty> = #6 (=1 kąt korekty)
#<predkosc> = #7 (=60 prędkosć)
#<woda> = #8 (=0  <> chłodzenie)
#<w_z> = #9 (wyjazd Z)
#<w_x> = #10 (wyjazd X)
#<w_y> = #11 (wyjazd Y)

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

(licze kat korekty na koncu)
#<a2> = [[#<wyjazd> * #<kat_korekty>] / #<dlugosc>]

#<zab> = 0

g0 y-1
g0 x#<wyjazd>
g0 a0
g0 z0

o100 while [#<zab> LT #<liczba_zebow>]
#<zab> = [#<zab> + 1]
#<kat> = [360 / #<liczba_zebow> * #<zab>]

g0 a#<kat>

g0 y#<glebokosc>
g1 x0 f#<predkosc>

g0 y-1
g0 x#<wyjazd>

o200 if[#<a2> gt 0]
     g0 a[#<kat> + #<a2>]
     g0 y#<glebokosc>
     g1 x0 a#<kat> f#<predkosc>

     g0 y-1
     g0 x#<wyjazd>
     g0 y#<glebokosc>
     g0 a[#<kat> - #<a2>]
     g1 x0 a#<kat> f#<predkosc>
     g0 y-1
     g0 x#<wyjazd>
o200 endif
o100 endwhile
g0 z#<w_z>
g0 x#<w_x>
g0 y#<w_y>


o<kolo_stozkowe> endsub