Free Images : structure, texture, pattern, bead, jewellery, art, cool image, figure, design, symmetry, 3d, graphic, torus, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, fashion accessory 3080x2674

(* === Following code of Mathematica 8 generates this image. === *) a = 12; (* center hole size of a torus *) b1 = 5; (* the number of angles *) b2 = 4; (* the number of waves *) b3 = 2; (* the number of knots *) c = 18; (* distance from the center of rotation *) d = 6; (* the number of tori *) h1 = 8; (* width of a torus *) h2 = 5; (* width of a torus *) h3 = 3; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 600, ImageSize -> 3000, Background -> RGBColor[{240, 250, 220}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/94.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b1 Pi} &), Lighting -> "Neutral"]; g[v_] := Cos[2 Cos[Cos[Cos[v]]]]; x = (a - h1 g[t] + h2 Sin[b1 s]) Cos[b3 (s + 5 Pi/(3 b1))] + c; y = (a - h1 Cos[t] + h2 Sin[b1 s]) Sin[b3 (s + 5 Pi/(3 b1))] + c; z = (a - h3 (g[t] + Sin[b2 t])) + c; 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 Another shapes and colors, and the meaning of this code in the set description *)

The free high-resolution photo of structure, texture, pattern, bead, jewellery, art, cool image, figure, design, symmetry, 3d, graphic, torus, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, fashion accessory

, taken with an unknown camera 01/05 2017 The picture taken with

The image is released free of copyrights under Creative Commons CC0.

You may download, modify, distribute, and use them royalty free for anything you like, even in commercial applications. Attribution is not required.