File:Volcanic planet 6 r 1.png

1. include "colors.inc"
2. include "textures.inc"
3. include "shapes.inc"
4. include "functions.inc"

 global_settings {
  assumed_gamma 1.5
  noise_generator 2

}

camera {

 location <0,0, -3>
 look_at <0,0,0>

}

light_source {

   <100,0,-100>*1000*1000*100 
   color rgb <1,1/3,1/7>*1

}

1. declare normal_function2= function {

// f_granite(x*3,y*3,z*3)/6 //*f_granite(x*10,y*10,z*10)/6 // *f_granite(x*30,y*30,z*30)/6 // 0.1+f_crackle(x,y,z)/2+f_granite(x,y,z)/2+f_wrinkles(x*1000,y*1000,z*1000)/10 // f_wrinkles(f_granite(x,y,z),y,z*1)

//f_wrinkles(x,y,f_agate(f_granite(x,y,z),y,z))

// f_wrinkles(f_granite(f_wrinkles(x,y,z),y,z),f_agate(x,y,z),f_agate(f_granite(f_crackle(f_granite(x,y,z),y,z),y,z),y,z)) // f_wrinkles(f_agate(f_granite(x,y,z),y,z),f_agate(f_granite(x,y,z),y,z),f_wrinkles(f_granite(x,y,z),y,z))

// f_wrinkles(f_granite(x,y,z),y,z*1)+ f_granite(x*3,y*3,z*3)/4 + f_granite(x*30,y*30,z*30)/8+ f_wrinkles(f_granite(x,y,z)*5,y*5,z*5)/16

-0.1 +f_crackle(f_granite(x,y,z),f_agate(x,y,z),f_wrinkles(x,y,z))

• f_granite(f_granite(x,y,z),f_granite(x,y,z),f_granite(x,y,z))

+f_granite(x*2,y*2,z*2)/2 +f_granite(x*6,y*6,z*6)/4 +f_granite(x*18,y*18,z*18)/8 +f_granite(x*60,y*60,z*60)/16 +f_granite(x*200,y*200,z*200)/32

+f_granite(x*600,y*600,z*600)/64 

}

1. declare normal_function= function {

// f_granite(x*3,y*3,z*3)/6 //*f_granite(x*10,y*10,z*10)/6 // *f_granite(x*30,y*30,z*30)/6

0.1+

f_wrinkles(x*3,y*3,z*3)/2 +f_granite(x*2,y*2,z*2)/6 +f_granite(x,y,z)/5 +f_granite(x*10,y*10,z*10)/10 +f_agate(x*100,y*100,z*100)/20

+f_wrinkles(x*1000,y*1000,z*1000)/40 

}

1. declare lava1= color_map{

[0.000 color rgb <0,0,0>]

       [0.3 color rgb <.3,.3,.3>]
       [0.7 color rgb <1,0,0*1.5>]

[1.000 color rgb <1,1/2,0>*5] }

#declare lava2=  color_map{ 

[0.000 color rgb <1,1/2,0>*5]

      [0.3 color rgb <1,0,0*1.5>]
       [0.7 color rgb <.3,.3,.3>]
       [1.000 color rgb <0,0,0>]  

}

sphere { <0, 0, 0>, 1 // rotate <0,0,180> pigment{

function {normal_function2(x,y,z) }
    color_map {lava1}
turbulence 0.1 scale 1/3

   }

normal { //granite

 function {normal_function2(x,y,z)}

-0.1 //turbulence 0.2 scale 2 }

finish {

ambient 0.3 }

}

1. declare atm1=sphere {0,1

  pigment { rgbt 1 } hollow
  interior
  { media
    { scattering { 3, <1,0.5,0.2>*4 extinction 0.2 }
      samples 30,100   
     
     density {

//agate

// granite   

spherical // crackle

  color_map {
       [0, color rgb 0]
      [0.1, color rgb 0.5] 
       [1, color rgb 1]
       }

       }
    }
  }

scale 1.1 }

object {atm1}