1. include "functions.inc"

1. declare Yellow =rgb <1,1,0>;
2. declare White= rgb <1,1,1>;
3. declare Black =rgb <0,0,0>;
4. declare Red=rgb <1,0,0>;
5. declare Orange=rgb <1,0.5,0>;
6. declare YellowOrange=rgb <1,0.75,0>;
7. declare YellowYellowOrange=rgb <1,0.825,0>;
8. declare LightBlue=rgb <0.5,0.5,1>;
9. declare DarkYellow=rgb <0.25,0.25,0>;

//#declare tauorig=

// DEBUG //#declare taunolla=0;

1. declare taunolla=clock+180;

1. declare tau=radians(taunolla);
2. declare tau2=radians(taunolla+180.0);

1. declare ra=2;
2. declare rb=2;
3. declare ax = sin(tau)*ra+1;
4. declare ay = cos(tau)*ra;

1. declare bx = sin(tau2)*rb-1;
2. declare by = cos(tau2)*rb;

1. declare sax=ax*1;
2. declare say=ay*1;
3. declare sbx=bx*1;
4. declare sby=by*1;

camera {

location <0,4,-20>
look_at <0,0,0>
angle 25

}

1. declare granulas = pigment {

   //granite
   crackle
   turbulence 0.5
   color_map {
     [0.0 color Orange]
     [0.15 color YellowOrange]
     [0.25 color YellowYellowOrange]
     [1.0 color Yellow]
   }
   scale 0.05
 //  	warp{turbulence 0.1}
   };
   

1. declare kromos=difference

{ sphere {0,1.025} sphere {0,1.001}

 pigment { color rgbf 1 }
 hollow
 interior {
 
 fade_distance 10
 
// fade_power 2
   media {
     emission 0.15
     method 3
     intervals 1
     samples 5, 5

     density {
       spherical
       color_map {
         [ 0.0 rgbt <0.0,0,0.25,1> ]
         [ 0.15 rgbt <0.25, 0.0, 0.0,1.0> ]
         [ 0.4 rgbt <0.5, 0.0, 0.0,1.0> ]
         [ 1.0 rgbt <1.0, 0.0, 0.0,1.0> ]
       }
     }
   }
   media {
     absorption 30
     method 3
     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 spots = pigment {

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

1. declare sun_surf =pigment

{

   bozo
   turbulence 0.5
   scale 0.2
       
     
      pigment_map {
     
      [0.0 granulas]
      [0.7 granulas  scale 5]
  //   [0.7 Yellow]
      [1.0 spots]       

     }    
      

};

1. declare korona=object

{

difference {

sphere {0,1.45 }

/* isosurface { // function { f_sphere(x, y, z, 1)- -f_crackle(x/0.4,y/0.4,z/0.4)*0.2}

function { f_sphere(x, y, z, 1)- ( -f_snoise3d(x/0.1,y/0.1,z/0.1 )*0.2 )}

// function { f_sphere(x, y, z, 1)- -f_snoise3d(x/0.1,y/0.1,z/0.1 )*0.2 - -f_crackle(x/0.4,y/0.4,z/0.4)*0.2 }

 scale 1.2

}

• /

sphere {0,1.026 }

}

pigment { color rgbt 1 }
//finish {ambient 1}



 hollow
 interior {
   fade_distance 100
       
   media {
     emission 0.1
    
     
   //  scattering <1,1,1>
     method 3
     intervals 1
     samples 5, 5

     density {
       spherical
       turbulence 0
       color_map {
         [ 0.0 rgbt <0.00,0.0,0.05,1.0> ]
         [ 0.15 rgbt <0.0, 0.2, 0.5,0.9> ]
          [ 0.5 rgbt <0.0, 0.5, 1.0,0.5> ]                   
         [ 1.0 rgbt <1.0, 1.0, 1.0,0.7> ]
       }
     }
   

   }
 }
 
 
 
 

};

1. declare sun=union {

object { sphere {0,1} pigment {sun_surf} //pigment {Yellow}

finish {ambient 35 } scale 1 }

object { kromos scale 1.00 }

object { korona scale 1 }

};

object { sun scale 2.5 //translate <sax,0,say>

}