#declare sw_surface=0;
#declare sw_nuages=1;
#declare sw_atmos=1;
#declare R_terre=6378;
#declare Alt_max=20;
#declare Ep_atmos=60;  //100
#declare Alt_nuages=4;
#declare Alt_max_nuages=15;
#declare R_atmos=R_terre+Ep_atmos;
#declare R_nuages= R_terre+Alt_nuages;

#if (sw_surface)

#declare Bump_f = 
   pigment  // Bump_f
   {
      image_map
      {
         jpeg   "D:\A_Gegene\Moi\Moray\3.5\earthbump10k.jpg"
         map_type 1
         interpolate 2
      }
      scale  <-1,1,1>
      rotate 90*x
   }
#declare f_bump=function{pigment{Bump_f}}
#declare f_sphere_terre=function { sqrt(pow(x,2) + pow(y,2) + pow(z,2)) - R_terre }
#declare f_bump_terre=function{f_sphere_terre(x,y,z)-f_bump(x,y,z).gray*Alt_max}

#declare Surface=isosurface{function{f_bump_terre(x,y,z)}
contained_by {sphere{0,R_atmos}} accuracy 0.01
#else
#declare Surface= sphere{0, R_terre

#end
material{Mat_surface}
}


#if(sw_nuages)
#declare Bump_nuages = 
   pigment
   {
      image_map
      {
         tga   "D:\A_Gegene\Moi\Moray\3.5\ev11643_cloud_combined_8192.tga"
         map_type 1
         interpolate 2
      }
      scale  <-1,1,1>
      rotate 90*x
   }
#declare f_bump_nuages=function{pigment{Bump_nuages}}
#declare f_sphere_nuages=function { sqrt(pow(x,2) + pow(y,2) + pow(z,2)) - R_nuages }
#declare f_nuages=function{f_sphere_nuages(x,y,z)-f_bump_nuages(x,y,z).gray*Alt_max_nuages
//-f_bump(x,y,z).gray*Alt_max
}

#declare Nuages=isosurface{function{f_nuages(x,y,z)}
contained_by {sphere{0,R_atmos}}  accuracy 0.1
#else
#declare Nuages=sphere{0, R_nuages
#end
material{Mat_nuages_1}
}
#declare Atmosphere=sphere{0, 1  material {Mat_atmos_1  } scale R_atmos
#if (sw_atmos)
hollow
#end
}
union{
object{Surface}
object {Nuages rotate -z*165 hollow}
object{Atmosphere}
 rotate z*180 //translate y*R_terre+500
}