initial commit

2022-08-18 15:04:28 +02:00
commit 46dcf8e77c
591 changed files with 69282 additions and 0 deletions
--- a/tcl/loadeuro.tcl
+++ b/tcl/loadeuro.tcl
@ -0,0 +1,34 @@
+proc loadeuro {name value args} {
+  clientput "nv makepar $name w $args"
+  eval nv makepar $name w $args
+  nv $name $value
+}
+
+proc ceuro {} {
+  nv makepar imode w int 199
+  nv imode 2
+}
+
+proc oeuro {} {
+  nv imode 0
+}
+
+proc leuro {} {
+  loadeuro decp 1 int 525
+  loadeuro inpL -2.47 12307
+  loadeuro inpH 79.68 12306
+  loadeuro VALL -78.0 12303
+  loadeuro VALH 437.5 12302
+  loadeuro rngL -78.0 11
+  loadeuro rngH 437.5 12
+#  loadeuro adj 1 int 566
+}
+
+publishLazy ceuro
+publishLazy leuro
+publishLazy oeuro
+
+clientput "ceuro (go to config mode)"
+clientput "leuro (load)"
+clientput "oeuro (go to oper mode)"
+