// Hair '98.06
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.0
global_settings { assumed_gamma 2.2 }

#include "colors.inc"

camera {
    location <0,0,100>//<20, 40, -40>
    angle 17
    look_at <5.2, 10, 0>
    }

light_source {<50, 100, 50> color White}
light_source {<20, 30, 18> color White}

#declare Cn =0 #while (Cn < 171)
  #declare R1 = seed(Cn*20)
  #declare Xr =20+30*rand(0)
  #declare Yr =30+30*rand(0)
  #declare Xp =0
  #declare Yp =0
  #declare Zp =0
  #declare Ct =0 #while (Ct < 30+10*rand(0))
    #declare Xr =Xr+10*rand(R1)
    #declare Yr =Yr+10*rand(R1)
    cylinder {<0,-0.05,0>,<0,1.05,0>, 0.05 
      rotate <Xr,Yr,0> translate <Xp,Yp,Zp> rotate z*90
      pigment {color rgb <0, 0, 0>}
      finish {
          ambient 0.1
          crand 0.1
          reflection 0.2
          specular 1.0
          brilliance 1.0
          }
      }
    #declare Xp =Xp+sin(Xr*pi/180)*sin(Yr*pi/180)
    #declare Yp =Yp+cos(Xr*pi/180)
    #declare Zp =Zp+sin(Xr*pi/180)*cos(Yr*pi/180)
  #declare Ct = Ct+1 #end
#declare Cn = Cn+1 #end

sky_sphere {
    pigment {
      gradient y
      color_map {
        [ 0.5  color LightSteelBlue ]
        [ 1.0  color White ]
        }
      scale 2
      translate -1
      }
    }