6 Knots / 6個の結び目(むすびめ)

    Newer Older

    a = 6; (* center hole size of a torus *)
    b1 = 5;(* the number of angles *)
    b2 = 4;(* the number of waves *)
    b3 = 4; (* the number of knots *)
    c = 14; (* distance from the center of rotation *)
    d = 6; (* the number of tori *)
    h1 = 3; (* width of a torus *)
    h2 = 4; (* width of a torus *)
    h3 = 3; (* height of cross *)
    SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None,
    Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000,
    Background -> RGBColor[{240, 240, 200}/255],
    PlotStyle -> Directive[Specularity[White, 50], Texture[Import["D:/tmp/911.jpg"]]],
    TextureCoordinateFunction -> ({#4, #5 /Pi} &), Lighting -> "Neutral"];

    x = (a - h1 Cos[t] + h2 Sin[b1 s]) Cos[b3 s] + c;
    y = (a - h1 Cos[t] + h2 Sin[b1 s]) Sin[b3 s] + c;
    z = h3 Cos[b1 s] + Sin[b2 t] + c;
    rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}];

    ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}]

    (*---
    The Texture
    *)

    keyboard shortcuts: previous photo next photo L view in light box F favorite < scroll film strip left > scroll film strip right ? show all shortcuts