; Finish facing and OD with corner radius and cutter comp
o<taper-od> sub
#<MaxRPM>          = #1 (= 3000 Max RPM)
#<SurfaceUnitsMin> = #2 (= 100 Surface Units/Min)
#<FeedRate>        = #3 (= 2 Feed Rate)
#<Z-Start>         = #4 (= 0.000 Z Start)
#<Z-End>           = #5 (=  Z End)
#<StartDiameter>   = #6 (=  Start Diameter)
#<Angle>           = #7 (= 10 Angle)
#<Tool>            = #8 (= 3 Tool Number)
#<Coolant>         = #9 (= 8 Flood=8, Off=9)

#<X-End> = [#<StartDiameter> + [[#<Z-Start> - #<Z-End>] * TAN[#<Angle>]]]

G7 G18 G40 G54
G96 D#<MaxRPM> S#<SurfaceUnitsMin> (Constance Surface Speed)
T#<Tool> M6
G43 (load tool offset)
G42 (start cutter comp)
M3 M#<Coolant>
G0 X#<StartDiameter> Z[#<Z-Start> + .1000]
G1 X#<StartDiameter> Z#<Z-Start> F#<FeedRate>
X#<X-End> Z#<Z-End>
X[#<X-End> + 0.100]
M5 M9
G0 Z#<Z-Start>
o<taper-od> endsub