mjhjmtu

I want to draw the three conic sections (circle, ellipse and rectangle) where the cylinder and cross sections are colored:

documentclassstandalone
usepackagetikz
usepackageanimate
usepackagefilecontents

begindocument

 beginfilecontentstime2.txt
 ::0x0 
 ::1
 ::2
 ::3
 endfilecontents 

 beginanimateinline[
 begin=
 begintikzpicture[line cap=round,line join=round,x=1.0cm,y=1.0cm,scale=0.6]
 clip(-3,0) rectangle (6,6);
 ,
 end=endtikzpicture,
 controls,timeline=time2.txt]1


 draw [rotate around=0.:(1.5,1.),line width=1.pt] (1.5,1.) ellipse (1.5897934007793624cm and 0.5267286371193529cm);
 draw [rotate around=0.:(1.5,5.),line width=1.pt] (1.5,5.) ellipse (1.5897934007793588cm and 0.5267286371193518cm);
 draw [line width=1.pt] (-0.089793400779358,5.)-- (-0.089793400779362,1.);
 draw [line width=1.pt] (3.089793400779359,5.)-- (3.0897934007793624,1.);

 newframe %elipse
 draw [rotate around=-22.21759426951831:(1.5,3.14),line width=1.pt,color=blue,fill=blue,fill opacity=0.2] (1.5,3.14) ellipse (1.6601578476760366cm and 0.6350780103265238cm);

 newframe %circunferencia
 draw [line width=1.pt] (3.089793400779359,5.)-- (3.0897934007793624,1.);
 draw [line width=1.pt,color=green,fill=green,fill opacity=0.2] (1.5,3) ellipse (1.57 and 0.6);

 newframe %rectangulo
 draw [line width=1.pt] (3.089793400779359,5.)-- (3.0897934007793624,1.);
 draw [line width=1.pt,color=orange,fill=orange,fill opacity=0.2](0.4,5.38) -- (0.39,1.38) -- (2.63,0.63) -- (2.62,4.63) -- cycle;

 endanimateinline


enddocument

Here is some code based on tikz-3dplot, which is used to fix the view. This is done by the command tdplotsetmaincoords70X, and then beginscope[tdplot_main_coords]. In addition, the 3d library is used to switch in xy planes at various z values.

documentclass[tikz,border=3.14mm]standalone
usepackagetikz-3dplot
usetikzlibrary3d,backgrounds
% small fix for canvas is xy plane at z % https://tex.stackexchange.com/a/48776/121799
makeatletter
tikzoptioncanvas is xy plane at z%
 deftikz@plane@originpgfpointxyz00#1%
 deftikz@plane@xpgfpointxyz10#1%
 deftikz@plane@ypgfpointxyz01#1%
 tikz@canvas@is@plane
makeatother
begindocument
foreach X in 5,15,...,355
tdplotsetmaincoords70X
begintikzpicture[declare function=h(x,y)=2+0.5*(y+y*cos(x));]
path[use as bounding box] (-4,-2) rectangle (18,10);
beginscope
 beginscope[tdplot_main_coords]
 beginscope[canvas is xy plane at z=0]
 path[fill=orange!50] (0,0) circle (3);
 coordinate (bl) at (0+tdplotmainphi:3);
 coordinate (br) at (180+tdplotmainphi:3);
 draw[dashed] (bl) arc(0+tdplotmainphi:180+tdplotmainphi:3);
 draw[thick] (br) arc(180+tdplotmainphi:360+tdplotmainphi:3);
 coordinate (rbl) at (0:3);
 coordinate (rbr) at (180:3);
 endscope
 beginscope[canvas is xy plane at z=8]
 draw[thick,fill=orange!30] (0,0) circle (3);
 coordinate (tl) at (0+tdplotmainphi:3);
 coordinate (tr) at (180+tdplotmainphi:3);
 coordinate (rtl) at (0:3);
 coordinate (rtr) at (180:3);
 endscope
 beginscope[on background layer]
 fill[orange!20] (bl) rectangle (tr);
 endscope
 beginscope[canvas is xy plane at z=4]
 path[fill=blue,opacity=0.3] (0,0) circle (3);
 endscope 
 endscope
endscope 
beginscope[xshift=7cm]
 beginscope[tdplot_main_coords]
 beginscope[canvas is xy plane at z=0]
 path[fill=orange!50] (0,0) circle (3);
 coordinate (bl) at (0+tdplotmainphi:3);
 coordinate (br) at (180+tdplotmainphi:3);
 draw[dashed] (bl) arc(0+tdplotmainphi:180+tdplotmainphi:3);
 draw[thick] (br) arc(180+tdplotmainphi:360+tdplotmainphi:3);
 coordinate (rbl) at (0:3);
 coordinate (rbr) at (180:3);
 endscope
 beginscope[canvas is xy plane at z=8]
 draw[thick,fill=orange!30] (0,0) circle (3);
 coordinate (tl) at (0+tdplotmainphi:3);
 coordinate (tr) at (180+tdplotmainphi:3);
 coordinate (rtl) at (0:3);
 coordinate (rtr) at (180:3);
 endscope
 beginscope[on background layer]
 fill[orange!20] (bl) rectangle (tr);
 endscope
 fill[green!60!black,opacity=0.3] plot[variable=x,domain=-180:180,samples=90] (3*cos(x),3*sin(x),h(x,3));
 endscope
endscope 
beginscope[xshift=14cm]
 beginscope[tdplot_main_coords]
 beginscope[canvas is xy plane at z=0]
 path[fill=orange!50] (0,0) circle (3);
 coordinate (bl) at (0+tdplotmainphi:3);
 coordinate (br) at (180+tdplotmainphi:3);
 draw[dashed] (bl) arc(0+tdplotmainphi:180+tdplotmainphi:3);
 draw[thick] (br) arc(180+tdplotmainphi:360+tdplotmainphi:3);
 coordinate (rbl) at (0:3);
 coordinate (rbr) at (180:3);
 endscope
 beginscope[canvas is xy plane at z=8]
 draw[thick,fill=orange!30] (0,0) circle (3);
 coordinate (tl) at (0+tdplotmainphi:3);
 coordinate (tr) at (180+tdplotmainphi:3);
 coordinate (rtl) at (0:3);
 coordinate (rtr) at (180:3);
 endscope
 beginscope[on background layer]
 fill[orange!20] (bl) rectangle (tr);
 endscope
 fill[red,opacity=0.3] (rtl) -- (rtr) -- (rbr) -- (rbl);
 endscope
endscope 
endtikzpicture

enddocument