a_1 = 2.4 (slider from -5 to 5, step 0.1)
b_1 = 1.4 (slider from -5 to 5, step 0.1)
c_1: x^(2) / a_1^(2) + y^(2) / b_1^(2) = 1
M: (0, 0)
m = Rotate(c_1, 45°, M)
o = Rotate(c_1, (-(45°)), M)
m_2 = 1 (slider from -5 to 5, step 0.1)
r = 1 (slider from -5 to 5, step 0.1)
M_2: ((-r), ((-m_2) * r))
p = Translate(o, Vector[M, M_2])
M_1: (r, ((-m_2) * r))
n = Translate(m, Vector[M, M_1])
f(x, y) = x^(2) / a_1^(2) + y^(2) / b_1^(2) < 1
c = Rotate(f, 45°, M)
b = Rotate(f, (-(45°)), M)
d = Translate(c, Vector[M, M_1])
a = Translate(b, Vector[M, M_2])
x_1 = 3.3 (slider from -5 to 5, step 0.1)
y_1 = 3.3 (slider from -5 to 5, step 0.1)
e(x, y) = (-x_1) ≤ x ≤ x_1 ∧ (-y_1) ≤ y ≤ y_1 - 1
E_1: ((-x_1), (-y_1))
E_2: (x_1, (-y_1))
E_3: (x_1, y_1 - 1)
E_4: ((-x_1), y_1 - 1)
s_1 = Segment(E_1, E_2)
s_2 = Segment(E_2, E_3)
s_4 = Segment(E_4, E_1)
s_3 = Segment(E_3, E_4)