zwstip = 1.5 (slider from 0 to 3, step 0.1)
A = (4, -3)
lengte = 5 (slider from 0 to 8, step 0.1)
J = Point(Circle[A, lengte])
b = Segment(A, J)
hoekli = 0.9250245035569946 rad (slider from 0 to 179°, step °)
J' = Rotate(J, hoekli, A)
c = Ray(A, J')
hoekre = 1.0995574287564276 rad (slider from 0 to 179° - hoekli, step °)
A' = Rotate(A, (-hoekre), J)
d = Ray(J, A')
K = Intersect(c, d)
K' = Mirror(K, b)
f = Circle(K', zwstip)
f_1 = OrthogonalLine(K', b)
L, M = Intersect(f, f_1)
p = Segment(A, K')
n = Segment(A, M)
r = Ray(A, M)
s = Ray(A, K')
ι = Angle(J, A, J')
κ = Angle(A', J, A)
h = Segment(A, K)
e = Circle(K, zwstip)
g_1 = Line(K, b)
D, F = Intersect(e, g_1)
N, O = Intersect(f, s)
t = Segment(K', O)
q = Segment(M, K')
c_1 = Circle(M, zwstip)
H, P = Intersect(c_1, r)
a = Segment(M, P)
γ = Angle(P, M, K')
k = Segment(D, K)
g = Segment(A, D)
l = Segment(J, M)
m = Segment(J, K')
β = Angle(J, M, P)
j = Segment(K, J)
α = Angle(A, K, J)
i = Segment(D, J)
θ = Angle(J, D, A)
ζ = Angle(M, K', J)
η = Angle(J, K', O)
δ = Angle(A, K, D)
ε = Angle(K, D, J)