Można tak, można i tak - maść na szczury

A oto efekt:

Kod: Zaznacz cały
o<piorko> sub
( Ustawienia osi )
( Z0 ------ oś tarczy w osi ostrzonego freza )
( X0 ------ z0 i kontakt na czole ostrzonego freza )
( Y0 ------ czolo tarczy w osi ostrzonego freza )
( A0 ------ piórka poziomo )
( głowica osi A przesunięta o 3 stopnie względem X)
#<skok> = #1 (=8 średnica freza)
#<liczba_operacji> = #2 (=4 ilość piórek)
#<predkosc> = #3 (=10 prędkość )
#<zpocz> = #4 (=-12 poz. Z)
#<xpocz> = #5 (=-1.5 poz X)
#<ypocz> = [#<skok>/2 +0.5]
#<operacja> = 0
g0 z#<zpocz>
m3 s1
g0
y#<ypocz>
x#<xpocz>
o100 while [#<operacja> lt #<liczba_operacji>]
g0 a[#<operacja> * 360/#<liczba_operacji>]
g1 y0 f#<predkosc>
g0 y#<ypocz>
#<operacja> = [#<operacja> + 1]
o100 endwhile
o<piorko> endsub
Kod: Zaznacz cały
o<wybranie> sub
#<skok> = #1 (=8 średnica freza)
#<liczba_operacji> = #2 (=4 ilość piórek)
#<predkosc> = #3 (=10 prędkość )
#<zpocz> = #4 (=-12 poz. Z)
#<xpocz> = #5 (=-1.5 poz X)
#<ypocz> = [#<skok>/2 +0.5]
#<operacja> = 0
m3 s1
g0 z#<zpocz> y#<ypocz>
g0 x#<xpocz>
o100 while [#<operacja> lt #<liczba_operacji>]
g0 a[#<operacja> * 360/#<liczba_operacji>]
g1 y0 f#<predkosc>
g0 y#<ypocz>
#<operacja> = [#<operacja> + 1]
o100 endwhile
o<wybranie> endsub
Kod: Zaznacz cały
o<podciecie4> sub
#<skok> = #1 (=8 średnica freza)
#<liczba_operacji> = #2 (=4 ilość piórek)
#<predkosc> = #3 (=10 prędkość )
#<zpocz> = #4 (=-12 poz. Z)
#<xpocz> = #5 (=-1.5 poz X)
#<x1> =#6 (=0.3 podcięcie płytkie )
#<x2> =#7 (=0.7 podcięcie głębokie )
#<w_z> = #8 (=0 wyjazd Z)
#<w_x> = #9 (=5 wyjazd X)
#<w_y> = #10 (=0 wyjazd Y)
#<ypocz> = [#<skok>/2 +0.5]
#<operacja> = 0
m3 s1
g0 z#<zpocz> y#<ypocz>
g0 x#<xpocz>
o100 while [#<operacja> lt #<liczba_operacji>]
g0 a[#<operacja> * 360/#<liczba_operacji>]
y0
o120 if[#<operacja> MOD 2 eq 0]
g0 x#<xpocz>
g1 x[#<xpocz>-#<x1>] f#<predkosc>
g0 x[#<xpocz> +5]
o120 else
g0 x#<xpocz>
g1 x[#<xpocz>-#<x2>] f#<predkosc>
G0 x[#<xpocz> +5 ]
o120 endif
g0 y0
#<operacja> = [#<operacja> + 1]
o100 endwhile
o<podciecie4> endsub