// Graphic Gallery CYBERBUST / POLARS No.5 '06.07
// by Tsutomu HIGO  URL: http://www.asahi-net.or.jp/~nj2t-hg/

#version 3.6;
global_settings {
  max_trace_level 6
  assumed_gamma 2.2
  }

camera {
  location <5, 30, -5>
  angle 110
  look_at <2, -16, 0.5>
  }

light_source { <20, 50, 10> color rgb <0.6, 1, 0.8> }

merge{
  sphere { <0, 1, 0> 1 }
  isosurface {
    function { (pow(cos(atan(z/x))-x,2)+pow(sin(atan(z/x))-0.8*z,2)
      +pow(y,2)- 0.1*(1+0.3*cos(6*atan(z/x))))*(y*y-0.01)-0.2 }
    contained_by { box { <-0.1, -1, -8>  <8, 1, 8> } }
    accuracy 0.01
    max_gradient 30
    }
  isosurface {
    function { (pow(cos(atan(z/x))-x,2)+pow(sin(atan(z/x))-0.8*z,2)
      +pow(y,2)- 0.1*(1+0.3*cos(6*atan(z/x))))*(y*y-0.01)-0.2 }
    contained_by { box { <-0.1, -1, -8> <8, 1, 8> } }
    accuracy 0.01
    max_gradient 30
    rotate y*180
    }
  scale 10
  texture { pigment {color rgbt <1, 0.9, 0.7, 0.7>} }
  finish {
    ambient 0.5
    diffuse 0.3
    reflection 0.8
    specular 0.8
    phong 0.5
    brilliance 1
    }
  no_shadow
  rotate y*40
  }

background { color rgb <0.001, 0.01, 0.05> }