#include "consts.inc"
#include "colors.inc"
#include "landscap.inc"
#include "stones1.inc"

#if(clock=0)                            
    #declare HERMITE_FRAME = 1; // not using 0001.ini
#else
    #declare HERMITE_FRAME = clock-1;   // ARE using 0001.ini
#end    

#declare vpt=<-210,10,6>;
#declare lookat=<160,0,100>;

#declare show_clouds = false;
#declare show_mist_boxes = false;
#declare hi_res_clouds = false;
                
global_settings{ max_trace_level 10 }

                
camera
    {
    location vpt
    direction <0,0,1>
    sky <0,0,1>
    look_at lookat
    }    

intersection
    {
    box {0, 1
         scale 0.967
        // translate 0.05*y
        }
//    object
//        {
        height_field { gif "edhead.gif"  smooth water_level 0.03}
        hollow
        no_shadow
        texture{ pigment{ color Clear } }
        interior
            {
            media
                {
                //emission 0.5
                scattering {3, rgb 0.5/2}
                //absorption rgb<1,0,1>   
                samples 1,10
                density
                    {
                    //boxed
                    bozo
                    color_map
                        {
                        [0.0 rgb 0.1]
                        [0.4 rgb 0]
                        [0.5 rgb 0.3]
                        [0.6 rgb 0.1]
                        [0.8 rgb 0.4]
                        [1.0 rgb 0.1]
                        }
                    scale 1
                    turbulence 1
                    translate x*clock/2
                    }
                method 3            
                }       
            }
        //texture{ T_Grnt25 scale 30 translate z*clock/10}
//        }    
    rotate <90,0,0>
    scale <150,250,50>
    translate <-75,125,0> /* centered over origin */
    rotate <-90,0,90+(5-clock/10)>
    translate <160,0,120>
//    finish{ambient 0.6}
    }             

intersection
    {
    box {0, 1
         scale 0.967
        // translate 0.05*y
        }
//    object
//        {
        height_field { gif "allenhead.gif"  smooth water_level 0.067}
        hollow
        no_shadow
        texture{ pigment{ color Clear } }
        interior
            {
            media
                {
                //emission 0.5
                scattering {3, rgb 0.5/2}
                //absorption rgb<1,0,1>
                samples 1,10
                density
                    {
                    //boxed
                    bozo
                    color_map
                        {
                        [0.0 rgb 0.1]
                        [0.4 rgb 0]
                        [0.5 rgb 0.3]
                        [0.6 rgb 0.1]
                        [0.8 rgb 0.4]
                        [1.0 rgb 0.1]
                        }
                    scale 1/2
                    turbulence 1
                    translate x*clock/2
                    }
                method 3            
                }       
            }
        //texture{ T_Grnt25 scale 30 translate z*clock/10}
//        }    
    rotate <90,0,0>
    scale <150,250,50>
    translate <-75,125,0> /* centered over origin */
    rotate <-90,0,90+(5-clock/10)>
    translate <160,150,120>
//    finish{ambient 0.6}
    }             
    
intersection
    {
    box {0, 1
         scale 0.967
        // translate 0.05*y
        }
//    object
//        {
        height_field { gif "emoryhead.gif"  smooth water_level 0.05}
        hollow
        no_shadow
        texture{ pigment{ color Clear } }
        interior
            {
            media
                {
                //emission 0.5
                scattering {3, rgb 0.5/2}
                //absorption rgb<1,0,1>
                samples 1,10
                density
                    {
                    //boxed
                    bozo
                    color_map
                        {
                        [0.0 rgb 0.1]
                        [0.4 rgb 0]
                        [0.5 rgb 0.3]
                        [0.6 rgb 0.1]
                        [0.8 rgb 0.4]
                        [1.0 rgb 0.1]
                        }
                    scale 1/2
                    turbulence 1
                    translate x*clock/2
                    }
                method 3            
                }       
            }
        //texture{ T_Grnt25 scale 30 translate z*clock/10}
//        }    
    rotate <90,0,0>
    scale <150,250,50>
    translate <-75,125,0> /* centered over origin */
    rotate <-90,0,90+(5-clock/10)>
    translate <160,-150,120>
//    finish{ambient 0.6}
    }             
    
// create a point "spotlight" (conical directed) light source
//light_source {
//  <400, 0, 400>         // <x y z> position of light
//  color rgb 3     // light's color
//  spotlight             // this kind of light source
//  point_at <160,0,200>      // direction of spotlight
//  radius 5                // hotspot (inner, in degrees)
//  tightness 20            // tightness of falloff (1...100) lower is softer, higher is tighter
//  falloff 15              // intensity falloff radius (outer, in degrees)
//}

    
light_source
    {
    <-800,0,800>
    rgb 1
    }    

#if(show_clouds)
box {
    -1 1
    hollow
    texture
        {
        pigment { color Clear }
//        finish { ambient 0 diffuse 0 refraction 1 }
        }
    interior
        {
        media
            {
            scattering { 1, rgb<.1,.1,.1> }
            #if (hi_res_clouds)
            intervals 50
            samples 1,4
            #else
            intervals 15
            samples 1,2
            #end
//            scattering {1, 0.25}
//            absorption rgb<1,0,1>
            density
                {
                //boxed
                marble
                color_map
                    {   
                    [0.0 Black]
                    [0.4  White/4]
                    [0.5  Black]
                    [0.7  White/3]
                    [0.8  Black]
                    [1.0  White/2]
                    }
                scale 1
                turbulence .5+(sin(clock/80)/5)
                octaves 10    
                omega .2
                }
            }
        }


/*
        halo
            {
            poly
            //attenuating
            dust
            box_mapping
            max_value 1
            exponent 0.3
            color_map
                {
                [0.0  color rgbft<0,0,0,0,1> ]
                //[0.7  color rgbft<0,0,0,0,1> ]
                //[1.0 color rgbft <0.9, 0.9, 0.9, 0.5, 0.995>]
                [1 color rgbft<0.9,0.9,0.9,1,0.3> ]
                }
            turbulence 2
            octaves 4
            lambda 1
            omega 1/4
            samples 5
            //aa_level 0
            //aa_threshold 0.3
            }
        rotate x*clock
*/
    scale <1000,1000,8>
    translate z*12
    finish{ ambient 1 }
    }
#end

             
#if (show_mist_boxes)
object
   {
   box { <-100000,-100000,10>, <100000,100000,14> }
   texture{ Mist scale (190+(clock/10/50)) }
   rotate <0,3,0>
   finish{ambient 0.4}
   }

object
   {
   box { <-100000,-100000,100>, <100000,100000,200> }
   texture{ Mist scale (190+(clock/10/50)) }
   rotate <0,10,0>
   finish{ambient 0.4}
   }
#end

object
    {
    height_field { gif "mandcros.gif" }
    rotate <90,0,0>
    texture{ pigment{Landscape} scale 1.1 } /* before scale<> so texture gets scaled same size */
    scale <400,400,5>
    translate <-200,200,0>
    rotate <0,0,0>
    finish{ambient 0.5}
    }

light_source
    {
    <-5000,-2000,5000>
    color rgb < 0.8, 0.7, 1.0>
    rotate <0,0,-clock/10>
    }