Welcome to Fractal Forums

// Tslil 'Hiato' Clingman, 2012
#include "2D.frag"
#group mandelex

uniform float linear_a; slider[0.1,2,10];
uniform float linear_b; slider[0.1,2,10];
uniform float wrap; slider[0.1,0.5,10]
uniform float radius; slider[0.1,0.5,10];
uniform float scale; slider[1,2,10];
uniform float angle; slider[0,180,360];

uniform int iters; slider[1,13,500];
uniform float bailout; slider[1,13,1000];

void wrapb(inout float a, in float w) {
	if (a>w) {
		a=2*w-a;
	} else if (a<-w) {
		a=-2*w-a;
	};
};

void wrapBox(inout vec2 a, float h, float w) {
	wrapb(a.x,w);
	wrapb(a.y,h);
};

void wrapCirc(inout vec2 p, float r) {
  float l = length(p);
  vec2 u = p/l;
  if (l>r) p=2*r*u-p;
};

void rotate(inout vec2 a, in float phi) {
	a = vec2(a.x*cos(phi)-a.y*sin(phi),a.x*sin(phi)+a.y*cos(phi));
};

void absv(inout vec2 a) {
	a.x = abs(a.x);
	a.y = abs(a.y);
};

void circInvert(inout vec2 p, in float r) {
	float l = length(p);
	if (l<r) p*=r*r/(l*l);
};


void linearPull(inout vec2 p, float h, float w) {
	if (abs(p.x)>w&&abs(p.y)>h) {
		h*=2; w*=2;
		if (p.x<0) p.x+=w;
		else p.x-=w;
		if (p.y<0) p.y+=h;
		else p.y-=h;
	}
};

void nonlinearPull(inout vec2 p, float h, float w) {
	if (abs(p.x)>w&&abs(p.y)>h) {
		h*=2; w*=2;
		if (p.x>0) p.x-=w*floor(p.x/w);
		else p.x-=w*ceil(p.x/w);
		if (p.y>0) p.y-=h*floor(p.y/h);
		else p.y-=h*ceil(p.y/h);
	};
};

vec2 formula(in vec2 a, in vec2 p) {
	linearPull(a,linear_b,linear_b);
	if (abs(p.x)<linear_a&&abs(p.y)<linear_a) 
		nonlinearPull(a,linear_a,linear_a);
	wrapBox(a,wrap,wrap);
	circInvert(a,radius);
	a*=scale;
	rotate(a,angle/180*3.1415926);
	a+=p;
	linearPull(a,linear_b,linear_b);
  	return a;
}

vec3 color(in vec2 p) {
	vec2 c = p;
	int k=-1;
	while (k<iters) {
		if (length(p)>bailout) break;
		p = formula(p,c);
		k+=1;
	};
	float v = k/(iters+0.0);
	v*=v*v;
	return vec3(v,v,v);
};


#preset default
Center = 0,0
Zoom = 0.12359
AntiAliasScale = 1
AntiAlias = 3
linear_a = 2
linear_b = 2
wrap = 0.5
radius = 0.5
scale = 2
angle = 180
iters = 25
bailout = 500
#endpreset

 
Parse: E:/downloads8/Fragmentarium Windows Binary v0.9.12b2/Fragmentarium Windows Binary v0.9.12b/Examples/mx3d.frag
Including file: E:/downloads8/Fragmentarium Windows Binary v0.9.12b2/Fragmentarium Windows Binary v0.9.12b/Examples/Include/Brute-Raytracer.frag
No vertex shader found!
Could not create vertex shader: 
Could not find Center interface widget
Could not find Zoom interface widget
Failed to compile script (53 ms).
Found 'default' index. Executing...
Could not find: AOScale
Could not find: AOStrength
Could not find: BackgroundColor
Could not find: BaseColor
Could not find: Brightness
Could not find: CamLight
Could not find: CamLightMin
Could not find: CentralDifferences
Could not find: Contrast
Could not find: CycleColors
Could not find: Cycles
Could not find: DebugInside
Could not find: DebugNormals
Could not find: EquiRectangular
Could not find: Exposure
Could not find: Eye
Could not find: FOV
Could not find: Far
Could not find: Fog
Could not find: Gamma
Could not find: Glow
Could not find: GradientBackground
Could not find: Near
Could not find: NormalScale
Could not find: OrbitStrength
Could not find: R
Could not find: SampleNeighbors
Could not find: Samples
Could not find: Saturation
Could not find: ShowDepth
Could not find: Specular
Could not find: SpecularExp
Could not find: SpotLight
Could not find: SpotLightDir
Could not find: Stratify
Could not find: Target
Could not find: ToneMapping
Could not find: Up
Could not find: X
Could not find: Y
Could not find: Z

 
  private Complex linearPull(Complex p )
        {

            double tempreal = p.Real;
            double tempimag = p.Imaginary;

            if ((Math.Abs(tempreal) > linear_b) && (Math.Abs(tempimag) > linear_b))
            {
                double factw = linear_b * 2;
                double facth = linear_b * 2;
                if (tempreal < 0)
                {
                    tempreal += factw;
                }
                else
                {
                    tempreal -= factw;
                }

                if (tempimag < 0)
                {
                    tempimag += facth;
                }
                else
                {
                    tempimag -= facth;
                }

            }
   private Complex nonlinearPull(Complex p )
        {

            double tempreal = p.Real;
            double tempimag = p.Imaginary;
       // weiss nit wozu diese abfrage gut ist,      if ((Math.Abs(p.Real) < 1) && (Math.Abs(p.Imaginary) < 1) )
            {
                if ((Math.Abs(tempreal) > linear_a) && (Math.Abs(tempimag) > linear_a))
                {
                    double factw = linear_a * 2;
                    double facth = linear_a * 2;
                    if (tempreal > 0)
                    {
                        tempreal -= linear_a * Math.Floor(tempreal / linear_a);
                    }
                    else
                    {
                        tempreal -= linear_a * Math.Ceiling(tempreal / linear_a);
                    }

                    if (tempimag > 0)
                    {
                        tempimag -= linear_a * Math.Floor(tempimag / linear_a);
                    }
                    else
                    {
                        tempimag -= linear_a * Math.Ceiling(tempimag / linear_a);
                    }
                }
            }

            return new Complex(tempreal, tempimag); ;
        }
        private Complex transformBallFold(PointWithOrigin point)
        {
            double magnitude = point.current.Magnitude;
            if (magnitude < radius)
            {
                magnitude = magnitude / (radius * radius);
            }
            else if(magnitude<1) {
                magnitude = 1.0 / magnitude;
            }
            return Complex.FromPolarCoordinates(magnitude,point.current.Phase);
        }