scherphoek = 0.4886921905584123 rad (slider from 0 to 180° - stomphoek, step °)
stomphoek = 2.2863813201125716 rad (slider from 90° to 180°, step °)
basisstomp = 3 (slider from 0 to 5, step 0.1)
A = (-4, 2)
B = (1, 2)
c_1 = Circle(B, basisstomp)
h = Line(A, B)
C = Intersect(c_1, h, 1)
B' = Rotate(B, scherphoek, C)
i_1 = Ray(C, B')
C' = Rotate(C, (-stomphoek), B)
h_1 = Ray(B, C')
hoekre = 1.2042771838760873 rad (slider from 0 to 90°, step °)
hoekli = 0.8726646259971649 rad (slider from 0 to 90°, step °)
F = Point(h)
basisscherp = 4 (slider from 0 to 5, step 0.1)
e = Circle(F, basisscherp)
G = Intersect(e, h, 2)
F' = Rotate(F, (-hoekre), G)
d = Ray(G, F')
G' = Rotate(G, hoekli, F)
c = Ray(F, G')
f = Segment(C, B)
D = Intersect(i_1, h_1)
i = OrthogonalLine(D, h)
E = Intersect(h, i)
j = Segment(E, D)
k = Segment(D, B)
l = Segment(D, C)
m = Segment(B, E)
H = Intersect(c, d)
n = OrthogonalLine(H, h)
I = Intersect(h, n)
r_1 = Segment(F, I)
s = Segment(I, G)
t = Segment(G, H)
f_1 = Segment(H, I)
g_1 = Segment(H, F)