// TWIST / Arc Arms '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(0.055*pi*(x*x+z*z))*x-sin(0.055*pi*(x*x+z*z))*z)
    *(cos(0.055*pi*(x*x+z*z))*x-sin(0.055*pi*(x*x+z*z))*z)*6
    +y*y*6*(x*x+z*z+1)
    +(sin(0.055*pi*(x*x+z*z))*x+cos(0.055*pi*(x*x+z*z))*z)
    *(sin(0.055*pi*(x*x+z*z))*x+cos(0.055*pi*(x*x+z*z))*z)-25
    }
  threshold 0
  contained_by { box {<-6, -3, -6>, <6, 3, 6>} }
  max_gradient 800
  texture {
    pigment{ color rgbt <1,1, 0.5, 0.4> }
    finish {
      ambient 0.5
      reflection 0.5
      diffuse 0.3
      phong 0.3
      specular 1
      brilliance 1.5
      }
    }
  rotate x*12
  no_shadow
  }

camera {
  location <100, 120, -20>
  angle 3.5
  look_at <0, 0, 0>
  }

light_source { <-500, 1000, 1500> color rgb <1, 0.5, 0.8> }