O: (3, 1)
A = (6.92, 3.4)
B = (9.2, 3.12)
C = (9.28, -3.86)
D = (2.8, -2.48)
c1, a, b, c, d = Polygon(A, B, C, D)
f = Ray(O, A)
g = Ray(O, B)
h = Ray(O, C)
i = Ray(O, D)
k = 5 (slider from 0 to 5)
e = Circle(O, (k * Distance[O, A]))
p = Circle(O, (k * Distance[O, B]))
q = Circle(O, (k * Distance[O, C]))
r = Circle(O, (k * Distance[O, D]))
A' = Intersect(e, f)
B' = Intersect(p, g)
C' = Intersect(q, h)
D' = Intersect(r, i)
c2, a', b', c', d' = Polygon(A', B', C', D')
α = Angle(A, B, C)
β = Angle(C, D, A)
γ = Angle(D, A, B)
δ = Angle(B, C, D)
distanciaAD = Distance(A, D)
TextoAD: Name[A] + (Name[D]) + " = " + distanciaAD
distanciaDC = Distance(D, C)
TextoDC: Name[D] + (Name[C]) + " = " + distanciaDC
distanciaCB = Distance(C, B)
TextoCB: Name[C] + (Name[B]) + " = " + distanciaCB
distanciaBA = Distance(B, A)
TextoBA: Name[B] + (Name[A]) + " = " + distanciaBA
distanciaA'B' = Distance(A', B')
TextoA'B': Name[A'] + (Name[B']) + " = " + distanciaA'B'
distanciaB'C' = Distance(B', C')
TextoB'C': Name[B'] + (Name[C']) + " = " + distanciaB'C'
distanciaC'D' = Distance(C', D')
TextoC'D': Name[C'] + (Name[D']) + " = " + distanciaC'D'
distanciaD'A' = Distance(D', A')
TextoD'A': Name[D'] + (Name[A']) + " = " + distanciaD'A'
ε = Angle(D', A', B')
ζ = Angle(B', C', D')
η = Angle(C', D', A')
θ = Angle(A', B', C')
Textoc2: "Área de  " + (Name[A']) + (Name[B']) + (Name[C']) + (Name[D']) + " = " + c2
Puntoc2 = PointIn(c2)
Textoc1: "Área de  " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + c1
Puntoc1 = PointIn(c1)