File:Colliding meteoroids 1 r 1 1 1 1.png

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

global_settings {

 max_trace_level 2

}

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

1. declare fase1=clock;

1. declare seed1=seed(123);
2. declare seed2=seed(1234);
3. declare seed3=seed(12345);
4. declare seed4=seed(123456);
5. declare seed5=seed(4123);
6. declare seed6=seed(41234);
7. declare seed7=seed(412345);
8. declare seed8=seed(4123456);
9. declare seed9=seed(6123);
10. declare seed10=seed(61234);
11. declare seed11=seed(612345);
12. declare seed12=seed(6123456);

light_source{ <0,0,-1>*1000*1000*150*3 color rgb 1}

light_source{ 0 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_spherical(x,y,z),5)

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

    pow(f_spherical(x,y,z),5)  
  *  f_agate( ((sin(atan2(x,y)/3)+1)/2)/(2*pi),((sin(atan2(x,y)/3)+1)/2)/(2*pi) ,((sin(atan2(x,y)/3)+1)/2)/(2*pi))       *f_granite(x,y,z)
    
     
     
     }
     
     }
   }

} // interior

// scale C*0

}

1. declare krakpig1 =

pigment{ crackle

        turbulence 0.35 scale 0.45/1
        color_map{
         [0.00 color rgb<1,0.5,0>*1]
         [1.00 color rgb <1,0.6,0.3> ]
        } 

}

1. declare planet00=object{

  sphere {0,1 }  
 texture{ pigment{ krakpig1  }
          finish { phong 1 }
        } 

}

1. declare f_krak1 = function {pigment{ krakpig1} }

1. declare planet01=isosurface {

 function{
   f_sphere(x,y,z,1)
    - f_krak1(x,y,z).gray*0.1 
 } 
 
 threshold 0
 contained_by {box {<-2,-2,-3>,<2,2,3.5>}}
 max_gradient 6
 accuracy 0.0001
 texture{
    pigment{ krakpig1}
    normal { crackle 0.5 scale 0.045}
    finish { phong 1}
  } // end texture

}

1. declare stone1= object

{ isosurface { function { f_sphere(x, y, z, 1.2) - f_noise3d(x, y, z)+f_granite(x,y,z)*0.1 }

accuracy 0.01 max_gradient 15

contained_by {sphere {0,5}} }

texture {T_Stone2}

}

1. declare stone2= object

{ isosurface { function { f_sphere(x, y, z, 1.2) - f_noise3d(x+1, y+1, z+1)+f_granite(x+1,y+1,z+1)*0.1 }

accuracy 0.01 max_gradient 15

contained_by {sphere {0,5}} }

texture {T_Stone2}

}

1. declare stone3= object

{ isosurface { function { f_sphere(x, y, z, 1.2) - f_noise3d(x+2, y-1, z+2)+f_granite(x+4,y+3,z+3)*0.1 }

accuracy 0.01 max_gradient 15

contained_by {sphere {0,5}} }

texture {T_Stone2}

}

1. declare stones1= union {

1. for (num,0,300)

#declare fii2=rand(seed1)*360; #declare theta2=rand(seed2)*180-90; #declare rr2=exp(rand(seed3))*3*1 ;

object {

// sphere {0,1} stone3

scale 0.15

texture { T_Stone2

normal {granite scale 0.1 bump_size -1} finish {ambient 0}

}

scale pow( rand(num/300), 3.5) scale x*rand(seed4)+1 scale < 1, 0.1+2*rand(seed1+seed4), 1 >

rotate y*rand(seed5)*360 rotate x*rand(seed6)*360 rotate z*rand(seed7)*360

translate x*rr2 rotate z*rand(seed8)*180-90 rotate <theta2,fii2,0>

}

#end

}

//object {planet01 scale 0.5 scale y*1.5 translate x*2 }

union {

object {explo1 scale 7 rotate <50,30,60> }

object {stones1}

object {stone1 translate x*2

normal { granite bump_size -1}

finish {ambient 0 phong 0.1 specular 0.1 diffuse 0.3} }

object {stone2 scale 1/2

translate x*-1

normal { granite bump_size -0.5}

finish {ambient 0 phong 0.1 specular 0.1 diffuse 0.3} }

rotate y*30+180 rotate z*30

}