File:Carbon planet orbits very hot star 1 1 1 1.png

1. include "functions.inc"

camera {

   location <0,0,-100>
   look_at 0
   angle 2

}

light_source { <60,60,-60>*1e9 //color rgb <1.0,0.931,0.905 >*2 // sun color rgb <0.361,0.489,1.0>*3 // hot O1 star }

1. declare planetf1=function {

// f_ridged_mf(x, y, z, H, Lacunarity, Octaves, Offset, Gain, 2

// f_hetero_mf(x,y,z,0.5,2,64,-0.7,0.8,1)*0.2 // quite accu

exp(f_hetero_mf(x,y,z,0.5,2,64,-0.7,0.8,1))*0.5

//1* exp(f_ridged_mf(x,y,z,0.5,2,64,-0.7,0.8, 2)) *0.015

//*f_leopard(x*10,y*10,z*10)

}

1. declare planet_1=object {

sphere {0,1}

/* isosurface { function {

f_sphere(x,y,z,1)-planetf1(x,y,z)*0.05
}
accuracy 0.0001
max_gradient 60

}

• /

texture { // pigment {color rgb 0.2 }

pigment {

 function { planetf1(x,y,z)}

   color_map {
       [0 color rgb <0,0,0.04>]    
   [0.05 color rgb <1,1,1>*0.04]
    //   [0.25 color rgb <1,1,1>*0.06]  
     [1 color <1,0.7,0.4>*0.5]

   }

   }

 finish { ambient 0 diffuse 0.3}
 normal {function { planetf1(x,y,z) } bump_size 1}

} // tex

} // objekt

1. declare oceans_1= object {

sphere {0,1+0.001} texture {

   pigment {
     color rgbft <0.07, 0.45, 0.8, 0.1, 0.75>
   }
   finish {
     ambient 0*0.5
     diffuse 0.55
     reflection {
       0.1, 0.75
       falloff 2
     }
     conserve_energy
   }
 }

/* texture {

   pigment { color rgb <0,0,0.1>}
   finish {ambient 0 diffuse 0.5 reflection 0.3}
   }

• /

}

1. declare pig_clouds_1= pigment {

 wrinkles 
//omega 0.5

//lambda 0.5 scale 1/5

 turbulence 1

scale 3

warp { turbulence 0.5}

scale 1/3

scale 10

warp { turbulence 0.5}

scale 1/10 }

1. declare clouds_1= object {

sphere {0,1.005} texture {

pigment {
 pig_clouds_1
   color_map {
       [0 color rgbt <1,1,1,1>]
       [0.6 color rgbt <1,1,1,1>]   
  [1 color rgbt  <1,1,1,0>*1]

   }
}

   normal {
     pigment_pattern {
       pig_clouds_1
     }
     0.1
   }
 finish { ambient 0 diffuse 0.42 brilliance 0.4}

} }

// rayleigh based atm

1. declare atm_thickness1 = 0.01;
2. declare atm_color1 = rgb <pow(460/650, 4), pow(460/555, 4), 1>;
3. declare atm_amount1=0.005;

1. declare atm_density1 = density

{

    function
    {
    //  1*exp(-6.7*(sqrt(x*x+(y)*(y)+z*z)- 1 - 0.00001)/atm_thickness1)
   //   1*exp(-6.7*(sqrt(x*x+(y)*(y)+z*z)-1- 0.00001)/atm_thickness1)
   1*exp(-3*(sqrt((x*x)+(y*y)+(z*z))-1-0.0001)/atm_thickness1)

}

color_map {
     [ 0.0  rgb 0.0 ]
     [ 0.5294*0.25e-6  rgb <0.02, 0.05, 0.2>*0.07 ]
     [ 0.5294*0.4e-6   rgb <0.02, 0.07, 0.3>*0.32 ]
     [ 0.5294*0.5e-6   rgb <0.08, 0.18, 0.4>*0.5 ]
     [ 0.5412*0.6e-6   rgb <0.08, 0.18, 0.4>*0.9 ]
     [ 0.5471*0.65e-6  rgb <0.08, 0.18, 0.4>*1.5 ]
     [ 0.5471*0.675e-6 rgb <0.08, 0.18, 0.4>*4.5 ]
     [ 0.5471*0.71e-6  rgb <0.08, 0.18, 0.4>*12 ]
     [ (1+0.001)/(1+atm_thickness1) rgb <0.0, 0.0, 0.0> ]
   }

}

1. declare atm_media1 = media

{

    method 3
    intervals 3
    samples 3
    scattering
    { 4

color atm_amount1*atm_color1/atm_thickness1 extinction 1

    }
    density {atm_density1}

}

1. declare atmos_1 = difference

{

    sphere {0, 1.00001 + atm_thickness1}
 //   sphere {0, 1.00001}
    hollow
    pigment {rgbt 1}
    interior {media{atm_media1}}

}

1. declare planeta1=union {

   object {planet_1}

 //  object {oceans_1}
  object {clouds_1}
 object {atmos_1}

}

object {planeta1}