// Alex Kluchikov, 2003
// mailto: klkspa[at]ukr.net, aklk[at]mail.ru
// Feel free to modify/use in any form

sky_sphere{pigment{gradient y color_map{[0,color rgb <0.7,0.75,1>][1,color rgb <0.2,0.5,1>]}scale 2 translate -y}}
sphere{0,1000 texture{pigment{bozo color_map{[0,color rgbt <1,1,1,0.5>][1,color rgbt<-0.5,-0.5,-0.5,0.5>]}}scale 0.25 finish{ambient 0.5 diffuse 0.5}scale 4000}no_shadow no_image double_illuminate}
#declare st=texture{pigment{color rgb<0.8,0.85,0.95>*0.9}
  finish{diffuse 0.8 ambient 0 specular 0.9 phong 1.3 phong_size 80  metallic 0.5 reflection{0.5,0.8 metallic}}
  }

camera{
 location -3*z
 look_at 0
 rotate x*45
 translate y*0.5
 }

light_source {
  -5*z,color rgb 1
  area_light
  <2, 0, 0> <0, 0, 2>
  4, 4               
  adaptive 0         
  jitter             
  circular           
 rotate x*30
 rotate y*-45
}


#declare rad=function{
 pattern{radial}
 }
 
#declare sph=function(x,y,z){
 1/(pow(x*x+z*z)+0.2)
 } 

#declare gra=function{
 pattern{granite scale 5}
 } 

#declare s=1;

#declare vortex= texture{
  pigment{color rgb <0.6,0.85,0.8>}
  finish{ambient <0,0.05,0> diffuse  0.3 phong 1.5 phong_size 40 specular 0.5 metallic 0.5 reflection{0.5,0.95 metallic}}
  normal{function{gra(x*sin(sph(x,y,z)*s)+z*cos(sph(x,y,z)*s),y+clock*3,x*cos(sph(x,y,z)*s)-z*sin(sph(x,y,z)*s))}-1.0} 
  }


lathe{
    bezier_spline 8
    <0.0,0.0>
    <0.0,0.5>
    <0.5,1.0>
    <2.0,1.0>
    <2.0,1.0>
    <3.5,1.0>
    <7.5,1.0>
    <10.0,1.0>
  scale 1.3
  texture{vortex}
}