RE: ListContourPlot Color

*To*: mathgroup at smc.vnet.net*Subject*: [mg31505] RE: [mg31474] ListContourPlot Color*From*: "David Park" <djmp at earthlink.net>*Date*: Thu, 8 Nov 2001 04:55:16 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

John, Yes, you can explicitly color each contour range. Here is an example. I used a ContourPlot instead of a ListContourPlot to save the extra steps of generating a set of data. Needs["Graphics`Colors`"] colfun[contourvals_, colorlist_][z_] := Module[{i}, If[z > Last[contourvals], Return[Last[colorlist]]]; i = 1; While[z > contourvals[[i]], i++]; colorlist[[i]]] contourvals = Range[0.2, 0.8, 0.1]; colorlist = {Gray, RoyalBlue, AureolineYellow, RoyalBlue, AureolineYellow, RoyalBlue, AureolineYellow, Gray}; ContourPlot[Sin[x]Sin[y], {x, 0, Pi}, {y, 0, Pi}, Contours -> contourvals, ColorFunction -> colfun[contourvals, colorlist], ColorFunctionScaling -> False, PlotPoints -> 25, ImageSize -> 400]; I will comment on several techniques I used in this plot. 1) I needed to give the contour values explicitly since the color function uses them. 2) I used ColorFunctionScaling -> False so that the z values that Mathematica feeds to the color function are the actual values. Otherwise Mathematica scales the z values from 0 to 1, which will not generally be what you want. 3) I picked out only a subrange of contours to plot. Low and high values were colored Gray. The color list should contain one more entry than the contour values list. The first and last items are the under and over value colors. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Moranresearch at aol.com [mailto:Moranresearch at aol.com] To: mathgroup at smc.vnet.net > > Is the a way to assign specific colors to the intervals between > individual > contours? > Thank you. John R Moran PhD,MD >