% 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


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

% clean face
m98 p10

% Bore out air chamber
m98 p11

% Machine thread
m98 p12

% Machine base OD
m98 p13

% Machine upper OD #1
m98 p14

% Machine upper OD #2
m98 p15

% Part off
m98 p16

m5
m30
%------------------------
% 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
o11
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
m99

% Machine thread
o12
g0 x[#23+1]
g0 z#42
T303
g0 z#42
g0 x#21
f#40 s#44
m3
% X: end value but wrong with a V-tool
% R: X-start, optional
% Z: end value
% K: Z-start to allow synching
% P: pitch
% Q: spring pass at end
% H: depth at first pass, determines cut volume per pass
% L: is exit angle
% B: depth for last pass
% C: is X clearance on return
% I: is infeed angle for constant volume
% T: taper on thread
g0 z#35
G76 X#31 R#21 Z[0-#34] K#35 Q1 P#32 L45 H0.3 I29.5 C0.5 B0.05 T0
g0 x#20
g0 z#42
m99

% Machine base OD
o13
g0 x[#23+1]
g0 z#42
T202
f#40 s#41
m3
g0 z#42
g0 x#23
f#40 s#41
#1=[#23-#22]
#2=fup[#1/#27]
#3=[#1/#2]
#4=#35
#5=[0-#12]
#1=#23
g0 x#1 z#4
m98 p130 L#2
g0 x[#23+1]
g0 z#42
m99

% Machine upper OD #1
o14
g0 x[#23+1]
g0 z#42
T404
f#40 s#41
m3
#1=[#23-#24]
#2=fup[#1/#27]
#3=[#1/#2]
#4=[0-#13]
#5=[0-#10-2]
#1=#23
g0 x[#23+1]
g0 z#4
m98 p130 L#2
g0 x[#23+1]
g0 z#42
m99

% Machine upper OD #2
o15
g0 x[#23+1]
g0 z#42
T404
f#40 s#41
m3
#1=[#24-#25]
#2=fup[#1/#27]
#3=[#1/#2]
#4=[0-#14]
#5=[0-#10-1.5]
#6=[#24-#25]
#7=[#15-#14]
#1=[#1+#24]
g0 x[#23+1]
g0 z#4
m98 p150 L#2
g0 x[#23+1]
g0 z#42
m99

% Part off
o16
g0 x[#23+1]
g0 z#42
T404
f#40 s#41
m3
g0 z[0-#10]
g0 x[#25+0.5]
g1 x[#20-1]
g0 x[#23+1]
g0 z#42
m99


%---------------------
o100
g0 z[#1+0.5]
#1=[#1-#3]
g1 z#1
g0 z2
m99

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

o130
g0 x#1 z#4
#1=[#1-#3]
g1 x#1
g1 z#5
g0 x[#1+1]
g0 z#4
m99

o150
g0 x#1 z#4
#1=[#1-#3]
g1 x#1 z#4
g1 x[#1-#6] z[#4-#7]
g1 z#5
g0 x[#1+1]
g0 z#4
m99
%