| Author |
Comment/Response |
Bill
|
 10/04/10 10:43pm
Hi Toen:
I gave it one more shot. Try this:
gr1 = Normal@
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, 1}, {Y, 0, 1}, {Z, 0, 1},
ContourStyle -> None, Mesh -> 10, MeshStyle -> Thick,
Boxed -> False, Axes -> False, ImageSize -> 500,
Background -> Black];
p1 = gr1 /.
Line[pts__] :> ({Hue[Last@First@#], Line[#]} & /@
Partition[pts, 2, 1])
p2 = 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, 1}, {Y, 0, 1}, {Z, 0, 1},
ContourStyle -> {White, Lighting -> "Neutral"},
Boxed -> False, Mesh -> None, MaxRecursion -> 0,
Boxed -> False, Axes -> None, Background -> Gray,
ImageSize -> 500]
Show[p2, p1]
Regards,
Bill
URL: , |
|
