NESTED-QUATERNIONS.pov

//Pov Ray//


//Alij - Quaternion Nest - seed file for rendering quaternions september 2013 //


#include "golds.inc"
#include "metals.inc"
#include "finish.inc"
#include "colors.inc"
#include "glass.inc"
#include "textures.inc"


#declare VP = <-2,1.5,1.5>;
#declare VU = <0,1,0>;
#declare VD = vnormalize(<0,0,0> - VP);
#declare VR = vcross(VU,VD);
#declare ConstC = <-0.187,0.74,-0.03,-0.752>;
#declare ConstD = <-0.087,0.84,-0.03,-0.452>;
#declare ConstE = <-0.040,0.26,-0.60,-0.85>;
#declare SLICEDIST = 0.01;
#declare Use_Radiosity = 1;
#declare Soft_Shadows = 1;
global_settings {
assumed_gamma 2.5
#ifdef (Use_Radiosity)
      radiosity { }
#end    }


camera {
   location VP
   up y
   right x
   angle 50
   sky VU
   look_at VD
}

global_settings {
   ambient_light
   rgb <0.560784,0.560784,0.737255>
}


background {
   color <0.560784,0.560784,0.737255>
}

 sky_sphere {

    pigment {

      gradient y

      color_map {

        [0 color SlateBlue ]

        [1 color Silver]

      }

      scale 1

      translate -2

    }
      }
light_source {
   VP + VU + 2*VR
   color rgb <0.060,0.030,0.73>
}
light_source {
   VP - VR
   color rgb <0.560784,0.560784,0.737255>
}


julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 4
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Brass_2D }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<0.5,0,0>
  }
  }
  }

 julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 5
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Silver_5A }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<0.3,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 6
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Brass_2D }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<0.2,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 7
  precision 900
  slice <0,0,0,1> SLICEDIST
 texture { T_Silver_5A }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<0.1,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 8
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Brass_2D }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<0.0,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 9
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Silver_5A }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<-0.1,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 10
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Brass_2D }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<-0.2,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 11
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Silver_5A }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<-0.3,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 12
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Brass_2D }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<-0.4,0,0>
  }
  }
  }

  julia_fractal {
   ConstE
  quaternion
  sqr
  max_iteration 13
  precision 900
  slice <0,0,0,1> SLICEDIST
  texture { T_Silver_5A }
  scale<-0.85,0.85,0.85>
  rotate<80,80,10>
  translate<0,0.0,0>

  clipped_by { plane { <0, 1, 0>, 0.25
  rotate<90,90,0>
  scale<-0.1,0.1,0.1>
  translate<-0.5,0,0>
  }
  }
  }