CONTOURFILL Procedure

Standard Library procedure that fills both open and closed contours with specified colors or patterns.

Delete_File If present, deletes filename after the CONTOURFILL procedure finishes.

Pattern A 3D array containing the patterns used to fill the various contour levels. Each pattern is an n-by-m rectangular array of pixels. (See the description of the Pattern graphics keyword in Chapter 3, Graphics and Plotting Keywords, for an example.)

XRange and YRange The desired data range of the x and y-axes, specified as a two-element vector. The first element is the axis minimum, and the second is the maximum. PV-WAVE will frequently round this range. You must use the XRange and YRange keywords with CONTOURFILL if:

TIP: For best results, the XRange and YRange keywords used with CONTOURFILL should match the ones used with CONTOUR.

TIP: If you are plotting a large data set, use the EMPTY procedure to be sure that all buffered output is written to the current graphics device.

NOTE: CONTOURFILL creates a temporary file named filename+1, so you must have write permission in the directory where filename exists.

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

; Read in the data file.

TEK_COLOR

; Load a color table.

CONTOUR, pikes, Levels=[5,6,7,8,9,10,11,12,13,14,15]*1000,  $
    Path='path.dat', XStyle=1, YStyle=1

; Contour the data and store the results in file path.dat.

CONTOURFILL, 'path.dat', pikes, Color_Index=INDGEN(12)

; Display the contour plot with contours filled with solid colors.

Figure 2-19 Contour plot of Pike's Peak elevation filled with solid colors.

Figure 2-20 Contour plot of Pike's Peak elevation filled with solid colors.

pat1 = BYTARR(3, 3)
pat1(1, *) = 255
pat1(*, 1) = 255

; Create the first pattern, a cross pattern.

pat2 = BYTARR(3, 3)
FOR i = 0, 2 DO pat2(i, i) = 255

; Create the second pattern, a diagonal pattern.

pat3 = BYTARR(3, 3)

; Create the third pattern, a solid fill of color zero.

pat4 = REPLICATE(255b, 3, 3)

; Create the fourth pattern, a solid fill of color 255.

pat5 = BYTARR(3, 3)
FOR i = 0, 2 DO pat5(2-i, i) = 255

; Create the fifth pattern, a backwards diagonal pattern.

pat3d = BYTARR(3, 3, 5)

; Create a 3D array in which to store the patterns.

pat3d(*, *, 0) = pat1
pat3d(*, *, 1) = pat2
pat3d(*, *, 2) = pat3
pat3d(*, *, 3) = pat4
pat3d(*, *, 4) = pat5

; Store the patterns in the array named pat3d.

CONTOURFILL, 'path.dat', pikes, Pattern = pat3d, /Delete_File

; Display the contour plot with the contours lines filled with
; the pattern.

Figure 2-21 Pattern-filled contour map of Pike's Peak elevation.

Figure 2-22 Pattern-filled contour map of Pike's Peak elevation.

TV,  BYTSCL(array,  Top=n)

TEK_COLOR
pikes=REBIN(pikes, 600, 400)
TV, BYTSCL(pikes, Top = 10)