blob: e0dea8a7aecc8567b6f64f7f1c4606f0da18f570 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright (C) 1999-2018
# Smithsonian Astrophysical Observatory, Cambridge, MA, USA
# For conditions of distribution and use, see copyright notice in "copyright"
package provide DS9 1.0
proc PlotHighliteElement {varname rowlist} {
upvar #0 $varname var
global $varname
# rowlist starts at 1
set result {}
foreach rr $rowlist {
append result "[expr $rr-1] "
}
$var(proc,highlite) $varname $result
}
|