t = 3.92 (slider from 0 to 9)
b = CurveCartesian(650 + (130 * (t - 5)) - (63.75 * (t - 5)^(2)), 250 + (50 * (t - 5)), t, 5, 9)
a = CurveCartesian((130 * t), (50 * t), t, 0, 5)
A = If(t < 5, a(t), b(t))
B = (641.346895149192, 243.3612975391499)
C = (660.4842464140654, 244.0380313199105)
D = (142.54109443894575, 443.67449664429523)
E = (160.44377788027896, 443.336129753915)
F = (22.160981643774996, 150.648769574944)
G = (800, 150)
H = (0, 0)
I = (800, 0)
J = Point(Circle[A, 28.71710224360457])
K: A + (0.140215521288439 * Vector[A, J]) + (0.991090644258536 * OrthogonalVector[Segment[A, J]])
t1, k, a_1, j = Polygon(A, J, K)
L = (142.541094438946, 445.02796420581694)
M = (159.2091100567389, 445.02796420581694)
N = (642.8902299286206, 239.47007829977738)
O = (662.3362481493791, 239.30089485458723)
Q = Point(Circle[A, 25.65735305968698])
P: A + (0.0308363087072468 * Vector[A, Q]) + (-1.00006208035312 * OrthogonalVector[Segment[A, Q]])
t2, p, a_2, q = Polygon(A, Q, P)