V groves in bar on cnc lathe

(odvcut for lathe from odtaper3)

;Do not use, not a working sub
;concept only

o<odvcut>sub
     #<Large_Diam> =    #1 (=1.00 Large Diameter)
     #<Small_Diam> =    #2 (=0.500 Small Diameter)
     #<Max_Cut> =       #3 (=0.100 Max Depth of Cut)
     #<Start_z> =       #4 (=0.00 Z Start of Cut)
     #<Center_z> =      #5 (=-.500 Z Center of Cut)
     #<End_z> =         #6 (=-1.00 Z End of Cut)
     #<Feed> =          #7 (=4 Feed IPM)
;     #<Final_Cut> =	#7 (=.005 Final Cut)
;     #<Fin_ Feed> = 	#8 (=2 Final cut speed)
;     #<Spring_Cuts> =   #9 (=0 Spring Cuts)
     

#<Stock_Diam_F> = #<Large_Diam>
#<Start_Diam_F> = #<Small_Diam>

;#<Large_Diam> = [#<Large_Diam> + #<Final_Cut>]
;#<Small_Diam> = [#<Small_Diam> + #<Final_Cut>]


#<Z_Len> = [0 - [#<End_z> - #<Start_z>]] ; length of Z cut
#<Cut_Amount> = [#<Large_Diam> - #<Small_Diam>] ; deepest X cut
#<Cuts> = FUP [[#<Cut_Amount> /  #<Max_Cut>]] ; round up the number of passes to reach deepest cut
#<Max_Cut> = [#<Cut_Amount> / #<Cuts>] ; amount to take off X each pass
#<Z_Cut> = [#<Z_Len> / #<Cuts>] ;length of each Z cut


;(DEBUG, Stock_Diam  #<Large_Diam>)
;(DEBUG, Target_Amount #<Target_Amount>)
;(DEBUG, Max_Target_Cut #<Max_Target_Cut>)


g18 (xz plane)
g20 (inches)
g40 (cancel cutter radius compensation)
g49 (cancel tool lengthoffset)
g90 (absolute distance mode)
g94 (units/min feedrate)
g54 (Coordinant system 1 default)
g7  (diameter mode)
g64 p.001 q.001 

M3 ; spindle cw

G0 X[#<Large_Diam> + .010] Z#<Start_z>
F#<Feed>
G1 X#<Large_Diam> 

#<Current-Diameter> = #<Large_Diam>
#<Current-Z> = #<Start_z> 
#<X_Target> = #<Large_Diam>
#<Z_Target> = #<Start_z> 

;#<Z_Target> = [#<Z_Target> - #<Z_Cut>]

o100 while [#<Cuts> gt 0]

#<Current-Diameter> = [#<Current-Diameter> - #<Max_Cut>]  
#<Z_Target> = [#<Z_Target> - #<Z_Cut>]

;G0 X [#<Current-Diameter> + .010]
G1 X #<Current-Diameter> Z #<Center_z>
;G1 X #<Current-Diameter>  
G1 X #<Large_Diam> Z #<End_z>
G0 X [#<Large_Diam> + .010]
G0 Z #<Start_z>

#<Cuts> = [#<Cuts> - 1]

o100 endwhile

; add finish cut here 
 

M5             ; stop spindle
G0 Z #<Start_z>

o<odvcut>endsub