S = (0.4, -0.4)
T = (1.6, -0.4)
t = Segment(S, T)
M = Point(t)
N = Point(t)
p4, m, n, p, q, r, s, O, P, Q, R = Polygon(M, N, 6)
U = (0, 1)
V = (8, 1)
u = Vector(U, V)
v = 2 (slider from 0 to 2, step 0.1)
v1 = If(v ≤ 1, v, 1)
W = (8, 3)
Z = (8, -1)
a_1 = Segment(W, Z)
J = (-0.5, -0.5)
I = (-1.5, -0.5)
p3, i, j, k, l, K, L = Polygon(I, J, 4)
G = (1.34, 1.78)
F = (0.54, 1.78)
p2, f, g, h, H = Polygon(F, G, 3)
B = (-2, 3)
A_1 = (2, 3)
p1, a, b_1, c, d, C, D = Polygon(A_1, B, 4)
v2 = If(v ≥ 1, v - 1, 0)
E = (-1, 2)
e = Circle(E, 0.5)
α = 1.5707963267948966 rad (slider from 0 to 90°, step 0.017453292519943295)
A = (4, 1)
b = 1 (slider from 0 to 1, step 0.0010)
β = 3.141592653589793 rad (slider from 0 to 180°, step 0.017453292519943295)
γ = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B_1 = (6, 1)
C_1 = (10, 1)
c_1 = Segment(B_1, C_1)
D_1 = (6, 3)
E_1 = (10, -1)
d_1 = Segment(D_1, E_1)
F_1 = (6, -1)
G_1 = (10, 3)
e_1 = Segment(F_1, G_1)
o1 = false
o2 = true
o3 = false
o4 = false
o5 = false
o6 = false
o7 = false
o8 = false
e' = Translate(e, Vector[(v1 * u)])
p1' = Translate(p1, Vector[(v1 * u)])
p2' = Translate(p2, Vector[(v1 * u)])
p3' = Translate(p3, Vector[(v1 * u)])
p4' = Translate(p4, Vector[(v1 * u)])
e'' = Rotate(e', (v2 * (-90°)), V)
p1'' = Rotate(p1', (v2 * (-90°)), V)
p2'' = Rotate(p2', (v2 * (-90°)), V)
p3'' = Rotate(p3', (v2 * (-90°)), V)
p4'' = Rotate(p4', (v2 * (-90°)), V)