Welcome to Fractal Forums

  Boxtile, cycle length of 1.
  x 0-->1 =  0-->1;
  x 1-->2 =  0-->1;
  x 2-->3 =  0-->1;

  Accordion function, start at x=0, cycle length of 1.   

  x 0--> .5  = 0-->.5;    // goes up til middle of cycle
  x .5-->1   =  .5-->0;   //   goes down til end
  x 1-->1.5  = 0-->.5;  //  goes up
  x 1.5--2   =  .5-->0;     //goes down   ...  til end cycle which is smoothed too.   

Mandelbulb3Dv18{
g.....k1...E9...w....2....UYLSoJyip8.12iPmEcz.3Esj/Fiw.L1.AARHa5OAozzAzKrHiHvC/k
................................AlSDlwFGRz1........Y./..................y.2...wD
...Uz6........../M.0/.....Er....Y/....E3.....IksWJV2bDpD/..........G1dkpXm1.....
//....kD12..2..........wz.................................U0.....y1...sD...../..
.z1...sD7z9xWvnBxx13ZVajqFkSzUcaao22twmDGMg1/.C6SxnfTrCzqQkMzCbZ3wrWo9sD1OlDS2jx
txXxAOQorDuSzCnfrunpkUqjU.....IO3.............sD.6....sD..G.....................
.............oAnAt1...sD....zw1.........................................8....k1.
.....4iSoz1.......kz.wzzz1.U..6.P....61...EB....U0...62....F....6/...I1.....SF52
...U.uU9QxzR6dlz....zzk3Y.6.06nzdf5C..UoK/nl2xvj6sM93P58iz1..........EUUC..J7W7.
..Hc8jGarz9.LtsEE8gyz.Udv0YqZ7/k0Ec1.wzzzv..CT9ewt5ozs/U0xVzkhyj..6iE48JWzX.2s..
zzzzB..U.........06..........0.......E./E.kzzzD..kg4QH7Efz987jf66Mz../UWV.Xpzp/k
/EU0.wzzz1...................................UTVR..y3q/yzz/k.1A..1Ak.vzDsnwF.UDn
5VTzThdht0kaqaPiQs5y3q/.sLM5s1bTsLM5.UTVRUDlyVTVR..y3q/yMw5y3q/.sLM5snqTsLM5.UTV
RUDkzVTVR..y3q/y...y3q/bzz/k.1Akyz1yATomxzpaqaff................................
E....MEFF3E.....I....Q....EHZtqNZ7LG4B3.axaQh31...........................U/4M..
...........nAnAnAnw../........zD........kz1........sz...........................
........................kz1........../.......w2E........E.2........wz...........
.....................2.....3....8....wZEH/LOi7oPW7KNmxpAnA1..EKOi/..............
................................QaNaNaNaFzfNaNaNaNatzGnAnAnAnAwDBnAnAnAnIzfNaNaN
aNavz........60EbNaNaNaNKz9...................zD................................
................................0....E/...U0....T7oIkZaP0xaMWJaQTBnAn...........
..........................................UaNaNaNaNqzeNaNaNaNaxD................
.....wzzzzzzzjyD.......UG.2.............................kz1.................../E
........kz1...............................E.....I....Q....EHZtqNZ7LG4B3.........
..........................U/4M.............nAnAnAnw..BnAnAnAn2zD........kz1.....
...sz...........................................................................
.....................................................6.....3....8....wZEH/LOi7oP
W7KNmxpAnA1.....................................................OaNaNaNaNzfaNaNa
NaNqz...........aNaNaNaNKz9........vz........k.E..............................zD
................................................................/....E/...k/....
BJaPbJaQ7NoI.MZA................................4MU/............nAnAnAnA8.2.....
...wz.........zD........Uz1...................................................zD
..........2.......kH./......../E........kz1...............................U.}
{Titel: business administration building~}

uniform float splits; slider[1.00,4,33]
uniform float splitrad; slider[0.00,1,10]
uniform float rotaddin;slider[-9,0,9]


