1 files changed, 17 insertions, 0 deletions
diff --git a/ds9/library/plotelement.tcl b/ds9/library/plotelement.tcl
new file mode 100644
index 0000000..4fc8e68
--- /dev/null
+++ b/ds9/library/plotelement.tcl
@@ -0,0 +1,17 @@
+#  Copyright (C) 1999-2016
+#  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
+}