Saturday, December 21, 2019

Plane Textures


cp1=ContourPlot3D[y^2==1,
{x,-2,2},{y,-2,2},{z,-2,2},
Mesh->50,MeshStyle->{Blue,Red},
ContourStyle->Opacity[0.2],
MeshFunctions->{2*Sin[#1*#3]&,2*Cos[#2*#3]&}];
cp2=ContourPlot3D[x^2==y^2,
{x,-2,2},{y,-2,2},{z,-2,2},
Mesh->25,MeshStyle->Gray,
ContourStyle->{Blue,Opacity[0.2]}];
Show[cp1,cp2]


No comments:

Post a Comment