Cfrgtkky

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?

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}

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:

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]

defangle{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