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}
