// FUNCTION - FUNCTIONS by ISOSURFACE / Fusing '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, -5, -30>
  look_at <0.5, -1.5, 0>
  angle 32
  }

light_source {<0, 0, -30> color rgb <0.7, 0.7, 0.7>}
light_source {<0, 20, 0> color rgb <0, 0.3, 0>}

isosurface {
  function {(y*y+x*x+z*z-40+2*sin(x*2.5)+2*sin(y*2.5)+5*sin(z*2.5))
            *(z-0.01*(x*x+y*y)+10)+30*sin(x*2.5)+30*sin(y*2.5)+5*sin(z*2.5)-20}
  threshold 0
  max_gradient 1000
  contained_by {box {<-42, -38, -12>, <24, 20, 8>}}
  open
  texture {
    pigment {color rgb <1, 0, 0>}
    finish {
      ambient 0.1
      diffuse 1
      phong 0.8
      specular 0.5
      roughness 0.02
      brilliance 0.5
      }
    }
    scale 1/vlength(1)
    rotate <230, 50, -30>
    no_shadow
  }