; 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 sub # = #1 (=0.260 Material Diameter) # = #2 (=0.180 Final Diameter) # = #3 (=0.010 Depth of Cut) # = #4 (=0.000 Final Cut) # = #5 (=100 Surface Speed) # = #6 (=2 Feed Rate) # = #7 (=1500 Max Spindle RPM) # = #8 (=-0.5 End of Cut) # = #9 (=0.100 Start of Cut) # = #10 (=3 Roughing Tool) # = #11 (=3 Finishing Tool) ; Coolant 7 = Mist, 8 = Flood, 9 = Off # = #12 (=8 Flood=8, Off=9) T# M6 G43 G7 G96 D# S# ; Turn the OD M3 M# G0 X# Z# #1=# o100 while [#1 gt #] O101 if [#1-# gt #] #1=[#1-#] O101 else #1=# O101 endif X#1 G1 Z# F# G0 X[#1+0.025] Z# o100 endwhile G0 X[#1+0.025] M5 M9 Z# G49 G53 G0 X0 Z0 o endsub