@@ -48,34 +48,41 @@ if {$configError} {
4848package require Tk
4949
5050set flps {
51- CPV alio2-cr1-flp 162 162 " "
52- EMC alio2-cr1-flp 146 147 " "
53- FDD alio2-cr1-flp 201 201 " "
54- FT0 alio2-cr1-flp 200 200 " "
55- FV0 alio2-cr1-flp 180 180 " "
56- HMP alio2-cr1-flp 160 161 " "
57- ITS alio2-cr1-flp 187 198 " "
58- MCH alio2-cr1-flp 148 158 " "
59- MFT alio2-cr1-flp 182 186 " "
60- MID alio2-cr1-flp 159 159 " "
61- PHS alio2-cr1-flp 164 165 " "
62- TOF alio2-cr1-flp 178 179 " "
63- TPC alio2-cr1-flp 001 144 " "
64- TRD alio2-cr1-flp 166 177 " "
65- ZDC alio2-cr1-flp 181 181 " "
66- CTP alio2-cr1-flp 163 163 " "
67- TST alio2-cr1-mvs 01 02 " "
51+ CPV alio2-cr1-flp 162 162 {} " "
52+ EMC alio2-cr1-flp 146 147 {} " "
53+ FDD alio2-cr1-flp 201 201 {} " "
54+ FT0 alio2-cr1-flp 200 200 {} " "
55+ FV0 alio2-cr1-flp 180 180 {} " "
56+ HMP alio2-cr1-flp 160 161 {} " "
57+ ITS alio2-cr1-flp 187 198 {203} " "
58+ MCH alio2-cr1-flp 148 158 {} " "
59+ MFT alio2-cr1-flp 182 186 {} " "
60+ MID alio2-cr1-flp 159 159 {} " "
61+ PHS alio2-cr1-flp 164 165 {} " "
62+ TOF alio2-cr1-flp 178 179 {} " "
63+ TPC alio2-cr1-flp 001 144 {} " "
64+ TRD alio2-cr1-flp 166 177 {} " "
65+ ZDC alio2-cr1-flp 181 181 {} " "
66+ CTP alio2-cr1-flp 163 163 {} " "
67+ TST alio2-cr1-flp 204 204 {} " "
6868}
6969
7070set detectors {}
7171set nix 0
72- foreach {det host imin imax comment} $flps {
72+ foreach {det host imin imax iplus comment} $flps {
7373 if {[lsearch $det $detectors ]<0} {
7474 lappend detectors ${det}
7575 set v_nflp($det ) 0
7676 }
7777 set nz [string length $imin ]
78+ set listi {}
7879 for {set i $imin } {$i <= $imax } {incr i} {
80+ lappend listi $i
81+ }
82+ foreach i $iplus {
83+ lappend listi $i
84+ }
85+ foreach i $listi {
7986 set id [format " %0${nz} d" $i ]
8087 set h [join [list ${host} ${id} ] " " ]
8188 set n [format " %0${nz} d" $i ]
0 commit comments