#! /bin/csh -f
# File: Spectrum
# Author: K.R. Sloan
# Last Modified: 16 November 1990
# Purpose: construct a colormap
#
# Usage:
#    Spectrum
#    cat Intensity.wff | i2rgb | ApplyMap Spectrum.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 127    0 159 175      0 159   0 > b; cat b > a)
(MakeLinearMap -f a  127 159    0 159   0    175 159   0 > b; cat b > a)
(MakeLinearMap -f a  159 175  175 159   0    255 159   0 > b; cat b > a)
(MakeLinearMap -f a  175 191  255 159   0    255   0   0 > b; cat b > a)
(MakeLinearMap -f a  191 223  255   0   0    255 127 191 > b; cat b > a)
(MakeLinearMap -f a  223 255  255  95 191    255 255 255 > b; cat b > a)
cat a >Spectrum.map
rm -f a
rm -f b


