Cutting a Color Scheme

Question

I am trying to do a DiscretePlot3D with something similar like "TemperatureMap" Color Scheme, where, however, the white color should correspond to ca. 1/3 of the maximum value. Based on the previous question with answers I have written something like this, which, however, does not work. More or less I simply cut the "TemperatureMap" Color Scheme by hand ... Any suggestion, what do I wrong?

clist = DataPaclets`ColorData`GetBlendArgument["TemperatureMap"];
clist

mycolorFunc2 = Blend[myclist, #] &;
DiscretePlot3D[
 SurvivalFunction[
  MultivariatePoissonDistribution[5, {2, 3}], {x, y}], {x, 0, 15}, {y,
   0, 15}, PlotStyle -> Orange, ExtentSize -> Right, 
 ColorFunction -> (ColorData[mycolorFunc2][#3][
     Rescale[#3, {0, 1}]] &), ColorFunctionScaling -> False]

Answer 1

colorFunc[quantile_: 1/3, colorscheme_: "TemperatureMap"] := 
 ColorData[colorscheme][If[# <= quantile, Rescale[#, {0, quantile}, {0, 1/2}], 
    Rescale[#, {quantile, 1}, {1/2, 1}]]] &

q = 1/3;

DiscretePlot3D[SurvivalFunction[MultivariatePoissonDistribution[5, {2, 3}], {x, y}], 
 {x, 0, 15}, {y, 0, 15}, 
 ExtentSize -> Right, 
 ColorFunction -> (colorFunc[q][#3] &), 
 ColorFunctionScaling -> False, 
 ImageSize -> Large, 
 FaceGrids -> ({#, {{}, {q}}} & /@ {{-1, 0, 0}, {1, 0, 0}, {0, -1, 0}, {0, 1, 0}}), 
 FaceGridsStyle -> Black, 
 Ticks -> {Automatic, Automatic, {0, q, 1}}]

Use q = 2/3 to get

Use ColorFunction -> (colorFunc[q, {"TemperatureMap", "Reversed"}][#3] &) to get

Use ColorFunction -> (colorFunc[q, "RedGreenSplit"][#3] &) to get

etc.