diff --git a/site_ansto/instrument/config/source/source_common.tcl b/site_ansto/instrument/config/source/source_common.tcl index 7e8738ea..6c2832ee 100644 --- a/site_ansto/instrument/config/source/source_common.tcl +++ b/site_ansto/instrument/config/source/source_common.tcl @@ -90,6 +90,20 @@ proc ::source::ic_initialize {guide} { sicslist setatt cns_flow long_name cns_flow_temp sicslist setatt cns_flow mutable true sicslist setatt cns_flow units "ls-1" + + ::utility::macro::getset float cg123He_temp {} { + set str [opal "CG 1,2,3 HELIUM TEMPERATURE"] + set value [lindex [lindex [split $str =] 1] 0] + if [string is double $value] { + return "cg123He_temp = $value" + } else { + return "cg123He_temp = -1" + } + } + sicslist setatt cg123He_temp klass source + sicslist setatt cg123He_temp long_name cg123He_temp + sicslist setatt cg123He_temp mutable true + sicslist setatt cg123He_temp units "K" } "thermal" { }