f(x, y) = x * (1 - x^(2) / 3 + y^(2)) / 3
g(x, y) = -y * (1 - y^(2) / 3 + x^(2)) / 3
h(x, y) = (x^(2) - y^(2)) / 3
a = 2.1 (slider from 0 to 4, step 0.1)
p = 0.2 (slider from 0.2 to 1, step 0.1)
list1 = Sequence(Sequence[Polygon[(f(s, t), g(s, t), h(s, t)), (f(s + p, t), g(s + p, t), h(s + p, t)), (f(s + p, t + p), g(s + p, t + p), h(s + p, t + p)), (f(s, t + p), g(s, t + p), h(s, t + p))], s, -a, a, p], t, -a, a, p)
list2 = Sequence(Sequence[Segment[(f(s, t), g(s, t), h(s, t)), (f(s + p, t), g(s + p, t), h(s + p, t))], s, -a, a, p], t, -a, a, p)
list3 = Sequence(Sequence[Segment[(f(s, t), g(s, t), h(s, t)), (f(s, t + p), g(s, t + p), h(s, t + p))], s, -a, a, p], t, -a, a, p)