A1 = (0, 0)
P = (2.22, 1.92)
A3 = (1, 1)
A4 = (0, 1)
A2 = (1, 0)
d = 1 (slider from -5 to 5, step 0.1)
c = 0 (slider from -5 to 5, step 0.1)
b = 0 (slider from -5 to 5, step 0.1)
a = 1 (slider from -5 to 5, step 0.1)
M: {{a, b}, {c, d}}
B1: P + ApplyMatrix[M, A1]
B4: P + ApplyMatrix[M, A4]
B3: P + ApplyMatrix[M, A3]
B2: P + ApplyMatrix[M, A2]
transfAfín, k, l, m, n = Polygon({B1, B2, B3, B4})
e = 8 (slider from -5 to 10, step 0.1)
g = -3 (slider from -5 to 5, step 0.1)
h = 0 (slider from -5 to 5, step 0.1)
i = 0 (slider from -5 to 5, step 0.1)
j = 1 (slider from -5 to 5, step 0.1)
N: {{a, b, e}, {c, d, g}, {h, i, j}}
C1 = ApplyMatrix(N, A1)
C2 = ApplyMatrix(N, A2)
C3 = ApplyMatrix(N, A3)
C4 = ApplyMatrix(N, A4)
transfHomografía, p, q, r, s = Polygon({C1, C2, C3, C4})
base = Polygon({A1, A2, A3, A4})
imgLineal = ApplyMatrix(M, img)
imgAfin = Translate(imgLineal, (x(P), y(P)))
f = CircleArc((11.02, 4.14), (6.72, 5.64), (6.72, 2.64))
t = CircleArc((8.28, 4.08), (12.58, 2.58), (12.58, 5.58))