ギアチェーンの描き方

Question

次のような歯車のチェーンを描きたいと思います。

私はAlain Matthesが提供したマクロを使用していますTikZでギアを作成する何らかの変更を加えて単一のギアを描き、「ダブルギア」効果（つまり、内側/外側のギア）を実現します。

実際のコードは次のとおりです:

\documentclass{standalone}
\usepackage{tikz}

\newcommand{\gear}[5]{%
\foreach \i in {1,...,#1} {%
  [rotate=(\i-1)*360/#1]  (0:#2)  arc (0:#4:#2) {[rounded corners=1.5pt]
             -- (#4+#5:#3)  arc (#4+#5:360/#1-#5:#3)} --  (360/#1:#2)
}}

\begin{document}
  \begin{tikzpicture}
    \matrix[column sep=-0.1cm,draw=none,fill=none,ampersand replacement=\&] {
    %%%%%%%%%%%%%%
    % First gear %
    %%%%%%%%%%%%%%
    \node[circle,minimum size=40mm,fill=gray,shade] at (0,0){};
    \node[circle,minimum size=30mm,fill=white] at (0,0){};
    \draw[thick,rotate=10,fill=gray,shade] \gear{18}{2}{2.2}{10}{2};
    \draw[thick,rotate=22,fill=white] \gear{18}{1.5}{1.7}{6}{1};\&
    %%%%%%%%%%%%%%%
    % Second gear %
    %%%%%%%%%%%%%%%
    \node[circle,minimum size=40mm,fill=gray,shade] at (0,0){};
    \node[circle,minimum size=30mm,fill=white] at (0,0){};
    \draw[thick,rotate=10,fill=gray,shade] \gear{18}{2}{2.2}{10}{2};
    \draw[thick,rotate=22,fill=white] \gear{18}{1.5}{1.7}{6}{1};\\
    };
    \end{tikzpicture}
  \end{document}

これにより、次のようになります。

2 番目のギアを左/右に移動するには、ギアを に配置した\matrixので、マトリックスの 2 番目のセルに 1 番目のギアのコードをコピーし、column sepギアが目的の距離になるように を指定するだけです。ただし、異なる を必要とする 3 番目のギアを追加すると、この方法は機能しなくなりますcolumn sep。

2 番目のギアを上下に動かして、最初の画像の効果を得るためにオプションをxshift試しました(これが最初の画像を取得する方法です) が、これは非常に手間がかかり、何度も再コンパイルが必要になります。yshift\draw

そこで私の質問は、
ギア（コードに示されているように、ギアは 2 つのコマンド\drawと 2 つのコマンドで構成されています）を、と\nodeを使用して手動で配置することなく、他のギアに対して左・右・上・下に移動するより良い方法があるかどうかです。xshiftyshift

より一般的なアプローチ

質問をより一般的にするために、内側のギアや背景などがなく、すべてのギアが 1 つのギアのみで構成されている場合を考えてみましょうtikzpicture。上記のコードは次のようになります。

\begin{tikzpicture}
    \matrix[column sep=-0.1cm,draw=none,fill=none,ampersand replacement=\&] {
    %%%%%%%%%%%%%%
    % First gear %
    %%%%%%%%%%%%%%
    \draw[thick] \gear{18}{2}{2.2}{10}{2};\&
    %%%%%%%%%%%%%%%
    % Second gear %
    %%%%%%%%%%%%%%%
    \draw[thick] \gear{18}{2}{2.2}{10}{2};\\
    };
  \end{tikzpicture}

最初の画像のように、2 つ以上のギアを位置を変えながら連結するにはどうすればよいでしょうか?

Answer 1

これは出発点であり、多くのアイデアのうちの1つにすぎません。入力データ。

このnext gearスタイルは、次のような形式で議論を展開する。

[<opt>:<text>]<abs angle>:<next gear’s radius>

どこ

• :<text>そして
• [<opt>:<text>]オプションです。
• <abs angle>次のギアの絶対角度/方向を示し、
• <next gear’s radius>次のギアの半径を指定します。

ライブラリはスタイルとマクロturtleにのみ使用されます。正直に言うと、これはライブラリなしでもコーディングできたはずですが、まあ仕方ありません...forward\tikz@lib@turtle@dir

アップデート

さて、ここに新しいギア（\ngear[<options>](<point>)）と出力の試用版があります。

ギアの組み合わせには、歯の数、歯の幅、回転が前のギアとその回転に依存するため、少し計算が必要になります。

をハイジャック\qrr@tikz@do@nextgear@し、次のギアに必要な計算を自分で挿入することができます。

( TeX.sx で\ngear既に定義されているマクロの 1 つに対するフロントエンドとして機能するように再定義することもできます。)\gear

コード

\documentclass[tikz,convert=false]{standalone}
\usepackage{tikz}
\usetikzlibrary{backgrounds,turtle}
\makeatletter
\newcommand*{\gearset}{\pgfqkeys{/gear}}
\newcommand*{\geargetvalue}[1]{\pgfkeysgetvalue{/gear/#1}}
\gearset{
    outer radius/.initial=1cm,
    outer height/.initial=5cm,
    outer width/.initial=.5cm,
    outer number/.initial=10,
    outer rotate/.initial=0,
    inner radius/.initial=,
    inner rotate/.initial=0,
    inner height/.initial=.2cm,
    inner width/.initial=.2cm,
    inner number/.initial=18,
    height/.style={/gear/outer height={#1},/gear/inner height={#1}},
    width/.style={outer width={#1},inner width={#1}},
%   outer outer radius=.4pt, rounded corners?
%   inner outer radius=.2pt,
%   outer inner radius=.4pt,
%   inner inner radius=.2pt,
    /tikz/every gear/.style={draw,fill=none,even odd rule,rounded corners=.5pt},
%   /tikz/every outer gear/.style={top color=blue, bottom color=green},
%   /tikz/every inner gear/.style={draw=blue,fill=white},
}
\newcommand*{\ngear}[1][]{\begingroup\gearset{#1}\ngear@}
\def\ngear@(#1){%
    \geargetvalue{outer radius}\qrr@gear@outerR
    \geargetvalue{inner radius}\qrr@gear@innerR
    \geargetvalue{outer number}\qrr@gear@outerN
    \geargetvalue{inner number}\qrr@gear@innerN
    \geargetvalue{outer height}\qrr@gear@outerH
    \geargetvalue{inner height}\qrr@gear@innerH
    \geargetvalue{outer width}\qrr@gear@outerW
    \geargetvalue{inner width}\qrr@gear@innerW
    \geargetvalue{outer rotate}\qrr@gear@outerRot
    \geargetvalue{inner rotate}\qrr@gear@innerRot
    \pgfmathsetmacro\qrr@gear@ooArc{(\qrr@gear@outerW)/(\qrr@gear@outerR+\qrr@gear@outerH)/pi*180}%
    \pgfmathsetmacro\qrr@gear@ioArc{180/(\qrr@gear@outerN) - \qrr@gear@ooArc}%
    \pgfmathsetmacro\qrr@gear@oiArc{(\qrr@gear@innerW)/(\qrr@gear@innerR+\qrr@gear@innerH)/pi*180}%
    \pgfmathsetmacro\qrr@gear@iiArc{180/(\qrr@gear@innerN) - \qrr@gear@oiArc}%
    \pgfmathtruncatemacro\qrr@gear@outerN{\qrr@gear@outerN-1}%
    \pgfmathtruncatemacro\qrr@gear@innerN{\qrr@gear@innerN-1}%
    \scope[shift={(#1)}]%
    \path[every gear/.try, every outer gear/.try] ({\qrr@gear@outerRot}:{\qrr@gear@outerR+\qrr@gear@outerH})
        \foreach \@tooth in {0,...,\qrr@gear@outerN} {
            \pgfextra
                \pgfmathsetmacro\qrr@gear@sa{\qrr@gear@outerRot+2*\@tooth*(\qrr@gear@ooArc+\qrr@gear@ioArc)}%
            \endpgfextra
            arc[radius={\qrr@gear@outerR+\qrr@gear@outerH}, start angle=\qrr@gear@sa, delta angle=\qrr@gear@ooArc]
            -- (\qrr@gear@sa+\qrr@gear@ooArc:{\qrr@gear@outerR})
            arc[radius={\qrr@gear@outerR}, start angle=\qrr@gear@sa+\qrr@gear@ooArc, delta angle=2*\qrr@gear@ioArc]
            -- (\qrr@gear@sa+\qrr@gear@ooArc+2*\qrr@gear@ioArc:{\qrr@gear@outerR+\qrr@gear@outerH})
            arc[radius={\qrr@gear@outerR+\qrr@gear@outerH}, start angle=\qrr@gear@sa+\qrr@gear@ooArc+2*\qrr@gear@ioArc, delta angle=\qrr@gear@ooArc]
        }
        \ifx\qrr@gear@innerR\pgfutil@empty\else
%       ; % un-comment this and the next line to have two paths
%   \path[every gear/.try, every inner gear]
    (0:{\qrr@gear@innerR-\qrr@gear@innerH})
    \foreach \@tooth in {0,...,\qrr@gear@innerN} {
        \pgfextra
            \pgfmathsetmacro\qrr@gear@sa{\qrr@gear@innerRot+2*\@tooth*(\qrr@gear@oiArc+\qrr@gear@iiArc)}%
        \endpgfextra
        arc[radius={\qrr@gear@innerR-\qrr@gear@innerH}, start angle=\qrr@gear@sa, delta angle=\qrr@gear@oiArc]
        -- (\qrr@gear@sa+\qrr@gear@oiArc:{\qrr@gear@innerR})
        arc[radius={\qrr@gear@innerR}, start angle=\qrr@gear@sa+\qrr@gear@oiArc, delta angle=2*\qrr@gear@iiArc]
        -- (\qrr@gear@sa+\qrr@gear@oiArc+2*\qrr@gear@iiArc:{\qrr@gear@innerR-\qrr@gear@innerH})
        arc[radius={\qrr@gear@innerR-\qrr@gear@innerH}, start angle=\qrr@gear@sa+\qrr@gear@oiArc+2*\qrr@gear@iiArc, delta angle=\qrr@gear@oiArc]
    }
    \fi
    ;
    \endscope
    \endgroup
}
\def\qrr@tikz@gear@current@radius{0pt}
\def\qrr@tikz@do@nextgear{\pgfutil@ifnextchar[\qrr@tikz@do@nextgear@{\qrr@tikz@do@nextgear@[]}}
\def\qrr@tikz@do@nextgear@[#1]#2:#3\@qrr@tikz@do@nextgear{%
    \pgfmathsetmacro\qrr@tikz@gear@distance{\qrr@tikz@gear@current@radius+(#3)+\pgfkeysvalueof{/gear/outer height}}%
    \pgfmathsetmacro\qrr@tikz@gear@current@radius{abs(#3)}%
    \gdef\tikz@lib@turtle@dir{#2}%
    \pgfkeysalso{/tikz/turtle/forward/.expanded=\qrr@tikz@gear@distance pt}
    \pgfgetlastxy\pgf@gear@@x\pgf@gear@@y
    \pgfkeysalso{/tikz/gear={#1, outer radius=\qrr@tikz@gear@current@radius pt}{\pgf@gear@@x,\pgf@gear@@y}}
}
\tikzset{
    gear/.style 2 args={/tikz/insert path={\pgfextra{\ngear[#1](#2)}}},
    turtle/next gear/.code=\qrr@tikz@do@nextgear#1\@qrr@tikz@do@nextgear
}

\begin{document}
\begin{tikzpicture}[show background grid,/gear/height=.3cm,every gear/.append style=thick]
    \draw[dash pattern={on \pgflinewidth off 2\pgflinewidth},thin] (0,0) [turtle={
        next gear/.list={
            0:2cm,
            {[outer rotate=-90,outer width=.18cm,outer number=10]90:2cm},
            {[outer width=.49cm,outer number=14,outer rotate=0]30:3cm},
            {[outer width=.2cm,outer rotate=18]120:2cm}
        }}];
\end{tikzpicture}
\end{document}

出力