vec3 split(inout vec3 z) {

	float ryz;float r2;float r3;
	float ratrack=pi2-pi2/splits;
	float rotadjust=-pi/splits+rotaddin;  
	//float rotadjust=(splits-4.0)/splits/4.0*pi-pi/4+rotaddin;  
	//if (rotbool) {rotadjust+=pi/4.0;}
	float pintrack=pi/splits;
	float pi2splits=pi2/splits;
	float  i=0.0;
	float omega=atan(z.z,z.y);
	if (omega<0.0) {omega+=pi2;}

	while (omega>pi2splits && i<floor(splits)) {
			i+=1.0;
			rotadjust+=ratrack;
			pintrack+=pi2splits;
			omega-=pi2splits;
			}
	
		if (i==floor(splits)) {  
			
				ryz=sqrt(z.y*z.y+z.z*z.z);
	 			omega=atan(z.z,z.y);
				if (omega<0.0) {omega+=pi2;}
				r2=pi*(splits+floor(splits))/splits;
				r3=pi/splits-(pi*(splits-floor(splits))/splits);  // optimize me!!!! 
				if (omega>r2) {
					omega+=r3;
				} else {					
					omega-=r3;
				}
				z.y=cos(omega)*ryz;
				z.z=sin(omega)*ryz;
				pintrack=pi2-pi*(splits-floor(splits))/splits;
				z.y-=cos(pintrack)*splitrad;
				z.z-=sin(pintrack)*splitrad;
			 	ryz=sqrt(z.y*z.y+z.z*z.z);
				rotadjust+=pi*(1.0-(splits-floor(splits)))/splits;   //who wrote this code anyway?  
	 			omega=atan(z.z,z.y)+rotadjust;
				z.y=cos(omega)*ryz;
				z.z=sin(omega)*ryz;
		} else {
			z.y-=cos(pintrack)*splitrad;
			z.z-=sin(pintrack)*splitrad;
		 	ryz=sqrt(z.y*z.y+z.z*z.z);
	 		omega=atan(z.z,z.y)+rotadjust;
			z.y=cos(omega)*ryz;
			z.z=sin(omega)*ryz;
		}
	
	return z;
}

uniform float AccStart; slider[-10,-.4,10]
uniform float AccCycle; slider[0.1,.6,2.1]
uniform float AccEnd; slider[-30,-7,30]

float Accordion (inout float zx) {
		float cycle=abs(AccCycle);
		if (cycle<.06) {cycle=.06;}
		float i=0.0;						//why did he use a float here?  :p
		float cyclemod= mod(abs(AccEnd-AccStart),AccCycle);
		if ((cycle)>abs(AccEnd-AccStart)) {cycle=abs(AccEnd-AccStart);}
			
	if (AccEnd-AccStart<0.0) {
			cycle=-cycle;
			cyclemod=-cyclemod;
			
			if (zx>AccStart) {
				// do nothing
			}  else if (zx<(AccStart+cycle) && zx>(AccEnd-cyclemod)){
				zx=zx-AccStart;
				while (zx<(cycle) && i<3000.0) {
					zx-=cycle;i+=1.0;
				}
					if (zx<(cycle/2.)) {
						zx=cycle-zx+AccStart;
					} else {zx+=AccStart;}
				//done
			}
			 else if (zx>AccStart+cycle && zx<AccStart) {
				zx=zx-AccStart;
				if (zx<cycle/2.) {
					zx=cycle-zx+AccStart;
				} else {
					zx=zx+AccStart;
				}
			} 
			 else if (zx<(AccEnd- cyclemod)  && zx>AccEnd) {
				zx=AccEnd-zx;
				if (zx<cyclemod/2.0) {
					zx=cyclemod-zx+AccStart;
				} else {
					zx=zx+AccStart;
				}
			}  
			 else if (zx<AccEnd) {
				zx=zx-AccEnd+AccStart;
			}
		} else {
			cycle=abs(cycle);
			cyclemod=abs(cyclemod);
			
			if (zx<AccStart) {
				// do nothing
			}  else if (zx>(AccStart+cycle) && zx<(AccEnd-cyclemod)){
				zx=zx-AccStart;
				while (zx>(cycle) && i<3000.0) {
					zx-=cycle;i+=1.0;
				}
					if (zx>(cycle/2.)) {
						zx=cycle-zx+AccStart;
					} else {zx+=AccStart;}
				//done
			}
			 else if (zx<AccStart+cycle && zx>AccStart) {
				zx=zx-AccStart;
				if (zx>cycle/2.) {
					zx=cycle-zx+AccStart;
				} else {
					zx=zx+AccStart;
				}
			} 
			 else if (zx>(AccEnd- cyclemod)  && zx<AccEnd) {
				zx=AccEnd-zx;
				if (zx>cyclemod/2.0) {
					zx=cyclemod-zx+AccStart;
				} else {
					zx=zx+AccStart;
				}
			}  
			 else if (zx>AccEnd) {
				zx=zx-AccEnd+AccStart;
			}
		}
	
	return zx;
}