Z = (0, 1)
B = (3, 3)
C = (11, 1)
D = (3, -1)
v1, a, b, c, d = Polygon(Z, B, C, D)
f = Line(Z, C)
E = Point(f)
g = OrthogonalLine(E, f)
A = Point(g)
L = Point(g)
n = Segment(A, L)
F = Intersect(a, g)
G = Intersect(d, g)
Vieleck1, h, i, j, k, H, I = Polygon(F, G, 4)
l = Ray(Z, I)
m = Ray(Z, H)
J = Intersect(b, l)
K = Intersect(c, m)
Vieleck1' = Dilate(Vieleck1, Distance[Z, J] / Distance[Z, I], Z)