74 lines
1.1 KiB
Plaintext
74 lines
1.1 KiB
Plaintext
O<probe-hole> sub
|
|
G20 F25
|
|
|
|
#1000=#1 ;max radius
|
|
|
|
G91 G38.3 Z.00001
|
|
#1001=#5061
|
|
#1002=#5062
|
|
|
|
G91 G38.2 X#1000
|
|
#1003=#5061
|
|
G90 G0 X#1001
|
|
G91 G38.2 X[0-#1000]
|
|
#1004=#5061
|
|
#1001=[[#1003+#1004]/2]
|
|
G90 G0 X#1001
|
|
|
|
G91 G38.2 Y#1000
|
|
#1005=#5062
|
|
G90 G0 Y#1002
|
|
G91 G38.2 Y[0-#1000]
|
|
#1006=#5062
|
|
#1002=[[#1005+#1006]/2]
|
|
G90 G0 Y#1002
|
|
|
|
|
|
G91 G38.2 X#1000
|
|
#1003=#5061
|
|
G90 G0 X#1001
|
|
G91 G38.2 X[0-#1000]
|
|
#1004=#5061
|
|
#1001=[[#1003+#1004]/2]
|
|
G90 G0 X#1001
|
|
|
|
G91 G38.2 Y#1000
|
|
#1005=#5062
|
|
G90 G0 Y#1002
|
|
G91 G38.2 Y[0-#1000]
|
|
#1006=#5062
|
|
#1002=[[#1005+#1006]/2]
|
|
G90 G0 Y#1002
|
|
|
|
|
|
F0.1
|
|
|
|
G90 G0 X[#1003-0.005]
|
|
G91 G38.2 X0.010
|
|
#1003=#5061
|
|
G90 G0 X[#1004+0.005]
|
|
G91 G38.2 X-0.010
|
|
#1004=#5061
|
|
#1001=[[#1003+#1004]/2]
|
|
G90 G0 X#1001
|
|
|
|
G90 G0 Y[#1005-0.005]
|
|
G91 G38.2 Y0.010
|
|
#1005=#5062
|
|
G90 G0 Y[#1006+0.005]
|
|
G91 G38.2 Y-0.010
|
|
#1006=#5062
|
|
#1002=[[#1005+#1006]/2]
|
|
G90 G0 Y#1002
|
|
G91 G1 F1 X[0-#5071] Y[0-#5072]
|
|
G90
|
|
|
|
#1007=[#1003-#1004+[6.0/25.4]]
|
|
#1008=[#1005-#1006+[6.0/25.4]]
|
|
#1009=[[#1007+#1008]/2]
|
|
#1010=[atan[#1002]/[#1001]]
|
|
#1011=[sqrt[[#1001*#1001]+[#1002*#1002]]]
|
|
|
|
(debug,Dia #1009 Ang #1010 Dist #1011)
|
|
O<probe-hole> endsub
|