Z = (0.36, -0.16)
B = (7.1, -0.26)
C = (2.46, 6.06)
d1, c, a, b = Polygon(Z, B, C)
D = Point(b)
f = OrthogonalLine(D, b)
E = Point(f)
F = Point(f)
g = Segment(E, F)
α = Angle(F, D, C)
G = Intersect(g, c)
Vieleck1, h, i, j, k, H, I = Polygon(D, G, 4)
l = Ray(Z, H)
A = Intersect(a, l)
Vieleck1' = Dilate(Vieleck1, Distance[A, Z] / Distance[Z, H], Z)