//a scene with palm trees
//by Kurt Bangert
//http://www.travelnotes.de

#include "colors.inc" 
#include "textures.inc"
#include "finish.inc"
#include "palmmacro.inc" 

light_source { < 200,10,-300> color rgb <1,1,1> }
light_source { < 200,100,-300> color rgb <1,1,1> } 

//a camera
camera {location <45,14,0>
 angle 50
 look_at <41,14,3>
}     

//a sky sphere
#declare skyblue = pigment{
        gradient y
        color_map {
          [0.0 color rgb <.5, .5, 1>]
          [0.3 color rgb <0.3, 0, 0.7>]  
          [1.0 color rgb <0.1, 0, .5>]
        } scale 10000 }   
        
object{sphere{<0,0,0> 10000} hollow 
       texture {pigment {skyblue} finish {Luminous}}}        

//a plane landscape
object {plane{y,4} pigment{Green} }

//a loop to declare a forest with 40 palm trees
#declare r1 = seed(1);                     
 #declare i=1;
  #while (i<40)  
   #declare position=<-3*i+60,-rand(r1)*4+21,rand(r1)*40+20>;  
    //start of a single palm tree
    palmtree(position)
  #declare i=i+1;
  #end