; 100717:10.32 john thornton
; adapt for ngcgui format by:
;  1. making a subroutine with positional parms
;  2. shorten some names for visibility in gui

o<od> sub
#<Material_Dia> =  #1 (=0.260 Start Diameter)
#<Final_Dia>    =  #2 (=0.180 Final Diameter)
#<Depth_Cut>    =  #3 (=0.010 Depth of Cut)
#<Final_Cut>    =  #4 (=0.000 Final Cut)
#<SurfaceSpeed> =  #5 (=100 Surface Speed)
#<RoughFeed>    =  #6 (=2 Rough Feed)
#<FinishFeed>   =  #7 (=1 Finish Feed)
#<Max_RPM>      =  #8 (=1500 Max RPM)
#<Z_EndOfCut>   =  #9 (=-0.5 End of Cut)
#<Z_StartOfCut> = #10 (=0.100 Start of Cut)
#<RToolNumber>  = #11 (=3 Roughing Tool)
#<FToolNumber>  = #12 (=3 Finishing Tool)
#<Coolant>      = #13 (=8 Flood=8, Off=9)

T#<RToolNumber> M6
G43 G7 G96 D#<Max_RPM> S#<SurfaceSpeed>
F#<RoughFeed>

; Turn the OD
M3 M#<Coolant>
G0 X#<Material_Dia> Z#<Z_StartOfCut>
#1=#<Material_Dia>

o100 while [#1 gt #<Final_Dia>]

O101 if [#1 - #<Depth_Cut> gt #<Final_Dia> + #<Final_Cut>]
  #1 = [#1-#<Depth_Cut>]
O101 else
  O102 if [#1 - #<Final_Cut> gt #<Final_Dia>]
    #1 = [#<Final_Dia> + #<Final_Cut>]	
  O102 else
    #1 = [#<Final_Dia>]
    F#<FinishFeed>
  O102 endif
O101 endif

X#1
G1 Z#<Z_EndOfCut>
X[#1 + #<Depth_Cut> + 0.025]
G0 Z#<Z_StartOfCut>
o100 endwhile

G0 X[#1+0.025]
M5 M9
Z#<Z_StartOfCut>
G49
G53 G0 X0 Z0
o<od> endsub