File:Artist impression of Lyuten b, if it has stony surface.png

//////////////////////////////////
//
// planet of M-type star, rocky 
//
// POV-Ray 3.8 source code
//
// 14.3.2024 0000.0000
//
//////////////////////////////////

// povray atomik3.pov -W3200 -H2400 -Q11 -a0.3

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

1. declare seed1=seed(12233);
2. declare seed2=seed(11233);
3. declare seed3=seed(13322);

camera {

    location <-100,0,-500>*3
    look_at <100,0,0>
    angle 10

}

//light_source { <100, 100, -50>*1000*1000 color <1,1,1>*2 }

//light_source { <1000, 0, 0>*1000*1000 color <1,1,1>*2 }

//light_source { <0, 0, -1000>*1000*1000 color <1,1,1>*2 }

sky_sphere {

pigment {

bozo scale 1/6000

color_map { [0 color rgb 1] [0.15 color rgb 1] [0.15 color rgb 0] [1 color rgb 0] }

}

pigment {

wrinkles scale 1/10

scale 3 warp { turbulence 1/3} scale 1/3

color_map {

[0 color rgbt <0,0,0,1>] [0.6 color rgbt <0,0,0,1>] // [0.4 color rgbt <1,0,0,1>] [1 color rgbt <1,0.25,0,0>]

}

}

}

1. declare kroma1= object {

difference {
 sphere 
{
 0,1.01
}
sphere 
{
 0,1.0001 
}
}

pigment { rgbt <1,1,1,1> } hollow
  interior
  { media
    { 
    method 2
    intervals 1
    samples 10,20
   emission <1,1,0>*1/2
    absorption <0,1,1>*1/2
  scattering {2, <0,1,1>*1}
      density
      
      { 
      
      //spherical 
      function { -sqrt(x*x+y*y+z*z) }
    //  poly_wave 3/1
      density_map
        { [0 rgb 0]
          [1 rgb 1]
        }
      }
    }
 }

scale 1.0

}

1. declare covid1= sphere

{ 0,1 

pigment { rgbt <1,1,1,1> } hollow
  interior
  { media
    { 
    method 3
    intervals 2
    samples 10,20
    emission 1/15
      density
      
      { 
      
      //spherical 
      //function { -sqrt(x*x+y*y+z*z)}
       
       function { 
     //  pow(-sqrt(x*x+y*y+z*z),3)
       
       (
       pow( 1*sqrt(1*(x*x+y*y+z*z)),-6 )   * pow( f_granite( atan2(x+f_wrinkles(x,y,z),y+f_granite(x,y,z)*0.2), 1,1),2)  *0.5+   pow( 1*sqrt(1*(x*x+y*y+z*z)),-6 )*0.2
        )*100  
       
       
                       
       }
      scale 1/4
  //    poly_wave 3/1
      density_map
        { [0 rgbt <0,0,0,1>]
          [1 rgbt <1,1/4,0,0>*1/2]
        }
      }
    }
 }
}



#declare sun0= sphere {
0,1

pigment {
   bozo scale 0.5
 // granite scale 10
   pigment_map { 

   [ 0

granite scale 10 turbulence 0.5 color_map { [0 color rgbt <1,1,0>] [0.5 color rgbt <1,0.75,0>] [0.8 color rgbt <1,0,0>] [1 color rgbt <0,0,0>] } ]

[ 0.5

crackle scale 0.5 turbulence 0.5 color_map { [0 color rgbt <1,0.75,0>] [0.5 color rgbt <1,0.9,0>] [1 color rgbt <1,1,1>] } ]

}

}

finish {ambient 1}

}

1. declare pigu1= pigment {

// crackle scale 3 // granite scale 10 function {

exp(0.5*f_crackle(x/3,y/3,z/3) +0.5*f_granite(x,y,z))/3 *f_wrinkles(x,y,z)

}

scale .5 warp {turbulence .75 lambda 3} scale .5 // warp {turbulence .125 lambda 3} poly_wave .125 // poly_wave 0.5

color_map { [0 color rgb <0.305882, 0.137255, 0.101961>] [0.5 color rgb <0.321569, 0.231373, 0.2>] [0.9 color rgb <0.839216, 0.705882, 0.607843>] [1 color rgb <1,1,1>*0.8] }

}

1. declare fpigu1= function

{

 pigment {

pigu1

 }

}

// rayleigh based atm

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

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. 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 atmos1 = difference

{

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

}

1. declare planet1=object {

sphere { <0,0,0>,1 }

texture {

pigment { pigu1 }

normal {

function {fpigu1(x,y,z).gray } bump_size -0.1

}

 finish {ambient 0}

}

texture {

pigment {

gradient x scale 2 translate x*1

pigment_map { [0 color rgbt <1,1,1,0> ] [0.4 color rgbt <1,1,1,0> ] [0.5 crackle scale 0.1 warp { turbulence 0.2 } color_map { [0 color rgbt <1,1,1,1> ] [1 color rgbt <1,1,1,0> ] } ] [0.55 color rgbt <1,1,1,1> ] [1 color rgbt <1,1,1,1> ]

}

}

finish {ambient 0}

}

 texture {
 
 pigment {

wrinkles scale 0.5 // granite

 turbulence 0.5

// warp { turbulence 0.5} poly_wave 1

color_map { [0 color rgbt <1,1,1,1>] [1 color rgbt <1,1,1,0>] }

 }
 

 finish {ambient 0}
 }

}

1. declare star1=union {

object {sun0 scale 0.5}

object {covid1 }

object {kroma1 scale 0.5}

rotate x*60

scale 100

translate x*250

}

object {star1}

light_source { <20000,0,0> color rgb <1,1,1>*2

/* looks_like {

}

• /

}

union { object {planet1 } object {atmos1} scale 50 translate z*-500 translate x*-100 }