Added linuxcnc test config before video release

This commit is contained in:
Hakan Bastedt
2024-01-06 20:54:15 +01:00
parent 9dcc713fab
commit 9a41ccd2bc
91 changed files with 13298 additions and 0 deletions

View File

@@ -0,0 +1,20 @@
# tcl file to enable jog pins
# for all axis letters
# for up to 9 joints
# errors are ignored
# scale defaults to 1, use ::argv otherwise for all
set scalevalue 1 ;# default
if {[llength $::argv] == 1} {
set scalevalue $::argv
}
catch {
foreach l {x y z a b c u v w} {
setp axis.$l.jog-enable 1
setp axis.$l.jog-scale $::scalevalue
}
for {set i 0} {$i < 9} {incr i} {
setp joint.$i.jog-enable 1
setp joint.$i.jog-scale $::scalevalue
}
}