146 lines
3.8 KiB
Plaintext
Executable File
146 lines
3.8 KiB
Plaintext
Executable File
o<end_round> sub
|
|
; o<cope_angle> call [side] [x][y] [r] [ztop][zbot] [fincut] [mode]
|
|
|
|
; right now only 0 and 2 work but hey that's most of what you'd do
|
|
; 0: +x side
|
|
; 1: +y side
|
|
; 2: -x side
|
|
; 3: -y side
|
|
|
|
;G10 L0 ; re-read tool data
|
|
G90 ; absolute x,y,z
|
|
G90.1 ; absolute i,j,k
|
|
M101 ; enable Z-axis (M102 disables)
|
|
G17 ; select XY plane for arcs
|
|
|
|
#<M_CONVENTIONAL> = [FIX[#8/1] MOD 2 EQ 1]
|
|
#<M_BOTHWAYS> = [FIX[#8/2] MOD 2 EQ 1]
|
|
#<M_PLUNGE> = [FIX[#8/4] MOD 2 EQ 1]
|
|
#<M_OUTSIDE> = [FIX[#8/8] MOD 2 EQ 1]
|
|
#<M_CLIMB> = [FIX[#8/1] MOD 2 EQ 0]
|
|
#<M_ONEWAY> = [FIX[#8/2] MOD 2 EQ 0]
|
|
#<M_HELIX> = [FIX[#8/4] MOD 2 EQ 0]
|
|
#<M_INSIDE> = [FIX[#8/8] MOD 2 EQ 0]
|
|
|
|
|
|
#<td> = #<_td>
|
|
#<tr> = [#<td>/2]
|
|
o1 if [EXISTS[#<_z_clearance>]]
|
|
#<z_clearance> = #<_z_clearance>
|
|
o1 else
|
|
#<z_clearance> = #5
|
|
o1 endif
|
|
o3 if [EXISTS[#<_stepover>]]
|
|
#<stepover> = #<_stepover>
|
|
o3 else
|
|
#<stepover> = [#<td>*0.4]
|
|
o3 endif
|
|
o4 if [EXISTS[#<_overlap>]]
|
|
#<overlap> = #<_overlap>
|
|
o4 else
|
|
#<overlap> = [#<stepover>*0.4]
|
|
o4 endif
|
|
|
|
G0 Z#<z_clearance>
|
|
|
|
#<cs> = +1
|
|
o10 if [#<M_CLIMB>]
|
|
#<cs> = -1
|
|
o10 endif
|
|
|
|
#<sectorang> = [45 + #1*#<cs>]
|
|
o300 while [#<sectorang> GE [-45 + #1*#<cs>]]
|
|
|
|
#<l_total> = [SQRT[2]*#4]
|
|
#<l_steps> = FUP[[#<l_total>-#4-ABS[#7]]/#<stepover>]
|
|
|
|
#<r> = [#4 + ABS[#7] + #<tr> + #<l_steps>*#<stepover> + #<stepover>*0.2*SQRT[2]]
|
|
|
|
G0 X[#2 + #<r>*COS[#<cs>*#<sectorang>]] Y[#3 + #<r>*SIN[#<cs>*#<sectorang>]]
|
|
G0 Z#5
|
|
G1 Z#6
|
|
|
|
o200 while [#<l_steps> GE 1]
|
|
#<r> = [#4 + ABS[#7] + #<tr> + #<l_steps>*#<stepover>]
|
|
#<a_extra> = [#<overlap>/#<r>*57.3]
|
|
|
|
#<a> = [ASIN[[#4 + #<tr>]/#<r>]-45]
|
|
o201 if [#<a> LT 0]
|
|
#<a> = 0
|
|
o201 endif
|
|
|
|
#<a> = [#<a> + #<a_extra>]
|
|
o202 if [#<a> GT 45]
|
|
#<a> = 45
|
|
o202 endif
|
|
|
|
o205 if [#<M_BOTHWAYS>]
|
|
|
|
G1 X[#2 + #<r>*COS[#<cs>*[#<sectorang>-#<a>]]] Y[#3 + #<r>*SIN[#<cs>*[#<sectorang>-#<a>]]]
|
|
o204 if [#<M_CLIMB>]
|
|
G2 X[#2 + #<r>*COS[#<cs>*[#<sectorang>+#<a>]]] Y[#3 + #<r>*SIN[#<cs>*[#<sectorang>+#<a>]]] I#2 J#3
|
|
o204 else
|
|
G3 X[#2 + #<r>*COS[#<cs>*[#<sectorang>+#<a>]]] Y[#3 + #<r>*SIN[#<cs>*[#<sectorang>+#<a>]]] I#2 J#3
|
|
o204 endif
|
|
G0 X[#2 + [#<r>+#<stepover>*0.2]*COS[#<cs>*[#<sectorang>+#<a>]]] Y[#3 + [#<r>+#<stepover>*0.2]*SIN[#<cs>*[#<sectorang>+#<a>]]]
|
|
#<aa> = [#<a>]
|
|
o203 while [#<aa> GT -#<a>]
|
|
G0 X[#2 + [#<r>+#<stepover>*0.2]*COS[#<cs>*[#<sectorang>+#<aa>]]] Y[#3 + [#<r>+#<stepover>*0.2]*SIN[#<cs>*[#<sectorang>+#<aa>]]]; I#2 J#3
|
|
#<aa> = [#<aa>-1]
|
|
o203 endwhile
|
|
|
|
o205 else
|
|
o206 if [#<l_steps> MOD 2]
|
|
#<a> = [-#<a>]
|
|
o206 endif
|
|
G1 X[#2 + #<r>*COS[#<cs>*[#<sectorang>-#<a>]]] Y[#3 + #<r>*SIN[#<cs>*[#<sectorang>-#<a>]]]
|
|
o204 if [#<l_steps> MOD 2 EQ #<M_CLIMB>]
|
|
G3 X[#2 + #<r>*COS[#<cs>*[#<sectorang>+#<a>]]] Y[#3 + #<r>*SIN[#<cs>*[#<sectorang>+#<a>]]] I#2 J#3
|
|
o204 else
|
|
G2 X[#2 + #<r>*COS[#<cs>*[#<sectorang>+#<a>]]] Y[#3 + #<r>*SIN[#<cs>*[#<sectorang>+#<a>]]] I#2 J#3
|
|
o204 endif
|
|
|
|
o205 endif
|
|
|
|
#<l_steps> = [#<l_steps>-1]
|
|
|
|
o200 endwhile
|
|
|
|
G0 Z#<z_clearance>
|
|
|
|
#<sectorang> = [#<sectorang>-90]
|
|
o300 endwhile
|
|
|
|
|
|
#<r> = [#4 + ABS[#7] + #<tr>]
|
|
|
|
G0 X[#2 + #<r>*COS[-90*#<cs> + #1]] Y[#3 + #<r>*SIN[-90*#<cs> + #1]]
|
|
G0 Z#5
|
|
G1 Z#6
|
|
o401 if [#<M_CLIMB>]
|
|
G2 X[#2 + #<r>*COS[+90*#<cs> + #1]] Y[#3 + #<r>*SIN[+90*#<cs> + #1]] I#2 J#3
|
|
o401 else
|
|
G3 X[#2 + #<r>*COS[+90*#<cs> + #1]] Y[#3 + #<r>*SIN[+90*#<cs> + #1]] I#2 J#3
|
|
o401 endif
|
|
G0 Z#<z_clearance>
|
|
|
|
o400 if [#7 GT 0]
|
|
#<r> = [#4 + #<tr>]
|
|
|
|
G0 X[#2 + #<r>*COS[-90*#<cs> + #1]] Y[#3 + #<r>*SIN[-90*#<cs> + #1]]
|
|
G0 Z#5
|
|
G1 Z#6
|
|
o402 if [#<M_CLIMB>]
|
|
G2 X[#2 + #<r>*COS[+90*#<cs> + #1]] Y[#3 + #<r>*SIN[+90*#<cs> + #1]] I#2 J#3
|
|
o402 else
|
|
G3 X[#2 + #<r>*COS[+90*#<cs> + #1]] Y[#3 + #<r>*SIN[+90*#<cs> + #1]] I#2 J#3
|
|
o402 endif
|
|
o400 endif
|
|
|
|
|
|
|
|
G0 Z#<z_clearance>
|
|
|
|
o<end_round> endsub
|
|
|
|
M2 |