*

: n 1 + 2 / ;
: x1 x .5 - 0.5 y - / 2 / ;
: y1 y 4 * cos x1 dup * 3 / t 4 / cos + sin x1 / + 2 / ;
: z x1 13 * sin y1 53 * sin *
.1 pow 1.1 - abs 4 * ;

z y1 / t sin * 2 /
z
z y1 / t cos *

Based on: Surreal Planet - DarkstarAG