Free Images : structure, texture, flower, pattern, green, produce, jewellery, figure, design, symmetry, 3d, graphic, knot, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, fashion accessory 3080x3008

(* === Following code of Mathematica 8 generates this image. === *) a = 12; (* center hole size of a torus *) b1 = 7; (* number of cross *) b2 = 5; (* number of cross *) b3 = 7; (* number of cross *) c = 8; (* distance from the center of rotation *) d = 6; (* number of torus *) g1 = 8; (* gap *) g2 = 8; (* gap *) h = 2; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{40, 20, 0}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/71.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b1 Pi} &), Lighting -> "Neutral"]; f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; x = (a - Cos[t] + g1 f[b1 s]) Cos[b2 s]; y = (a - Cos[t] + g1 f[b1 s]) Sin[b2 s] + c; z = h (g2 Sin[b3 (s + Pi/2)] + f[t]) + c; rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {1, 0, 0}], {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, flower, pattern, green, produce, jewellery, figure, design, symmetry, 3d, graphic, knot, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, fashion accessory

, taken with an unknown camera 01/17 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.