I am trying to create a lenticular pattern like the one in the picture. I believe the repeated shape can be drawn using a for loop in tikz, but I wasn't able to get it done properly.
Appreciate any help on looping.
Edit: This is a part of a bigger diagram and below is the code.
\begin{document}
\begin{tikzpicture}[>={Stealth[inset=0pt,length=10pt,angle'=35,round]}]
\pgfmathsetmacro{\lensRadius}{6}
\pgfmathsetmacro{\lensHeight}{3}
\pgfmathsetmacro{\startAngle}{asin(\lensHeight/\lensRadius)}
\draw [] (0,\lensHeight)
arc[start angle=180-\startAngle,delta
angle=2*\startAngle,radius=\lensRadius]node [below, align=center] {\\
[1em]Main\\[-1ex]lens}
arc[start angle=-\startAngle,delta angle=2*\startAngle,radius=\lensRadius]
-- cycle;
\draw [line width=1mm ] (-1.5,3) -- (-1.5,-3) node [below, align=center] {\\
[1em]Weak\\[-1ex]diffuser};
\draw [] (6,\lensHeight)
arc[start angle=180-\startAngle,delta
angle=2*\startAngle,radius=\lensRadius]node [below, align=center] {\\
[1em]Field\\[-1ex]lens}
-- cycle;
\draw[] plot[only marks, mark=*,mark size=10pt,mark options={fill=Sepia}]
coordinates{(-6.5,0)} node[below, align=center]{\\[1em]Object};
\draw[] (-6,0) -- (0,3);
\draw[] (-6,0) -- (0,-3);
\draw[] (6.5,0) -- (0,3);
\draw[] (6.5,0) -- (0,-3);
%lenticular pattern
\pgfmathsetmacro{\lensRadius}{0.2}
\pgfmathsetmacro{\lensHeight}{0.2}
\pgfmathsetmacro{\startAngle}{asin(\lensHeight/\lensRadius)}
\draw [] (8,\lensHeight)
arc[start angle=180-\startAngle,delta
angle=2*\startAngle,radius=\lensRadius];
\draw [line width=0.25mm ] (8,3) -- (8,-3) -- (8.2,-3) -- (8.2,3) -- cycle;
\end{tikzpicture}
\end{document}
Output:
:)
.