Patrons de cônes
Author: Daniel Mentrard
Date: 8 juin 2008

r = 6 (slider from 0.1 to 7, step 0.1)
h = 9 (slider from 1 to 10, step 0.1)
A = (43.25141018318559, 3.9237145652321184)
apo: (r^(2.0) + h^(2.0))^(0.5)
M: (22.0 + r, 5.1)
N: (22.0 - r, 5.1)
T = Midpoint(M, N)
g1 = Circle(T, h)
m = Segment(T, M)
a1 = OrthogonalLine(T, m)
K, S = Intersect(g1, a1)
f(x) = sqrt(r^(2.0) - (x - 22.0)^(2.0)) / 4.0 + 5.0
Q = Point(f)
P = Point(f)
i(x) = -f(x) + 10.0
R = Point(i)
O = Point(i)
B: (x(A) + apo, y(A))
L = Point(i)
α: 360.0 * r / apo
C = Rotate(B, α°, A)
β = Angle(B, A, C)
c = CircleSector(A, B, C)
D = Point(c)
d = Ray(A, D)
e: apo + 2.0 * r
g: apo + r
h_2 = Circle(A, g)
F = Intersect(h_2, d, 1.0)
k = Circle(F, D)
E = Intersect(k, d, 2.0)
S_1: (x(T), y(T) + sqrt(apo^(2.0) - r^(2.0)))
j = Segment(S, N)
T2: "a =" + apo
n = Segment(S_1, T)
T3: r + ""
r_2 = Segment(A, B)
γ = Angle(B, A, C)
s = Segment(F, D)
c_1 = Conic(R, L, O, P, Q)
c1 = CircleSector(A, B, C)
d1 = Circle(F, E)
e1 = Conic(R, L, O, P, Q)
f1(x) = sqrt(r^(2.0) - (x - 22.0)^(2.0)) / 4.0 + 5.0
i1(x) = -f(x) + 10.0
l = Segment(S, M)
poly1, m_1, s_1, n_1 = Polygon(S, N, M)