Z = (3, 10)
P = (-2, 2)
Q = (10, 8)
a = Line(P, Q)
B = Point(a)
A = (1, 7)
C = (6, 8)
B' = (3, -6.5)
b = Line(Z, B')
k: Distance[Z, B'] / Distance[Z, B]
R, c, a_1, b_1 = Polygon(A, B, C)
A' = Dilate(A, k, Z)
B'_1 = Dilate(B, k, Z)
C' = Dilate(C, k, Z)
R', c', a', b'_1 = Polygon(A', B'_1, C')
d = Line(A, C)