Z = 

C = (1.62, 6.88)
A = (-1.44, -0.68)
B = (4.1, 0.72)
d1, c, a, b = Polygon(C, A, B)
D = (-1.78, 1.32)
E = (1.4, -1.22)
f = Segment(D, E)
F = Intersect(c, f)
G = Intersect(a, f)
Vieleck1, g, h, i, H = Polygon(F, G, 3)
j = Ray(A, H)
I = Intersect(b, j)
Vieleck1' = Dilate(Vieleck1, Distance[I, A] / Distance[H, A], A)