File:Planet is formed to protoplanetary disk 1.png

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

1. include "textures.inc"

1. include "stars.inc"

global_settings { assumed_gamma 1.0 }

camera {

 location  <0,0,100>

// location  <0,200,0> 
 
 

// location <0,100,50>

// location  <60,80,120> 
 

//location <0,38,2>

// location  <0,40,2>
   
   
//   location  <0,60,1>
   
   
// up x sky z
 
 look_at   <0.0, 0.0, 0.0>  
 
 //  look_at   <0.0, 100, 2> 
 
 
 angle 40

}

 #declare Orange=<1,0.5,0>;

1. declare Yellow=<1,1,0>;

1. declare White=<1,1,1>;
2. declare Blue=<0.8,0.8,1>;
3. declare Black=<0.0,0.0,0.0>;
4. declare Grey=<0.5,0.5,0.5>;

1. macro convection_cells(c)

crackle pigment_map{ [0.0 rgb c*0.2] [0.2 rgb c] [0.9 rgb c] [1.0 rgb 1.0]

} warp{turbulence 0.3}

1. end

1. declare sunsurf1=object { sphere

  { 
  0, 1

    texture {
       pigment {
	    crackle

pigment_map{ [0.0 rgb Yellow] [0.2 rgb White] [0.9 rgb White] [1.0 rgb 1.0]

} warp{turbulence 0.3}

 }     
 
        finish {
     ambient 1
     diffuse 0.01
     reflection 0.01
      } // fin
 
 scale 0.05
 }
 

  scale 1  
    
  } // sphere
 
 }
 
 
    
 
  

// halo 1

1. declare sunhalo1= object { sphere

  { 
  
  0, 1.15 hollow no_shadow
  

// normal { // wrinkles 0.3 // }

    pigment {

    rgbt 1 }
    interior
    { media
      { emission 2/1
        density
        { spherical density_map
          { [0 rgb 0]

          [0.4 rgb Yellow*0.05 ]
          [0.6 rgb Yellow*.3 ]
          }
        }
        samples 1,1 intervals 1 confidence .1 // quite fast settings
        method 3
      }
      
      
    }

       scale 1

  }     
  

} // ... sunhalo1

#declare sun2=union {    

object {sunsurf1 } object {sunhalo1 scale 3 }

}

/*

// stars sphere { 0,1

    texture{ Starfield2 scale 0.25
              } // 

scale 10000

}

*/  
  

/*

1. declare sun1= sphere {

   <0,0,0>,2
   texture {
   
   pigment {
       color rgb <1,1,0> 
       transmit 0
   }

   finish {ambient 100}
   }   

}

 */

light_source {

   <0, 0, 0>

   //color Gray75 *200 
    color Orange*500
   fade_distance 5
   fade_power 2  
   
 looks_like {
   sun2
 
   }

}

1. declare fn_Pigm=function {

   pigment {
     agate
     color_map {
       [0 color rgb 0]
       [1 color rgb 1]
     }
   }
 }

1. declare motikka= isosurface {

   //function { f_sphere(x, y, z, 0.5) - f_noise3d(x, y, z) }
   function { f_sphere(x, y, z, 0.5) - f_noise3d(x * 5, y * 5, z * 5) * 0.5 }
   //  function { f_sphere(x, y, z, 0.5)-fn_Pigm(x/2, y/2, z/2).gray*0.5 }

   threshold 0
   accuracy 0.005

   texture {
       pigment {color Gray  }
       finish{
       diffuse 0.5
       ambient 0.0
       specular 0.0
       reflection 0.1
     }
   }

}

1. declare rmax=30;
2. declare rmin=5;
3. declare rdelta=rmax-rmin;
4. declare rmid=(rmax+rmin)/2;

1. declare fiidelta=10;

1. local nn=0;

1. declare theta=0.0;
2. declare fii=0.0;

1. while (nn<3000)

   object 
   {
       motikka    
       

       #declare seed1=seed(nn*1);
       #declare seed2=seed(nn*15143);
       #declare seed3=seed(nn*76359);
       #declare seed4=seed(nn*8987547);
       #declare seed5=seed(nn*1543); 
       
       #declare seed6=seed(nn*76923439);
       #declare seed7=seed(nn*87639);
       #declare seed8=seed(nn*76312); 
       
       #declare theta=radians( rand(seed1)*360 );
 
       #declare a1=Rand_Normal( 1.0, 0.33, seed2 );

       #declare rc1=a1*rdelta+rmid;   
        
       #declare a2=Rand_Normal( 1.0, 0.5, seed3 );
        
       
       #declare zc1= rand(seed4)*rc1/10-rc1/20; 
       
       #declare zc2=zc1*a2;
                                  
                                    
       #declare x1=cos(theta)*rc1;
       #declare y1=sin(theta)*rc1;
       #declare z1=zc2;

       #declare de1=rand(seed5);
       
       // fictional size distribution
       //#declare skale1=pow(de1,-0.111)*0.1;  
       
        #declare skale1=pow(de1,-0.333)*0.1; 
       
         
       #declare rot1=rand(seed6)*360;
       #declare rot2=rand(seed7)*360;     
       #declare rot3=rand(seed8)*360;
         
     
       scale skale1 
       
       rotate <rot1,rot2, rot3>  
 
       translate <x1,y1,z1>
    }
     
 #local nn=nn+1;

1. end

1. declare disko=object

{

torus {0.8, 0.5} /* sphere {0,1.0} sphere {0,0.5}

• /

pigment { color rgbf 1 }
 hollow    
 
  interior
  { media
    { 
     //emission rgbf <0.001,0.001,0, 0.03>
     
    scattering {1.0, 0.0005 extinction 75 }
      samples 100,200
    
    intervals 1
    //samples 10,50
    
    }
  }
 

};

object { disko //translate <sax,0,say> scale <1,0.3,1>

scale 60 rotate x*90 }

1. declare planet1=object{

sphere {0,1} texture { pigment {

 color Green

// White_Marble

}

      finish{
         ambient 0.05
     diffuse 1
     reflection 0.0
    
     //  diffuse 1
     // ambient 1.0
      // specular 0.2
    //   reflection 0.5
     }
  

}

 no_shadow

};

object {

planet1

scale 2

translate x*10

}