initial commit

tcl/dil5_press_cell.stick

@@ -0,0 +1,56 @@
+stickDesc = 100 mm dilution with pressure cell
+
+proc triton {kind obj name db col} {
+  makenv $obj -driver itc$kind -port linse-dil5:33576 -controller _tritondil $db
+  switch $kind {
+    temp {
+      GraphAdd $obj K_3 T_$name
+      GraphAdd $obj.raw Ohm_3 R_$name
+    }
+    press {
+      GraphAdd $obj mbar_2 p_$name
+    }
+  }
+}
+
+proc itcchan {obj name dbt dbh col setcol} {
+  makenv $obj -driver itctemp -port linse-dil5:3001 -controller _itcdil ${dbt}.T1 ${dbh}.H1
+  GraphAdd $obj K_3 T_$name
+  GraphAdd $obj.set K_3 T_${name}_set $setcol
+  GraphAdd $obj.pow W_3 pow_$name
+  # GraphAdd $obj.raw Ohm_3 R_$name
+}
+
+itcchan twstill wupstill MB1 MB0 blue cyan
+
+itcchan tonek oneK DB5 DB3 red orange
+
+itcchan twmix wupMix DB6 DB1 green lightgreen
+
+itcchan twivc wupIVC DB7 DB2 magenta violet
+
+itcchan tcond cond DB8 DB3 yellow grey
+
+triton temp tsorb sorb T1 dark_violet
+triton temp tivc IVC T2 brown
+triton temp tstill still T3 orange
+triton temp tcp cond T4 grey
+triton temp tmix mix T5 cyan
+
+triton press pdump dump P1 cyan
+triton press pcond cond P2 blue
+triton press pstill still P3 black
+triton press pfore fore P4 green
+triton press pback back P5 red
+
+##==== pcell sensor
+makenv res -driver 370_lsc {
+  lsc_sensor s3 -channel 3 -sensor dil5red -excitation 20uV
+}
+
+GraphAdd res.s3 K_3 Tpcell
+
+makenv ts -driver drvpar /res/s3
+defineTemperature ts
+
+