Welcome to Fractal Forums

float DEF(vec3 p) {
	float d = DE(p);
	
	if (EnableFloor) {
		float k = Kaliset(p);
		float sc = 1.0 + k * kDisp;
		p *= sc;				
		floorDist = abs(dot(floorNormal,p)-FloorHeight)/sc;
		if (d<floorDist) {
			fSteps++;
			return d;
		}  else return floorDist;		
 	} else {	
		fSteps++;
		return d;
		
	}
}

float DEF2(vec3 p) {
	if (EnableFloor) {
		float k = Kaliset(p);
		float sc = 1.0 + k * kDisp;
		p *= sc;
		floorDist = abs(dot(floorNormal,p)-FloorHeight)/sc;
		return min(floorDist, DE(p));
 	} else {
		return DE(p);
	}
}

if (floorHit) {
			vec4 floorTex = texture2D(sInput2,hit.xz*2);
			//vec4 floorTex = texture2D(sInput2,hit.xz*FloorTexScale);
			
			hitColor = vec4(FloorColor.rgb*floorTex.rgb,0);
		}

d-=Kaliset(p)*kDisp; 

d+=Kaliset(p)*kDisp; 

uniform vec3 BaseColor; color[1.0,1.0,1.0]
uniform float ColoringMix; slider[0,.5,1]
uniform float ColorDensity; slider[0,1,10]
uniform float ColorOffset; slider[0,0,1]
uniform vec3 Color1; color[1.0,0.0,0.0]
uniform vec3 Color2; color[0.0,1.0,0.0]
uniform vec3 Color3; color[0.0,0.0,1.0]
uniform vec3 Color4; color[1.0,0.5,0.5]
uniform vec3 Color5; color[0.5,0.1,0.5]
uniform vec3 Color6; color[0.5,0.5,1.0]

#define PI  3.141592

vec3 getcolor(float index) {
	float cx=index*ColorDensity+ColorOffset*PI*6;
	vec3 col;
	float ps=PI/3;
	float f1=max(0,sin(cx)-.5)/.5;
	float f2=max(0,sin(cx+ps)-.5)/.5;
	float f3=max(0,sin(cx+ps*2)-.5)/.5;
	float f4=max(0,sin(cx+ps*3)-.5)/.5;
	float f5=max(0,sin(cx+ps*4)-.5)/.5;
	float f6=max(0,sin(cx+ps*5)-.5)/.5;
	col=mix(Color1,Color2,f1);
	col=mix(col,Color3,f2);
	col=mix(col,Color4,f3);
	col=mix(col,Color5,f4);
	col=mix(col,mix(Color6,Color1,f6),f5);
	col=mix(BaseColor,col,ColoringMix);
	return col;
}

float surf(vec3 p) {
float sdist = 0.0;
vec3 sdir=normalize(s_Dir);
sdist = abs(dot(sdir,p));
return p;
}

float DE(vec3 pos) {
float d = length(pos+vec3(0.0,0.0,-0.25))-0.25;
return min(surf(pos), d);
}

float k = Kaliset(p);
orbitTrap=vec4(1,1,1,1)*(k*ColorScale+ColorOffset);
float sc=k*Strength; p+=vec3(sc,sc,sc);

p=sdist;

p+=sdist;

p*=sdist;