Juha Nieminen
warp@tag.povray.org
http://iki.fi/warp/

--- Code ---
global_settings
{ radiosity { }
}

sky_sphere
{ pigment
  { planar color_map
    { [0 rgb z][1 rgb 1] }
  }
}

light_source { <90,90> 1 }

height_field
{ function 900,900
  { pattern { granite }
  }
  smooth
  scale 10-y*9

  pigment
  { slope y color_map
    { [.6 rgb <.6,.3>]
      [1 rgb <.5,.8>]
    }
  }
  translate -<5,.3>
}

plane
{ y,-.07
  pigment { filter .9 }
  finish { reflection .8 }
  normal { granite .05 scale .1 }
}

plane
{ -y, -99
  pigment
  { bozo color_map
    { [0 rgb .5][.4 rgb 1][.5 rgbf 1]
    }
    turbulence 1
    scale 80
  }
  finish { ambient .7 }
}

box
{ -<2,1> <2,.2,10>
  pigment { rgbt 1 }
  interior
  { media { scattering { 1, .6 } }
  }
  hollow
}
//WRP
------------

  Just a quick one.
  I really didn't use any fancy tricks to get the code shorter. I just 
made
a simple scene and reduced by (ab)using the flexibility of the POV-Ray
SDL syntax.
  The radiosity might not add anything too visible to the image, but 
since
I had extra space...


I SUBMIT TO THE STANDARD 10BEST.RAYTRACE.COM COPYRIGHT STATEMENT.