?

nc_files/programs/HEMA-P057.ngc

@@ -0,0 +1,50 @@
+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