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

#version 3.5;
global_settings {
  max_trace_level 4
  assumed_gamma 2.2
  }

camera {
  location <-20, 20, -5>
  look_at <-0.1, -0.1, 0>
  angle 22
  }

light_source {<-10, 20, -25> color rgb <1, 0, 0>}
light_source {<-50, 150, -75> color rgb <0.8, 0.8, 0.8>}

isosurface {
  function {pow(y,0.3) +0.3*sin(z*pi/7)*sin(y*pi/7)*sin(x*pi/7)
	     -0.3*sin(pow(x*x+z*z+0.5*y*y,0.8))-1}
  threshold 0
  max_gradient 5
  contained_by {box {<-15, -5, -20>, <15, 10, 20>}}
  open
  texture {
    pigment {color rgb <1, 1, 0.5>}
    finish {
      ambient 0.2
      diffuse 1
      reflection 0.5
      specular 1
      phong 0.5
      brilliance 1
      }
    }
  scale 1/vlength(1)
  rotate <0, 20, 0>
  no_shadow
  }

background {color rgb <0, 0.2, 0.7>}