P = (-1, 2)
P6 = (2.34, 0.88)
P7 = (4.54, 0.4)
P8 = (3.14, -0.78)
Vieleck1, c, a, b = Polygon(P6, P7, P8)
F = Point(Vieleck1)
d = Ray(P, F)
Armlänge = 3 (slider from 2.3 to 3.7, step 0.1)
e = Circle(F, Armlänge)
f = Circle(P, Armlänge)
P1 = Intersect(e, f, 1.0)
P2 = Intersect(e, f, 2.0)
h2 = Ray(P, P2)
V = Point(h2)
g = Segment(V, P2)
s2 = Segment(V, P)
h = Line(F, h2)
s1 = Segment(P2, F)
i = Line(V, s1)
Z = Intersect(i, d)
g3 = Line(Z, h2)
j = Line(P2, F)
A = Intersect(g3, j)
l = Segment(Z, A)
m = Segment(V, Z)
n = Line(F, g)
B = Intersect(n, m)
p = Segment(F, B)