#<Major_Dia> = 1.00
#<Minor_Dia> = 0.375
#<Angle> = 30
#<Zstart> = 0.00
#<Tool> = 32
#<SurfaceSpeed> = 1200
#<FeedRate> = 10
#<Max_RPM> = 3000
#<DOC> = 0.02
#<Clearance> = 0.1

G40

T#<Tool> M6
G43 G7
G97 S2000
G18
(G96 D#<Max_RPM> S#<SurfaceSpeed>)

#<ZDOC> = [[#<DOC>] / TAN[#<Angle>]]
#<Zend> = [#<Zstart> - [ [ [#<Major_Dia> - #<Minor_Dia>] / 2 ] / TAN[#<Angle>] ]]
(above is delta D / 2 because we Zend needs to be a function of X travel, which is radius)


(real quick like, use T33 to draw the outline of the programmed toolpath ie no radius comp)
T33 M6
G43
G0 Z#<Zstart> X#<Major_Dia>
M3 F#<FeedRate>
G1 X#<Minor_Dia> Z#<Zend>
   X#<Major_Dia>

T#<Tool> M6
G43
; Raster cut the taper

#<Xend> = [#<Minor_Dia>]

#3 = #<Clearance>
#2 = [ #<Zstart> ]
#1 = [#<Major_Dia>]

M3 F#<FeedRate>

O100 DO

G0 Z#2 X[#1 + #3]

G42

G1 X[#1]

#1 = [#1 - [2*#<DOC>]] (double the DOC because we're in diameter mode)
#2 = [#2 - #<ZDOC>]

O101 IF [#1 lt #<Xend>]

(debug,we're under Xend: #<Xend>, 1: #1)

#4 = [[2*#<DOC>] - [#<Xend> - #1]]
#5 = [#4 / TAN[#<Angle>]]

(debug,4: #4 5: #5)

#1 = #<Xend>
#2 = [#2 - #5]

O101 ENDIF

G1 X[#1] Z[#2]
G40
G1 Z#<Zend>


G0 X[#1 + #3] Z[#<Zend> + #3]
   Z#2

O100 WHILE [ #1 gt #<Xend> + [1 * #3] ]

M5

M2