我必须实现一个由类似圆柱形的元素组成的数组。但是，下面的代码只能提供一个直圆柱体（代码来源：此链接），相反，我希望以周期性的方式调节圆柱体，例如以正弦方式与此链接的情况类似但我似乎无法成功。我甚至无法将气缸数从一个增加到多个。（这个问题是我上一个问题的延续，薛定谔的猫给出了一个很好的答案）在这个问题中，输出有所不同。
\documentclass[border=2mm]{standalone}
\usepackage{xcolor}
\definecolor{mycolor}{RGB}{8,108,131}
\usepackage{tikz}
\usetikzlibrary{positioning}
\usetikzlibrary{backgrounds}
\usetikzlibrary{shapes.geometric}
\usetikzlibrary{calc}
\tikzset{cylinder end fill/.style={path picture={
\pgftransformshift{\centerpoint}%
\pgftransformrotate{\rotate}%
\pgfpathmoveto{\beforetop}%
\pgfpatharc{90}{-270}{\xradius and \yradius}%
\pgfpathclose
\pgfsetfillcolor{#1}%
\pgfusepath{fill}}
}}
\begin{document}
\begin{tikzpicture}
\begin{scope}[on background layer]
\path let \p1=(0.2,8.4),
\n1={atan2(\y1,\x1)},\n2={veclen(\y1,\x1)} in
node[cylinder, rotate=270,
minimum height=0.85*\n2,minimum width=1cm,aspect=1.0,
cylinder end fill=red,
left color=red!30,right color=black,middle color=red!80, opacity=0.7,
draw] at (0.8,4.7) {1};
\end{scope}
\end{tikzpicture}
\end{document}
答案1
这可能是（也可能不是）朝着正确方向迈出的一步。
\documentclass[tikz,border=3mm]{standalone}
\usetikzlibrary{decorations}
\newcounter{icoord}
\pgfkeys{/tikz/.cd,
curved cylinder/.cd,
radius/.store in=\CurvedCylinderRadius,
radius=10pt,
step/.store in=\CurvedCylinderStep,
step=1pt,
shade/.style={left color=red!30,right color=black,middle color=red!80}
}
\pgfdeclaredecoration{curved cylinder}{initial}
{%
\state{initial}[width=\CurvedCylinderStep,next state=cont] {%
\pgfmoveto{\pgfpoint{\CurvedCylinderStep}{\CurvedCylinderRadius}}%
\pgfpathlineto{\pgfpoint{0.3\pgflinewidth}{\CurvedCylinderRadius}}%
\setcounter{icoord}{0}%
\pgfcoordinate{lastup-\number\value{icoord}}{\pgfpoint{1pt}{\CurvedCylinderRadius}}%
\pgfcoordinate{lastdown-\number\value{icoord}}{\pgfpoint{1pt}{-1*\CurvedCylinderRadius}}%
}
\state{cont}[width=\CurvedCylinderStep]{%
\stepcounter{icoord}%
\pgfcoordinate{lastup-\number\value{icoord}}{\pgfpoint{\CurvedCylinderStep}{\CurvedCylinderRadius}}
\pgfcoordinate{lastdown-\number\value{icoord}}{\pgfpoint{\CurvedCylinderStep}{-1*\CurvedCylinderRadius}}
\pgfcoordinate{tmpup}{\pgfpoint{\CurvedCylinderStep+0.3pt}{\CurvedCylinderRadius}}
\pgfcoordinate{tmpdown}{\pgfpoint{\CurvedCylinderStep+0.3pt}{-1*\CurvedCylinderRadius}}
\pgfmathanglebetweenlines{\pgfpointanchor{lastup-\the\numexpr\value{icoord}-1}{center}}%
{\pgfpointanchor{lastup-\number\value{icoord}}{center}}%
{\pgfpointanchor{Y}{center}}%
{\pgfpointanchor{O}{center}}%
\pgfmathsetmacro\myshadingangle{\pgfmathresult}%
\path[curved cylinder/shade,shading angle=\myshadingangle]
(lastup-\the\numexpr\value{icoord}-1)
-- (tmpup) to[out=180,in=180] (tmpdown) -- (lastdown-\the\numexpr\value{icoord}-1)
to[out=180,in=180] cycle;%
\pgfmoveto{\pgfpointanchor{lastup-\the\numexpr\value{icoord}-1}{center}}%
\pgfpathlineto{\pgfpointanchor{lastup-\number\value{icoord}}{center}}%
\pgfmoveto{\pgfpointanchor{lastdown-\the\numexpr\value{icoord}-1}{center}}%
\pgfpathlineto{\pgfpointanchor{lastdown-\number\value{icoord}}{center}}%
}
\state{final}[width=\CurvedCylinderStep]
{ % perhaps unnecessary but doesn't hurt either
\pgfmoveto{\pgfpointdecoratedpathlast}
\fill (tmpup) to[out=0,in=0] (tmpdown) to[out=-180,in=-180] cycle;
}
}
\begin{document}
\begin{tikzpicture}[scale=1]
\path (0,0) coordinate (O) (0,1) coordinate (Y);
\draw[decorate,decoration=curved cylinder,curved cylinder/radius=1cm]
(0,0) to[out=90,in=-90] (1,4) to[out=90,in=-90] (0,8);
\draw[decorate,decoration=curved cylinder,
curved cylinder/radius=1cm,
curved cylinder/shade/.style={left color=blue!30,right
color=black,middle color=blue!80},looseness=0.7]
(4,0) to[out=90,in=-90] (5,4) to[out=90,in=-90] (4,8);
\end{tikzpicture}
\end{document}
或者
\documentclass[tikz,border=3mm]{standalone}
\usetikzlibrary{decorations}
\newcounter{icoord}
\pgfkeys{/tikz/.cd,
curved cylinder/.cd,
radius/.store in=\CurvedCylinderRadius,
radius=10pt,
step/.store in=\CurvedCylinderStep,
step=1pt,
shade/.style={left color=red!30,right color=black,middle color=red!80}
}
\pgfdeclaredecoration{curved cylinder}{initial}
{%
\state{initial}[width=\CurvedCylinderStep,next state=cont] {%
\pgfmoveto{\pgfpoint{\CurvedCylinderStep}{\CurvedCylinderRadius}}%
\pgfpathlineto{\pgfpoint{0.3\pgflinewidth}{\CurvedCylinderRadius}}%
\setcounter{icoord}{0}%
\pgfcoordinate{lastup-\number\value{icoord}}{\pgfpoint{1pt}{\CurvedCylinderRadius}}%
\pgfcoordinate{lastdown-\number\value{icoord}}{\pgfpoint{1pt}{-1*\CurvedCylinderRadius}}%
}
\state{cont}[width=\CurvedCylinderStep]{%
\stepcounter{icoord}%
\pgfcoordinate{lastup-\number\value{icoord}}{\pgfpoint{\CurvedCylinderStep}{\CurvedCylinderRadius}}
\pgfcoordinate{lastdown-\number\value{icoord}}{\pgfpoint{\CurvedCylinderStep}{-1*\CurvedCylinderRadius}}
\pgfcoordinate{tmpup}{\pgfpoint{\CurvedCylinderStep+0.3pt}{\CurvedCylinderRadius}}
\pgfcoordinate{tmpdown}{\pgfpoint{\CurvedCylinderStep+0.3pt}{-1*\CurvedCylinderRadius}}
\pgfmathanglebetweenlines{\pgfpointanchor{lastup-\the\numexpr\value{icoord}-1}{center}}%
{\pgfpointanchor{lastup-\number\value{icoord}}{center}}%
{\pgfpointanchor{Y}{center}}%
{\pgfpointanchor{O}{center}}%
\pgfmathsetmacro\myshadingangle{\pgfmathresult}%
\path[curved cylinder/shade,shading angle=\myshadingangle]
(lastup-\the\numexpr\value{icoord}-1)
-- (tmpup) to[out=180,in=180] (tmpdown) -- (lastdown-\the\numexpr\value{icoord}-1)
to[out=180,in=180] cycle;%
\pgfmoveto{\pgfpointanchor{lastup-\the\numexpr\value{icoord}-1}{center}}%
\pgfpathlineto{\pgfpointanchor{lastup-\number\value{icoord}}{center}}%
\pgfmoveto{\pgfpointanchor{lastdown-\the\numexpr\value{icoord}-1}{center}}%
\pgfpathlineto{\pgfpointanchor{lastdown-\number\value{icoord}}{center}}%
}
\state{final}[width=\CurvedCylinderStep]
{ % perhaps unnecessary but doesn't hurt either
\pgfmoveto{\pgfpointdecoratedpathlast}
\fill (tmpup) to[out=0,in=0] (tmpdown) to[out=-180,in=-180] cycle;
}
}
\begin{document}
\begin{tikzpicture}[scale=1]
\path (0,0) coordinate (O) (0,1) coordinate (Y);
\draw[decorate,decoration=curved cylinder,curved cylinder/radius=1cm
,looseness=0.7]
(0,0) foreach \X in {1,2,3}
{to[out=90,in=-90] ++ (1,4) to[out=90,in=-90] ++(-1,4)};
\draw[decorate,decoration=curved cylinder,
curved cylinder/radius=1cm,
curved cylinder/shade/.style={left color=blue!30,right
color=black,middle color=blue!80},looseness=0.7]
(6,0) foreach \X in {1,2,3}
{to[out=90,in=-90] ++ (-1,4) to[out=90,in=-90] ++(1,4)};
\end{tikzpicture}
\end{document}
尽管这不是一个成熟的装饰，但它仍然很容易发现dimension too large错误。