66 lines
1.9 KiB
Plaintext
Executable File
66 lines
1.9 KiB
Plaintext
Executable File
#<_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) |