linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

genmotconf.tcl now sorts the posit_n parameters by value.

Browse Source 
Sort is ascending if cntsperx is positive, descending if negative.
Improve error and report logs generated by genmotconf.tcl
It is not an error if a missing attributed can be initialised with a
default value by genmotconf.tcl.
Replace the COLLIMATOR_POSITIONS.csv with Bilby_motion_control_commissioning_checklist.csv
Generate new "generated_motor_configuration.tcl" file.
This commit is contained in:
Ferdi Franceschini
2014-01-30 12:47:18 +11:00
committed by Ferdi Franceschini
parent f6ae3c62f7
commit 4a134cf2d0
4 changed files with 152 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/util/genmotconf_procs.tcl
View File

@@ -23,8 +23,8 @@ proc parse_file {fname fhr fhe} {
puts $fhr "Add ::${mn}_encatts($matt) = $val"
set ::${mn}_encatts($matt) $val
} else {
puts $fhr "Add ::${mn}($matt) = $val"
set ::${mn}($matt) $val
puts $fhr "Add ::${mn}_attarr($matt) = $val"
set ::${mn}_attarr($matt) $val
}
incr ::motor_attcnt($mn)
if { $matt == "mc" } {
@@ -106,8 +106,8 @@ puts $fhmc \}
# @param posnum Number of discrete positions
# @param posit_list Name of global list of name value pairs, "posit_n pos". Can be empty.
proc mk_motconf {mot fh absEnc posnum posit_list} {
set mc [set ::${mot}(mc)]
set axis [set ::${mot}(axis)]
set mc [set ::${mot}_attarr(mc)]
set axis [set ::${mot}_attarr(axis)]
set units ${mot}_units
set hardlowerlim ${mot}_rev_lim
set hardupperlim ${mot}_fwd_lim