% Burner Column 1 - machine the burner column from 16 mm rod
% Use 4-toolpost block
% Start with 16 mm rod with 9 mm hole already bored up it
% Tool 1: 6 mm reference tool
% Tool 2: front turning tool, straight sides
% Tool 3: internal threading tool with flat tip
% Tool 4: rear turning tool, also for parting off

#10=25.5		% Z length of burner column
#11=13.0		% Z length of 11 mm bore to shoulder
#12=13.5		% Z length to underside of external shoulder
#13=15.5		% Z to top of shoulder
#14=17.5		% Z to end of heavy bit
#15=19.2		% Z to start of light bit
#16=0

#20=9.0		% X through bore
#21=11.0		% X mixing chamber bore
#22=13.6		% X OD for main column
#23=16.0		% X OD of shoulder
#24=12.0		% X OD for heavy bit
#25=10.0		% X OD for thin bit
#27=0.2		% X cut depth <<<<<<<
#28=2.0		% tool #1 tip width

#30=11.0		% M12x1 thread ID
#31=12.1		% M12x1 thread OD ***for the threading tool***
#32=1.0		% M12x1 thread pitch
#33=0.3		% initial cut depth
#34=5.0		% thread length
#35=2.0		% run-up distance

#40=50		% turning feed
#41=800		% turning spin
#42=20.0		% safe Z retract distance for tool swap
#43=0
#44=300		% threading spin


T101
g0 z#42
g0 x[#23-1]
g0 z0.5
m1 (position rod to tool)
g0 x[#23+1]

% Face off end
o10
g0 x[#23+1]
g0 z#42
T202
f#40 s#41
m3
g0 x[#23+1] z0.25
g1 x[#20-1]
g0 x[#23+1]
g1 z0
g1 x[#20-1]
g1 x[#23+1]
g0 z#42
m99

% Bore out air chamber
g0 x[#23+1]
g0 z#42
T303
f#40 s#41
m3
g0 z#42
g0 x#21
#1=[#21-#20]	% X travel
#2=fup[#1/#27]
#3=[#1/#2]
#1=#20
#4=+1.0
#5=[0-#11]
g0 x#1
g0 z#4
m98 p110 L#2
g0 x#20
g0 z#42

m5
m30
&---------------------------
o110
g0 x#1 z#4
#1=[#1+#3]
g1 x#1
g1 z#5
g0 x[#1-1]
g0 z#4
m99
%