f(x, y) = (-(3 * x^(2) + 2 * y^(2))) / 10
c_2 = Segment((2, 2), (-2, 2))
c_4 = Segment((1, 1), (-1, 1))
c_1 = Segment((1, 1), (2, 2))
c_3 = Segment((-2, 2), (-1, 1))
p = 0.05 (slider from 0.05 to 1, step 0.05)
e = Segment((1, 1, 0), (1, 1, f(1, 1)))
g = Segment((2, 2, 0), (2, 2, f(2, 2)))
h = Segment((-1, 1, 0), (-1, 1, f(-1, 1)))
i = Segment((-2, 2, 0), (-2, 2, f(-2, 2)))
list1 = Sequence(Segment[(s, s, f(s, s)), (s + p, s + p, f(s + p, s + p))], s, 1, 2 - p, p)
list2 = Sequence(Segment[(s, -s, f(s, -s)), (s + p, -(s + p), f(s + p, -(s + p)))], s, -2, -1 - p, p)
list3 = Sequence(Segment[(s, 1, f(s, 1)), (s + p, 1, f(s + p, 1))], s, -1, 1 - p, p)
list4 = Sequence(Segment[(s, 2, f(s, 2)), (s + p, 2, f(s + p, 2))], s, -2, 2 - p, p)
j = Segment((0, 1), (0, 2))
A = Point(j)
a: y(A)
b = Segment((-a, a), (a, a))
list5 = Sequence(Segment[(t, a, f(t, a)), (t + p, a, f(t + p, a))], t, -a, a - p, p)
c = Segment((a, a, 0), (a, a, f(a, a)))
d = Segment((-a, a, 0), (-a, a, f(-a, a)))
n = 9 (slider from 1 to 20, step 1)
q: 2 * a / n
list6 = Sequence(Polygon[(s, a, 0), (s + q, a, 0), (s + q, a, f(s + q / 2, a)), (s, a, f(s + q / 2, a))], s, -a, a - q, q)