File:Evaporating planet 6 1 1 1 1.png

//////////////////////////////////
//
// puffy planet
//
// POV-Ray 3.8 source code
//
// 13.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 <0,100,-2000>
    look_at <0,0,0>
    angle 6

}

/* camera {

    location <0,2000,0>*3
    look_at <0,0,0>
    angle 20

}

• /

//background { color rgb <8/10,1/2,0>*2}

/* light_source {

   <3, 5, -4>*1000*1000
    color rgb <1,1,1>
}
*/

1. macro fokker1(int1, emission1, absorption1, scattering1)

sphere {

   <0, 0, 0>, 1

pigment { rgbt 1 } hollow no_shadow
  interior
  { media
    { 
    

emission emission1*intk1 absorption absorption1*intk1

scattering { 3, scattering1*intk1 }

      density
      { 
      //spherical 
      function {
      f_spherical(x,y,z)
      *f_wrinkles(x*10,y*10,z*10)
      *f_granite(x,y,z)
      }
      
      turbulence 0.5
      
      density_map
        { [0 rgb 0]
          [1 rgb 1]
        }
      }
    }
 }

}

1. end

1. declare planet1=object {

sphere {

   <0, 0, 0>, 1

pigment { // color rgb <0.5,0.5,1>

function { f_agate(y,x/10,0)

}

scale 5 warp { turbulence 0.3 } scale 1/5

color_map { [0 color rgb <1,1,1>] [1 color rgb <1/2,1/2,1>] }

}

} }

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.4 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 1 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 1/30 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. macro tail1(sk1, delta1, int1, emission1, absorption1, scattering1)

union {

1. declare a1=500;
2. declare da1=0;
3. declare deltangle1=2*delta1;
4. declare yk1=10*delta1;

//#declare sk1=1.0*25;

1. declare skink1=0.97;
2. declare beginangle1=180;

//#declare int1=1;

1. declare intk1=0.8/1;

1. for(n,0,20)

#declare nn=beginangle1+n*deltangle1; #declare fii1=radians(nn); #declare sx1=a1*sin(fii1); #declare sz1=a1*cos(fii1); #declare sy1=(rand(seed1)-0.5)*yk1;

object {

fokker1(int1, emission1, absorption1, scattering1)

//sphere1

scale sk1

translate <sx1,sy1,sz1>

#declare a1=a1+da1*n; #declare sk1=sk1*skink1; #declare int1=int1*intk1;

}

1. end

}

1. end

union {

object {sun0 scale 0.5}

object {covid1 }

object {kroma1 scale 0.5}

rotate x*60

scale 100

}

union {

object {

// tail1

1. declare emission1=<1,0.5,1>/10;
2. declare absorption1=<0.5,1,0.5>/10;
3. declare scattering1=<1,1,1>/10;
4. declare delta1=1;

tail1(25, delta1, 0.2, emission1, absorption1, scattering1)

}

object {

// tail1

1. declare delta1=1/2;
2. declare emission1=<1,0.5,1>/2;
3. declare absorption1=<0.5,1,0.5>/2;
4. declare scattering1=<1,1,1>/2;

tail1(10,delta1, 0.2, emission1, absorption1, scattering1)

}

object {planet1 scale 5 translate z*-500 }

}