initial commit

tcl/drivers/cs340.tcl

@@ -0,0 +1,60 @@
+#current source with LS 340
+
+namespace eval cs340 {} {
+}
+
+proc stdConfig::cs340 {} {
+  controller std "\r" 5
+  prop startcmd "*IDN?"
+
+  obj CS340 out
+  prop write cs340::write
+
+  kids "Current Source" {
+    node maxcur out
+    prop write cs340::wrcur
+    node readback rd
+    prop readcmd "HTR?"
+    prop readfmt "%g"
+    prop update cs340::update
+  }
+}
+
+proc cs340::update {} {
+  sct update [expr [hvali /current/maxcur] * 0.01 * [stdSct::scanresult]]
+  return idle
+}
+
+proc cs340::write {} {
+  set cur [expr [sct target] * 100.0 / [hvali [sct]/maxcur]]
+  sct send [format "MOUT 1,%g;MOUT?1" $cur]
+  sct update [sct target]
+  return complete
+}
+
+proc cs340::wrcur {} {
+  set tar [sct target]
+  set htrr 5
+  set mag 1.0
+  while {$tar < 0.21} {
+    set tar [expr $tar * 10.0]
+    incr htrr -2
+    set mag [expr $mag * 0.1]
+  }
+  if {$tar > 1.1} {
+    set curr 4
+    set curv 2.0
+  } elseif {$tar > 0.6} {
+    set curr 3
+    set curv 1.0
+  } elseif {$tar > 0.26} {
+    set curr 2
+    set curv 0.5
+  } else {
+    set curr 1
+    set curv 0.25
+  }
+  sct update [expr $curv * $mag]
+  sct send "CLIMIT 1,1,10,10,$curr,$htrr;CSET 1,,,1,1;RANGE $htrr;CMODE 1,3;MOUT 1,0;*IDN?"
+  return complete
+}