G21  ; G21 mm / G20 inch
G54  ; absolute coordinates

#<_z_clearance> = 6
#<_rampang>     = 20

; 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

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

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

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

#<r> = [[#<w>+#5410]/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