hoekgeel = 1.7976891295541595 rad (slider from 0 to α, step °)
hoogte = 4 (slider from 0 to 5, step 0.1)
lengtebasis = 3 (slider from 0 to 5, step 0.1)
A = (15, -1)
N = (0, -1)
h = Circle(N, lengtebasis)
c = Line(N, A)
D = Point(c)
n = OrthogonalLine(D, c)
d = Circle(D, hoogte)
E, F = Intersect(d, n)
B, C = Intersect(h, c)
f = Segment(N, C)
g = Line(F, f)
afstand = 1 (slider from 0 to 3, step 0.1)
p = Circle(C, afstand)
G, H = Intersect(p, c)
d_1 = Circle(H, f)
Z, A_1 = Intersect(d_1, c)
I = Rotate(A_1, hoekgeel, H)
h_1 = Ray(H, I)
hoekrood = 2.0245819323134224 rad (slider from 0 to 180°, step °)
C' = Rotate(C, hoekrood, N)
m = Ray(N, C')
Q = Intersect(g, h_1)
c_1 = Circle(Q, f)
U, C_1 = Intersect(c_1, g)
P = Intersect(g, m)
e = Circle(P, f)
T, B_1 = Intersect(e, g)
veelhoek1, i, j, k, l = Polygon(N, C, B_1, P)
a = Segment(N, Q)
veelhoek3, q, t, f_1, g_1 = Polygon(H, A_1, C_1, Q)
s = Segment(N, P)
b = Segment(C, C_1)
r = Segment(Q, C_1)
α = Angle(A_1, H, B_1)
J = Intersect(h_1, b)
K = Intersect(j, a)
veelhoek2, c_2, j_1, q_1, k_1 = Polygon(C, J, Q, K)