Copied modifications from ics1-platypus.
This commit is contained in:
@@ -80,6 +80,8 @@ proc ::exp_mode::omega_2theta { arg1 arg2 {s1vg 0} {s2vg 0} {s3vg 0} {s4vg 0}} {
|
||||
} errMsg ] } {
|
||||
omega -1
|
||||
twotheta -1
|
||||
broadcast ERROR: omega_2theta command did not complete correctly
|
||||
broadcast $errMsg
|
||||
return -code error $errMsg
|
||||
}
|
||||
if {![string is double $s1vg] || ![string is double $s2vg] || ![string is double $s3vg] || ![string is double $s4vg]} {
|
||||
|
||||
Reference in New Issue
Block a user