Facing

(info: Facing)
; TOUCH OFF Z zero FIRST
; variable 5410 is the current tool tip diameter so make sure
; your tool table is set correctly...

o<face>sub
#<stock-diameter> = #1 (=1.000 Stock Diameter)
#<cut-depth> = #2 (=0.010 Cut Depth)
#<start-z> = #3 (=0.000 Start Z)
#<end-z> = #4 (=-0.020 End Z)
#<sfm> = #5 (=80 SFM)
#<tool> = #6 (=1 Tool)
#<max-rpm> = #7 (=2000 Max RPM)
#<feed-rate> = #8 (=2 Feed IPM)
#<coolant>= #9 (=8 Coolant 8 On 9 Off)
#<setZzero>= #10 (=0 Set Z0 0=No 1=Yes)

; SETUP TOOL
G18
T#<tool> M6
G43 
G7 G96 D#<max-rpm> S#<sfm>
F#<feed-rate>

M3 M#<coolant>

#<inital-z> = [#<start-z>+0.050]
G0 X[#<stock-diameter>+0.050] Z[#<inital-z>]

#<current-z> = #<start-z>

o100 while[#<current-z> gt #<end-z>]
 o101 if[#<current-z>-#<cut-depth> gt #<end-z>]
  #<current-z> = [#<current-z>-#<cut-depth>]
 o101 else
  #<current-z> = #<end-z>
 o101 endif
Z[#<current-z>]
G1 X-[#5410*3]
Z[#<current-z>+#5410+#5410]
G0 X[#<stock-diameter>+0.05]
o100 endwhile

M5 M9

; set Z zero to end of stock
o110 if [#<setZzero> EQ 1]
  G0 Z[#<current-z>]
  G10 L20 P1 Z0.000
  G4P1.0
  (MSG,Z Zero Set To Face)
o110 endif
G53 G0 X0 Z0
G97
o<face>endsub