PRO dmspct

; Establish the number of colors and the relative RGB intensities.

r=[0.2,0.5,0.2,0.5,0.5,0.3,0.0,0.0,0.6,1.0,1.0,1.0,1.0,1.0,1.0]
g=[0.0,0.0,0.0,0.3,0.5,0.6,0.5,0.8,0.9,1.0,0.8,0.5,0.0,0.5,0.8]
b=[0.2,0.5,0.6,0.9,0.9,0.9,0.0,0.0,0.0,0.0,0.2,0.2,0.0,0.5,0.8]

; Expand to !D.N_COLORS elements and normalize to 256 steps.

samp=BYTE(FINDGEN(!D.N_COLORS)*(15./!D.N_COLORS))
rexp=BYTSCL(r(samp))
gexp=BYTSCL(g(samp))
bexp=BYTSCL(b(samp))

; Load the color table.

TVLCT,rexp,gexp,bexp

RETURN
END