24 lines
524 B
Plaintext
24 lines
524 B
Plaintext
o<mytouch> sub
|
|
o10 if [EXISTS[#<_hal[jog-axis-sel]>]]
|
|
#<selected-axis> = #<_hal[jog-axis-sel]>
|
|
;(DEBUG, my-mpg.axis-selector: #<selected-axis>)
|
|
|
|
(touch off)
|
|
o20 if [#<selected-axis> EQ 0]
|
|
G10 L20 P0 X0
|
|
M103
|
|
(MSG, touch off x axis)
|
|
o20 endif
|
|
|
|
(touch off z axis)
|
|
o30 if [#<selected-axis> EQ 1]
|
|
G10 L20 P0 Z0
|
|
M103
|
|
(MSG, touch off z axis)
|
|
o30 endif
|
|
o10 else
|
|
(DEBUG, didn't exist)
|
|
o10 endif
|
|
o<mytouch> endsub
|
|
M2
|