// ------------------------------------------------------
// scene for shortest code contest 3
// Copyright February 2004 
// by Christoph Hormann <chris_hormann@gmx.de>
// ------------------------------------------------------

// background color
background {
  rgb <.5,.7,1>
}

global_settings {
  
  // radiosity settings - somewhat higher quality than default
  // fairly slow due to default recursion_limit 3
  radiosity {
    error_bound .5
    count 99  
  }
  
  // alternative settings for faster render:
  //radiosity { } // somewhat faster
  //radiosity { recursion_limit 1 } // much faster
  /*
  radiosity { // faster and fairly good quality
    error_bound .5 
    count 99 
    recursion_limit 1 
  } 
  */
  
  // slightly shorter than 'finish{ambient 0}' for the isosurface
  ambient_light 0
}

// this is placed between 'ambient_light' and '0' in the short version
// to save one character
// a simple pattern function
#local _=
  function {
    pattern {
      agate 
      turbulence 1
      
      // you can try higher values here but will loose the 'face'
      octaves 9
    }
  }

isosurface {
  // the surface shape:
  // horizontal plane displaced by the pattern function
  // scaling to avoid a max_gradient statement
  function {
    (y + .07 - _(x+9,y,z)*.115)/20
  }
  accuracy 1e-5
  
  // plain color pigment
  pigment { rgb 1 }
}

// illumination - a simple point light
light_source{
  5
  <8,4,2>
}