55 lines
1.2 KiB
Plaintext
55 lines
1.2 KiB
Plaintext
stickDesc = 100 mm dilution
|
|
|
|
set box linse-dil5
|
|
|
|
proc triton {kind obj name db col {htrdb ""}} {
|
|
upvar box box
|
|
makenv $obj -driver itc$kind -port ${box}:33576 -controller _tritondil $db $htrdb
|
|
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} {
|
|
upvar box box
|
|
makenv $obj -driver itctemp -port ${box}:3000 -controller _itcdil ${dbt}.T1 ${dbh}.H1
|
|
GraphAdd $obj K_5 T_$name
|
|
GraphAdd $obj.set K_5 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 H1
|
|
|
|
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
|
|
|
|
makenv tmixdrv -driver drvpar /tmix
|
|
|
|
defineTemperature tmixdrv
|
|
|
|
|