File:F ridged mf sample params 2 1 1 1.png

1. include "colors.inc"
2. include "functions.inc"
3. include "rand.inc"
4. include "strings.inc"

default { finish { ambient 0.000002 diffuse 0.5 } }

sky_sphere{

pigment { granite scale 10000 //color rgb <0.7,0.7,1> color_map { [0 color rgb 1] [0 color rgb <0.5,0.5,1>] }

} }

camera {

   location <0,00,-30>
   look_at <0,0,0>
   angle 35

}

light_source{ <0,1/2,-1>*1e9 color rgb 1

}

1. macro multi_fractal_surface(H, Lacunarity, Octaves, Offset, Gain, Generator)

function {

f_ridged_mf(x, y, z, H, Lacunarity, Octaves, Offset, Gain, Generator)

// f_hetero_mf(x, y, z, H, Lacunarity, Octaves, Offset, Gain, Generator)

}

1. end

1. macro ridge_surface(Lambda, Octaves, Omega, Offset, Ridge, Generator)

function {

f_ridge(x, y, z, Lambda, Octaves, Omega, Offset, Ridge, Generator)

}

1. end

1. macro sphere_1(H, Lacunarity, Octaves, Offset, Gain, Generator)

object {

sphere {0,1.0}

texture { pigment {

multi_fractal_surface(H, Lacunarity, Octaves, Offset, Gain, Generator) /* color_map { [0 color rgb <1,1,1>] [1 color rgb <1,1,1>] } */

color_map { [0 color rgb <0.1,0.1,1>] [1 color rgb <1,0.1,0.1>] }

} }

normal { multi_fractal_surface(H, Lacunarity, Octaves, Offset, Gain, Generator) bump_size 0.25}

}

1. end

1. macro sphere_2(Lambda, Octaves, Omega, Offset, Ridge, Generator)

object {

sphere {0,0.75}

texture { pigment {

ridge_surface(Lambda, Octaves, Omega, Offset, Ridge, Generator)

color_map { [0 color rgb <0,0,0>] [1 color rgb <1,1,1>] } } }

ridge_surface(Lambda, Octaves, Omega, Offset, Ridge, Generator) }

1. end

1. declare H=0.01; // tex 0.01 0.1
2. declare Lacunarity=5; // tex 2,5,10
3. declare Octaves=6;
4. declare Generator=2; // 0, 1, 2

1. declare ostring0=concat("Gen:",str(Generator,1,3));
2. declare ostring1=concat(" Hei:",str(H,1,3));
3. declare ostring2=concat(" Lac:",str(Lacunarity,1,2));
4. declare ostring3=concat(" Oct:",str(Octaves,1,2));

//#declare ostring4=concat(" f_hetero_mf(...) ",ostring0, ostring1,ostring2,ostring3);

1. declare ostring4=concat(" f_ridged_mf(...) ",ostring0, ostring1,ostring2,ostring3);

#declare font0 = "cyrvetic.ttf";

 text { ttf font0 ostring4, 1,0 
  scale 0.45
  pigment {color rgb <1,1,0>}

translate x*-6.0 translate y*2.5 translate z*-2 }

1. declare dimux=3;
2. declare dimuy=3;

1. declare bx=-1; // ofs
2. declare by=0.0; // gain
3. declare ex=-0.7; // ofs
4. declare ey=1.0; // gain

1. declare numx=dimux*2+1;
2. declare numy=dimuy*2+1;

1. declare dex=(ex-bx)/numx;
2. declare dey=(ey-by)/numy;

1. declare BETWX=2;
2. declare BETWY=2;

1. declare cy=0;
2. for (NY,-dimuy,dimuy)

1. declare cx=0;

1. for (NX,-dimux,dimux)

1. declare lokx=bx+dex*cx;
2. declare loky=by+dey*cy;

1. declare Offset=lokx;
2. declare Gain=loky;

1. declare dispx=x*NX*BETWX;
2. declare dispy=y*NY*BETWY;

object { sphere_1(H, Lacunarity, Octaves, Offset, Gain, Generator) translate x*dispx translate y*dispy }

1. declare string1=concat("G:",str(Gain,2,3));
2. declare string2=concat("O:",str(Offset,2,3));

#declare font1 = "cyrvetic.ttf"
 
 text { ttf font1 string1, 1,0 
  scale 0.3
  pigment {color rgb <0,1,0>}
 	translate x*dispx

translate (y*dispy) translate z*-1 }

 text { ttf font1 string2, 1,0 
  scale 0.3
  pigment {color rgb <0,1,0>}

 	translate x*dispx

translate y*dispy-0.3 translate z*-1 }

1. declare cx=cx+1;

1. end
2. declare cy=cy+1;

1. end