// INT '03.07 / Blue
// By Tsutomu HIGO  URL: http://www.asahi-net.or.jp/~nj2t-hg/

#version 3.5;
global_settings {
  max_trace_level 4
  assumed_gamma 2.2
  }

camera {
  location <0, 3, -3>
  look_at <0.37, 0.23, 0>
  angle 46
  }

light_source {<250, 30, 100> color rgb <0.8, 0.8, 0.8> }
light_source {<-250, -30, -100> color rgb <0.8, 0.8, 0.8>}

isosurface {
  function {
    (
    pow(x  -sqrt(1-pow(0.15*int((y-0.075)/0.15),2)/4)
      *cos(2*pi/int(sqrt(1-pow(0.15*int((y-0.075)/0.15),2)/4+0.1)*pi/0.075)
      *     int(int(sqrt(1-pow(0.15*int((y-0.075)/0.15),2)/4+0.1)*pi/0.075)
      *acos(x/sqrt(x*x+z*z+0.0000001))/2/pi+1/2)),2)
    +pow(z  -sqrt(1-pow(0.15*int((y-0.075)/0.15),2)/4)*z/abs(z+0.000001)
      *sin(2*pi/int(sqrt(1-pow(0.15*int((y-0.075)/0.15),2)/4+0.1)*pi/0.075)
      *     int(int(sqrt(1-pow(0.15*int((y-0.075)/0.15),2)/4+0.1)*pi/0.075)
      *acos(x/sqrt(x*x+z*z+0.0000001))/2/pi+1/2)),2)
    +pow(mod(y+100,0.15)-0.075,2)
    -0.0009
    )*(
    pow(x,2)+pow(y/2,2)+pow(z,2)
    -pow(1,2)-0.01*cos(50*pi*pow(x*x+z*z+(y-2)*(y-2),2)+pi)
    )
    -0.0001
    }
  threshold 0
  max_gradient 2
  contained_by {box {<-1.1, -2.01, -1.2>, <1.1, 2.01, 1.1>}}
  open
  texture {
    pigment {color rgb <0.2, 0.3, 1>}
    finish {
      ambient 0.3
      diffuse 1
      reflection 0.2
      specular 2
      phong 1
      brilliance 1
      }
    }
  rotate y*20 rotate z*45 rotate y*210
  no_shadow
  }