File:Povray reeds in water in moonlight 1.png

1. include "colors.inc"

global_settings {

 assumed_gamma 1.0

}

//#declare FII =251.5;

#declare FII =-90-30;  
 

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

camera {

 //location  <0.0, 1, -10.0> 
 location  <0.0, 0.05, -0.5> 
 direction 1.5*z
 right     x*image_width/image_height
 look_at   <0.0, 0.2,  0.0>   
 angle 90

}

sky_sphere {

 pigment {
   gradient y  
  
       poly_wave 1.3
   //    cubic_wave
    

     color_map { 
  
  
  
  #declare mm = 0.0; 
  #declare pp= 1.0;
  #declare rr=1.00;
  

   #while(mm <= 1.0)
       
   //#declare rr=exp(-pp*10)*0.5 ;   
   #declare rr=exp(-pp/3)*1;
    
     // #declare rr=1-mm;
    
  #declare cc=<rr,rr,rr+0.05>;   
   
   
       # if (mm<0.003)
     #declare rr=100;
     
       #declare cc=<10,10,10>; 
   #end
    
   
   # if (mm>0.4)
     #declare rr=0.001;
     
       #declare cc=<0.0,0.0,0.05> ;
   #end
    
    
    
    
  
 
          
   [mm rgb cc]

   #declare mm=mm+0.01;
   #declare pp=pp+1;
    
   
   #end
            
     
    
  
      

        }
   rotate x*FII
   
 }

}

/*

light_source {

<0,500,1000>
color rgb <0.5,0.5,1>

}
 */ 

  /*

sphere // transparent sphere containing media
{ 0,1 pigment { rgbt 1 } hollow
  interior
  { media
    { 
    
  //  emission 0
     // scattering { 1,<1,1,1>*0.001 
        scattering{ 1, 0.17 extinction 0.000001}
     
    //  extinction 0.0001
      
       
    //  }
       samples 20,100   
      
    }
 }  
 
 scale 10000
}
  
  */
    

// fog ...
    /*
  
  fog{

          // color <0.05, 0.05, 0.15>
            
             color rgbf<0.3, 0.3, 0.5, 1.0>
           fog_type 2

           fog_alt 10000

           fog_offset 1
            
           distance 1000*100

         //  rotate x*90

           turbulence z*0.5

           turb_depth 0.2

         }
  
      
      */
      
 
 

// sea

plane {

 y, -0.1
// pigment { color rgb <0.7,0.5,0.3> }

 pigment {
     //  rgbf <0.0, 0.0, 1, 0>
   rgb Blue
   }

   texture {

//#if (Wavelet)

       normal {
           bozo
          scale <0.05, 0.25, 0.05>*0.5
       }

//#end

       finish {
           diffuse 1.0
           ambient 0.0

           reflection {
               0.9
               fresnel on
           }
       }
   }

  interior { ior 1.33 }  

}

// brairie  2


    

1. include "makegrass.inc"

1. declare nBlade=50; // number of blades per line (there will be nBlade * nBlade blades)

1. declare segBlade= 40; // number of blade segments

1. declare lPatch=10; // size of patch

1. declare lBlade = 3; // length of blade
2. declare wBlade = 0.01; // width of blade at start
3. declare wBladeEnd = 0.0001; // width of blade at the end

1. declare ryBlade = 0; // initial y rotation of blade

1. declare doSmooth= 1; // true makes smooth triangles
2. declare dofold = 1;//false;/true; or 0;/1; // true creates a central fold in the blade (twice more triangles)

1. declare startBend = <0,1,0.3>; // bending of blade at start (<0,1,0>=no bending)
2. declare vBend = <0,1,1>; // force bending the blade (<0,1,1> = 45°)
3. declare pwBend =5; // bending power (how slowly the curve bends)
4. declare rd = 5153; // seed
5. declare stdposBlade = 1; // standard deviation of blade position 0..1
6. declare stdrotBlade = 360; // standard deviation of rotation
7. declare stdBlade = 1.2; // standard deviation of blade scale
8. declare stdBend = 10; // standard deviation of blade bending

1. declare dofile = 1;//false;/true; or 0;/1; // true creates a mesh file
2. declare fname = "fgrass2.inc" // name of the mesh file to create

1. declare nxPrairie=12; // number of patches for the first line
2. declare addPatches=1.5; // number of patches to add at each line
3. declare nzPrairie=35; // number of lines of patches
4. declare rd=seed(179); // random seed
5. declare stdscale=1; // stddev of scale
6. declare stdrotate=1; // stddev of rotation
7. declare doTest=0;//false;/true; or 0;/1; // replaces the patch with a sphere

1. if (dofile=true)

  MakeGrassPatch(lPatch,nBlade,ryBlade,segBlade,lBlade,wBlade,wBladeEnd,doSmooth,startBend,vBend,pwBend,rd,stdposBlade,stdrotBlade,stdBlade,stdBend,dofold,dofile,fname)
  #declare objectPatch=#include fname

1. else

  #declare objectPatch=object{MakeGrassPatch(lPatch,nBlade,ryBlade,segBlade,lBlade,wBlade,wBladeEnd,doSmooth,startBend,vBend,pwBend,rd,stdposBlade,stdrotBlade,stdBlade,stdBend,dofold,dofile,fname)}

1. end

object{MakePrairie(lPatch,nxPrairie,addPatches,nzPrairie,objectPatch,rd,stdscale,stdrotate,doTest)

 //  scale 1/40

  scale 1/10
 
 texture {
  pigment {color rgb<0.0,0.3,0.0>*0.03}
 } 
//  scale <0.05,0.5,0.05>    

//translate<0,0,-0.75>

}