// INSIDE / Enlarged figure '09.06
// By Tsutomu HIGO  URL: http://www.asahi-net.or.jp/~nj2t-hg/index.htm

#version 3.6;
global_settings {
  max_trace_level 4
  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 {sphere {<0, 5, 0> 6} }
  max_gradient 180
  texture {
    pigment {color rgbt <1, 1, 1, 0.7>}
    finish {
      ambient 0.1
      reflection 1
      diffuse 0.5
      phong 1
      specular 0.5
      brilliance 0.5
      }
    }
  scale <2, 1, 2>
  rotate x*12
  no_shadow
  }

camera {
  location <60, 80, -40>
  angle 3
  look_at <-6, -10, 0>
  }

light_source {<-400, 1000, 800> color rgb <1, 1, 0.4>}

background {color rgb <0, 0.1, 0.4>}