O = (-0.76, 0.28)
A = (3.94, -1.1)
B = (3.12, 1.7)
C = (10.63398, 2.17748)
D = (5.54956, 0.58028)
polígono1, a, b, c, d = Polygon(A, B, C, D)
f = Ray(O, A)
K = 2.1 (slider from 0 to 5, step 0.05)
e = Circle(O, (Distance[O, A] * K))
A' = Intersect(e, f, 1)
g = Ray(O, B)
h = Circle(O, (Distance[O, B] * K))
B' = Intersect(h, g, 1)
i = Ray(O, C)
k = Circle(O, (Distance[O, C] * K))
C' = Intersect(k, i, 1)
j = Ray(O, D)
p = Circle(O, (Distance[O, D] * K))
D' = Intersect(p, j, 1)
polígono2, a', b', c', d' = Polygon(A', B', C', D')
α = Angle(D, A, B)
β = Angle(A, B, C)
γ = Angle(B, C, D)
δ = Angle(C, D, A)
ε = Angle(D', A', B')
ζ = Angle(A', B', C')
η = Angle(B', C', D')
θ = Angle(C', D', A')
texto1: "B/B'=" + (LaTeX[B']) + "/" + (LaTeX[B]) + "=" + (LaTeX[b' / b]) + ""
texto2: "A/A'=" + A' + "/" + A + "=" + (a' / a) + ""
texto3: "C/C'=" + C' + "/" + C + "=" + (c' / c) + ""
texto4: "D/D'=" + D' + "/" + D + "=" + (d' / d) + ""