#version unofficial megapov .5;

light_source{<100,200,-50>,1}
light_source{<-100,-50,0>,<.2,.3,.4> shadowless}

background{<.4 .6 .85>}

#include "country_grass2.inc"

//-----------------------------Old Test Scene------------by Samuel T. Benge------------------------

/*camera {location <0,17,-20> look_at 0 angle 40}

#declare Box = box {<-10,-1,-5>,<10,0,5> pigment {rgb <.7 .7 .5>} normal {granite}}

$Tex=pigment {bumps scale .5 color_map {[0 rgb 0][1 rgb 1]}}
country_grass(0, <-10,-5>, <0,5>, 1, 20, 1000, 360, 0, 3, Box, 360, Tex )

$Tex=pigment {bumps color_map {[0 rgb 0][1 rgb 1]}}
country_grass(0, <0,-5>, <10,5>, <1,2,1.5>, 20, 1000, 90, 45, 3, Box, 360, Tex )

object {Box}*/

//-----------------------------New Test Scene------------by Anthony L. Bennett---------------------

camera {location <0,17,-20>*.75 look_at 0 angle 40 translate x/7-y*2.75}

#declare Land =
blob
{
 #declare I = 0;
 #declare E = seed(333);
 #while (I<600)
  #declare Pos = (<15,0,12>-<15*rand(E),0,12*rand(E)>*2)/3;
  sphere {0,.25+rand(E),1 scale <1.5,1,1.5> translate Pos-y*(vlength(Pos)/2+rand(E))}
  #declare I = I + 1;
 #end
 pigment {rgb <.7,.7,.5>} normal {granite}
}

//$Tex=pigment {bumps color_map {[0 rgb 0][1 rgb 1]}}
//country_grass(0, -<7.5,6>, <7.5,6>, <1,3,1.5>/10, 20, 55000, 360, 5, 6, Land, 360, Tex ) //overkill version

//$Tex=pigment {gradient z turbulence 1 scale 2 color_map {[0 rgb 0][.95 rgb 1]}}
//country_grass(0, -<7.5,6>, <7.5,6>, <1,3,1.5>/3, 20, 1000, 360, 5, 6, Land, 360, Tex ) //regular version

$Tex=pigment {bumps color_map {[0 rgb 0][1 rgb 1]}}
country_grass(1, <0,0>, <2,8>, <1,3,1.5>/3, 20, 1000, 360, 5, 6, Land, 360, Tex ) //circular version

object {Land}// pigment {Tex}}