How can I draw shells with TikZ? [duplicate]

Question

At first, I try to draw a cylinder which is much different from what I want....

\documentclass{standalone}
\usepackage{pgfplots}
\pgfplotsset{compat=1.4}
\usepackage{tikz-3dplot}
\tdplotsetmaincoords{60}{-30}
\tdplotsetrotatedcoords{0}{90}{90}%
\begin{document}
\begin{tikzpicture}
  [tdplot_rotated_coords,
    scale=3,
    mdc/.style={fill=blue, color=blue,draw=none, opacity=.4,line join=round},
    length/.style={<->,thick,line cap=round}]
  \def\d{1}
  \def\r{\d*.45}

    % Cylinder 
  \foreach \t in {0,12,...,348}
    \draw[mdc] ({cos(\t   )*\r+\d/2},  0, {sin(\t   )*\r+\d/2}) % side vertice of cylinder
            -- ({cos(\t+12)*\r+\d/2},  0, {sin(\t+12)*\r+\d/2})
            -- ({cos(\t+12)*\r+\d/2}, \d, {sin(\t+12)*\r+\d/2})
            -- ({cos(\t   )*\r+\d/2}, \d, {sin(\t   )*\r+\d/2})
            -- cycle;
\end{tikzpicture}
\end{document}

I am curious to know that it is possible to draw shell figures with TikZ (like bellow pictures), but the above code and figures below are far different from what I want....

Answer 1

I use the following code, which may not be perfect:

\documentclass{standalone}
\usepackage{tikz}
\tikzset{
pics/.cd,
shell/.style = {
    code = {
      \path [top color = black!25, bottom color = white]
        (0,.05*6/3) ellipse [x radius = 3-.05, y radius = 2-.032];
      \path [left color = black!25, right color = black!25, middle color = white]
        (-3,0) -- (-3,-2) arc (180:360:3 and 2)
               -- (3,0) arc (360:180:3 and 2);
      \foreach \r in {225,315}
        \foreach \i [evaluate = {\s=30;}] in {0,2,...,30}
          \fill [black, fill opacity = 1/50]
            (0,0.2) -- (\r+\s-\i:3 and 2) -- ++(0,-2)
            arc        (\r+\s-\i:\r-\s+\i:3 and 2) -- ++(0,2) -- cycle;
      \foreach \r in {45,135}
        \foreach \i [evaluate = {\s=30;}] in {0,2,...,30}
          \fill [black, fill opacity = 1/50]
            (0,0.2) -- (\r+\s-\i:3 and 2)
            arc (\r+\s-\i:\r-\s+\i:3 and 2)  -- cycle;
      \path [top color = white, bottom color = white]
        (0,.05*6/3) ellipse [x radius = 2-.05, y radius = 4/3-.05*4/3];
    }
  }
}
\begin{document}
\begin{tikzpicture}
  \path (0,0,0) pic {shell} ;
\end{tikzpicture}
\end{document}