Drawing a gear with Tikz

Question

I need some help to modify the \gear macro of this answer in order to be able to fill the drawn gear with a solid color.

I've tried to move the \draw command outside the loop, but it does not work as expected (missing semicolon???):

\newcommand{\gear}[3]{%
    \def\modu{#1}
    \def\Zb{#2}
    \def\AngleA{#3}

    \pgfmathsetmacro{\Rpr}{\Zb*\modu/2}
    \pgfmathsetmacro{\Rb}{\Rpr*cos(\AngleA)}
    \pgfmathsetmacro{\Rt}{\Rpr+\modu}
    \pgfmathsetmacro{\Rp}{\Rpr-1.25*\modu}
    \pgfmathsetmacro{\AngleT}{pi/180*acos(\Rb/\Rt)}
    \pgfmathsetmacro{\AnglePr}{pi/180*acos(\Rb/\Rpr)}
    \pgfmathsetmacro{\demiAngle}{180/\Zb}
    \pgfmathsetmacro{\Angledecal}{(\demiAngle-2*\AnglePr)/2}

    \draw[fill=black!20] \foreach \zz in{1,2,...,\Zb}{
         ({(\zz))/\Zb*360-\Angledecal}:\Rb)
            -- (\zz/\Zb*360-\Angledecal:\Rp)
            to[bend right=\demiAngle] (\zz/\Zb*360+\Angledecal:\Rp)
            -- plot[domain=-0:\AngleT,smooth,variable=\t]
                ({{180/pi*(-\t+tan(180/pi*\t))+\zz/\Zb*360+\Angledecal}:\Rb/cos(180/pi*\t)})
            % 
            to[bend right=\demiAngle] 
                ({{180/pi*(\AngleT+tan(180/pi*-\AngleT)) +(\zz+1)/\Zb*360-\Angledecal}:
                    \Rb/cos(180/pi*-\AngleT)})
        % 
            plot[domain=-\AngleT:-0,smooth,variable=\t]
                ({{180/pi*(-\t+tan(180/pi*\t)) +(\zz+1)/\Zb*360-\Angledecal}:
                    \Rb/cos(180/pi*\t)})
    } -- cycle;
}

Edit: add missing fill color

As I see it, the \draw is already outside of the loop? Does replacing \draw with \fill or \filldraw not work? — Qrrbrbirlbel, Jan 28 '13 at 12:12
The above example gives a missing semicolon error; in the original code, the draw is inside the loop — Lionel MANSUY, Jan 28 '13 at 12:14
Ah, yes, sorry. But still, why don’t you replace the \draw with \fill(draw) or just add fill=<color> to its optional argument? Okay, scratch that, I’ve just tested it, of course it doesn’t work with sepearate \draw commands. — Qrrbrbirlbel, Jan 28 '13 at 12:20
Hem... you're right, but I was trying first to complete the drawing, and, when done, it's just a simple correction. I'll edit my most — Lionel MANSUY, Jan 28 '13 at 12:22
You will need to save the result of the \foreach loop and use it later, i.e. \draw\savedPath; … — Qrrbrbirlbel, Jan 28 '13 at 12:32
I don’t have time now, but you could take a look at these answers of mine: (1), (2). The TikZ \foreach loop encloses its content in a group, so you will need the global variants \gappto and \xappto. — Qrrbrbirlbel, Jan 28 '13 at 13:18
Examples of filled and shaded cogwheels: Drawing a cogwheel in pgf/tikz. — Stefan Kottwitz, Jan 29 '13 at 12:28
I tried to do the same filling action. Solution: you can use this excellent patch given by Andrew Stacey. — Paul Gaborit, Feb 05 '13 at 22:38
@PaulGaborit Thank you; I have not the time to test it yet, but it should do the job. May you fill an answer? — Lionel MANSUY, Feb 06 '13 at 09:11
I've marked as a dupe, based on the premise that the problem here is a bug. — Joseph Wright, Aug 05 '13 at 19:06

Drawing a gear with Tikz

0 Answers0