// Persistence of Vision Ray Tracer Scene Description File
// File: BlurFur.pov
// Vers: MPOV.7
// Desc: 
// Date: 
// Auth: 


#version unofficial MegaPov 0.7

#include "colors.inc"
#declare IMPORT_SPATCH = 1;

global_settings
{
  assumed_gamma 1.0
  motion_blur 85,0.4
}

// ----------------------------------------
camera
{
  location  <0.4, 1.4, -4.0>
  direction 1.7*z
  right     4/3*x
  up y 
  angle 25
  look_at   <0.0, -1.0,  -0.2>
}

sky_sphere
{
  pigment
  {
    gradient y
    color_map { [0.0 color SkyBlue] [1.0 color blue 0.6] }
  }
}

light_source
{
  0*x // light's position (translated below)
  color rgb 0.5  // light's color
  translate -60 * z
  rotate <15, 45, 0>
  //parallel 
  //point_at <0,0,0>
  shadowless
}

light_source
{
  0*x // light's position (translated below)
  color rgb 1  // light's color
  translate -61 * z
  rotate <17, 45, 0>
  //parallel 
  //point_at <0,0,0>
}

light_source
{
  0*x // light's position (translated below)
  color rgb 0.8  // light's color
  translate -60 * z
  rotate <11,90,0>
  shadowless
}

// ----------------------------------------
plane { y, -1 
     texture {
     pigment {checker color NavyBlue, color Gray80} 
     scale 0.5
     }
}

//sphere { 0.0, 1 texture {pigment {radial frequency 8} finish{specular 1}} }

#declare MySphere = sphere { <0, 0, 0>, 1 } 
#declare MyTorus =  torus { 0.8, 0.2} 
#declare ScaleFactor = 0.05;



motion_blur{
object {
  MyTorus 
  texture { 
    pigment { radial frequency 10 color_map {[ 0.0 color DarkBrown ]
                                             [0.20 color DarkBrown ]
                                             [0.25 color Black ]
                                             [0.30 color VeryDarkBrown]
                                             [0.70 color VeryDarkBrown]
                                             [0.75 color Black ]
                                             [0.80 color DarkBrown ]
                                             [1.0 color DarkBrown]
                                             } //scale 0.2 
            turbulence 0.5 }  
    normal { granite 20 scale 0.11 }
    finish { specular 0.007 }
  }  
  //scale ScaleFactor
  scale 0.5 + ( clock * 0.5 )
  rotate -y * clock * 15 * noise3d(0.2)
  translate -y * 0.8 
}
} // end motion_blur 


#include "bearskin_o.inc"

motion_blur{
object { Bearskin
  translate -(y * 0.05)  
  scale <1.5,1,1.5>
  scale <0.8,(ScaleFactor + ( clock * (1 - ScaleFactor) )),0.8>
  rotate y * clock * 10 * noise3d(0.2)
} 
  translate -(y * 0.95)
} // end motion_blur