Free Images : structure, texture, pattern, jewellery, font, figure, design, symmetry, 3d, graphic, torus, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, fashion accessory, body jewelry 3080x2942

(* === Following code of Mathematica 8 generates this image. === *) a1 = 16; (* center hole size *) a2 = 3; (* thickness of a torus *) a3 = 8; (* wave height of a torus *) b = 5; (* *) c = 26; (* distance from the center of rotation *) d = 5; (* number of torus *) h = 4; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 600, ImageSize -> 3000, Background -> RGBColor[{250, 200, 240}/255], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/30.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b Pi} &), Lighting -> "Neutral"]; f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; g[v_] := If[Sin[v] > 0, 3, -1]; x = (a1 - a2 Cos[t] + a3 g[b s] f[b s]) Cos[s] + c; y = (a1 - a2 Cos[t] + a3 g[b s] f[b s]) Sin[s] + c; z = h f[t]; rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 1, 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 album description *)

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

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