TEK_COLOR Procedure

Standard Library procedure that loads a color table, which contains 32 distinct colors and is similar to the default Tektronix 4115 color table, into the display.

TEK_COLOR

None.

None.

TEK_COLOR loads the first 32 elements of the color table with the Tektronix 4115 default color map. This creates a useful color table if you desire distinctive colors.

b = FINDGEN(37)
x = b * 10
y = SIN(x * !Dtor)

; Create an array containing the values for a sine function from 0 to
; 360 degrees.

PLOT, x, y, XRange=[0,360], XStyle=1, YStyle=1

; Plot data and set the range to be exactly 0 to 360.

COLOR_PALETTE

; Put up a window containing a display of the current color table and
; its associated color indices.

TEK_COLOR

; Load a predefined color table that contains 32 distinct colors.

POLYFILL, x, y, Color=6
POLYFILL, x, y/2, Color=3
POLYFILL, x, y/6, Color=4

; Fill in areas under the curve with different colors.

z = COS(x * !Dtor)

; Create an array containing the values for a COS function from 0 to 360 degrees.

OPLOT, x, z/8, Linestyle=2, Color=5

; Plot the cosine data on top of the sine data.

This example creates a contour plot of Pike's Peak, with the area in between the contour lines filled with a solid color.

OPENR, 1, !Data_dir + 'pikeselev.dat'
pikes = FLTARR(60, 40)
READF, 1, pikes

; Read in the data file.

CLOSE, 1
c_pikes = FLTARR(62, 42)
c_pikes(1, 1) = pikes

; Close any open contours.

TEK_COLOR 

; Load a color table.

CONTOUR2, c_pikes, $
    Levels=[5,6,7,8,9,10,11,12,13,14,15]*1000,$
XStyle=1, YStyle=1, /Fill

; Produce a filled contour plot. 

pikes = REBIN(pikes, 600, 400) 

; Enlarge the original dataset for better display.

TV, BYTSCL(pikes, Top=10)

; Display the plot as an image similar to the filled contour plot. (Displaying it
; as an image allows access to image processing and analysis
; routines, such as DEFROI, HISTOGRAM, and PROFILES.)

C_EDIT, COLOR_EDIT, COLOR_PALETTE, LOADCT, PALETTE, TVLCT