Welcome to Fractal Forums

#info DarkBeam's Klein Bottle
#include "DE-Raytracer.frag"
#group KBottle

#define PI 3.14159

//Radius of the tubes
uniform float tubeRadius; slider[0,0.3614,100.]

//Radius of the goup of tubes
uniform float groupRadius; slider[0,0.85,5.]

//Radius of the whole object (because it looks like a torus (-:)
uniform float objectRadius; slider[0,.7,1.7]

uniform float ggg; slider[0,.7,1.7]
uniform float hhh; slider[0,3.,12.]
float Tor(vec3 p, float R, float tR, float Tube){
      float j;
      float a = p.x,b = p.y,c = p.z;
	j =sqrt(a*a+b*b)-R ;
	j =sqrt(j*j+c*c);
	return abs(j-tR)-Tube;
}

float ETor(vec3 p, float R, float tR, float Tube, float el ){  // THIS IS WRONG
      float j;
      float a = p.x,b = p.y,c = p.z;
	j =sqrt(a*a+b*b);
      a = (atan(b,a))/hhh;
       j = j*(ggg-tubeRadius*a*a*a)-R;
	j =sqrt(j*j+c*c);
	return abs(j-tR)-Tube;
}

float YinYang(vec3 p, float R, float tR, float Tube){
      float j;
      float a = p.x,b = p.y,c = p.z;
      if (a>0) {b+=R;} else {b-=R;}
	j =sqrt(a*a+b*b)-R ;
	j =sqrt(j*j+c*c);
	return abs(j-tR)-Tube;
}

float DE(vec3 p) {
	float d1,d2,d3;
       d1=1000;//Tor(p,1.,.3,.1);
       if (p.z<0.0 &&1) {
           	return .1-p.z;
		} 
       if (p.x>0) {
             p.y +=objectRadius;
           	d1=ETor(p/groupRadius,2.*1.,.2,.02,-tubeRadius);
             p.y -=objectRadius;
		} else {
             p.y +=2.;
		d1=Tor(p.yzx,.2,.1,.02);
             p.y -= 2.;
		}
       d3=YinYang(p,1.,.3,.02);
       d1=min(d1,d3);
	return d1;
}
#preset default
FOV = 0.62536
Eye = -0.684574,2.97917,-0.56351
Target = 1.28819,-5.52322,0.968231
Up = -0.474302,-0.261493,-0.84063
AntiAlias = 1
Detail = -3
DetailAO = -1.57143
FudgeFactor = 0.66265
MaxRaySteps = 64
BoundingSphere = 4 Locked
Dither = 0 Locked
NormalBackStep = 1
AO = 0,0,0,0.90123
Specular = 4.4304
SpecularExp = 16
SpotLight = 0.435294,0.737255,1,0.5
SpotLightDir = 0.65626,0.5
CamLight = 1,0.941176,0.898039,1.0566
CamLightMin = 0
Glow = 1,1,1,0
GlowMax = 20
Fog = 0
HardShadow = 0
ShadowSoft = 12.9032
Reflection = 0
BaseColor = 0.701961,0.701961,0.701961
OrbitStrength = 0
X = 0.411765,0.6,0.560784,0.41748
Y = 0.666667,0.666667,0.498039,-0.16504
Z = 1,0.258824,0.207843,1
R = 0.0823529,0.278431,1,0.82352
BackgroundColor = 0.607843,0.866667,0.560784
GradientBackground = 0.3261
CycleColors = true
Cycles = 4.04901
EnableFloor = false
FloorNormal = 0,0,0
FloorHeight = 0
FloorColor = 1,1,1
tubeRadius = 0.07534
groupRadius = 0.29851
objectRadius = 0.43077
Rotations = 3
RotDenominator = 3
RotNumeratorX = -2
RotNumeratorY = -4
#endpreset

#info DarkBeam's Klein Bottle
#include "DE-Raytracer.frag"
#group KBottle

#define PI 3.14159

//Radius of the tubes
uniform float tubeRadius; slider[0,0.7,3.]

//Radius of the goup of tubes
uniform float groupRadius; slider[0,0.13,0.4]

//Radius of the whole object (because it looks like a torus (-:)
uniform float objectRadius; slider[0,.7,1.7]

uniform float ggg; slider[0.,1.6,4.]
//uniform float hhh; slider[0.,3.,12.]
float Tor(vec3 p, float R, float tR, float Tube){
      float j;
      float a = p.x,b = p.y,c = p.z;
	j =sqrt(a*a+b*b)-R ;
	j =sqrt(j*j+c*c);
	return abs(j-tR)-Tube;
}

float ETor(vec3 p, float R, float tRmin, float tRmax, float Tube ){
      float j;
      float a = p.x,b = p.y,c = p.z;
	j =sqrt(a*a+b*b);
      a = (atan(b,a)/PI-ggg+2);
      a = clamp(a,tRmin,tRmax);
       j = j-R;
	j =sqrt(j*j+c*c);
	return abs(j-a)-Tube;
}

float YinYang(vec3 p, float R, float tR, float Tube){
      float j;
      float a = p.x,b = p.y,c = p.z;
      if (a>0) {b+=R;} else {b-=R;}
	j =sqrt(a*a+b*b)-R ;
	j =sqrt(j*j+c*c);
	return abs(j-tR)-Tube;
}

float DE(vec3 p) {
	float d1,d2,d3;
       d1=1000;//Tor(p,1.,.3,.1);
       if (p.z<0.0 &&0) {
           	return .1-p.z;
		} 
       if (p.x>0) {
           	d1=ETor(p,2.*1.,tubeRadius-2*groupRadius,tubeRadius,.02);
		} else {
             p.y +=2.;
		d1=Tor(p.yzx,tubeRadius-groupRadius,groupRadius,.02);
             p.y -= 2.;
		}
       d3=YinYang(p,1.,tubeRadius,.02);
       d1=min(d1,d3);
	return d1;
}
#preset default
FOV = 0.62536
Eye = -0.684574,2.97917,-0.56351
Target = 1.28819,-5.52322,0.968231
Up = -0.474302,-0.261493,-0.84063
AntiAlias = 1
Detail = -3
DetailAO = -1.57143
FudgeFactor = 0.66265
MaxRaySteps = 64
BoundingSphere = 4 Locked
Dither = 0 Locked
NormalBackStep = 1
AO = 0,0,0,0.90123
Specular = 4.4304
SpecularExp = 16
SpotLight = 0.435294,0.737255,1,0.5
SpotLightDir = 0.65626,0.5
CamLight = 1,0.941176,0.898039,1.0566
CamLightMin = 0
Glow = 1,1,1,0
GlowMax = 20
Fog = 0
HardShadow = 0
ShadowSoft = 12.9032
Reflection = 0
BaseColor = 0.701961,0.701961,0.701961
OrbitStrength = 0
X = 0.411765,0.6,0.560784,0.41748
Y = 0.666667,0.666667,0.498039,-0.16504
Z = 1,0.258824,0.207843,1
R = 0.0823529,0.278431,1,0.82352
BackgroundColor = 0.607843,0.866667,0.560784
GradientBackground = 0.3261
CycleColors = true
Cycles = 4.04901
EnableFloor = false
FloorNormal = 0,0,0
FloorHeight = 0
FloorColor = 1,1,1
tubeRadius = 0.07534
groupRadius = 0.29851
objectRadius = 0.43077
Rotations = 3
RotDenominator = 3
RotNumeratorX = -2
RotNumeratorY = -4
#endpreset