File:Gaps in protoplanetary disks 1 r 1.png

#include "functions.inc"

1. declare White= rgb <1,1,1>;
2. declare Black =rgb <0,0,0>;
3. declare Yellow=rgb <1,1,0.3>;
4. declare WhiteYellow=rgb <1,1,0.75>;
5. declare WhiteWhiteYellow=rgb <1,1,0.825>;
6. declare LightYellow=rgb <1,1,0.5>;
7. declare DarkYellow=rgb <0.25,0.25,0.0>;

camera { location <0,50,-100> look_at <0,0,0> angle 10 }

1. declare blue_granulas = pigment {

   //granite
   crackle
   turbulence 0.9
   color_map {
     [0.0 color Yellow]
     [0.15 color WhiteYellow]
     [0.25 color WhiteWhiteYellow]
     [1.0 color White]
   }
   scale 0.05
 //  	warp{turbulence 0.1}
   };
   

1. declare blue_spots = pigment {

   //granite
   bozo
   turbulence 0.5
   color_map {
     [0.0 color Black]
     
     [0.55 color DarkYellow]
     [1.0 color Yellow]
   }
   //scale 0.15
   scale 1
   
   };
   

1. declare blue_sun_surf =pigment

{

  // dents
   granite
   turbulence 0.23
   
    
       scale 1
     
      pigment_map {
     
      [0.0 blue_granulas scale 1]
      [0.8 blue_granulas scale 0.5]
      [0.85 blue_spots]   
      [1.0 blue_spots]       

     }    

};

1. declare blue_sun1=sphere{

<0,0,0>, 1

  texture{
  
   pigment{
    // mapps an image on the xy plane
    // from <0,0,0> to <1,1,0>
    // (aspect ratio 1:1)

// uv_mapping

      blue_sun_surf

// rotate y*90

     } // end of image_map, end of pigment

finish {

ambient 1 }// end of finish

 //   scale 2 translate<-1,-1,0>
 } 
    // end of texture
 

} ;

1. declare blue_kromos1=difference

{ sphere {0,1.025} sphere {0,1.0001}

pigment { color rgbf 1 }

 hollow
 interior {
   media {
     emission  5
     method 2
     intervals 1
     samples 5, 5

     density {
       spherical
       color_map {
         [ 0.0 rgbf <0,0,0.1,1> ]
    //     [ 0.0 rgbf <0,0,0.1,1> ]
         [ 0.3 rgbf <0.0, 0.0, 0.25,1> ]
         [ 0.6 rgbf <0.0, 0.0, 0.5,1> ]
         [ 1.0 rgbf <0.0, 0.0, 1.0,1> ]
       }
     }
   }
   
   media {
     absorption 3
     method 1
     intervals 1
     samples 5, 5
     density {
       spherical
       color_map {
         [ 0.0 rgb 1.0 ]
         [ 0.1 rgb 1.0 ]
         [ 1.0 rgb 1.0 ]
       }
     }
   }
 
 }
 
 

};

1. declare blue_korona1=object

{ sphere {0,1} //sphere {0,098}

pigment { color rgbf 1 }

 hollow
 interior {
   media {
     emission 0.05
     method 3
     intervals 1
     samples 5, 5

     density {
       spherical
     //  wrinkles
       turbulence 0.1

       color_map {
               [ 0.0 rgbf <0.001,0.001,0.02,1>]

[ 0.25 rgbf <0.15, 0.15, 0.25,0.85> ] [ 0.3 rgbf <0.4, 0.4, 0.6,0.6> ] [ 1.0 rgbf <1.0, 1.0, 1.0,0.0> ]

}

     }
   }
 }
 

};

/*

• /

1. macro disk1(radius1, radius2)

object {

//isosurface {function { f_torus(x, y, z, radius1, radius2) } contained_by { box { -2000, 2000 } }

torus {radius1, radius2}

    pigment { color rgbf <1,1,1,1> }
 //   finish { ambient 1 }
    

 hollow
 interior {

   media {
     emission 5
     
  //   scattering {3, rgb <1,0.5,0>}
     
     method 3
     intervals 1
     samples 5, 5
     
  

     density {
      //granite
     //  spherical
     
     
     //  wrinkles
      
      function {
      //f_wood(z*10,x*10,y*10)
      //*f_wrinkles(x,y,z)
     // *f_agate(x,y,z)
     
     // f_spiral1(z,x,y)*0.75+f_granite(x,y,z)*0.25
    //  f_spiral1(z,x,y)*1*f_wrinkles(x*10,y*10,z*10)
    //   f_spiral2(z,x,y)*1*f_wrinkles(x*10,y*10,z*10)
       //  f_spiral1(z,x,y)*1*f_wrinkles(x*10,y*10,z*10)*f_granite(x,y,z)
       
    //  f_granite( f_spiral1(z,x,y),y,z)
       // f_agate( f_spiral1(z,x,y),y,z)
       
       //  f_bumps( f_spiral1(z,x,y),y,z)
       
       //  f_bozo( f_spiral1(z,x,y),y,z)
     //  f_bozo( f_spiral1(z,x,y),f_spiral1(x,y,z)*f_granite(x,y,z),f_spiral1(z,x,y))
            f_spiral2(z,x,y)*1*f_wrinkles(x*10,y*10,z*10)*0.75+f_granite(x,y,z)*0.25
      }
      
      // turbulence 0.1
       //scale 0.1

       color_map {
               [ 0.0 rgbf <0.05,0.025,0.00,1>]

// [ 0.25 rgbf <0.5, 0.5, 0.5,1> ] // [ 0.5 rgbf <1.0, 1.0, 1.0,1> ] [ 1.0 rgbf <1.0, .7, 0.0,1.0> ]

}

     }
   } // media
   
   /*
    media {
     absorption 0.25
     method 3
     intervals 1
     samples 5, 5

   } // media   
   */
   
   
 } // int

//} // ...objektii ///

}

1. end

1. declare blue_star1=union {

object { blue_sun1 }

object { blue_kromos1 }

object { blue_korona1 scale 1.25 }

}

1. macro planet1(distance1, radius1, rotation1)

object { sphere {0,1}

scale 0.2*radius1

texture { pigment { color rgb <0,0.5,1>} finish {ambient 0.1 diffuse 0.5} }

translate x*distance1 rotate y*rotation1

}

1. end

light_source { 0 color rgb 1 looks_like {object {blue_star1 scale 1/2}}

}

object { disk1(1*4,1/5*4) scale y/10 //scale 4 }

object { disk1(1.6*4,1/5*4) scale y/10 //scale 4 }

object { disk1(1.6*1.6*4,1/5*4*1.6) scale y/20 //scale 4 }

object { planet1(5.2,1, -1) }

object { planet1(5.2*1.6,1*2, -140) }