// FUNCTION - FUNCTIONS by ISOSURFACE / Taking Off '02.07
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.5;
global_settings {
  max_trace_level 6
  assumed_gamma 2.2
  }

camera {
  location <0, -7, -30>
  look_at <0.6, -0.2, 0>
  angle 34
  }

light_source {<0, -7, 0> color rgb <0, 0.8, 0>}
light_source {<150, 150, -75> color rgb <0, 0, 0.8>}

isosurface {
  function {((y*y+(x-8)*(x-8)+z*z-40)*((y+1)*(y+1)+(x+8)*(x+8)+z*z-40)
            +1000*sin(2*x*pi)*sin(2*x*pi)-2000)*(y+0.01*(x*x+z*z)+10)-6500}
  threshold 0
  max_gradient 250000
  contained_by {box {<-12, -15, -15>, <16, 7, 15>}}
  open
  texture {
    pigment {color rgb <1,1,1>}
    finish {
      ambient 0.1
      diffuse 1
      phong 0.8
      phong_size 20 
      specular 0.5
      roughness 0.02
      brilliance 0.5
      }
    }
  scale 1/vlength(1)
  rotate y*30
  no_shadow
  }

background {color rgb <0, 0, 0.3>}