SetPalette() optimized for black/white plots?

Hi,
I want to know if there exists a (color) palette which is optimized for black/white plots. That means, I am looking for a grayscale or other gradient palette, such that if you print the plot in b/w then you can clearly see the differences between the different values. With SetPalette(1) you have the problem, that the palette starts dark (in color: blue or so) becomes light-coloured (yellow) but then becomes a little bit darker again (red).
I want something that that starts dark and becomes light-coloured in the end. I think that a gradient from red to yellow (or something similar) could be fine in color and as well as in b/w.

Do you know how to produce such a gradient or do you have different (better) ideas?

Cheers,
Jannik

Full grey scale can be done this was:

{
   TCanvas *c  = new TCanvas("c","Contours",600,0,600,600);
   TF2 *f1 = new TF2("f2","0.1+(1-(x-2)*(x-2))*(1-(y-2)*(y-2))",1,3,1,3);  

   UInt_t Number = 2;
   Double_t Red[Number]   = { 0.00, 1.00};
   Double_t Green[Number] = { 0.00, 1.00};
   Double_t Blue[Number]  = { 0.00, 1.00};
   Double_t Stops[Number] = { 0.00, 1.00};

   Int_t nb=50;
   TColor::CreateGradientColorTable(Number,Stops,Red,Green,Blue,nb);
   f2->SetContour(nb);
   f2->Draw("surf1z");
}

There is also example showing how to macro your own smooth palette here:
root.cern.ch/drupal/content/how- … or-palette