// Graphic Gallery CYBERBUST / POLARS No.4 '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, 25, -30>
  angle 45
  look_at <0, -4, 0.5>
  }

light_source { <500, 100, -100> color rgb <1, 0.8, 0.8> }

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

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