Welcome to Fractal Forums

#include "DE-Raytracer.frag"

uniform float timet; slider[0,0.1,30]

float sphere(vec3 p)
{
	return length(p)-5.;
}

float displacement(vec3 p)
{
	return sin(p.x)*sin(p.y)*sin(p.z);
}

float opDisplace( vec3 p )
{
	float d1 = sphere(p);
	vec3 s = p+timet;
	// mercury ftw
    	float d2 = displacement(s);
	d2 += displacement(s*2.117+timet)/2.117;
	d2 += displacement(p*4.7)/4.7;
	d2 += displacement(s*8.13)/8.13;
	d2 += displacement(s*17.33)/17.33;
	d2 += displacement(s*39.21)/39.21;
    	return max(d1,-(d2/6.0));
}

float  DE(vec3 p) {
   float ob= opDisplace(p);
   return ob;
}




#preset Pomodoro
FOV = 2
Eye = -3.30257,-0.660253,4.58817
Target = 5.37355,1.83547,-6.99598
Up = -0.776986,-0.0140659,-0.623169
AntiAlias = 1
Detail = -2.3
DetailAO = -0.5
FudgeFactor = 1
MaxRaySteps = 374
BoundingSphere = 18.868
Dither = 0.33333
NormalBackStep = 1
AO = 0,0,0,0.65432
Specular = 2.1519
SpecularExp = 12.727
SpotLight = 1,1,1,0.76471
SpotLightDir = 0.1,0.1
CamLight = 1,1,1,1.11538
CamLightMin = 0.13636
Glow = 1,1,1,0.0137
GlowMax = 52
Fog = 0
HardShadow = 0
ShadowSoft = 2
Reflection = 0
BaseColor = 1,1,1
OrbitStrength = 0
X = 0.5,0.6,0.6,0.7
Y = 1,0.6,0,0.4
Z = 0.8,0.78,1,0.5
R = 0.4,0.7,1,0.12
BackgroundColor = 0.6,0.6,0.45
GradientBackground = 0.3
CycleColors = false
Cycles = 1.1
EnableFloor = false
FloorNormal = 0,0,0
FloorHeight = 0
FloorColor = 1,1,1
timet = 6.1062
#endpreset

uniform float r2; slider[0.,5.,20.]
uniform float r3; slider[0.,5.,20.]
...

float grid(in vec3 p)
{
    //thanks to Furan and Dark-Beam
    float obj=0.25+2*pow(p.z,2)+(0.25*(cos(4*p.y)+cos(2*sqrt(3)*p.x-2*p.y)+cos(2*sqrt(3)*p.x+2*p.y))+0.03* (cos(4*sqrt(3)*p.x)+cos(6*p.y-2*sqrt(3)*p.x)+cos(6*p.y+2*sqrt(3)*p.x)));
    return obj;
}
float  DE(in vec3 p) {
    vec3 bend;
    bend.x= p.x;
    bend.y=p.y;
    //http://www.pouet.scene.org/topic.php?which=7931&page=1
    bend.z= length(vec2(length(p.xz) - r2,p.y)) -r3;//torus
    //bend.z=sqrt(p.y*p.y+p.z*p.z)-r3;//column
    //bend.z=sqrt(p.x*p.x+p.y*p.y+p.z*p.z)-r3;//sphere
    //bend.z= max(abs(p.x) - 0.5 * r2, length(p.yz) - r3);//cylinder
    //cube etc.
    return grid(bend);
}

//basic pipes
//http://glsl.heroku.com/e#6132.3
float map( vec3 p ){
p.x+=sin(p.z*4.0+time*4.0)*0.1*cos(time*0.1);
p = mod(p,vec3(1.0, 1.0, 1.0))-0.5;
return length(p.xy)-.1;
}

float DE(vec3 p){
return map(p);
}

Transformation to local orthogonal system with distortion (usable to any other repeating pattern on this toroid)
x1=atan2(y,x)*8
y1=(atan2(z,(sqrt(x^2+y^2)-2)))*8/sqrt(x^2+y^2)
z1=((sqrt(x^2+y^2)-2)^2+z^2-1)*4/sqrt(x^2+y^2)

Good old hexagonal grid:
F=0.25+2*z1^2+(0.25*(cos(4*y1)+cos(2*sqrt(3)*x1-2*y1)+cos(2*sqrt(3)*x1+2*y1))+0.03*(cos(4*sqrt(3)*x1)+cos(6*y1-2*sqrt(3)*x1)+cos(6*y1+2*sqrt(3)*x1))) = 0