| Author |
Comment/Response |
Bill
|
 09/29/10 2:47pm
Hi:
Perhaps changing the background might help to come closer to the visual effect that you want.
Examples:
Plot3D[0, {x, 0, 1}, {y, 0, 1},
ColorFunction -> Function[{x, y, z}, RGBColor[x, y, 1 - x]],
Mesh -> None, Background -> LightGray, ImageSize -> 700]
Clear[r]
r = Raster[
Table[i, {i, 100}, {j, 100}], {Scaled[{0, 0}], Scaled[{1, 1}]}, {1, 100},
ColorFunction -> "Pastel"];
Plot3D[0, {x, 0, 1}, {y, 0, 1},
ColorFunction -> Function[{x, y, z}, RGBColor[x, y, 1 - x]],
Mesh -> None, ImageSize -> 700, Prolog -> r]
This example is probably totally out of the question, but you might find it somewhat interesting:
Dynamic@ContourPlot3D[
x^2 + y^2 - z^2 == 0.1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},
ContourStyle -> {{Yellow, Thickness[0.0]}}, ImageSize -> 500,
Mesh -> 10,
MeshStyle -> Refresh[Hue[Random[]], UpdateInterval -> 1],
Background -> Refresh[Hue[Random[]], UpdateInterval -> 1]]
Hth,
Bill
URL: , |
|
