%
(---------)
(prepare to cut the oring)
(feed will be .75 ipm at 1200 rpm)
g0 z.2
#<radius> = 3.159
#<feed_rate> = .75
#<depth> = .074
#<pass> = .020

g0 x[#<radius>] y0
g0 z0
m5 m0 (msg, change to oring cutter at surface)
g0 z.2 
s1200 m3 (start the spindle)
g0 x#<radius> y0 (start on the right side)
g0 z0

#<d> = 0

o<L1> while [#<d> LT #<depth>]
   #<d> = [#<d> + #<pass>]
   o<T1> if [#<d> GT #<depth>]
       #<d> = #<depth>
   o<T1> endif
   (g2 is clockwise)
   (full turn to depth)
   g2 f#<feed_rate> z[0-#<d>] x[0-#<radius>] y0 r#<radius>
   g2 f#<feed_rate> z[0-#<d>] x#<radius> y0 r#<radius>
o<L1> endwhile

(full turn at final depth)
g2 f#<feed_rate> z[0-#<d>] x[0-#<radius>] y0 r#<radius>
g2 f#<feed_rate> z[0-#<d>] x#<radius> y0 r#<radius>

g0 z.2
g0 x0 y0

m5 (shutdown)
%