new icn messageflickr-free-ic3d pan white
Crossing Torus / 交差する輪環 | by TANAKA Juuyoh (田中十洋)
Back to photostream

Crossing Torus / 交差する輪環

a = 3; (* center hole size *)

b = 3; (* tri-torus *)

c = 0.5; (* distance from the center of rotation *)

d = 3; (* number of torus *)

h = 2; (* height of a torus *)

SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None,

Boxed -> False, Axes -> False, PlotPoints -> 400, ImageSize -> 3000,

Background -> RGBColor[{30, 30, 30}/255],

PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/71.jpg"]]],

TextureCoordinateFunction -> ({#4 + #5, #5 / Pi} &), Lighting -> "Neutral"];

 

x = (a - Cos[t] - Sin[b s]) Cos[s];

y = (a - Cos[t] - Sin[b s]) Abs[Sin[s]] + c;

z = (a - Sin[t] - h Sin[b s]);

rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}];

 

ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}]

 

(*---

The Texture

*)

  

1,671 views
0 faves
0 comments
Uploaded on August 24, 2011