#<_retract_z> = 1.0
#<_bottom_z>  = -0.2
#<_thru_z>    = -0.52
#<_start_z>   = 0.05
#<_feed_z>    = 40.0
#<_feed_xy>   = 60.0

#<_diam_t1>   = 0.375

#<_pocket_w> = 10.125
#<_pocket_h> = 6.375

#<_outer_w>  = 11.75
#<_outer_h>  = 8.75

G54
G91.1 ; relative arc distance

G0 X[-[#<_pocket_w>-#<_diam_t1>]/2] Y[-[#<_pocket_h>-#<_diam_t1>]/2] Z#<_retract_z>
G0 Z#<_start_z>
G1 F#<_feed_z> Z#<_bottom_z>

G1 F#<_feed_xy> X[+[#<_pocket_w>-#<_diam_t1>]/2] Y[-[#<_pocket_h>-#<_diam_t1>]/2]
G1 X[+[#<_pocket_w>-#<_diam_t1>]/2] Y[+[#<_pocket_h>-#<_diam_t1>]/2]
G1 X[-[#<_pocket_w>-#<_diam_t1>]/2] Y[+[#<_pocket_h>-#<_diam_t1>]/2]
G1 X[-[#<_pocket_w>-#<_diam_t1>]/2] Y[-[#<_pocket_h>-#<_diam_t1>]/2]

#<y> = [-[#<_pocket_h>-#<_diam_t1>]/2 + .1]
#<i> = 0
o201 while [#<y> LT [+[#<_pocket_h>-#<_diam_t1>]/2]]

	o203 if [[#<i> MOD 2] EQ 0]
		G1 X[-[#<_pocket_w>-#<_diam_t1>]/2 + .1] Y#<y>
		G1 X[+[#<_pocket_w>-#<_diam_t1>]/2 - .1] Y#<y>
	o203 else
		G1 X[+[#<_pocket_w>-#<_diam_t1>]/2 - .1] Y#<y>
		G1 X[-[#<_pocket_w>-#<_diam_t1>]/2 + .1] Y#<y>
	o203 endif

	#<i> = [#<i> + 1]
	#<y> = [-[#<_pocket_h>-#<_diam_t1>]/2 + .1 + #<i>*#<_diam_t1>*0.8]

o201 endwhile

G0 Z#<_retract_z>
G0 X[-[#<_outer_w>+#<_diam_t1>]/2] Y[-[#<_outer_h>+#<_diam_t1>]/2]
G0 Z#<_start_z>
G1 F#<_feed_z> Z#<_thru_z>

G1 F#<_feed_xy>
   X[-[#<_outer_w>+#<_diam_t1>]/2] Y[+[#<_outer_h>+#<_diam_t1>]/2 - 0.75]
G2 X[-[#<_outer_w>+#<_diam_t1>]/2 + 0.75] Y[+[#<_outer_h>+#<_diam_t1>]/2] I0.75 J0


G1 X[+[#<_outer_w>+#<_diam_t1>]/2 - 0.75] Y[+[#<_outer_h>+#<_diam_t1>]/2]
G2 X[+[#<_outer_w>+#<_diam_t1>]/2] Y[+[#<_outer_h>+#<_diam_t1>]/2 - 0.75] I0 J-0.75

G1 X[+[#<_outer_w>+#<_diam_t1>]/2] Y[-[#<_outer_h>+#<_diam_t1>]/2 + 0.75]
G2 X[+[#<_outer_w>+#<_diam_t1>]/2 - 0.75] Y[-[#<_outer_h>+#<_diam_t1>]/2] I-0.75 J0

G1 X[-[#<_outer_w>+#<_diam_t1>]/2 + 0.75] Y[-[#<_outer_h>+#<_diam_t1>]/2]
G2 X[-[#<_outer_w>+#<_diam_t1>]/2] Y[-[#<_outer_h>+#<_diam_t1>]/2 + 0.75] I0 J0.75



M2 (Program End)