#!/usr/bin/wishx
#
# set Debug 1
set Debug 0
set TimeX 0
set FileCt 0
set Colours [list green yellow red cyan orange blue purple pink gray white]
set ColourMap(yellow) "0.0 0.0 0.0 setrgbcolor"
#
set colct [expr [llength $Colours] - 1]
set colstep [expr .80/double($colct)]
set i 1
foreach c $Colours {
	set v [expr $i * $colstep]
	if {$c == "yellow"} {continue}
	set ColourMap($c) "$v $v $v setrgbcolor"
	puts stderr "Colour $c maps to $v"
	incr i
}
#
# at the moment the whole colour map thing doesn't work,
# produces PS that causes our printer to barf.
# this unset will turn the feature off.
unset ColourMap
#
set CurrHue green
set NoteRoot .
set NoteDirs ""
#
set ucodb /opt/share/tcl/lib/ucodb
loadlibindex $ucodb/ucodb.tlib
loadlibindex $ucodb/anyplot.tlib
set bitmapdir $ucodb/bitmaps
#
if {[file exists anyplot.cf]} {
	source anyplot.cf
}
#
package require BLT 2.4
#
bigPlot
drawControl
#
# this should be [lrange $argv 1 end] for tcl 830 and later
foreach df $argv {

	puts stderr "Read datafile $df"
	readData $df

}
