// TWIST / A Flower '02.10
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.5;
global_settings {
  max_trace_level 5
  assumed_gamma 2.2
  }

#include "functions.inc"

isosurface {
  function {
    (((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 <0.3, 0.3, 1, 0.4> }
    finish {
      ambient 0.5
      reflection 0.5
      diffuse 0.3
      phong 0.3
      specular 0.5
      brilliance 1.5
      }
    }
  scale <2, 1, 2>
  rotate x*12
  no_shadow
  }

camera {
  location <60, 80, -40>
  angle 12
  look_at <0.7, 6, 0>
  }

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