Unfolding the wormhole
From Analytic sphere eversion using ruled surfaces
https://arxiv.org/abs/1711.10466
by Adam Bednorz, Witold Bednorz
Script
n = Slider(2, 5, 1, 1, 150, false, true, false, false)
t = Slider(-1.5, 1.5, 0.01, 1, 150, false, true, false, false)
q = 2/3
p = 1-abs(q t)
fx(x, y) = t cos(x) + p sin((n-1) x) - y sin(x)
fy(x, y) = t sin(x) + p cos((n-1) x) + y cos(x)
fz(x, y) = y sin(n x) - t/n cos(n x) - q t y
surf = Surface(fx(u, v), fy(u, v), fz(u, v), u, -pi, pi, v, -2, 2)