G21  ; G21 mm / G20 inch
G54  ; absolute coordinates

#<_z_clearance> = 6
#<_rampang>     = 20
#<_td> = [9/16*25.4]

; mode refernce
; +1: Conventional milling
; +2: Both-ways milling
; +4: Plunge entry
; +8: Outside

F250  ; inch or mm/min (300 mm/min = about 1 ft/min)


#<xo> = 40

#<y> = -12.5
#<d> = 14.0

;o<frame_circ> call [0][0] [13.0] [+1][-5]  [0] [+4+8]
;o<frame_circ> call [0][0] [13.0] [-4][-10] [0] [+4+8]
o<frame_circ> call [0][0] [15.0] [+1][-14] [0] [+4+8]
o<frame_circ> call [0][0] [11.5] [+1][-14] [0] [+4+8]
o<frame_circ> call [0][0] [7.95] [+1][-14] [0] [+4+8]

;o<frame_circ> call [0][0] [17] [-13][-18] [3] [+4+8]
o<frame_circ> call [0][0] [17] [-13][-23] [3] [+4+8]
;M02

#<w> = 13
#<n> = 6

#<r> = [[#<w>+#<_td>]/2/COS[360/2/#<n>]]

G0 Z#<_z_clearance>
G0 X#<r> Y0
G0 Z-13
G1 Z-23

#<i> = 1
o100 while [#<i> LE #<n>]
	G1 X[#<r>*COS[360/#<n>*#<i>]] Y[-#<r>*SIN[360/#<n>*#<i>]]
	#<i> = [#<i>+1]
o100 endwhile

G0 Z#<_z_clearance>

M2 ; end program