## The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!

Surface Entry
Previous Image | Next Image
Description: Played with the numbers a little - -

#info Theli-at\'s Pseudo Kleinian (Scale 1 JuliaBox + Something
#include \"DE-RaytracerK.frag\"
#include \"MathUtils.frag\"
#group PseudoKleinian

#define USE_INF_NORM

// http://www.fractalforums.com/3d-fractal-generation/fragmentarium-an-ide-for-exploring-3d-fractals-and-other-systems-on-the-gpu/msg32270/#msg32270

// Maximum iterations
uniform int MI; slider[0,5,100]
uniform int ColorIterations;  slider[0,9,100]
// Bailout
//uniform float Bailout; slider[0,20,1000]

// Size
uniform float Size; slider[0,1,3]

// Cubic fold Size
uniform vec3 CSize; slider[(0,0,0),(1,1,1),(3,3,3)]

// Julia constant
uniform vec3 C; slider[(-73,-73,-74),(0,0,0),(73,73,73)]

// Thingy thickness
uniform float TThickness; slider[0,0.01,2]

// Thingy DE Offset
uniform float DEoffset; slider[0,0,0.01]

// Thingy Translation
uniform vec3 Offset; slider[(-2,-2,-2),(0,0,0),(1,1,1)]

float RoundBox(vec3 p, vec3 csize, float offset)
{
vec3 di = abs(p) - csize;
float k=max(di.x,max(di.y,di.z));
return abs(k*float(k<0.)+ length(max(di,0.0))-offset);
}

float Thingy(vec3 p, float e){
p-=Offset;
return (abs(length(p.xy)*p.z)-e) / sqrt(dot(p,p)+abs(e));
}

float Thing2(vec3 p){
//Just scale=1 Julia box
float DEfactor=1.;
vec3 ap=p+1.;
for(int i=0;i<MI && ap!=p;i++){
ap=p;
p=2.*clamp(p, -CSize, CSize)-p;

float r2=dot(p,p);
orbitTrap = min(orbitTrap, abs(vec4(p,r2)));
float k=max(Size/r2,1.);

p*=k;DEfactor*=k;

p+=C;
if (i<ColorIterations) orbitTrap = min(orbitTrap, abs(vec4(p,dot(p,p))));
}
//Call basic shape and scale its DE
return abs(0.5*Thingy(p,TThickness)/DEfactor-DEoffset);

//Alternative shape
//return abs(0.5*RoundBox(p, vec3(1.,1.,1.), 1.0)/DEfactor-DEoffset);
//Just a plane
//return abs(0.5*abs(p.z-Offset.z)/DEfactor-DEoffset);
}

float DE(vec3 p){
return  Thing2(p);//RoundBox(p, CSize, Offset);
}

#preset default
FOV = 0.63028
Eye = -85.1588,-24.6022,-34.5052
Target = -71.7861,-48.4282,-36.8032
FocalPlane = 0.33094
Aperture = 0
InFocusAWidth = 0.65499
ApertureNbrSides = 8 NotLocked
ApertureRot = 298.796
ApStarShaped = false NotLocked
Gamma = 1.31185
ToneMapping = 3
Exposure = 1.6068
Brightness = 2.579
Contrast = 1.5629
Saturation = 1.26105
GaussianWeight = 4.1252
AntiAliasScale = 0.1603
Detail = -3.44477
DetailAO = -0.8701
FudgeFactor = 1
MaxRaySteps = 1852
Dither = 0.83165
NormalBackStep = 1
AO = 0,0,0,1
Specular = 0.14358
SpecularExp = 21.114
SpecularMax = 4.907
SpotLight = 0.929412,0.992157,1,0.86688
SpotLightDir = -0.4398,-0.27366
CamLight = 0.847059,0.756863,0.576471,0.74368
CamLightMin = 0.37621
Glow = 1,1,1,0.27081
GlowMax = 197
Fog = 0.53726
Reflection = 0.29866 NotLocked
DebugSun = false
ReflectionsNumber = 3
SunColor = 0.64822,0.09351,0.26145
BaseColor = 1,1,1
OrbitStrength = 0.59004
X = 0.5,0.6,0.6,0.28894
Y = 1,0.6,0,-0.08418
Z = 0.772549,1,0.701961,0.04146
R = 0.4,0.7,1,0.76744
BackgroundColor = 0.435294,0.282353,0.231373
CycleColors = true
Cycles = 1.10947
EnableFloor = true NotLocked
FloorNormal = 0.14594,-0.1063,-0.2686
FloorHeight = -0.1621
FloorColor = 0.180392,0.333333,0.356863
MI = 75
ColorIterations = 3
TThickness = 1.92328
DEoffset = 0
Up = -0.54922,0.99134,-0.804632
Size = 3
CSize = 0.52863,0.40779,1.01574
C = -9.50168,-24.1207,-3.99566
Offset = -0.81899,0.59938,-1.8386
#endpreset

Stats:
Total Favorities: 0 View Who Favorited
Filesize: 286.62kB
Height: 1200 Width: 1920
Discussion Topic: View Topic
Keywords: timemit fragmentarium pkm
Posted by: Tim Emit September 02, 2016, 10:24:22 AM

Rating: by 6 members.

0 Members and 1 Guest are viewing this picture.
Related Images
 Re-EntryRating: Filesize: 101.44kBDate: August 31, 2009, 09:39:37 PMComments (0)By: Cyclops Mandelbulb surfaceRating: Filesize: 340.68kBDate: November 20, 2009, 06:59:35 PMComments (0)By: Buddhi Re-entry IRating: (None)Filesize: 146.07kBDate: December 23, 2010, 04:01:52 AMComments (0)By: Guest Entry pointRating: (None)Filesize: 2.48MBDate: December 08, 2015, 11:02:02 PMComments (1)By: greymatter Above the SurfaceRating: (None)Filesize: 380.28kBDate: April 19, 2016, 06:43:20 AMComments (1)By: mclarekin

 Comments (8) Tim Emit Conqueror Posts: 111 September 08, 2016, 12:08:35 PMQuote from: LMarkoyaVery Nice and great coloring.....congrats many thanks Louis : ) LMarkoya Strange Attractor Posts: 282 September 03, 2016, 03:09:47 PMVery Nice and great coloring.....congrats Tim Emit Conqueror Posts: 111 September 03, 2016, 01:27:04 PMQuote from: mclarekinthats a great image .  colors, reflection etc   Glad you like it...much appreciated : ) Tim Emit Conqueror Posts: 111 September 03, 2016, 01:26:23 PMQuote from: CaleidoscopeGreat work!   many thanks Tim Emit Conqueror Posts: 111 September 03, 2016, 01:25:59 PMQuote from: taurusFantastic work, Tim!   Cheers Torsten, I hope to be a bit more active this Autumn : ) taurus Fractal Supremo Posts: 1175 September 02, 2016, 08:33:06 PMFantastic work, Tim! Caleidoscope Fractal Fertilizer Posts: 365 September 02, 2016, 05:02:24 PMGreat work! mclarekin Fractal Senior Posts: 1739 September 02, 2016, 01:04:03 PMthats a great image .  colors, reflection etc