Thursday, December 26, 2019

Optical Effects


p1={0,1,1}; p2={1,-1,1}; p3={-1,-1,1}; p4={0,0,-2};
GO={{Blue,Tube[{p1,p4},.08]},{Lighting->{Green,p4},
Tube[{p2,p4},.08]},{Red,Opacity[.3],
Tube[{p3,p4},.08]},{Blue,Specularity[White,4],
Sphere[p1,.6]},{Green,Specularity[White,32],
Sphere[p2,.6]},{Red,Specularity[White,256],Sphere[p3,.6]}};
tube[t_]:=ParametricPlot3D[{Cos[u](1+Cos[v]),
Sin[u](1+Cos[v]),Sin[v]-2},{u,0,2Pi},{v,0,2Pi},
PlotStyle ->Texture[ExampleData[{"ColorTexture",t}]],
TextureCoordinateFunction ->({#4,#5}&),
Axes->False,Mesh->None];
Show[tube["MultiSpiralsPattern"],Graphics3D[GO],PlotRange->All,
Background->Black,Boxed->False,ImageSize->500]


No comments:

Post a Comment