Krokodill

m = 0 (slider from 0 to 1, step 0.05)
A = (2, 0)
B = Point(xAxis)
C: (7.98, 2)
N = (10, 2)
O = (11, 1)
P: (7.98, 1)
q1, n, p, q, r = Polygon(Rotate[C, m, C], Rotate[N, m, C], Rotate[O, m, C], Rotate[P, m, C])
T: (7, 2)
t = Circle(T, 0.6)
M = (2, 2)
q2, a, b, c, m_1 = Polygon(A, B, C, M)
D = Point(a)
E = (4, 1)
F = (4, -1)
d = CircleSector(D, E, F)
G: (5, -1)
e = CircleSector(F, G, D)
H = Point(a)
I = (7, 1)
J = (7, -1)
f = CircleSector(H, I, J)
K = (8, -1)
g = CircleSector(J, K, H)
L = (1, 1)
Q = (-1, 1)
R = (-2, 0)
poly1, m_2, l, q_1, r_1, a_1 = Polygon(M, L, Q, R, A)
S = Point(xAxis)
q3, b_1, s, o, p_1 = Polygon(B, S, O, P)
h = Circle(T, 0.5)
k = Circle((x(T) + 0.1, y(T)), 0.3)