// Persistence of Vision Ray Tracer Scene Description File
// File: IsoDessert.pov
// Vers: 3.5
// Desc: Tests using isosurfaces for landscapes
// Date: 2/15/2005
// Auth: Bryan Valencia

// ==== Standard POV-Ray Includes ====
#include "colors.inc"   // Standard Color definitions
#include "textures.inc"   // Standard Texture definitions
//#include "functions.inc"  // internal functions usable in user defined functions

#declare f_mymarble=function{pattern{marble turbulence 2.575}}
#declare f_mygranite=function{pattern{granite turbulence 1}}

#declare LandContour=function{
 y+f_mymarble(x/100,y/100,z/100)*100
 +f_mygranite(x,y,z)/10
}

isosurface {
  function { LandContour(x,y,z) }          // function (can also contain declared
functions

  contained_by { sphere{0, 1e3} }  // container shape
  //threshold 0.0                     // optional threshold value for isosurface [0.0]
  accuracy 0.01                      // accuracy of calculation [0.001]
  max_gradient 1                      // maximum gradient the function can have [1.1]
  evaluate 1, 1.2, 0.95             // evaluate the maximum gradient
  //max_trace 1                       // maybe increase for use in CSG [1]
  //all_intersections                 // alternative to 'max_trace'
  open                              // remove visible container surface


  pigment{gradient y}
}


#declare Place1=<0,100-clock*90,-100+clock*100>;
#declare Place2=<-clock,100-clock*90,-99+clock*99>;

camera{
 location Place1
 look_at Place2
}

light_source{<-10000,10000,0> color rgb 1}

// Create an infinite sphere around scene and allow any pigment on it
sky_sphere { pigment {color rgb <0.7,0.7,1.0>} }

Post a reply to this message