Zentrische Streckung

Z = (40, -20)
k = 0.5 (slider from 0.1 to 5, step 0.1)
A = (-20, -40)
B = (60, -40)
C = (100, 0)
D = (20, 0)
f = Segment(A, B)
g = Segment(B, C)
h = Segment(C, D)
i = Segment(D, A)
j = Ray(Z, A)
l = Ray(Z, D)
m = Ray(Z, C)
n = Ray(Z, B)
p = Segment(Z, A)
q = Segment(Z, D)
r = Segment(Z, C)
s = Segment(Z, B)
c = Circle(Z, (p * k))
A' = Intersect(c, j)
d = Circle(Z, (k * q))
D' = Intersect(d, l)
e = Circle(Z, (r * k))
C' = Intersect(e, m)
t = Circle(Z, (s * k))
E = Intersect(n, s)
B' = Intersect(t, n)
a = Segment(A', B')
b = Segment(B', C')
f_1 = Segment(C', D')
g_1 = Segment(D', A')
o = true