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


