#! /bin/csh -f
# File: Spectrum
# Author: K.R. Sloan
# Last Modified: 30 January 1991
# Purpose: construct a colormap
#
# Usage:
#    newSpectrum
#    cat Intensity.wff | i2rgb | ApplyMap newSpectrum.map | Show
#
#  this will false color an intensity map.
#
# MakeLinearMap [-f oldfile] startpixval [endpixval] r g b [r g b]]
(MakeLinearMap         0  63    0   0   0      0   0 159 > b; cat b > a)
(MakeLinearMap -f a   63  95    0   0 159      0 159 175 > b; cat b > a)
(MakeLinearMap -f a   95 128    0 159 175      0 159   0 > b; cat b > a)
(MakeLinearMap -f a  128 161    0 159   0    175 159   0 > b; cat b > a)
(MakeLinearMap -f a  161 179  175 159   0    255 159   0 > b; cat b > a)
(MakeLinearMap -f a  179 199  255 159   0    255   0   0 > b; cat b > a)
(MakeLinearMap -f a  199 239  255   0   0    255 127 191 > b; cat b > a)
(MakeLinearMap -f a  239 255  255 127 191    255 255 255 > b; cat b > a)
cat a >newSpectrum.map
rm -f a
rm -f b


