εικονεσ : αφηρημένη, δομή, υφή, πρότυπο, κοσμήματα, γλυπτική, τέχνη, σχέδιο, συμμετρία, 3d, γραφικός, σκάλισμα, βάση στήλης, Mathematica, cg, parametricplot3d, κώδικας, πρόγραμμα, αλγόριθμος, χαρτογράφηση, αξεσουάρ μόδας 3080x3183

a = 7; (* center hole size of a torus *) b1 = 6;(* the number of angles *) b2 = 6;(* the number of waves *) c = 1.3; (* distance from the center of rotation *) d = 6; (* the number of tori *) h1 = 6; (* width of a torus *) h2 = 3; (* width of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{200, 200, 240}/255], PlotStyle -> Directive[Specularity[White, 70], Texture[Import["D:/tmp/94.jpg"]]], TextureCoordinateFunction -> ({#4, #5 Pi} &), Lighting -> "Neutral"]; x = (a - h1 Cos[t] + h2 Sin[b1 s]) Cos[s + Pi/(2 b1)]; y = (a - h1 Cos[t] + h2 Sin[b1 s]) Sin[s + Pi/(2 b1)]; z = Sin[b2 t] + c; vc = {{0, 0, 1}, {0, 0, -1}, {0, 1, 0}, {0, -1, 0}, {1, 0, 0}, {-1, 0, 0}}; rm = Table[{x, y, z}.RotationMatrix[{{0, 0, 1}, vc[[i]]}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture *)

Η δωρεάν υψηλής ανάλυσης φωτογραφία αφηρημένη, δομή, υφή, πρότυπο, κοσμήματα, γλυπτική, τέχνη, σχέδιο, συμμετρία, 3d, γραφικός, σκάλισμα, βάση στήλης, Mathematica, cg, parametricplot3d, κώδικας, πρόγραμμα, αλγόριθμος, χαρτογράφηση, αξεσουάρ μόδας

, λαμβάνονται με ένα άγνωστη κάμερα 01/14 2017 Η εικόνα που λαμβάνεται με

Η εικόνα απελευθερώνεται ελεύθερο πνευματικών δικαιωμάτων υπό το Creative Commons CC0.

Μπορείτε να κατεβάσετε, τροποποίηση, διανομή, και να τα χρησιμοποιούν ατελώς για οτιδήποτε σας αρέσει, ακόμα και σε εμπορικές εφαρμογές. Attribution δεν απαιτείται.