Liebe Freundinnen und Freunde der Abschweifung,der Künstler An Idiot (no joke) hat den Lineismus (no joke) entwickelt, bei dem er mittels der von ihm erfundenen digital - analogen „Nail Lacquer "-Technik die Linien zieht, Details und der Beweis der no-joke-Behauptung finden sich unter dem Link
https://oiobooks.com/buecher/lines-colors/Die kostbare "Nail Lacqer"-Technik hat man digital nicht zur Hand, deshalb wurde der Lineismus zum Tubismus - nicht zu verwechseln mit dem Kubismus (ab 1906) - geformt, folgendermassen
Clear[tubyStraight]
tubyStraight[nx_Integer,(* abscissa length *)
nr_Integer?Positive, (* number of tubes *)
dr0_Real?NonNegative, (* tube radii: lower bound*)
dr1_Real?Positive, (* tube radii: upper bound *)
spec_Integer : 83, (* Specularity *)
opac_Real : 0.7 (* Opacity *)] :=
Block[{rl = RandomReal[{dr0, dr1}, nr],
cl = Table[RGBColor[RandomReal[1, {3}]], nr],
ar0 = ConstantArray[0, nr], ar1 = ConstantArray[nx, nr], yl},
yl = Most[FoldList[(#1 + Apply[Plus, #2]) &, rl[[1]],
Rest[Partition[{0, Splice [rl], 0}, 2, 1]]]];
Graphics3D[{
CapForm[None], Specularity[White, spec], Opacity[opac],
Transpose[{cl,
MapThread[Tube, {Transpose[{
Transpose[{ar0, yl, ar0}],
Transpose[{ar1, yl, ar0}]}, {2, 1, 3}
], Transpose[{rl, rl}]}
]
}
]
},
ViewPoint -> Above, Boxed -> False, Background -> Black
]
] /; 0 <= dr0 < dr1
und
With[{n = 173},
tubyStraight[IntegerPart[n GoldenRatio], n, 0.07, 1.37, 93, 1.]
]
ergibt das Bild im Anhang.
Schönen Sonnatag & Exp[0]. Advent!
Udo.
lineism-tubism.png
Description: PNG image
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
