Kegel
Author: Mag. G. Wengler

Du siehst den Umriss eines Kegels. 
Mit der Spitze kannst du die Höhe und mit B die Grundfläche verändern.

Grundfläche

Spitze

Grundfläche

B = Point(xAxis)
A = Point(xAxis)
C = Midpoint(A, B)
c = Circle(C, B)
D = Point(c)
a = Line(D, C)
d = OrthogonalLine(D, xAxis)
g = OrthogonalLine(C, xAxis)
E = Point(g)
E': E + (0, 0.2)
d_1 = Ray(E', E + (0, 1))
e = Circle(C, E)
F = Intersect(e, a, 1)
b = OrthogonalLine(F, g)
G = Intersect(d, b)
H = Intersect(e, g, 2)
f = Conic(A, G, E, B, H)
I = Point(d_1)
h, i = Tangent(I, f)
J = Intersect(f, h)
K = Intersect(f, i)
j = OrthogonalLine(K, xAxis)
k = OrthogonalLine(J, xAxis)
L = Intersect(c, j, 2)
M = Intersect(c, k, 2)
l, s = Tangent(L, c)
m, t = Tangent(M, c)
p = CircleArc(C, M, L)
N = Point(p)
n = Line(N, C)
O = Intersect(e, n, 1)
q = OrthogonalLine(O, g)
r = OrthogonalLine(N, xAxis)
P = Intersect(q, r)
Ortslinie1 = Locus(P, N)
a_1 = Segment(J, I)
b_1 = Segment(I, K)
c_1 = Ray(E', E + (0, 1))
o = false
e_1 = Conic(A, G, E, B, H)
f_1 = Segment(I, C)
g_1 = Segment(C, B)