P=(3,2)

H = (5.1841831892478005, -2.4591348336771337)
K = (5.1841831892478005, -1.378800656175078)
w = Vector(H, K)
h = Line(H, K)
M = Point(h)
N = Point(h)
s = Vector(N, M)
K' = Translate(K, w)
z_1 = Vector(K, K')
K'' = Translate(K', z_1)
a_1 = Vector(K', K'')
S: H - w
j = Vector(H, K)
a = OrthogonalLine(H, j)
B = Point(a)
C = Point(a)
v = Vector(B, C)
A = Point(v)
i = Vector(H, A)
A' = Translate(A, i)
z = Vector(A, A')
A'' = Translate(A', z)
b = Vector(A', A'')
A''' = Translate(A'', b)
c = Vector(A'', A''')
D: H - i
d = OrthogonalLine(A'', v)
e = OrthogonalLine(K', s)
P = Intersect(d, e)
f = Segment(K', P)
g = Segment(P, A'')