Re(x, y) = log(sqrt(x*x + y*y))[br]Im(x, y) = atan2(y, x)[br][br]t = Slider(0, 2, 0.1, 1, 150, false, true, false, false)[br][br]RSRe = Surface(u*cos(v), u*sin(v), 0*(1-t/2)+Re(u*cos(v), u*sin(v))*(t/2), u, 0, 2, v, -pi, pi-pi/200)[br]RSIm = Surface(u*cos(v), u*sin(v), Im(u*cos(v), u*sin(v)), u, 0, 3, v, -pi, pi-pi/200)[br][br]Execute(Sequence( "B"+(i)+" = Surface(u*cos(v), u*sin(v),0*(1-t) + Im(u*cos(v), u*sin(v)) * If( 0 <= t <= 1, t, 1) + 0*(2-t)+2*pi*("+(i)+"-2)*(t-1), u, 0, 2, v, -pi, pi-pi/200)", i, 0, 4))