NPT Thread Milling

;G65 P9000 U0. W0. A.375 R5. E10. Z-.5 V18. F10. o100 sub ;O9000 (PIPE THREADS) (U IS X LOCATION) (W IS Y LOCATION) (A=STARTING RADIUS) (R=NUMBER OF MOVES PER CIRCLE) (Z=DEPTH) (E=NUMBER OF PASSES [thickness / pitch]) (V=THREADS PER INCH) (F=FEED) #<U> = #1 #<W> = #2 #<A> = #3 #<R> = #4 #<E> = #5 #<Z> = #6 #<V> = #7 #<F> = #8 #3=0.0 #10=[360 / #<R>] #109=#10 #110=[1 / #<V>] #111=[0.0625 / #<V>] #3=#<R> G00 X#<U> Y#<W> G01 Z#<Z> F#<F> #19=[#<A> + #<U>] G01 X#19 Y#<W> F#<F> #<Z>=[#<Z> + #110 / #109] #24=[COS[ #3 ] * #<A>] #25=[SIN[ #3 ] * #<A>] #24=[#24 + #<U>] #25=[#25 + #<W>] G01 X#24 Y#25 Z#<Z> F#<F> #3=[#3 + #<R>] #<A>=[#<A> + #111 / #109] o110 if [ #3 LE 360.00000 * #<E> ] #<Z>=[#<Z> + #110 / #109] #24=[COS[ #3 ] * #<A>] #25=[SIN[ #3 ] * #<A>] #24=[#24 + #<U>] #25=[#25 + #<W>] G01 X#24 Y#25 Z#<Z> F#<F> #3=[#3 + #<R>] #<A>=[#<A> + #111 / #109] o110 endif G01 X#<U> Y#<W> F#<F> G00 Z1. M09 ;M99 o100 endsub o100 call [0][0][.375][5][10][-0.5][18][10] M2