parallelepiped inscribed in cylinder

Question

I 'm trying to draw a simple 3D shape (like parallelepiped or cylinder) with tikz, but I fund too complicated codes.

I want to draw something like this

Is it possible with a simple code?

Thank's in advanced!

Edit

What I mean by "simple code"? Something like this:

\documentclass[tikz]{standalone}
\usetikzlibrary{shapes}
\begin{document}
\begin{tikzpicture}[>=latex,shorten >=2pt,shorten <=2pt,shape aspect=1]
\node (A) [cylinder, shape border rotate=90, draw,minimum height=3cm,minimum width=2cm]
{};
\draw [<->] (A.before top) -- (A.after top) node [midway, above,fill=white] {$A_0$};
\end{tikzpicture}
\end{document}

Is it possible to inscribe a parallelepiped in the code's cylinder?

Answer 1

I don't know if the following is too complicated.

\documentclass[tikz,border=3.14mm]{standalone}
\usepackage{tikz-3dplot}
\begin{document}
\tdplotsetmaincoords{70}{50}
\pgfmathsetmacro{\Radius}{3}
\pgfmathsetmacro{\Height}{4}
\begin{tikzpicture}[tdplot_main_coords]
\fill[orange,opacity=0.5] plot[variable=\x,domain=\tdplotmainphi:\tdplotmainphi+360,smooth]
({\Radius*cos(\x)},{\Radius*sin(\x)},0);
\draw[orange!80!black,thick,densely dashed] plot[variable=\x,domain=\tdplotmainphi:\tdplotmainphi+180,smooth]
({\Radius*cos(\x)},{\Radius*sin(\x)},0);
\draw[orange!80!black,thick] plot[variable=\x,domain=\tdplotmainphi:\tdplotmainphi-180,smooth]
({\Radius*cos(\x)},{\Radius*sin(\x)},0);
\draw[blue,thick,densely dashed,fill=blue,fill opacity=0.1] ({\Radius*cos(0)},{\Radius*sin(0)},0) -- 
({\Radius*cos(90)},{\Radius*sin(90)},0)
-- ({\Radius*cos(180)},{\Radius*sin(180)},0) --
({\Radius*cos(270)},{\Radius*sin(270)},0) -- cycle;
\draw[blue,thick] ({\Radius*cos(0)},{\Radius*sin(0)},0) -- ({\Radius*cos(0)},{\Radius*sin(0)},\Height);
\draw[blue,thick] ({\Radius*cos(-90)},{\Radius*sin(-90)},0) -- ({\Radius*cos(-90)},{\Radius*sin(-90)},\Height);
\draw[blue,thick,dashed] ({\Radius*cos(180)},{\Radius*sin(180)},0) -- ({\Radius*cos(180)},{\Radius*sin(180)},\Height);
\draw[blue,thick,dashed] ({\Radius*cos(90)},{\Radius*sin(90)},0) -- ({\Radius*cos(90)},{\Radius*sin(90)},\Height);
\draw[blue,thick,fill=blue,fill opacity=0.2] ({\Radius*cos(0)},{\Radius*sin(0)},\Height) -- 
({\Radius*cos(90)},{\Radius*sin(90)},\Height)
-- ({\Radius*cos(180)},{\Radius*sin(180)},\Height) --
({\Radius*cos(270)},{\Radius*sin(270)},\Height) -- cycle;
\shade[top color=orange!70!black,bottom color=orange!40!black,
middle color=orange!70,opacity=0.4,shading angle=90]
plot[variable=\x,domain=\tdplotmainphi:\tdplotmainphi-180,smooth]
({\Radius*cos(\x)},{\Radius*sin(\x)},0) --
plot[variable=\x,domain=\tdplotmainphi-180:\tdplotmainphi,smooth]
({\Radius*cos(\x)},{\Radius*sin(\x)},\Height);
\draw[orange!80!black,thick,fill=orange!80,fill opacity=0.4]
plot[variable=\x,domain=\tdplotmainphi:\tdplotmainphi+360,smooth]
({\Radius*cos(\x)},{\Radius*sin(\x)},\Height);
\end{tikzpicture}
\end{document}

Answer 2

Run with xelatex:

\documentclass[pstricks]{standalone}
\usepackage{pst-solides3d} 
\begin{document}
\begin{pspicture}[solidmemory](-2.5,-2.5)(2.5,2.5)
\psset{viewpoint=50 30 20 rtp2xyz,lightsrc=viewpoint,
    linewidth=0.1pt,linecolor=red!50}
\psSolid[object=cylindrecreux,h=2.82,r=2,fillcolor=red!50,ngrid=4 
72,name=cy](0,0,-1.41)
\psSolid[object=cube,a=2.80,fillcolor=blue!50,name=cu]
\psSolid[object=fusion,base=cy cu,opacity=0.5]
\end{pspicture}

\end{document}

and as gif animation:

Answer 3

You can reduce @marmot's code using foreach and a yscale to draw ellipses:

\documentclass[tikz,margin=10pt]{standalone}
\usetikzlibrary{calc}

\begin{document}
\begin{tikzpicture}[yscale=.4]
\def\angle{30}

  %% Bottom of the cylinder
  \fill[orange!20] (0,-2) circle (1);
  \draw[dashed,orange] (1,-2) arc (0:180:1);

  %% Top and bottom of the cube
  \foreach \a in {0,90,180,270}{
    \draw ($(0,1)+(\a+\angle:1)$) -- ($(0,1)+(\a+\angle+90:1)$);
    \draw[dashed] ($(0,-2)+(\a+\angle:1)$) -- ($(0,-2)+(\a+\angle+90:1)$);
  }
  %% Side of the cube
  \foreach \a in {0,90}{
    \draw[dashed] ($(0,1)+(\a+\angle:1)$) -- ($(0,-2)+(\a+\angle:1)$);
  }  
  \foreach \a in {180,270}{
    \draw ($(0,1)+(\a+\angle:1)$) -- ($(0,-2)+(\a+\angle:1)$);
  }  

  %% Top of the cylinder and shading
  \draw[orange,fill=orange,fill opacity=.2] (0,1) circle (1);
  \draw[orange] (1,-2) arc (0:-180:1);
  \shade [ left color=orange!70!black, right color=orange!40!black, middle color=orange!70,opacity=0.4 ] (1,1) arc (0:-180:1) -- (-1,-2) arc (180:360:1);

\end{tikzpicture}
\end{document}

which gives