Free Images : structure, texture, flower, purple, petal, pattern, figure, design, symmetry, 3d, graphic, knot, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, flowering plant, cobalt blue 3080x3046

(* === Following code of Mathematica 8 generates this image. === *) a = 5; (* center hole size of a torus *) b1 = 3; (* number of cross *) b2 = 5; (* number of cross *) b3 = 3; (* number of cross *) c = 2; (* distance from the center of rotation *) d = 6; (* number of torus *) g1 = 2; (* gap *) g2 = 2; (* gap *) h = 2; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{230, 200, 250}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/714.jpg"]]], TextureCoordinateFunction -> ({#4, #5 b2 Pi} &), Lighting -> "Neutral"]; f[v_] := TriangleWave[{-1, 1}, v/(2 Pi)]; g[v_] := TriangleWave[{-1, 1}, v/(2 Pi) + 1/4]; x = (a - g[t] + g1 f[b1 s]) Cos[b2 (s + Pi/(8 b1))] + c; y = (a - g[t] + g1 f[b1 s]) Sin[b2 (s + Pi/(8 b1))] + c; z = h (g2 Sin[b3 (s + Pi/2)] + f[t]) + c; 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 set description *)

The free high-resolution photo of structure, texture, flower, purple, petal, pattern, blue, figure, design, symmetry, 3d, graphic, knot, mathematica, cg, parametricplot3d, code, program, algorithm, abstruct, mapping, flowering plant, cobalt blue

, 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.