// Persistence of Vision Ray Tracer Scene Description File
// File: ?.pov
// Vers: 3.5
// Desc: Basic Scene Example
// Date: mm/dd/yy
// Auth: ?
//

#version 3.5;

#include "functions.inc"

global_settings {
  assumed_gamma 1.0
}

// ----------------------------------------

camera {
  location  <0.0, 0.5, -5.0>
  look_at   <0.0, 0.0,  0.0>
  right     x*image_width/image_height
}

light_source {
  <500, 500, -500>
  rgb 1
}
light_source {
  <-500, 50, -50>
  rgb <0.3,0.3,0.6>*0.5
}
light_source {
  <0,0,0>
  rgb <1,1,0.5>
}


#declare fT=function { 
  f_torus(x, z*sin(radians(90)) + y*cos(radians(90)), z*cos(radians(90)) - y*sin(radians(90)), 1.6, 0.015)
}

#declare Blob_threshold=0.0005;
#declare Angle = 15;

#declare fn_X=function {
  (1+Blob_threshold)
  #local I=0;
  #while (I<12)
    -pow(Blob_threshold, fT(x*cos(radians(Angle*I)) - z*sin(radians(Angle*I)), y, x*sin(radians(Angle*I)) + z*cos(radians(Angle*I))) )
    #local I=I+1;
  #end
  - f_noise3d(f_wrinkles(x,y,z)*3,y,f_wood(5*x,y,z))
}

#declare N=0.1;
isosurface {
  function{fn_X(x, z*sin(x*2*pi*N) + y*cos(x*2*pi*N), z*cos(x*2*pi*N) - y*sin(x*2*pi*N))}
  //function{fn_X(z*sin(y*2*pi*N) + x*cos(y*2*pi*N), y, z*cos(y*2*pi*N) - x*sin(y*2*pi*N))}
  contained_by { box { -2, 2 } }
  //threshold 0.0                   
  accuracy 0.001                    
  max_gradient 10.5                  
  //evaluate 5, 1.2, 0.95           
  pigment {
    rgb 1
  }
}