Kod: Zaznacz cały

; Author: Z. Maciej "Miki" Bajkowski

(info: Stożek zewnętrzny lub wewnętrzny od prawej ) 
o<stozek> sub
#<MaxRPM>          = #1 (= 3000 Obroty wrzeciona RPM) 
#<SurfaceUnitsMin> = #2 (= 150 skrawanie mm/min) 
#<Przybranie>        = #3 (= 0.5 Przybranie materiału) 
#<Z-Start>         = #4 (= 0.000 Start na osi Z) 
#<kat>           = #5 (= 10 Kąt stożka) 
#<dlugosc_stozka> =  #6 (=30 Długość stożka) 
#<srednica_walka> = #7 (=30 Średnica początkowa) 
#<Coolant>         = #8 (=8 Chłodziwo=8, Wyłączone=9) 
#<wewn>   =#9 (=0 1 włącza stożek wewnętrzny) 



#<zebrane_max> = [tan[#<kat>]*[#<dlugosc_stozka>]] 

#<ilosc_przybran> = [[#<zebrane_max>]/[#<przybranie>]] 
#<zejscie_dlugosci> = [[#<dlugosc_stozka>]/[#<ilosc_przybran>]/2] 
#2 = #<zejscie_dlugosci> 
#1 = 0
s[#<MaxRPM>] 

o100 while [#<ilosc_przybran> gt 0] 
#1=[[#1]+[#<przybranie>]] 
g0 z1
o110 if [#<wewn> gt 0] 
x[[#<srednica_walka>]+[#1]] 
o110 else
x[[#<srednica_walka>]-[#1]] 
o110 endif
z0

g1 f[#<SurfaceUnitsMin>] z-[#<zejscie_dlugosci>] x[#<srednica_walka>] 
o120 if [#<wewn> gt 0] 
g0 x[[#<srednica_walka>]-1] 
o120 else
g0 x[[#<srednica_walka>]+1] 
o120 endif

#<ilosc_przybran> = [[#<ilosc_przybran>] - [#<przybranie>]] 
#<zejscie_dlugosci> = [[#<zejscie_dlugosci>]+[#2]] 
o100 endwhile ( koniec toczenia ) 
g0 z1

o<stozek> endsub