Как выполнить перемещение и вращение в TikZ в цикле foreach для анимации?

Question

Я хотел бы анимировать горизонтальный сегмент в вертикальный, вращая его вокруг средней точки и перемещая его. Смотрите gif ниже.

Я понятия не имею, почему перевод не работает так, как я ожидал. Фиолетовый сегмент должен переместиться в конечную синюю позицию.

МВЭ

\documentclass[tikz,margin=2mm]{standalone}
\usetikzlibrary{calc}

\begin{document}
\foreach \a in {0,1,...,10}{%
\begin{tikzpicture}
\useasboundingbox (-.2,-1.2) rectangle (4.2,2.2);
\draw[help lines] (0,0) grid (4,2);

\draw[red] (1,0) -- +(1,0);
\draw[blue] (2,1) -- +(0,1);

\draw[thick] (1,0)++(\a/10,\a/10) -- +(1,0); % translation

\draw[thick] let \p1=(1,0), \p2=(2,0) in [rotate around={-9*\a:(1.5,0)}] (\p1) -- (\p2) ; % rotation around mid point

\draw[thick,red!50!blue,shift={+(\a/10,\a/10)}] let \p1=(1,0), \p2=(2,0) in [rotate around={-9*\a:(1.5,0)}] (\p1) -- (\p2) ; % rotation + translation WRONG!!

\end{tikzpicture}
}
\end{document}

Answer 1

Я не уверен, что понимаю твою проблему. Это то, что ты хочешь?

\documentclass[tikz,margin=2mm]{standalone}
\usetikzlibrary{calc}

\begin{document}
\foreach \a in {0,1,...,10}{%
\begin{tikzpicture}
\useasboundingbox (-.2,-1.2) rectangle (4.2,2.2);
\draw[help lines] (0,0) grid (4,2);

\draw[red] (1,0) -- +(1,0);
\draw[blue] (2,1) -- +(0,1);

%\draw[thick] (1,0)++(\a/10,\a/10) -- +(1,0); % translation

%\draw[thick,green!20!black] let \p1=(1,0), \p2=(2,0) in [rotate around={-9*\a:(1.5,0)}] (\p1) -- (\p2) ; % rotation around mid point

\draw[thick,red!50!blue,shift={(\a/20,\a*1.5/10)}
] 
    let \p1=(1,0), 
        \p2=(2,0) in 
    [rotate around={-9*\a:(1.5,0)}] 
    (\p1) -- (\p2) ; % rotation + translation WRONG!!

\end{tikzpicture}
}
\end{document}

Answer 2

Я думаю, вам следует добавить строку:

\draw [green,rotate around={-9*\a:(2,0.1*\a)}] (1,0.1*\a) -- (2,0.1*\a); %Correct rotation

Итак, это будет выглядеть так:

\documentclass[tikz,margin=2mm]{standalone}
\usetikzlibrary{calc}

\begin{document}
\foreach \a in {0,1,...,10}{%
\begin{tikzpicture}
\useasboundingbox (-.2,-1.2) rectangle (4.2,2.2);
\draw[help lines] (0,0) grid (4,2);

\draw[red] (1,0) -- +(1,0);
\draw[blue] (2,1) -- +(0,1);

\draw[thick] (1,0)++(\a/10,\a/10) -- +(1,0); % translation

\draw[thick] let \p1=(1,0), \p2=(2,0) in [rotate around={-9*\a:(1.5,0)}] (\p1) -- (\p2) ; % rotation around mid point

\draw[thick,red!50!blue,shift={+(\a/10,\a/10)}] let \p1=(1,0), \p2=(2,0) in [rotate around={-9*\a:(1.5,0)}] (\p1) -- (\p2) ; % rotation + translation WRONG!!

%\draw [magenta,rotate around={-9*\a:(2,0)}] (1,0) -- (2,0); %rotation

%\draw [yellow] (1,0.1*\a) -- (2,0.1*\a);%translation vertical

\draw [green,rotate around={-9*\a:(2,0.1*\a)}] (1,0.1*\a) -- (2,0.1*\a); %Correct rotation

\end{tikzpicture}
}
\end{document}