hoogte = 4 (slider from 0 to 5, step 0.1)
A = (7, -1)
zwartlengte = 4 (slider from 0 to 5, step 0.1)
F = Point(Circle[A, zwartlengte])
B = Midpoint(A, F)
c = Circle(B, hoogte)
j = Segment(A, F)
n = OrthogonalLine(B, j)
G, H = Intersect(c, n)
veelhoek1, k, l, m = Polygon(A, F, H)
d = Ray(H, A)
e = Ray(H, F)
verlenging = 2.3 (slider from 0 to 5, step 0.1)
γ = Angle(F, H, A)
ε = Angle(A, F, H)
δ = Angle(H, A, F)
p = Circle(F, verlenging)
q = Circle(A, verlenging)
I, J = Intersect(q, d)
K, L = Intersect(p, e)
f = Segment(A, J)
i = Segment(F, L)
h = Segment(L, A)
g = Segment(J, F)
α = Angle(F, J, A)
β = Angle(A, L, F)
ζ = Angle(L, A, F)
η = Angle(J, F, A)
ι = Angle(J, F, L)
θ = Angle(J, A, L)