a = 1 (slider from 0 to 2)
f(x) = If[-1 ≤ x ≤ 1, (1 - abs(x)^(1 / a))^(a)]
g(x) = (-f(x))
A = (-1, -1)
B = (-1, 1)
h = Segment(A, B)
C = (1, -1)
D = (1, 1)
i = Segment(C, D)