// INSIDE / Perpendicular section to the axis '09.06
// By Tsutomu HIGO  URL: http://www.asahi-net.or.jp/~nj2t-hg/index.htm

#version 3.6;
global_settings {
  max_trace_level 3
  assumed_gamma 2.2
  }

#include "functions.inc"

isosurface {
  function {
    (1+0.2*cos(72*atan(z/x))*((((cos(-pi*y/6)*x-sin(-pi*y/6)*z)
    +0.4*cos(6*atan(z/x)))*((cos(-pi*y/6)*x-sin(-pi*y/6)*z)+0.4*cos(6*atan(z/x)))
    +(y-5)*(y-5)
    +((sin(-pi*y/6)*x+cos(-pi*y/6)*z)+0.4*sin(6*atan(z/x)))*((sin(-pi*y/6)*x
    +cos(-pi*y/6)*z)+0.4*sin(6*atan(z/x)))-24)*(x*x+(y-5.2)*(y-5.2)+z*z-20)+2))
    }
  threshold 0
  contained_by {box {<-7, 0, -7> <10, 5, 7>} }
  max_gradient 300
  texture {
    pigment{color rgb <0.7, 1, 0.5>}
    finish {
      ambient 0.2
      reflection 0.7
      diffuse 0.5
      phong 1
      specular 0.5
      brilliance 0.5
      }
    }
  scale <2, 1, 2>
  rotate x*-90
  no_shadow
  }

camera {
  location <-3, -3, -30>
  angle 50
  look_at <0, -1, -5>
  }

light_source {<-600, 800, -1500> color rgb <1, 0.7, 0>}

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