LinFkt2
Author: Roland Weber

A = (1, 2)
B = Point(f)
a = Segment(B, A)
C = (3, 2)
b = Segment(B, C)
c = OrthogonalLine(A, xAxis)
d = OrthogonalLine(C, xAxis)
D = Intersect(c, f)
E = Intersect(f, d)
e = Segment(A, D)
g = OrthogonalLine(D, yAxis)
F = (2, 1)
h = OrthogonalLine(F, xAxis)
G = Intersect(g, h)
H = Intersect(f, h)
i = OrthogonalLine(H, yAxis)
j = Segment(D, G)
k = Segment(G, H)
I = Intersect(d, i)
l = Segment(H, I)
m = Segment(I, E)
n = Segment(C, E)
J = Point(f)