Ny structure. Start of the "main" branch

Cards/EaserCAT-2000/linuxcnc/sim.gmoccapy.lathe_configs/hallib/wheeljogpins.tcl

@@ -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
+  }
+}