Файл:B-типа главная последовательность звезда 1.png

1. include "colors.inc"
2. include "functions.inc"

global_settings { assumed_gamma 1.0 } 

camera { location <0,0,-65> look_at <0,0,0> }

1. declare sun1=sphere{

<0,0,0>, 1

 texture{ pigment{

// uv_mapping //bumps // scale 0.1 // bozo

// granite

function { f_noise3d(x*10,y*10,z*10) }

turbulence 0.2 octaves 20

scale 0.1

color_map { [0.0 rgb <0.05,0.05,1>] // [0.1 rgb LightBlue] // [0.9 rgb LightBlue] [1.0 rgb <0.0,0.0,1>] }

 } 

finish {

//ambient 18 ambient 25 }// end of finish

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

} ;

1. declare kromos1=difference

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

/*

 pigment {color rgbf <0,0,1,0.5>} finish { emission 1 } 

• /

pigment { color rgbf 1 } hollow interior { media { emission 1 absorption 1 method 2 intervals 1 samples 10, 50

 density { spherical color_map { [ 0.9 rgb <1.0,0,1.0> ] [ 1.0 rgb <0.0, 0.0, 0> ] } } } /* media { absorption 2 emission 1 method 1 intervals 1 samples 10, 50 density { spherical color_map { [ 0.0 rgb 1.0 ] [ 0.1 rgb 1.0 ] [ 1.0 rgb 1.0 ] } } } */ } 

};

1. declare korona1=sphere{

 <0,0,0>, 1 scale 1.06

 pigment{rgbt 1} hollow
interior

{ media{

emission 0.12

absorption 0.2 // scattering 1, 0.01

 // scattering { 3, 0.1 extinction 0.01 }

density{ spherical ramp_wave

 // onion

// turbulence 0.05 // poly_wave 1.5

#declare deltamm=1.0/200.0;

#declare mm = deltamm; #declare nn = 1-deltamm;

 #declare pp= 1.0; 

 color_map { // mm <2.0, 3.0 ... #while(mm <= 1.0) // #declare ex1=exp(-(nn-0.6)*18)*2; // #declare ex3=exp(-(nn-0.6)*18)*2; // #declare ex3=exp(-(nn-0.6)*18)*2; // #declare ex3=mm; // #declare ex3=exp(-(nn-0.3)*18)*2; // #declare ex3=exp(-(nn*nn)*10)*0.01; // #declare ex3=(mm*mm*mm)/2; // #declare potens1=3; // #declare attenk1=10; // #declare kerr1=15; #declare potens1=3; #declare attenk1=13; #declare kerr1=15; #declare ex4=pow(potens1,-nn*attenk1)*kerr1; #declare rr=ex4; #declare treshold1=0.5; #declare redi=treshold1; #declare greeni=treshold1; #declare bluei=rr*5; #if(rr<treshold1) #declare redi=rr; #declare greeni=rr; #end #declare cc=<redi,greeni,bluei>; [mm rgb cc]

 #declare mm=mm+deltamm; #declare nn=nn-deltamm; #end }

} // end of density

} // end of media --- } // end of interior

 scale 1.85

} ;

1. declare star1=union {

 object { sun1 scale 1.00001 } /* object { kromos1 //scale 1.19 scale 1.5 } */ object { korona1 scale 1.5 } } 

object {

 star1 scale 15

}