Kostenlose foto : Struktur, Textur, Blatt, Blume, Blütenblatt, Muster, Grün, Botanik, Flora, Illustration, Entwurf, Symmetrie, 3d, Grafik, Lilie, Torus, Mathematica, Cg, Parametricplot3d, Code, Programm, Algorithmus, Abstruieren, Kartierung, Jasmin, blühende Pflanze, Landanlage, Kitzlilie 3080x3363

(* === Following code of Mathematica 8 generates this image. === *) a1 = 8; (* center hole size of a torus *) a2 = 8; (* center hole size of a torus *) b1 = 6; (* the number of angles *) b2 = 3; (* the number of waves *) c1 = 6; (* distance from the center of rotation *) c2 = 0; (* distance from the center of rotation *) d = 3; (* the number of tori *) h1 = 5; (* width of a torus *) h2 = 5; (* width of a torus *) h3 = 2; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{20, 50, 30}/255], PlotStyle -> Directive[Specularity[White, 70], Texture[Import["D:/tmp/8622.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5/Pi} &), Lighting -> "Neutral"]; f[v_] := TriangleWave[{-1, 1}, v/(2 Pi)]; x = (a1 - h1 Cos[t] + h2 f[b1 s]) Cos[s + Pi/b1] + c1; y = (a2 - h1 Cos[t] + h2 f[b1 s]) Sin[s + Pi/b1] + c1; z = h3 f[b2 t] + c2; rm = Table[{x, y, z}.RotationMatrix[2 Pi (i/d), {0, 1, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture Another shapes and colors *)

Das kostenlose hochauflösende Foto von Struktur, Pflanze, Textur, Blatt, Blume, Blütenblatt, Muster, Grün, Botanik, Flora, Illustration, Entwurf, Symmetrie, 3d, Grafik, Lilie, Torus, Mathematica, Cg, Parametricplot3d, Code, Programm, Algorithmus, Abstruieren, Kartierung, Jasmin, blühende Pflanze, Landanlage, Kitzlilie

, genommen mit einem unbekannte Kamera 01/22 2017 Die Aufnahme mit

Das Bild ist frei von Copyrights unter Creative Commons CC0.

Sie können herunterladen, ändern, verteilen und verwenden sie lizenzfrei für alles, was Sie wollen, auch in kommerziellen Anwendungen. Namensnennung ist nicht erforderlich.