Конусная резьба G-код

Шаг резьбы вдоль поверхности конуса!

Резьба режется из текущей точки по Z и X. Безопасная плоскость текущий X+10!

O<taper-thread> SUB
	#<Dst>	= #1
	#<Dend>	= #2
	#<l>	= #3
	#<p> 	= #4
	#<step> = [#5/#6]
	#<steps> = #6

	#<x> = #<_x>
	#<z> = #<_z>
	#<safe_dist> = 10

	#<i> = #<steps> 
	O<taper-thread0> REPEAT [#<steps>]
		G0 X[#<x>+#<safe_dist>]
		G0 Z#<z> 
		G0 X[#<x>+1]
		#<i> = [#<i>-1]
		G1 X[#<Dst> + #<i>*#<step>] 
		G33 X[#<Dend> + #<i>*#<step>] Z[#<z>-#<l>] K[#<p>]
		G0 X[#<x>+#<safe_dist>]
	O<taper-thread0> ENDREPEAT
O<taper-thread> ENDSUB

(Параметры)
(1 - начальный диаметр)
(2 - конечный диаметр)
(3 - длинна резьбы)
(4 - шаг резьбы)
(5 - глубина резьбы)
(6 - количество проходов) 

(Parameters)
(1 - start dia)
(2 - end dia)
(3 - thread length)
(4 - pitch)
(5 - depth of thread)
(6 - number of passes)

G0 X80
G0 Z50
M3 S150
O<taper-thread> CALL [46] [58] [100] [5] [2.5] [5]

M2