// Graphic Gallery CYBERBUST / POLARS No.1 '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 50
  look_at <-0.6, -5, 0.5>
  }
light_source {
  <200,100,-300>                // light's position (translated below)
  color rgb <1,1,1>       // light's color
}

union{

 isosurface {
  function { pow(cos(atan(z/x))-x,2)+pow(sin(atan(z/x))-z,2)+pow(2*y,2)- 0.3*(1+cos(6*atan(z/x))) } 
  contained_by {  box { <-0.001, -1, -3>  < 3,  1,  3> } }
  accuracy 0.0001 
  max_gradient 40 
  }
 isosurface {
 function { pow(cos(atan(z/x))-x,2)+pow(sin(atan(z/x))-z,2)+pow(2*y,2)- 0.3*(1+cos(6*atan(z/x))) } 
  contained_by {  box {   <-0.001, -1, -3>  < 3,  1,  3> } }
  accuracy 0.0001                      // accuracy of calculation [0.001]
  max_gradient 40                      // maximum gradient the function can have [1.1]
rotate y*180 
}  // container shape
  scale 10
    texture { pigment {color rgbt <1, 0.8, 0.8, 0.6>} }
    finish {
      ambient 0.5
      diffuse 0.3
      reflection 0.8
      specular 0.8
      phong 0.5
      brilliance 1
      }
    no_shadow  rotate y*40
    }

    // set a color of the background (sky)
background { color rgb <0.001, 0.01, 0.05> }