19 lines
429 B
Plaintext
19 lines
429 B
Plaintext
o<gtk_probe_xplus> sub
|
|
|
|
#<x>=#<_x> (save start X position)
|
|
(PRINT, position X #<_x> )
|
|
G91
|
|
F #<_hal[probe.ps_searchvel]>
|
|
G38.2 X[#<_hal[probe.ps_probe_max]>]
|
|
G1 X[-#<_hal[probe.ps_probe_latch]>] F#<_ini[TOOLSENSOR]RAPID_SPEED>
|
|
F #<_hal[probe.ps_probevel]>
|
|
G4 P0.5
|
|
G38.2 X[#<_hal[probe.ps_probe_latch]>*2]
|
|
(print, probe X=#5061 )
|
|
G90
|
|
(back to start point)
|
|
G1 X#<x> F#<_ini[TOOLSENSOR]RAPID_SPEED>
|
|
|
|
o<gtk_probe_xplus> endsub
|
|
M2
|