Adjust Cone

Angle of Plane

AonZaxis = Point(zAxis)
GonZaxis = Point(zAxis)
FonXaxis = Point(xAxis)
EonXaxis = Point(xAxis)
b = Plane(EonXaxis, FonXaxis, GonZaxis)
DefineConePt = PointIn(b)
BonZaxis = Point(zAxis)
centerline = Line(AonZaxis, BonZaxis)
Origin = Intersect(xAxis, centerline)
β = Angle(GonZaxis, Origin, DefineConePt)
TheCone = InfiniteCone(Origin, centerline, β)
DonYaxis = Point(yAxis)
c = Circle(zAxis, DonYaxis)
CenterOfNormalAngle = PointIn(b)
d = Circle(CenterOfNormalAngle, 2, b)
g = Line(CenterOfNormalAngle, xAxis)
I, J = Intersect(g, d)
h = OrthogonalLine(CenterOfNormalAngle, g, b)
K, L = Intersect(h, d)
ArcForPlaneAngle = CircleArc(CenterOfNormalAngle, I, L, b)
NormalAngleHandle = Point(ArcForPlaneAngle)
NormalSeg = Segment(CenterOfNormalAngle, NormalAngleHandle)
SliceChooser = PointIn(TheCone)
SlicingPlane = OrthogonalPlane(SliceChooser, NormalSeg)
conicSection = IntersectPath(SlicingPlane, TheCone)