// ECLIPSE / Eclipsed Sphere Sunk '09.07
// By Tsutomu HIGO  URL: http://www.asahi-net.or.jp/~nj2t-hg/

#version 3.6;
global_settings {
  max_trace_level 5
  assumed_gamma 2.2
  }

camera {
  location <1, -4, -10>
  look_at <0, -0.5, 0>
  angle 70
  }

light_source {<-20, 100, -25> color rgb <1, 1, 0.5>}

#declare fn_Pigm = function {
  pigment { crackle
    turbulence 0.5
    color_map {
      [0   color rgb 1]
      [0.7 color rgb 0]
      }
    scale 2
    }
  }

intersection {
  sphere {<0, 0, 0> 4.5 inverse}
¡¡isosurface {
    function {(y-180*fn_Pigm(x, y, z).gray*0.32/(x*x+z*z+60))*(y+50)+2}
    threshold 5
    max_gradient 100
    contained_by {box {<-10, -15, -10> <15, 5, 10>} } 
    }
  texture {
    pigment {color rgbt <1, 0, 0, 0.9>}
    finish {
      ambient 0.3
      diffuse 1
      reflection 0.5
      specular 1
      phong 0.3
      brilliance 1
      }
    }
  scale <1, 1, 1>
  rotate <0, -25, 0>
  no_shadow
  }