$\textsf{Select one}$

\text{Drag the points to explore the sections. \
Drag the figure to rotate it.}

eq2: (x - 2.5)^(2) + (y + 2.5)^(2) = 2.5^(2)
cono, d, b = Cone(eq2, 5)
eq2: (x - 2.5)^(2) + (y + 2.5)^(2) = 2.5^(2)
B = PointIn(b)
C = PointIn(b)
A = PointIn(b)
ddMenu: {"$\text{Parallel to the base }$", "$\text{Orthogonal to the base }$", "$\text{Explore! }$"}
is = SelectedIndex(ddMenu)
hSli = 0 (slider from 0 to 5, step 0.1)
pSli = -5 (slider from -5 to 5, step 0.1)
speed: 1
pBase: z = hSli
pPar1: y = pSli
pPar2: x = pSli
sezOr = IntersectPath(pBase, cono)
sezOrth = IntersectPath(If[pSli < 0, pPar1, pPar2], cono)
pExplore = Plane(A, B, C)
sezExpl = IntersectPath(pExplore, cono)
tabOrder: {ddMenu, hSli, pSli, textOnboard, A, B, C}

Tool: circlePixels
circlePixels(A,pixelRadius,Corner1,Corner3,Corner5
Input: A, pixelRadius, Corner1, Corner3, Corner5
Output: newCircle

pointRadius: (pixelRadius / x(Corner5) * (x(Corner3) - x(Corner1)))
newCircle = Circle(A, pointRadius)