File:Violet tlp 1 1.png

1. include "colors.inc"

1. include "functions.inc"
2. include "rand.inc"

1. include "colors.inc"
2. include "stones.inc"

global_settings {

 max_trace_level 5

}

1. declare Color=rgb <0.5,0,1.0>;

 camera{
   location <0, 5, -10>
   look_at 0
   angle 30
 }

 light_source{ <1000,300,-1000>*1000*1000 White }

1. declare surfobj1= height_field {

   ppm "kratera1.ppm"
   smooth
   pigment { color rgb <1,1,1> }

finish {ambient 0 phong 0.05 specular 0.05 diffuse 0.6 } normal { wrinkles scale 1/100 bump_size -0.1 }

   translate <-.5, -.5, -.5>
   scale <20, 1., 20>
 }

1. declare bright1=

/* light_source { <0,0,0> color rgb 1/100

looks_like {

• /

object { sphere {0,1}

pigment { color rgbt 1 }
// finish { ambient 0 diffuse 0 }
hollow
no_shadow

interior {
media {
	 
	 emission color Color*3
	//   scattering {1, rgb <1,0,0>}
     intervals 9
     samples 30, 60
     density{ 

              function {  f_spherical(x,y,z)  }
        //    function { f_spherical(x,y,z)*0.7+f_wrinkles(x*10,y*10,z*10)*0.3 }
          // granite
          turbulence 0.3
        //    spherical
        
            //  poly_wave 2

                  color_map {
              [0.0 color rgb <0.0,0.0,0.0>]
              [0.5 color  Color*1/2]
              [1.0 color Color*1]
                        } // end color_map
   
         } // end of density
}
}

}

// }}

1. declare torus1=object {

//torus {1,0.5} isosurface {

function {
//f_torus(x,y,z,1,0.5)+f_granite(x*3,y*3,z*3)*0.1
f_torus (x,y,z, 1, 0.5)+f_granite(x,y,z)*1
}


 accuracy 0.01
 max_gradient 50
 
 // threshold 0.5
 // max_trace 7
 
 
 
 

contained_by {sphere {0,100}}

}

hollow no_shadow

pigment { color rgbt 1}

interior {
 media {
 
 
 absorption 2
 scattering { 1,1/10*1 }

// emission 0.5*<1,1,0>

  density {
 function {  f_torus (x,y,z, 1, 0.4)-f_granite(x,y,z)*0.2 }
  density_map {
  [0 color rgb 0]
  [1 color rgb 1]
  }
  
  }
  

 }
}

}

1. declare explo1=

object { sphere{ 0,1}

pigment{rgbt 1} hollow

interior{ media{

absorption 0.01

emission 0.5 scattering{1,60}

//density { function {f_spherical(x,y,z) }} density {function{

// f_granite(x*4,y*4,z*4)*0.5*pow( f_spherical(x,y,z), 4)

// pow( f_spherical(x,y,z), 4)

//f_granite( ((sin(atan2(x,y)/3)+1)/2),((sin(atan2(z,y)/3)+1)/2),((sin(atan2(x,z)/3)+1)/2))

pow(f_granite( ((sin(atan2(x,y)/3)+1)/2),((sin(atan2(z,y)/3)+1)/2),((sin(atan2(x,z)/3)+1)/2)) ,3)

• pow(f_spherical(x,y,z),4)*1

} turbulence 0.1 poly_wave 1.5 color_map { [0 color rgb 0] [1 color rgb <1,0.5,0>] } scale 0.5 }

 scale 1.5

}

// media 2

  media { 
   //absorption 0.1
   
   scattering { 1 1 }
     density { 
     
    // spherical 
     function {
 //  pow(f_spherical(x,y,z),6)*pow(f_granite(x*10,y*10,z*10),1)
     
     pow(f_spherical(x,y,z),5)

• f_wrinkles(x*3,y*3,z*3)
• f_granite(x*3,y*3,z*3)

// *pow(f_wrinkles( ((sin(atan2(x,y)/3)+1)/2),((sin(atan2(z,y)/3)+1)/2),((sin(atan2(x,z) ///////3)+1)/2)) //,1)*0.3

     }
     
     }
   }

} // interior

// scale C*0

}

object {surfobj1}

object {bright1 scale 1.3 scale y/3}

//object {explo1 scale 4}

1. include "colors.inc"

// command line povray kratera1.pov -W2400 -H1800 +fp16

// REMEMBER : +fp16, 16 bit gray scale

global_settings { assumed_gamma 2.2 hf_gray_16 }

camera {

  location <0, 0, -20>
  look_at <0,0,0>

} //camera

light_source {<0, 20, -100> color White * 1.2}

1. declare Randomizer = seed (2);

1. declare CraterZOffset = 0;

1. macro NewCrater (Diameter)

  #declare CraterZOffset = CraterZOffset - .001;

  #declare Crater = disc {
     0, z, 1
     texture {
        pigment {
           onion
           turbulence .08 + rand (Randomizer) * .04
           color_map {
              [0 rgbt <0, 0, 0, .2>] //Center
              [.1 rgbt <0, 0, 0, .3>]
              [.42 rgbt <1, 1, 1, .4>]
              [.7 rgbt <1, 1, 1, .9>]
              [.8 rgbt <.5, .5, .5, 1>]
              [1 rgbt 1]
           } //color_map
        } //pigment
        scale 1.1
        rotate (rand (Randomizer) * 360) * z
     } //texture
     scale Diameter
     translate CraterZOffset * z
     no_shadow
  } //disc

1. end //#macro NewCrater

1. local Terrain = object {

  plane {
     z, 0
     texture {
        pigment {
           bumps //Start out with gentle hills
           color_map {
              [0 Black]
              [1 White * 1.2]
           } //color_map
        } //pigment
        scale 5
     } //texture
     texture {
        pigment {
           granite //Roughen up the terrain
           color_map {
              [0 rgbt <0, 0, 0, .9>]
              [1 rgbt <1, 1, 1, .7>]
           } //color_map
        } //pigment
        scale 6
     } //texture
  } //plane

} //object

object {Terrain}

NewCrater (4)

object {Crater scale 0.25 translate <3,1,4>}

NewCrater (4) object {Crater scale 1 translate <0, 0, 0>}

NewCrater (3) object {Crater scale 1/3 translate <0, 3, -6>}

/* NewCrater (2.2) object {Crater scale 1 translate <-7, -5, -8>}

NewCrater (4.5) object {Crater scale 0.7 translate <7, -5, 0>}

NewCrater (3.5) object {Crater scale 1.2 translate <-6, -1, 0>}

• /