| Author |
Comment/Response |
Toen
|
 10/02/10 07:24am
In Response To 'Re: 2-parameter surface colouring'
---------
Hi Bill,
thanks for your input.
Changing the background does improve my images a little. Unfortunately I don't have a lot of background - I'm concerned with the detail inside a shape similar to
ContourPlot3D[Sin[2 Pi X] Cos [2 Pi Y] + Sin[2 Pi Y] Cos[2 Pi Z] + Cos[2 Pi X] Sin[2 Pi Z] == 0,{X, 0, 2}, {Y, 0, 2}, {Z, 0, 2}, MaxRecursion -> 0]
The colour refresh method is certainly striking. It could perhaps be especially useful for alternating between two one-parameter coloring schemes, so thanks again for that. My current method of alternating is to use mesh division to create a checkered pattern, which is ok but leaves something to be desired.
If you have any more ideas I'd love to hear them.
CircFun[{x_,y_,z_}]:=Sqrt[{x,y,z}.{x,y,z}];
p1=ContourPlot3D[Sin[2Pi X]Cos [2Pi Y]+Sin[2Pi Y]Cos[2Pi Z]+Cos[2Pi X]Sin[2Pi Z]==0,{X,0,2},{Y,0,2},{Z,0,2},
MaxRecursion->0,
PlotPoints->20,
ViewPoint->10{-1,-1,1},
Mesh->{10,10,10},
MeshStyle->None,
MeshShading->{{{Automatic,None},{None,Automatic}},{{None,Automatic},{Automatic,None}}},
ColorFunction->Function[{x,y,z},ColorData["ThermometerColors",CircFun[{x,y,z}]]],
Boxed->False,
Axes->False
];
p2=ContourPlot3D[Sin[2Pi X]Cos [2Pi Y]+Sin[2Pi Y]Cos[2Pi Z]+Cos[2Pi X]Sin[2Pi Z]==0,{X,0,2},{Y,0,2},{Z,0,2},
MaxRecursion->0,
PlotPoints->20,
ViewPoint->10{-1,-1,1},
Mesh->{10,10,10},
MeshStyle->None,
MeshShading->{{{None,Automatic},{Automatic,None}},{{Automatic,None},{None,Automatic}}},
ColorFunction->Function[{x,y,z},ColorData["BlueGreenYellow",CircFun[{1/2-x,1/2-y,1-z}]]],
BoundaryStyle->Directive[Thick,Gray],
Boxed->False, Axes->False
];
Show[p1,p2]
URL: , |
|
