CSE 77 / G. Farin
Conic sections

A conic section is the intersection curve between a (double) cone and a plane. In this notebook, we let the cone rotate and keep the plane fixrd.

axis={0,0,1};

Manipulate[(axis={0,-Sin[alpha],Cos[alpha]};
dcone={Cone[{axis,{0,0,0}}], Cone[{-axis,{0,0,0}}]};
plane=Graphics3D[{Opacity[0.7],Black,Polygon[{{1,-0.5,1.2},{-1,-0.5,1.2},{-1,-0.5,-1.2},{1,-0.5,-1.2}}]}];
Show[{Graphics3D[{FaceForm[Yellow,Blue],dcone}],plane},PlotRange->1.5,Boxed-> False]),{alpha,0,Pi/2}]