El área del trapecio es la misma que
el área del rectángulo de base 
la suma de las bases del trapecio
y de altura la mitad.

t = 0 (slider from 0 to 3, step 0.01)
A = (6.457343750000001, -2.792812500000001)
B = (9.910625000000001, -2.743125000000001)
a = Line(A, B)
C = (11.575156250000001, 1.3560937499999994)
b = Line(B, C)
c = Line(C, a)
d = Line(A, b)
D = Intersect(c, d)
e = Ray(C, D)
E = Point(e)
f = Segment(A, B)
g = Segment(A, E)
h = Segment(E, C)
i = Segment(C, B)
j = OrthogonalLine(C, a)
F = Intersect(f, j)
caso1 = Defined(F)
G = Midpoint(C, F)
H = Midpoint(C, B)
I = Midpoint(E, A)
polígono1 = If(caso1, Polygon[A, B, H, I])
α: Min[t, 1.0] * 180.0 * °
β: Max[t, 2.0] * 180.0 * °
polígono2 = If(caso1, Polygon[Rotate[C, -1.0 * β, H], Rotate[G, -1.0 * β, H], Rotate[H, -1.0 * β, H]])
polígono3 = If(caso1, Polygon[Rotate[E, α, I], Rotate[C, α, I], Rotate[G, α, I], Rotate[I, α, I]])
k = If(caso1, Segment[Rotate[E, α, I], Rotate[C, α, I]])
l = If(caso1, Segment[A, B])
m = OrthogonalLine(B, a)
J = Intersect(c, m)
K = Midpoint(J, B)
caso2: ¬caso1
polígono4 = If(caso2, Polygon[I, E, C, H])
polígono5 = If(caso2, Polygon[Rotate[K, β, H], Rotate[H, β, H], Rotate[B, β, H]])
polígono6 = If(caso2, Polygon[Rotate[A, -1.0 * α, I], Rotate[I, -1.0 * α, I], Rotate[K, -1.0 * α, I], Rotate[B, -1.0 * α, I]])
n = If(caso2, Segment[E, C])
o = If(caso2, Segment[Rotate[A, -1.0 * α, I], Rotate[B, -1.0 * α, I]])
p = Line(I, H)
L = Point(p)
s = OrthogonalLine(L, p)
M = Intersect(s, c)
q = Circle(L, M)